// Mony Mony — Billy Idol
// 146 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: ch 6 "Organ" named as an organ, played on drawbar organ (its brass section patch is not one)
// note: duplicate parts dropped: ch 11 "Melody" lead 1 square (copy of ch 4 "Melody" lead 1 square); ch 5 "Rhy.Guitr" electric guitar muted (copy of ch 7 "Gtr 2" overdriven guitar, 0.083 beats early)
// note: Full arrangement: all 127 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(146/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once · [...]/2 spreads a riff over 2 bars.
// A part's distinct bars are riffs (A, B, C...) played in order, A@4 for four bars: edit a riff to change every repeat.

// bass · fretless bass · "Bass Gtr"
const bass = note(`<
  ~ A@21 B C D@4 E A@3 C@4 D@4 A@7 E A@4 F A@4 G C D@3 H E A@3 C@3 I D@2 H@2 ~@4 J K J K J K J K J K J K J K J K D@4 ~@2
  E A L M I@2 C I N D@2 O A E@2 L C@3 I N D@2 P Q ~
>`.pickRestart({
  A: "f1 ~ f1@2 f1 ~ f1@2 f1@2 f1@2 f1@2 f1@2", B: "f1 ~ f1 ~ g1 ~ g1@2 ab1 ~ ab1 ~ a1 ~ a1 ~",
  C: "bb1 ~ bb1@2 bb1 ~ bb1@2 bb1@2 bb1@2 bb1@2 bb1@2", D: "c2 ~ c2@2 c2 ~ c2 ~ c2@2 c2@2 c2 ~ c2@2",
  E: "f1 ~ f1@2 f1@2 f1@2 f1 ~ f1@2 f1@2 f1@2", F: "f1 ~ f1@2 [f1,gb1] ~ f1@2 f1@2 f1@2 f1@2 f1@2",
  G: "f1@2 f1@2 g1@2 g1@2 ab1 ~ ab1@2 a1@2 a1@2", H: "c2 ~ c2@2 c2 ~ c2@2 c2@2 c2@2 c2 ~ c2@2",
  I: "bb1 ~ bb1 ~ bb1 ~ bb1@2 bb1 ~ bb1@2 bb1 ~ bb1@2", J: "f1@3 f2@2 eb2@2 c2", K: "bb1",
  L: "f1@2 f1@2 f1@2 f1@2 f1@2 f1@2 f1 ~ f1@2", M: "f1 ~ f1@2 f1@2 f1@2 f1@2 f1 ~ f1 ~ f1@2",
  N: "c2@2 c2 ~ c2@2 c2 ~ c2 ~ c2 ~ c2@2 c2 ~", O: "c2 ~ c2@2 c2@2 c2@2 c2 ~ c2@2 c2 ~ c2@2", P: "c2", Q: "f1",
})).s("gm_fretless_bass").gain(0.8)

// chords · piano
const piano = note("<~@28 A@4 B@4 C D E F ~@23 A@4 B@4 C D E F ~@26 A@4 B@4 C@2 D F A@4 B@4 C D E F ~@2>".pickRestart({
  A: "[f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~", // F
  B: "[f5,bb5,d6] ~ [f5,bb5,d6] ~ [f5,bb5,d6] ~ [f5,bb5,d6] ~ [f5,bb5,d6] ~ [f5,bb5,d6] ~ [f5,bb5,d6] ~ [f5,bb5,d6] ~", // Bb
  C: "[g5,c6,e6] ~ [g5,c6,e6] ~ [g5,c6,e6] ~ [g5,c6,e6]@8 ~@2", D: "[g5,c6,e6] ~@5 [g5,c6,e6]@8 ~@2",
  E: "[g5,c6,e6] ~@3 [g5,c6,e6]@3 ~ [g5,c6,e6] ~@3 [g5,c6,e6]@3 ~", // C
  F: "[c6,e6] ~@3 [g5,c6,e6]@3 ~ [g5,c6,e6] ~@3 [g5,c6,e6]@4", // C
})).s("gm_piano").gain(0.26)

// chords · drawbar organ · "Organ"
const drawbar_organ = note(`<
  ~@9 A ~ B A@2 ~ B A@2 ~ B A ~@3 C D ~@10 C D ~@6 A ~ B A@2 ~ B A@2 ~ B A ~@3 C D ~@10 C D ~@22 C D ~@12 C D@2 ~@9 C D
  ~@2 E ~
>`.pickRestart({
  A: "[f5,a5,c6] ~@7", B: "[f5,a5,c6]@3 ~@9 [f5,bb5,d6]@2 ~@2", C: "~ bb5 b5 c6@5", D: "~@2 bb5@2 b5@2 c6@9 ~",
  E: "[f5,a5,c6]", // F
})).s("gm_drawbar_organ").gain(0.51)

// chords · overdriven guitar · "Gtr 2"
const overdriven_guitar = note(`<
  ~@8 A B@2 C D B@2 E D B@2 C D F G H I@2 J@2 K@4 L@3 M N O P Q R S T U V@2 W X Y V Z AA AB AC Z AD AE AF AG AH AI AJ AK
  K@4 L@3 M AL AM AN AO ~@4 AP AQ AR AS AT AU AV AW AX AY AX AY AX AY AX AY AZ BA P BB BC@2 K@4 L@3 M AZ O AN@2 K@4 L@3
  M AZ BD AN@2 BE ~
>`.pickRestart({
  A: "[f2,c3] ~ [f2,c3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~", // F5
  B: "[f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~", // F5
  C: "[f2,c3,f3]@3 ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [bb2,f3]@3 ~", // F5 Bb5
  D: "[f2,c3,f3]@3 ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~", // F5
  E: "[f2,c3,f3]@3 ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,bb2,f3]@3 ~", // F5 Bb5
  F: "[f2,c3,f3] ~ f2 ~ [f2,f3]@2 f2 ~ f2 ~ f2 ~ f3@2 f2 ~, ~@8 eb3@4 f2 ~@3", // F5 F
  G: "f2 ~ f2 ~ [f2,f3]@2 f2 ~ f2 ~ f2 ~ [f2,f3]@2 f2 ~, ~@2 eb3 ~", // F
  H: "[bb2,f3]@5 ~ [bb2,f3]@3 ~ [bb2,f3] ~ [bb2,f3] ~ [bb2,f3] ~", I: "[c3,g3] ~@2 [c3,g3]@4 ~",
  J: "~ [c3,g3] ~ [c3,g3]", K: "f2 ~ f2@2 [c3,f3]@2 f2@2 [bb2,eb3]@2 f2@2 ~@2 f2 ~, ~@3 [c3,f3]",
  L: "bb2 ~ bb2@2 [f3,bb3]@2 bb2@2 [eb3,ab3]@2 bb2@2 ~@2 bb2 ~, ~@3 [f3,bb3]", // Bb5 Ab5 Bb5
  M: "bb2 ~ bb2@2 [f3,bb3]@2 bb2@2 [eb3,ab3]@2 bb2@2 [f3,bb3]@2 bb2@2", // Bb5 Ab5 Bb5
  N: "[g3,c4]@2 c3 ~ c3 ~ c3@4 ~@2 c3 ~ c3 ~, c3 ~@5 [g3,c4]@8 ~@2", // C5
  O: "[c3,g3,c4]@2 c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~, ~@3 [g3,c4]@5", // C5
  P: "c3 ~ c3 ~ [g3,c4]@4 c3 ~ c3@2 [g3,c4]@4, ~@4 c3 ~@11", Q: "c3 ~ c3@2 [g3,c4]@4 c3 ~ c3@2 ~@2 c3@2, ~@3 [g3,c4]",
  R: "f2 ~ f2@2 f3 ~ f3!2 eb3@4 f3@4", S: "f2 ~ f2@2 f3 ~ f3!2 eb3@4 f3@3 ~",
  T: "bb4@8 eb5 db5 bb4 ab4 gb4 eb4 db4 eb4", U: "gb4 ab4@2 f4 eb4 c4 eb4 c4 bb3@7 ~",
  V: "[f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~", // F5
  W: "[f2,c3,f3]@3 ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,bb2,f3]@2 ~@2", // F5 Bb5
  X: "[f2,c3,f3]@2 f2 ~ [f2,bb3,eb4]@2 f2 ~ f2 ~ f2 ~ f2 ~ f2 ~, ~@2 [c4,f4] ~", // F5 Ebsus2 F5
  Y: "c3@2 f2 ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~, f2 ~@15", // F5
  Z: "[f2,c3,f3]@3 ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ f2 ~ [bb2,f3]@2 ~@2", // F5 Bb5
  AA: "[f2,c3,f3]@2 f2 ~ [f2,bb3,eb4]@2 f2@2 ~@2 f2 ~ f2 ~ f2 ~, ~@2 [c4,f4] ~", // F5 Ebsus2 F5
  AB: "[f2,c3,f3]@3 ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~", // F5
  AC: "[f2,c3,f3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~ [f2,c3] ~", // F5
  AD: "[f2,c3,f3]@2 f2@2 [bb3,eb4]@2 f2@2 [c4,f4]@4 f2 ~ f2 ~", // F5 Eb5 F5
  AE: "[c3,f3]@4 [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~, f2 ~@7", // F5
  AF: "[f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3,f3] ~ [f2,c3] ~", // F5
  AG: "[bb2,f3]@3 ~ [bb2,f3] ~ [bb2,f3] ~ [bb2,f3] ~ [bb2,f3] ~ [bb2,f3] ~ [bb2,f3] ~", // Bb5
  AH: "[c3,g3,c4]@2 ~@4 [c3,g3]@9 ~", AI: "[c3,g3,c4] ~@2 [c3,g3,c4]@5",
  AJ: "c3 ~@3 [g3,c4]@4 c3 ~@3 [g3,c4]@4, ~@2 c3@4 ~@4 c3@5 ~", // C5
  AK: "c3 ~ c3@2 [g3,c4]@4 c3 ~ c3@2 ~@2 c3 ~, ~@3 [g3,c4]", // C5
  AL: "[g3,c4]@2 c3 ~ c3 ~ c3@4 ~@2 c3 ~ c3 ~, c3 ~@5 [g3,c4]@10", // C5
  AM: "c3 ~ c3 ~@9 c3 ~ c3 ~, ~@2 c3@3 ~@3, ~@3 [g3,c4]@5", AN: "c3 ~ c3@2 [g3,c4]@4 c3 ~ c3@2 [g3,c4]@4",
  AO: "c3 ~ c3@2 [g3,c4]@4 c3 ~ c3@2 [g3,c4]@2 c3@2", AP: "f2@3 f3 ~ eb3@2 c3", AQ: "bb2@2 ~@2 ab6@11 ~",
  AR: "f3@3 f4 ~ eb4@2 c4", AS: "bb3@3 ~ bb4@11 ~", AT: "db5@8 ~ ab4 gb4 ab4 gb4 f4 gb4 ab4, ~@4 bb4 ~@3",
  AU: "gb4 f4 eb4 d4 eb4 d4 db4 c4 bb3@6 ~@2", AV: "f3 eb3 c3 f3 eb3 c3 f3 eb3 c3 f3 eb3 c3 f3 eb3 c3 ~",
  AW: "ab6@6 ~ ab6@8 ~", AX: "f2@3 f3@2 eb3@2 c3", AY: "bb2@15 ~",
  AZ: "[c3,g3,c4]@2 c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~, ~@3 [g3,c4]@4 ~", // C5
  BA: "[c3,g3,c4] ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~, ~@3 [g3,c4]@5", BB: "c3 ~ c3@2 [g3,c4]@4 c3 ~ c3@2 [g3,c4]@3 ~",
  BC: "[db6@31 ~]/2", BD: "[g3,c4]@2 c3 ~ c3@2 ~@6 c3 ~ c3 ~, ~@3 [g3,c4]@5", BE: "[f2,c3,f3]",
})).s("gm_overdriven_guitar").gain(0.8)

// drums · kick
const kick = s("bd").struct("<~ A@17 B A@3 C A@16 B A@17 C A@20 D A@3 C A C A@13 E ~ F A@23 G H ~>".pickRestart({
  A: "x!4", B: "x ~@3 x ~@3 x ~@3 x ~@2 x", C: "x ~ x ~ x ~ x!2", D: "x ~ x ~ x!4", E: "x!8", F: "~@2 x!2 ~@12",
  G: "x ~@3 x ~@3 x ~@3 x!2 ~ x", H: "x ~@14 x",
})).gain(0.8)

// drums · snare
const snare = s("sd").struct(`<
  A B@3 C B D B E B D B F B D B@5 G B F B F@2 B H F@7 I F@2 B@3 D B J B D B F B@3 C B K B ~ B F B F@2 B H F@7 I F@2 B@2
  F@3 L F@18 B ~@2 M F@3 N F@7 H F@3 O F@3 I F@2 B P Q ~
>`.pickRestart({
  A: "~@7 x", B: "~ x ~ x", C: "~@2 x ~@2 x!3", D: "~@2 x ~@3 x!2", E: "~@4 x ~@3 x ~@2 x!2 ~ x ~",
  F: "~@2 x!2 ~@2 x ~", G: "x ~ x ~ x!4", H: "~@2 x ~ x!4", I: "x!4", J: "~ x!2 ~ x ~ x!2", K: "~@4 x ~@7 x ~@2 x",
  L: "~ x!2 ~@3 x ~", M: "~@4 x ~@2 x!2 ~ x ~ x!4", N: "~@2 x!6", O: "x ~@2 x!2 ~@2 x!2 ~@2 x!4 ~",
  P: "~ x ~ x!2 ~@7 x ~@3", Q: "x ~@13 x!2",
})).gain(0.8)

// drums · low tom
const low_tom = s("lt").struct("<~@20 A ~@10 A ~@23 B ~@10 A ~@11 C ~@21 D ~@3 A ~@11 A ~@10>".pickRestart({
  A: "~@7 x", B: "~@6 x!2", C: "~@6 x!3 ~@7", D: "~@14 x!2",
})).gain(0.8)

// drums · hihat
const hihat = s("hh").struct("<A B@3 C B@3 C B@3 C B@3 C B@26 C B@3 C B C B C B@23 ~@23 D E F B@23 ~@3>".pickRestart({
  A: "x!4", B: "x!8", C: "x!7 ~", D: "~@15 x", E: "~ x!3", F: "x",
})).gain(0.8)

// drums · mid tom
const mid_tom = s("mt").struct("<~@2 A ~@17 B ~@10 B ~@23 C ~@10 B ~@33 D ~@3 B ~@11 E ~@7 F ~@2>".pickRestart({
  A: "~@14 x!2", B: "~@3 x", C: "~@4 x!2 ~@2", D: "~@12 x!2 ~@2", E: "~@13 x ~@2", F: "~@9 x ~ x ~@4",
})).gain(0.8)

// drums · open hat
const open_hat = s("oh").struct("<~@4 A ~@3 A ~@3 A ~@3 A ~@26 A ~@3 A ~ A ~ A ~@46 A ~@28>".pickRestart({
  A: "~@7 x",
})).gain(0.8)

// drums · high tom
const high_tom = s("ht").struct("<~@20 A ~@34 B ~@48 A ~@11 C ~@7 D ~@2>".pickRestart({
  A: "~@5 x ~@2", B: "~@3 x!2 ~ x ~@9", C: "~@3 x", D: "~@5 x ~ x!2 ~@7",
})).gain(0.8)

// drums · crash
const crash = s("cr").struct(`<
  ~@21 A B A ~@2 C D E@8 ~@2 C@2 ~@15 A@2 B A ~@2 C D E@8 ~@2 C@2 ~@3 B A ~ A ~ A ~ A ~@9 A ~ C F ~ D E@8 ~@3 D E@3 ~
  E@4 ~@2 C ~ A ~
>`.pickRestart({
  A: "x", B: "~@7 x", C: "~ x ~ x", D: "~ x ~@2", E: "x!4", F: "~@2 x ~ x!3 ~",
})).gain(0.8)

stack(bass, piano, drawbar_organ, overdriven_guitar, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash)