// Thriller — Michael Jackson
// 117 bpm, 4/4, key D minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 163 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(117/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: edit a riff to change every repeat.

// chords · epiano2
const epiano2 = note(`<
  ~ A@2 B@2 C@2 D@2 ~@2 E@7 ~ F@2 G@2 F@2 H@2 F@2 G@2 F@2 I J K L M N O L P Q R@4 F@2 G@2 F@2 H@2 F@2 G@2 F@2 I J K L M
  N O L P Q S T@3 U@2 V W X Y Z F@2 G@2 F@2 H@2 F@2 G@2 F@2 I J K L M N O L P Q K L M N O L P AA AB@2 K L M N O L P Q
  ~@4 AC AD AE AF AE AF AE AF AE AF AE AF AE AF AE AF AE AF AE AF AE AF AE AF AE AG AH AF AE AF AE AF AI ~@2
>`.pickRestart({
  A: "[f3,a3,c4,e4]/2", B: "[f3,a3,bb3,d4]/2", C: "[f3,b3,d4]/2", D: "[[b3,d4,f4]@7 ~]/2",
  E: "[[g4,a4,c5,d5]@24 ~@6 [c5,d5,f5]@29 ~@3 [c5,d5,g5]@26 ~@6 [g4,a4,c5]@18]/7", F: "[[g3,b3,d4]@7 ~]/2",
  G: "[[a3,c4,f4]@3 ~]/2", H: "[[a3,c4,f4]@25 ~@7]/2", I: "[f3,bb3,d4]@15 ~", J: "[g3,c4,e4]@15 ~",
  K: "[f4,a4,d5]@3 [f4,a4,c5]@11 ~@2", L: "[f4,a4,c5]@3 ~ [d4,g4,b4]@3 ~ [c4,f4,a4]@7 ~", M: "[b3,d4,g4]@7 ~",
  N: "[bb3,d4,f4]@13 ~@3", O: "[f4,a4,d5]@2 ~ [f4,a4,c5]@12 ~", P: "[b3,d4,g4]@3 ~",
  Q: "[f3,ab3,d4] ~@5 [f3,b3,d4] ~@5 [f3,bb3,d4] ~@3", // Ddim Bdim Bb
  R: "[~@18 bb4@5 [bb4,d5,f5,a5]@7 ~@2, d4@13 f5@2 d5@8 ~@9, d5@13 c5@16 ~@3, a4@11 a4@16 ~@5, ~@6 g4@9 g5@15 ~@2]/4", // Bbmaj7
  S: "~@2 d3 ~ d3 c3 a2 d3 ~@2 f3 ~@5",
  T: "[[g3,b3,d4]@22 ~@2 [g3,b3,d4]@2 ~ [f3,a3,c4] ~@2 [f3,bb3,d4]@9 ~ [d3,f3,bb3]@7 ~]/3", // G F Bb
  U: "[[bb3,d4,f4]@6 ~@2 [bb3,d4,f4]@2 ~ [c4,e4,g4] ~@2 [d4,f4,a4]@17 ~]/2", V: "[d4,f4,a4]@7 ~", W: "[d4,g4,b4]@15 ~",
  X: "~ bb4, [d4,f4]@13 ~@3", Y: "[d4,e4,a4]@7 ~ [d4,e4,a4]@7 ~", Z: "a4@3 ~ a4@3 ~ a4@6 ~@2, [db4,e4]@7 ~",
  AA: "[bb2,ab3,d4,f4] ~@5 [g2,f3,b3] ~@5 [db3,bb3,d4,f4] ~@3", // Bb7 G7 Bb
  AB: "[~@2 [bb2,d4,ab4] ~@5 [bb3,d4,g4] ~@5 [bb3,d4,f4]@14 ~@4]/2", AC: "~@2 d4 ~ d4 ~ d4 c4 d4 ~ d4 ~@3 f4 ~",
  AD: "~@2 d4 c4 d4 ~ d4 c4 ~@2 f4 ~@3 g4 ~", AE: "~@2 d4 c4 ~@2 d4 c4 ~@2 d4 ~@3 f4 ~",
  AF: "~@2 d4 c4 ~@2 d4 c4 ~@2 f4 ~@3 g4 ~", AG: "~@2 d4 c4 ~@2 d4 c4 ~@2 d4 ~@3 g4 ~",
  AH: "~@2 d4 c4 ~@2 d4 c4 ~@3 f4 ~@2 f4 ~", AI: "d3 ~@15",
})).s("gm_epiano2").gain(0.36)

// bass · fretless bass
const bass = note(`<
  ~ A@8 B C D E D F D E D F D E D F D E D F D E D F D E D F D E D F D E G H D E D F D E D F D E D F D E D F D E D F D E
  D F D E G H I@2 J@2 K@2 L M N O P D E D F D E D F D E D F D E D F D E D F D E G H D E D F D E G Q R@2 D E D F D E G S
  T@3 U V@3 W T@3 U V@3 W T@3 U V@3 W T@3 U V@3 W T@3 U X ~@2
>`.pickRestart({
  A: "[~@4 d1@8 d1@8 d1@7 ~ d1@7 ~ d1@7 ~ d1@7 ~ d1@7 ~ d1@7 ~ d1@7 ~ d1@7 ~ d1@8 d1@8 d1@7 ~ d1@7 ~ d1@7 ~ d1@4]/8",
  B: "d1@3 f1@12 ~", C: "f1@4 g1@4 d1@7 d2", D: "c2@2 d2@2 f2@2 g2@2 d2@3 d1 ~@3 d2",
  E: "c2@2 d2@2 f2@2 g2@2 d2@3 d1@2 ~@2 d2", F: "c2@2 d2@2 f2@2 g2@2 d2@2 f1 g1 a1 c2@2 a1",
  G: "c2@2 d2@2 f2@2 g2@2 d2@3 d1 d2 db2 c2@2", H: "bb1 ~@5 g1 ~@5 c2@2 ~ d2",
  I: "[~@2 d2 ~ d2 c2 a1 d2@2 a1 f2 ~ g2@11 d2 g2@7 d2]/2", J: "[g1@7 d2 g1@3 a1@2 ~ bb1@9 f2 bb2@7 f2]/2",
  K: "[bb1@7 f2 bb1@3 c2 ~@2 d2@7 ~ d2 ~ d2@2 e2@2 f2@2 d2 ~]/2", L: "c2@5 ~ c2 ~ c2@7 ~", M: "b1@5 ~ b1 ~ b1@8",
  N: "bb1@5 ~ bb1 ~ bb1@7 ~", O: "a1@4 a1@3 ~ a1@3 ~ a1@4", P: "a2@3 ~ a2@3 ~ a2@2 g1 ~ a1 c2@2 a1",
  Q: "bb1 ~@2 g1 ~@2 c2 ~", R: "[~@2 e2@2 ~@4 eb2@2 ~@4 c2@5 g1 c2@3 g1 c2@3 g1 c2@3 ~]/2",
  S: "bb1 ~@5 g1 ~@5 c2@2 ~ d1", T: "~ d1@2 ~@12 d1", U: "~ d1 ~@8 g1 ~ a1 c2 ~ d1", V: "~ d1 ~@13 d1",
  W: "~ d1 ~@7 g1!2 ~ a1 c2 ~ d1", X: "d1 ~@15",
})).s("gm_fretless_bass").gain(0.54)

// chords · string ensemble 1
const string_ensemble_1 = note(`<
  ~ A@2 B@2 C@2 D@2 E F@5 ~@4 G@2 H@2 G@2 H@2 G@2 H@2 G@2 I J K L M N K L M O ~@4 G@2 H@2 G@2 H@2 G@2 H@2 G@2 I J K L M
  N K L M O P@7 Q R S@2 G@2 H@2 G@2 T@4 H@2 G@2 I J K L M N K L M O K L M N K L M ~@3 K L M N K L M O ~@39
>`.pickRestart({
  A: "[f3,a3,c4,e4]/2", B: "[g3,bb3,d4,f4]/2", C: "[g3,b3,d4,g4]/2", D: "[b3,d4,f4,ab4]/2",
  E: "[d3,d4,f4,a4]@3 [f3,c4,f4,a4]@13", F: "[[f3,c4,f4,a4] [g3,b3,d4,g4] [d3,a3,c4,f4]@18]/5", G: "[g3,b3,d4]/2",
  H: "[a3,c4,f4]/2", I: "[bb3,d4,f4]", J: "[c4,e4,g4]", K: "[d4,f4,a4]@3 [c4,f4,a4]@13",
  L: "[c4,f4,a4] [b3,d4,g4] [a3,c4,f4]@2", M: "[g3,b3,d4]", N: "[g3,bb3,d4]",
  O: "[f3,ab3,d4] ~@5 [f3,b3,d4] ~@5 [f3,bb3,d4] ~@3", // Ddim Bdim Bb
  P: "[~@10 [f3,a3,c4] ~ [g3,b3,d4]@28 [g4,b4,d5]@3 [f4,a4,c5]@3 [f4,bb4,d5]@26 [f4,bb4,d5]@3 [g4,c5,e5]@3 d5@18 c5@16, ~@39 [a4,f5]@17]/7", // F G F Bb C Dm
  Q: "[b4,d5,g5]", R: "[bb4,d5,f5]", S: "[d5@4 db5@3 ~, [a4,e5]@7 ~]/2", T: "[[a3,c4,f4] [g3,b3,d4]]/4",
})).s("gm_string_ensemble_1").gain(0.4)

// other · brass section
const brass_section = note(`<
  ~@9 A B@5 ~@7 C ~@3 D ~@3 C ~@3 D E F ~ G H I ~ J ~@7 C ~@3 D ~@3 C ~@3 D E K ~ G H L ~ J M@2 ~@5 N O P@2 ~@3 C ~@3 D
  ~@3 C ~@3 D E K ~ G H Q ~ J E K ~ G H R ~ S T@2 E K ~ G H L ~ J ~@35 U V W X
>`.pickRestart({
  A: "[f5,a5,d6]@3 [f5,a5,c6]@12 ~", B: "[[f5,a5,c6] [d5,g5,b5] [c5,f5,a5]@18]/5", C: "~@10 f5 d5 ~@2 c5 a4",
  D: "~@10 a4 g4 a4 c5 ~ d5", E: "~@8 d5 ~ d5 c5 d5 f5 ~@2", F: "~@8 a5@3 ~ g5 f5 d5 ~",
  G: "~@10 [a3,a4] [g3,g4] [a3,a4] [c4,c5] ~ [d4,d5]", H: "~@8 [d4,d5] ~ [d4,d5] ~ [d4,d5] [f4,f5] ~@2",
  I: "~@8 [a4,a5]@4 [g4,g5] f5 [d4,d5] ~, ~@8 [ab4,ab5] ~@7", J: "[d5,f5,ab5] ~@5 [b4,d5,f5] ~@5 [bb4,d5,f5] ~@3",
  K: "~@8 a5@3 ~ g5 f5 d5 ~, ~@8 ab5 ~@7", L: "~@8 [ab4,ab5] a5@3 [g4,g5] f5 [d4,d5] ~, ~@8 a4@3 ~@5",
  M: "[~@2 d5 ~ d5 c5 a4 d5 ~@2 [a4,c5,f5] ~ [b4,d5,g5]@19 ~]/2", N: "[g3,b3]@7 ~ [b3,d4]@7 ~",
  O: "[d4,a4]@7 ~ [d4,g4]@7 ~", P: "[d4@16 db4@7 ~@3 [f5,f6] ~ [d5,d6] [c5,c6] ~ [d5,d6], a4@23 ~@9]/2",
  Q: "~@8 [a4,a5]@3 ~ [g4,g5] f5 [d4,d5] ~, ~@8 [ab4,ab5] ~@7", R: "~@8 [a4,a5]@3 ~ [g4,g5] f5 [d4,d5] ~",
  S: "[ab3,d4,f4] ~@5 [f3,b3] ~@5 [db3,bb3,d4,f4] ~@3", T: "[~@2 [d4,ab4] ~@5 [bb3,d4,g4] ~@5 [bb3,d4,f4]@14 ~@4]/2",
  U: "~@12 [a3,a5] [c4,c6] ~ [d4,d6]", V: "~@6 a3 ab3 g3 gb3 f3 e3 eb3 ~ d3 ~",
  W: "b3 bb3 a3 ab3 g3 gb3 f3 [eb3,e3] ~ d4 ~ [c4,db4] b3 bb3 a3 d3", X: "db3 c3 ~ a2 ab2 ~ g2 ~ e2@3 ~@5",
})).s("gm_brass_section").gain(0.36)

// other · electric guitar muted
const electric_guitar_muted = note(`<
  ~ A@8 ~@2 B C B C B C B C B C B C B C B C B C B C B C B C B C B C B C B ~ B C B C B C B C B C B C B C B C B C B C B C
  B C B C B ~@12 B C B C B C B C B C B C B C B C B C B C B C B ~ B C B C B C B ~@3 B C B C B C B ~ B D E F G E G E B D E
  F G E G E B D E F G E G E B D E F G E G E B D E F H ~@2
>`.pickRestart({
  A: "c4 ~@2 d4 ~@2 c4 ~ d4 ~@6 c4", B: "~@2 a3 g3 a3 ~ a3 g3 a3 ~ a3 g3 a3 c4 ~ d4",
  C: "~ c4 a3 g3 a3!2 ~ g3 a3 ~ a3 g3 a3 c4 ~ d4", D: "~ g3 a3 ~ a3 ~ a3 g3 a3 ~ a3 g3 a3 c4 ~ d4",
  E: "~ c4 a3 g3 a3 ~ a3 g3 a3 ~ a3 g3 a3 c4 ~ d4", F: "~@2 a3 ~ a3 ~ a3 g3 a3 ~ a3 g3 a3 c4 ~ d4",
  G: "~ g3 a3 g3 a3 ~ a3 g3 a3 ~ a3 g3 a3 c4 ~ d4", H: "~ g3 ~@14",
})).s("gm_electric_guitar_muted").gain(0.31)

// chords · church organ
const church_organ = note("<~@128 A@4 B@2 C@2 B@2 C@2 B@2 C@2 B@2 D@2 B@2 C@2 B@2 C@2 B@2 C@2 ~@3>".pickRestart({
  A: "[a4 bb4 c5 b4, d5, f5 [f5,g5]]/4", B: "[a4 bb4, [d5,f5]]/2", C: "[c5 b4, [d5,f5,g5]]/2", D: "[c5 b4, [f5,g5]]/2",
})).s("gm_church_organ").gain(0.24)

// other · agogo
const agogo = note("<~@123 A B@3 C@5 B@3 C@5 B@3 C@5 B@3 C@5 B@3 C D ~@2>".pickRestart({
  A: "~@15 d2", B: "~ d2@2 ~@12 d2", C: "~ d2 ~@13 d2", D: "d2 ~@15",
})).s("gm_agogo").gain(0.22)

// other · pan flute · B5 D
const pan_flute = note("<~@50 [~@2 [gb5,b5] [d6,gb6] ~ d6@3 ~@8] ~@112>").s("gm_pan_flute").gain(0.29)

// drums · kick
const kick = s("bd").struct("<~ A@8 B C D@62 E F E G E D@82 H ~@2>".pickRestart({
  A: "~ x ~ x", B: "x ~@2 x ~@12", C: "x!3 ~", D: "x!4", E: "x ~@3 x ~@3 x ~@2 x ~@2 x ~", F: "~ x!2 ~ x ~ x ~",
  G: "~ x!3", H: "x",
})).gain(0.64)

// drums · snare
const snare = s("sd").struct("<~@10 [~@11 x!2 ~ x!2] [~ x ~ x]!70 [~@4 x ~@2 x ~@8] [~ x ~ x]!78 ~@3>").gain(0.58)

// drums · clap
const clap = s("cp").struct("<~@11 [~@3 x]!149 ~@3>").gain(0.64)

// drums · low tom
const low_tom = s("lt").struct("<~@81 [~@6 x!2] ~@81>").gain(0.58)

// drums · hihat
const hihat = s("hh").struct("<A B@7 C ~@2 D@60 E F@3 G F@2 G F H I D@78 ~@3>".pickRestart({
  A: "x!4", B: "~ x!3 ~ x!3 ~ x!3 ~ x!3", C: "~ x!3 ~ x!3 ~ x!3 ~ x!2 ~", D: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!2",
  E: "x!6 ~@2", F: "x!8", G: "x!7 ~", H: "~ x!7", I: "~ x!3 ~@4",
})).gain(0.45)

// drums · mid tom
const mid_tom = s("mt").struct("<~@81 [~@8 x ~@2 x ~@4] ~@81>").gain(0.58)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@11 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A
  B A B ~@4 C ~@2 C ~@3 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A@2 B A@2 B A B A B A B A B A B A B
  A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B ~@3
>`.pickRestart({
  A: "~@11 x ~@4", B: "~@7 x ~@3 x ~@4", C: "~@7 x",
})).gain(0.52)

// drums · crash
const crash = s("cr").struct("<~@9 [x ~@2 x ~@12] [x!3 ~] ~@60 [~@3 x] ~@8 x!2 ~@81>").gain(0.58)

// drums · ride
const ride = s("rd").struct("<~ [x!4]!8 ~@154>").gain(0.58)

// drums · cowbell
const cowbell = s("cb").struct("<~@11 [x ~@2 x ~@2 x!2 ~@8]!60 ~@11 [x ~@2 x ~@2 x!2 ~@8]!78 x ~@2>").gain(0.45)

// drums · congas
const congas = s("conga:13").struct("<~@124 A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B ~@3>".pickRestart({
  A: "~@2 x ~@2 x ~@4 x ~@5", B: "~@2 x ~@7 x ~@2 x ~@2",
})).gain(1.24)

// drums · congas
const congas_2 = s("conga:18").struct("<~@124 [x ~@2 x ~@2 x!2 ~@8]!36 x ~@2>").gain(1.24)

// drums · congas
const congas_3 = s("conga:33").struct("<~@124 [~@7 x]!36 ~@3>").gain(1.24)

// drums · woodblocks
const woodblocks = s("woodblock:5").struct(`<
  ~@11 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A
  B A B ~@11 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A@2 B A@2 B A B A B A B A B A B A B A B A B A B
  A B A B A B A B A B A B A B A B A B A B A B A B ~@3
>`.pickRestart({
  A: "~@9 x ~@6", B: "~@9 x ~ x ~@4",
})).gain(0.65)

// drums · woodblocks
const woodblocks_2 = s("woodblock:4").struct("<~@11 [~@2 x ~@2 x ~@9 x]!60 ~@11 [~@2 x ~@2 x ~@9 x]!78 ~@3>").gain(0.65)

stack(
  epiano2, bass, string_ensemble_1, brass_section, electric_guitar_muted, church_organ, agogo, pan_flute, kick, snare,
  clap, low_tom, hihat, mid_tom, open_hat, crash, ride, cowbell, congas, congas_2, congas_3, woodblocks, woodblocks_2
)