// Black or White — Michael Jackson
// 116 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 92 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(116/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.

// bass · fretless bass · "Bass"
const bass = note(`<
  A ~@2 B A ~@2 C D E F G H I D G J I F K D L D E F G H I F G J I F K D L D M D ~ N O N P Q@4 R S T U V T U@2 A H I D G
  J I F W J I F W J I F X F X F X F X F X F X F X F X F X F Y ~
>`.pickRestart({
  A: "e1 ~@7", B: "~@7 e2", C: "~@3 e1 e2 e1 a#1 b1", D: "e2@2 e1@2 ~@5 e2 e1 ~ e1@2 ~@2", E: "~@7 b1",
  F: "e2@2 e1@2 ~@5 e2 e1@2 e1@2 ~@2", G: "~@7 e1", H: "a1 ~@7", I: "a1 ~@6 b1", J: "b1 ~@6 b1", K: "~@7 a1",
  L: "~@8 f#2@2 e2 d2 e2 b1 ~ f#2, ~@7 c#2", M: "~@10 a1 ~ a1@2 b1@2", N: "e2!12 g2 [e2,f#2] d2 e2",
  O: "e2!12 a2 [e2,g2] d2 e2", P: "e2!12 b2 [g2,a2] d2 e2", Q: "e2!2 g2 e2 a2 e2 g2 e2 e2@4 ~@2 d2 e2",
  R: "a1 [b1,d2] [a1,b1] [e2,g2] [d2,e2] [g2,a2] [e2,g2] [a2,d3] [d3,e3] [a2,b2] [d2,g2] [a1,b1] [e1,g1] [a1,b1] [d1,g1] [e1,a1]", // Bm Asus2 Em Dsus2 Gsus2 Em D5 Dsus2 …
  S: "e1@2 d1@3 ~@3 d1@4 ~@2 b0@2, a1 ~@15", T: "e1@2 ~@2 b0@4 d1@3 ~@3 b0@2", U: "~@2 b0@2 d1@2 ~ b0",
  V: "e1@2 d1@3 ~@3 d1@4 ~@2 b0@2", W: "~@5 e1 ~ e1", X: "~@5 a1!2 b1", Y: "~@2 b1 e1@5",
})).s("gm_fretless_bass").gain(0.48)

// bass · fretless bass · "Bass" · soft notes · Gdim G#dim G G#dim G G#dim Gdim G …
const bass_soft = note(`<
  ~@49
  [~@2 [g2,c#3]@2 [g#2,d3] ~@6 c#1@3 ~@2, ~ b0 ~@2]
  [~@2 [d1,g2,c#3]@2 [g#2,d3]@2 ~@5 c#1@3 ~@2]
  [e1@2 [d1,g2,c#3]@2 [g#2,d3]@2 ~@5 c#1@3 ~@2]
  [~@2 [g2,c#3]@2 b0@4 ~@3 c#1@3 ~@2, ~@2 d3 ~@5, ~@4 g#2 ~@11]
  [~@2 [d1,g2,c#3]@2 [g#2,d3]@2 ~@5 c#1@3 ~@2]
  [e1@2 [d1,g2,c#3]@2 [g#2,d3]@2 ~@5 c#1@3 ~@2]!2
  ~@36
>`).s("gm_fretless_bass").gain(0.24)

// chords · accordion · "Keyboard"
const accordion = note("<~@16 A B ~@12 A B ~@29 A B ~@2 A B ~@2 A B ~@21>".pickRestart({
  A: "[f#4,b4,d#5]", B: "[e4,a4,c#5]",
})).s("gm_accordion").gain(0.16)

// chords · overdriven guitar · "Guitar 1"
const overdriven_guitar = note(`<
  A B C B A B C B A B C B D@2 A B E F C B A B A B C B D@2 A B E G C B A B C B A B H I J K L M N O P ~@8 D@2 A B E F C B
  E F C B E F C B C B C B C B C B C B C B C B C B C Q@2
>`.pickRestart({
  A: "~@4 [b3,e4,a4] [e4,a4]!3 [e4,a4]@2 [e4,g#4]@2 ~@2 [b3,e4,g#4] ~, ~@2 b3 ~", // Esus4 A5 E
  B: "[b3,e4,f#4] [e4,f#4]!3 [e4,f#4]@2 [e4,g#4]@6 ~@2 g#4 ~", C: "~@4 [e4,a4]!4 [e4,a4]@2 [e4,g#4]@2 ~@2 g#4 ~",
  D: "[a2,e3,a3,c#4,e4,a4] ~@7", E: "[b2,f#3,b3,d#4,f#4,b4] ~@7", F: "[e3,a3,c#4,e4,a4] ~@7",
  G: "[e3,a3,c#4,e4,a4]@2 ~@12 f#4 ~", H: "~ e4 ~ [e3,e4] ~ [e3,e4] e3 [e3,e4] ~@4 [f#4,g4] e4 d4 e4, [e3,e4] ~@7",
  I: "[e3,e4]!2 ~ [e3,e4] ~ [e3,e4]!3 ~ [e3,e4]@2 ~ [g4,a4] e4 d4 e4", // E Gsus2
  J: "~ e4 ~ [e3,e4] ~ [e3,e4]!2 [e3,e4]@2 ~@3 [f#4,g4] e4 d4 e4", // E Gmaj7
  K: "[e3,e4]!2 ~ [e3,e4] ~ [e3,e4] e4 [e3,e4] ~ [e3,e4]@2 ~ [a4,b4] g4 d4 e4", // E Asus2
  L: "[e3,e4]!2 ~ [e3,e4] ~ [e3,e4]!2 [e3,e4]@2 ~@7", M: "[e3,e4]!2 ~ [e3,e4] ~ [e3,e4] e3 [e3,e4] ~@8",
  N: "~ e4 ~ [e3,e4] ~ [e3,e4] e3 [e3,e4] ~@8, [e3,e4] ~@7", O: "[e3,e4]!2 ~ [e3,e4] ~ [e3,e4]!3 ~ [e3,e4]@2 ~@5",
  P: "a3 [b3,d4] [a3,b3] [e4,g4] [d4,e4] [g4,a4] [e4,g4] [a4,d5] [d5,e5] [a4,b4] [d4,g4] [a3,b3] [e3,g3] [a3,b3] [d3,g3] [e3,a3]", // Bm Asus2 Em Dsus2 Gsus2 Em D5 Dsus2 …
  Q: "[~@4 [f#3,b3,d#4] ~ [g#3,b3,e4]@12 ~@14]/2", // B E
})).s("gm_overdriven_guitar").gain(0.17).pan(0.4)

// chords · overdriven guitar · "Guitar 1" · soft notes
const overdriven_guitar_soft = note(`<
  A B C B A B C B A B C B ~@2 A B ~ D C B A B A B C B ~@2 A B ~ E C B A B C B A B F ~ G H ~@2 F ~@12 A B ~ D C B ~ D C B
  ~ D C B C B C B C B C B C B C B C B C B C ~@2
>`.pickRestart({
  A: "~@5 b3!3 ~@8", B: "~ b3!3 b3@2 b3@6 ~@2 [b3,e4] ~", C: "~@4 b3!4 b3@2 b3@2 ~@2 [b3,e4] ~", D: "a2 ~@7",
  E: "a2@2 ~@12 [b3,d#4] ~", F: "~@6 e4 ~@9", G: "[e3,e4] e3 ~@14", H: "~@6 e3 ~@9",
})).s("gm_overdriven_guitar").gain(0.1).pan(0.4)

// other · distortion guitar · "Guitar 2" · G A5 G A5 Bm Asus2 Em Dsus2 …
const distortion_guitar = note(`<
  ~@44
  [e2!2 g2 e2 a2 e2 g2 ~ g3 e3 g3 [g#3,d4,g4]@2 [g#3,d4,g4]@2 ~, ~@7 e2@2 ~@7]
  [e2!2 g2 e2 a2 e2 g2 e2@2 [e3,a3,e4] ~ [e3,a3,e4]@4 ~]
  [e2!2 g2 e2 a2 e2 g2 ~ g3 e3 g3 [g#3,d4,g4]@2 [g#3,d4,g4]@3, ~@7 e2@2 ~@7]
  [e2!2 g2 e2 a2 e2 g2 e2@2 [e3,a3,e4] ~ [e3,a3,e4]@4 ~]
  [a3 [b3,d4] [a3,b3] [e4,g4] [d4,e4] [g4,a4] [e4,g4] [a4,d5] [d5,e5] [a4,b4] [d4,g4] [a3,b3] [e3,g3] [a3,b3] [d3,g3] [e3,a3]]
  ~@43
>`).s("gm_distortion_guitar").gain(0.3).pan(0.8)

// chords · acoustic guitar steel · "Guitar 3"
const acoustic_guitar_steel = note("<~@21 A B A B ~@3 B ~@3 B A B A B A B ~@20 B ~@3 B ~@3 B ~@24>".pickRestart({
  A: "~@5 [e2,a2,e3,a3,c#4,e4]!2 [e2,b2,e3,g#3,b3,e4]", B: "[e2,b2,e3,g#3,b3,e4] [b2,e3,g#3,b3,e4] ~@6",
})).s("gm_acoustic_guitar_steel").gain(0.18).pan(0.3)

// chords · acoustic guitar steel · "Guitar 3" · soft notes
const acoustic_guitar_steel_2 = note("<~@22 A ~ A ~@3 A ~@3 A ~ A ~ A ~ A ~@20 A ~@3 A ~@3 A ~@24>".pickRestart({
  A: "~ e2 ~@6",
})).s("gm_acoustic_guitar_steel").gain(0.1).pan(0.3)

// chords · electric guitar jazz · "Guitar 4"
const electric_guitar_jazz = note("<~@49 A B C D E F G H I ~@34>".pickRestart({
  A: "[g#4,d5,g5] ~@2 [g#4,g5] ~ [g#4,d5,g5] e4 ~ [g#4,d5,g5] ~ [g4,c#5,f#5]@4 e4 ~", // G G#maj7 G F#
  B: "[g#4,d5,g5] ~ [d5,g5] [g#4,d5,g5] [d5,g5] ~ e4 ~ [g#4,d5,g5] ~ [g4,c#5,f#5]@4 e4 ~, ~@5 [g#4,d5,g5]@2 ~@9", // G G5 G G5 G F# G
  C: "[g#4,d5,g5] ~@2 [g#4,d5,g5] ~ [g#4,d5,g5] e4@2 [g#4,d5,g5] ~ [g4,c#5,f#5]@3 ~ e4 ~", // G F#
  D: "[g#4,d5,g5] ~ [g#4,d5] [g#4,d5,g5] ~ [g#4,d5,g5] e4 ~ [g#4,d5,g5] ~ [g4,c#5,f#5]@4 e4 ~", // G G#dim G F#
  E: "[g#4,d5,g5] [g#4,d5]!2 [g#4,d5,g5] [g#4,d5] [g#4,d5,g5] [e4,g#4,d5] ~ [g#4,d5,g5] ~ [g4,c#5,f#5]@4 e4 ~", // G G#dim G G#dim G E7 G F#
  F: "[g#4,d5,g5] [g#4,d5] ~ [g#4,d5,g5] ~@2 e4 ~ [g#4,d5,g5] ~ [g4,c#5,f#5]@3 ~ e4 ~, ~@5 [g#4,d5,g5]@2 ~@9", // G G#dim G F# G
  G: "[g#4,d5,g5]@2 ~ [g#4,d5,g5] ~@2 e4 ~ [g#4,d5,g5] ~ [g4,c#5,f#5]@4 e4 ~, ~@5 [g#4,d5,g5]@2 ~@9", // G F# G
  H: "[a4,c#5]@3 ~@7 [g#4,d5]@3 [g#4,b4]@2 ~", I: "[c#4,a4] ~@15",
})).s("gm_electric_guitar_jazz").gain(0.26).pan(0.7)

// chords · pad poly · "Pad"
const pad_poly = note(`<
  ~@22 A B A B ~@2 A B ~@2 A B A B A B A B ~@19 A B ~@2 A B ~@2 A B ~@2 A B A B A B A B A B A B A B A B A B A C ~
>`.pickRestart({
  A: "~@2 [b3,e4,a4]@3 [b3,e4,g#4] ~@2", B: "[b3,e4,f#4]@6 [b3,e4,g#4]@9 ~",
  C: "~@2 [b3,f#4] [b3,e4,g#4]@5, ~@4 d#4 ~@11", // B5 E
})).s("gm_pad_poly").gain(0.12).pan(0.6)

// bass · synth bass 1 · "Synth Bass" · Esus2 Em Esus2 Gsus2 Bm Asus2 Em Dsus2 …
const bass_2 = note(`<
  ~@40
  [e2!12 g2 [e2,f#2] d2 e2]
  [e2!12 a2 [e2,g2] d2 e2]
  [e2!12 g2 [e2,f#2] d2 e2]
  [e2!12 b2 [g2,a2] d2 e2]
  [e2!2 g2 e2 a2 e2 g2 e2 e2@4 ~@2 d2 e2]!4
  [a1 [b1,d2] [a1,b1] [e2,g2] [d2,e2] [g2,a2] [e2,g2] [a2,d3] [d3,e3] [a2,b2] [d2,g2] [a1,b1] [e1,g1] [a1,b1] [d1,g1] [e1,a1]]
  ~@43
>`).s("gm_synth_bass_1").gain(0.14)

// drums · kick
const kick = s("bd").struct(`<
  A B C D E B C F G A G A B A G A E F H A I F G A G A B A G A E J H A I F I F I F K@8 L M@7 J B A G A E J H A I J H A
  J@2 G A G A G A G A G A G A G A G A G A G J ~
>`.pickRestart({
  A: "x ~@4 x ~ x", B: "x ~@4 x ~@2", C: "x!3 ~@7 x ~@3 x ~", D: "x ~@9 x ~ x!2 ~@2", E: "x!2 ~@3 x ~ x",
  F: "x ~@4 x!3", G: "x!3 ~@6 x!2 ~ x ~ x ~", H: "x!3 ~@7 x ~ x ~ x ~", I: "x!3 ~@6 x!2 ~ x ~@3", J: "x",
  K: "x!2 ~ x ~ x ~ x", L: "x ~@11 x!4", M: "x!3 ~@2 x ~ x",
})).gain(0.48)

// drums · clap
const clap = s("cp").struct("<~@8 A@10 ~@4 A@9 ~@5 A@4 ~@17 A@5 ~ A@3 ~ A@2 ~@2 A@19 ~@2>".pickRestart({
  A: "~ x ~ x",
})).gain(0.54)

// drums · snare
const snare = s("sd").struct("<A@31 B A@7 C A@8 B A@7 D A@5 B A@3 B A@2 B@2 A@19 E ~>".pickRestart({
  A: "~ x ~ x", B: "x", C: "~ x!3", D: "x ~@12 x!2 ~", E: "~ x!3 ~@4",
})).gain(0.6)

// drums · low tom
const low_tom = s("lt").struct("<~@11 [~@3 x] ~@28 [~@12 x!4]!4 ~@48>").gain(0.36)

// drums · hihat
const hihat = s("hh").struct("<A@31 B A@8 ~@17 A@5 B A@3 B A@2 B@2 A@19 ~@2>".pickRestart({
  A: "x!2 ~@2 x!12", B: "x",
})).gain(0.36)

// drums · open hat
const open_hat = s("oh").struct("<A@31 ~ A@8 ~@17 A@5 ~ A@3 ~ A@2 ~@2 A@19 ~@2>".pickRestart({
  A: "~ x ~@6",
})).gain(0.3)

// drums · crash
const crash = s("cr").struct("<~@40 [~@13 x ~@2]!5 [~@3 x] [~@13 x ~@2] ~@43 [~@3 x ~@4] ~>").gain(0.54)

// drums · cowbell
const cowbell = s("cb").struct(`<
  A B A C A D A E F A@6 B G C A B D C A G A D A@2 D A G H B A I A@2 B C A ~@17 J D A@2 B H A@2 G H I C H@2 A@4 G A F D F
  A@2 G K@2 A@5 ~@2
>`.pickRestart({
  A: "x!4", B: "x ~@2 x!2 ~@3 x ~@3 x ~@3", C: "x ~@3 x ~@3 x ~@3 x ~@2 x", D: "x ~@3 x ~@2 x!2 ~@3 x ~@3",
  E: "x ~@3 x ~@2 x!2 ~ x ~ x ~@3", F: "x ~@2 x!2 ~@3 x ~@3 x ~@2 x", G: "x ~ x ~ x!3 ~", H: "x",
  I: "x ~@3 x ~@3 x ~ x ~ x ~@2 x", J: "x ~@2 x!2 ~@3 x ~ x ~ x ~@3", K: "x ~@2 x!2 ~@2 x!2 ~@3 x ~@3",
})).gain(0.42)

// drums · cowbell · soft notes
const cowbell_soft = s("cb").struct(`<
  A B A C A D A E F A@6 B G C A B D C A G A D A@2 D A G ~ B A H A@2 B C A ~@17 I D A@2 B ~ A@2 G ~ H C ~@2 A@4 G A F D F
  A@2 G J@2 A@5 ~@2
>`.pickRestart({
  A: "~@3 x ~@3 x ~@2 x ~@4 x", B: "~@7 x ~@2 x ~@4 x", C: "~@3 x ~@3 x ~@2 x ~@5", D: "~@3 x ~@6 x ~@4 x",
  E: "~@3 x ~@11 x", F: "~@7 x ~@2 x ~@5", G: "~@3 x ~@3 x ~@7 x", H: "~@3 x ~@3 x ~@8", I: "~@7 x ~@7 x",
  J: "~@10 x ~@4 x",
})).gain(0.24)

// drums · ride
const ride = s("rd").struct("<~@49 [x!16]!7 x ~@35>").gain(0.42)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<A@31 ~ A@8 ~@17 A@5 ~ A@3 ~ A@2 ~@2 A@19 ~@2>".pickRestart({
  A: "~@9 x!2 ~ x ~@3",
})).gain(1.52)

// drums · shaker
const shaker = s("sh").struct(`<
  A@7 B A@2 C A@3 C A@3 C A@3 C A@3 C B A@3 ~ A@7 C ~@17 A B A@3 ~ B A@2 ~ A@2 ~@2 A@4 C A@9 B A@2 C A ~@2
>`.pickRestart({
  A: "x!16", B: "x!14 ~ x", C: "x!2 ~ x!13",
})).gain(0.3)

// drums · shaker · soft notes
const shaker_soft = s("sh").struct(`<
  A B C D E F G H I J K@2 L M N O P ~ Q R F K S K F T K U V K W ~ X K I Y F Z AA AB ~@17 AC K Y AD AE ~ AF K AG ~ AH M
  ~@2 F AI AJ AK I AL K E AM AJ J K I AN AO K AP AQ K ~@2
>`.pickRestart({
  A: "~@2 x!2 ~@3 x ~@2 x ~@3 x ~", B: "~@3 x ~@2 x ~@4 x ~@2 x ~", C: "~@2 x ~@7 x ~@4 x", D: "~@2 x ~@10 x!2 ~",
  E: "~@2 x ~@4 x ~@2 x ~@5", F: "~ x ~@5 x", G: "~@2 x!2 ~@3 x ~@2 x!2 ~@4", H: "~@3 x ~@3 x", I: "~ x ~@3 x ~@2",
  J: "~@2 x ~@7 x ~@2 x!2 ~", K: "~ x ~@3 x ~ x", L: "~@2 x!2 ~@3 x ~@2 x ~@5", M: "~@7 x", N: "~@2 x!2 ~@7 x ~@3 x",
// … 15 more lines