// Black and White — Three Dog Night
// 108 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 81 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(108/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.

// other · tenor sax
const tenor_sax = note(`<
  ~@5 A B C D E F C D G H I J K L M N O@2 C@2 P E C@2 D G H Q@2 K L R N O@2 C@2 P E C@2 D G H S@2 ~@30
>`.pickRestart({
  A: "~@7 d3", B: "g3@3 ~ b3@3 ~ d3@2 ~@4 d3@2", C: "g3@3 ~ b3@2 d3@2 ~@6 d3@2", D: "g3 a3 b3 c4@3 ~ b3",
  E: "a3@3 ~ g3@2 f#3@2 ~@6 d3@2", F: "g3@3 ~ b3@3 ~ d3@4 ~@2 d3@2", G: "a3@3 ~ g3@2 f#3@2 ~ e3 d3@6",
  H: "~@6 d3@2 d3@2 ~ e3@2 f#3@2 ~", I: "g3@4 ~ a3 ~ g3 e3@4 ~ g3 ~ a3", J: "g3@4 ~@3 d3",
  K: "d3@3 ~ f#3@2 a3@6 ~@2 d3@2", L: "d3@3 ~ g3@2 b3@6 ~@2 g3@2", M: "d3@2 d3@3 ~ f#3@2 a3@5 ~ c4@2",
  N: "e4@5 ~ d4@2 a3@4 ~@4", O: "[d4@5 ~ e4@2 e4@2 d4@16 ~@4 d3@2]/2", P: "g3@3 ~ b3@2 c4@6 ~@2 b3@2",
  Q: "[g3@12 ~@3 d3]/2", R: "d3@3 ~ f#3@2 a3@6 ~@2 c4@2", S: "[g3@3 ~]/2",
})).s("gm_tenor_sax").gain(0.29).pan(0.4)

// other · synth brass 1
const synth_brass_1 = note("<~@50 A B@2 C D B@2 E F G H@2 B@2 C D B@2 E F G I@2 ~@8>".pickRestart({
  A: "~@7 d4", B: "g4@3 ~ b4@2 d4@2 ~@6 d4@2", C: "g4@3 ~ b4@2 c5@6 ~@2 b4@2", D: "a4@3 ~ g4@2 f#4@2 ~@6 d4@2",
  E: "g4 a4 b4 c5@3 ~ b4", F: "a4@3 ~ g4@2 f#4@2 ~ e4 d4@6", G: "~@6 d4@2 d4@2 ~ e4@2 f#4@2 ~", H: "[g4@12 ~@3 d4]/2",
  I: "[g4@3 ~]/2",
})).s("gm_synth_brass_1").gain(0.72).pan(0.4)

// chords · piano
const piano = note(`<
  A B A B C D E@2 F G E@2 F G H I J K L K G@2 M E@2 F G E@2 F G H I J K L K G N O E@2 F G E@2 F G P Q R E@2 F G E@2 F G
  P Q R E@2 F G E@2 F G P Q R S@8
>`.pickRestart({
  A: "g4@3 ~ d5@2 ~ g4 f#4@2 d5@3 ~ f#4@2", B: "g4@2 d5@2 g4@2 f#4@3 ~ e4@2 f#4@3 ~",
  C: "g4@3 ~ b4@2 ~ d5 e5@2 d5@2 c5@3 ~", D: "d5@2 c5@2 b4@2 c5@3 ~ b4@2 a4@3 ~",
  E: "[b3,d4,g4]@3 ~ [b3,d4,g4]@4 ~@2 [a3,d4,f#4]@2 [a3,d4,f#4]@3 ~", // G D
  F: "[b3,d4,g4]@3 ~ [b3,d4,g4]@4 ~@2 [c4,e4,g4]@2 [c4,e4,g4]@3 ~", // G C
  G: "[a3,d4,f#4]@3 ~ [a3,d4,f#4]@4 ~@2 [a3,d4,f#4]@2 [a3,d4,f#4]@3 ~", // D
  H: "[a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,c4,d4]@8", I: "~@4 [b3,d4,g4]@4 ~@2 [c4,e4,g4]@2 [c4,e4,g4]@3 ~",
  J: "[b3,d4,g4]@3 ~ [b3,d4,g4]@4 ~@2 [c4,e4,g4]@5 ~", K: "[a3,d4,f#4]@3 ~ [a3,d4,f#4]@6 ~@2 [a3,d4,f#4]@3 ~",
  L: "[b3,d4,g4]@3 ~ [b3,d4,g4]@6 ~@2 [b3,d4,g4]@3 ~", M: "[b3,d4,f#4]@3 ~ [c4,d4,f#4]@3 ~",
  N: "[a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@6 ~@2", O: "[b3,d4,f#4]@3 ~ [c4,d4,f#4]@4",
  P: "[a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,c4,d4]@6 ~@2", // D D7
  Q: "[b3,d4,g4]@3 ~ [b3,d4,g4]@4 ~@2 [c4,e4,g4,c5]@2 [c4,e4,g4,c5]@3 ~", // G C
  R: "[b3,d4,g4,b4]@3 ~ [b3,d4,g4,b4]@4 ~@2 [a3,d4,f#4,a4]@2 [a3,d4,f#4,a4]@3 ~", // G D
  S: "~@4 [g4,b4,d5,g5]@3 ~ [a4,d5,f#5]@3 ~ [g4,c5,e5]@2 [f#4,a4,d5]@2", // G D C D
})).s("gm_piano").gain(0.64).pan(0.2)

// chords · epiano1
const epiano1 = note(`<
  ~@6 A B C D E F G H I C J K L M H N O P Q R K S F T U V W R X Y Z@2 AA AB AC AD G M S AE AF X AG C A AC AD G M S AE AF
  X AG C A AC AD G M S AE AF X AG C A AH AI AE S@2 Q AJ AK
>`.pickRestart({
  A: "[g3,b3,d4]@8 ~@2 [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~", // G D
  B: "[g3,b3,d4]@4 g3 ~ b3 d4 [f#3,a3,d4]@4 d4 ~ f#4 a4", C: "[g3,b3,d4] ~ [g3,b3,d4]@5 ~ [g3,c4,e4]@4 c4 ~ e4 g4",
  D: "[f#3,a3,d4]", E: "[g3,b3,d4]@4 g3 ~ b3 d4 [a3,d4,f#4]@4 d4 ~ f#4 a4",
  F: "~@2 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~@3 [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~", // G D
  G: "[g3,b3,d4]@4 g3 ~ b3 d4 [g3,c4,e4]@4 c4 ~ e4 g4", H: "~@2 [a3,d4,f#4]@5 ~ [a3,d4,f#4] ~ [a3,d4,f#4]@6",
  I: "[a3,d4,f#4]@8 [c4,d4,f#4,a4]@4 c4 d4 f#4 a4", J: "[g3,b3,d4] [g3,c4,e4]",
  K: "~@2 f#4@2 a4@2 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@2, d4 ~@3", // D
  L: "~@2 [g3,b3,d4]@6 [g3,b3,d4] ~ [g3,b3,d4]@3 ~ [g3,b3,d4]@2", // G
  M: "[a3,d4,f#4] ~ [a3,d4,f#4]@4 d3@2 [a3,d4,f#4] ~ [a3,d4,f#4]@4 d3@2", // D
  N: "~@2 [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,c4,d4,f#4]@4 c4 d4 f#4 a4", // D D7
  O: "[f#3,b3,d4] ~ [f#3,b3,d4]@5 ~ [c4,d4,f#4,a4]@8", P: "[g3,b3,d4] ~ [g3,b3,d4]@5 ~ [a3,d4,f#4]@4 d4 ~ f#4 a4",
  Q: "[g3,b3,d4] ~ [g3,b3,d4]@5 ~@3 [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~", // G D
  R: "[g3,b3,d4]@4 g3 ~ b3 d4 [g3,c4,e4]@8", S: "[g3,b3,d4] [a3,d4,f#4]",
  T: "[g3,b3,d4]@8 ~@2 [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~", // G C
  U: "~@2 [a3,d4,f#4]@6 [a3,d4,f#4] ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@2", // D
  V: "~@2 [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [c4,d4,f#4,a4]@8", // D D7
  W: "~@2 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,c4,e4] ~ [g3,c4,e4]@5 ~", // G C
  X: "~@2 [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4]@4 d3@2", // D
  Y: "~@2 [g3,b3,d4]@5 ~ [g3,b3,d4] ~ [g3,b3,d4]@6", // G
  Z: "[~@2 f#4@2 a4@2 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@8 d3@2 [a3,d4,f#4]@2 d3@2 [a3,d4,f#4] ~@3, d4 ~@7]/2", // D
  AA: "[a3,d4,f#4]@4 d4 ~ f#4 a4 ~@2 [c4,d4,f#4,a4] ~ [c4,d4,f#4,a4] ~ [c4,d4,f#4,a4] ~", // D D7
  AB: "~@2 [f#3,b3,d4] ~ [f#3,b3,d4] ~ [f#3,b3,d4] ~ [c4,d4,f#4,a4] ~ [c4,d4,f#4,a4]@5 ~", // Bm D7
  AC: "[g3,b3,d4]@4 g3 ~ b3 d4 [f#3,a3,d4] ~ [f#3,a3,d4]@5 ~", // G D
  AD: "~@2 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [a3,d4,f#4] ~ [a3,d4,f#4]@5 ~", // G D
  AE: "[g3,b3,d4]@4 g3 ~ b3 d4 [a3,d4,f#4]@8", AF: "~@2 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,c4,e4]@4 c4 ~ e4 g4",
  AG: "[a3,d4,f#4] ~ [a3,d4,f#4]@5 ~ [c4,d4,f#4,a4]@8", AH: "[g3,b3,d4] ~ [g3,b3,d4]@5 ~ [a3,d4,f#4] ~ [a3,d4,f#4]@5 ~",
  AI: "[g3,b3,d4] ~ [g3,b3,d4]@5 ~ [a3,d4,f#4]@8", // G D
  AJ: "~@2 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [a3,d4,f#4]@4 d4 ~ f#4 a4", // G D
  AK: "[g3,b3,d4]@4 g3 ~ b3 d4 ~@2 [a3,d4,f#4] ~ [a3,d4,f#4] ~ [a3,d4,f#4] ~", // G D
})).s("gm_epiano1").gain(0.35).pan(0.8)

// other · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~@2 A B A C D@2 E F D@2 E G H I J K L K F M N D@2 E F D@2 E G H I J K L K F M N D@2 E F D@2 E G H O D@3 E F D@2 E G H
  O D@3 E F D@2 E G H O D P@8
>`.pickRestart({
  A: "~ [g3,a3,d4] [g3,a3,d4]@2 ~ [d3,g3,a3,d4] [d3,g3,a3,d4]@2", B: "~ [g3,a3,d4]!2 [d3,g3,a3,d4]@5",
  C: "~ [g3,a3,d4]!2 [d3,g3,a3,d4]@4 ~", D: "g2@2 g1@2 g2@4 ~@2 [d2,d3]@2 [d2,d3]@3 ~",
  E: "g2@2 g1@2 g2@4 ~@2 [c2,c3]@2 [c2,c3]@3 ~", F: "d3@2 d2@2 d3@4 ~@2 [d2,d3]@2 [d2,d3]@3 ~",
  G: "d3@2 d2@2 d3@4 ~@2 d3@2 d2@3 ~", H: "d3@2 d2@2 d3@3 ~ d2@2 ~ e2@2 f#2@2 ~",
  I: "g2@2 g2@2 ~@6 [c2,c3]@2 [c2,c3]@3 ~", J: "g2 g1 g2@2 ~ c2!2 c#2", K: "d2@2 d2@3 ~ d2@2 d2@2 d2@3 ~ d2@2",
  L: "[g1,g2]@2 [g1,g2]@3 ~ [g1,g2]@2 [g1,g2]@2 [g1,g2]@3 ~ [g1,g2]@2", M: "d3@2 d2@2 d3@3 ~ c3@2 d2@3 ~ d2@2",
  N: "b2@2 d2@3 ~ d2@2 g2@2 g#2@2 a2@2 d2@2", O: "g2@2 g1@2 g2@5 ~ [c2,c3]@2 [c2,c3]@3 ~", P: "g2!2 ~@3 c#3 d3 d2",
})).s("gm_acoustic_guitar_steel").gain(0.72).pan(0.3)

// drums · kick
const kick = s("bd").struct("<~@6 A@10 B A@16 B A@16 B A@10 B A@10 B A@8>".pickRestart({
  A: "x ~@2 x!2 ~@2 x", B: "x ~@5 x ~@2 x ~@6",
})).gain(0.64)

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

// drums · clap
const clap = s("cp").struct("<~@6 A@10 B ~@6 A@10 B ~@6 A@10 B A@10 B A@10 B ~@8>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~@4",
})).gain(0.56)

// drums · low tom
const low_tom = s("lt").struct("<~@16 A ~@16 A ~@16 A ~@10 A ~@10 A ~@8>".pickRestart({
  A: "~@7 x",
})).gain(0.72)

// drums · hihat
const hihat = s("hh").struct("<~@16 A ~@16 A ~@16 A ~@10 A ~@10 A ~@8>".pickRestart({
  A: "~@2 x!2",
})).gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct("<~@16 A ~@16 A ~@16 A ~@10 A ~@10 A ~@8>".pickRestart({
  A: "~@13 x ~@2",
})).gain(0.72)

// drums · ride bell
const ride_bell = s("rd").struct(`<
  ~@17
  [~ x ~ x ~ x ~ x]!5
  [~ x ~ x ~@4]
  ~@11
  [~ x ~ x ~ x ~ x]!5
  [~ x ~ x ~@4]
  ~@33
  [~ x ~ x ~ x ~ x]!8
>`).gain(0.72)

// drums · tambourine
const tambourine = s("tb").struct("<~@2 [~ x ~ x]!3 [~ x ~@2] ~@75>").gain(0.72)

// drums · cowbell
const cowbell = s("cb").struct("<~@2 [x!3 ~@5 x!3 ~@5]!4 ~@75>").gain(0.72)

stack(
  tenor_sax, synth_brass_1, piano, epiano1, acoustic_guitar_steel, kick, snare, clap, low_tom, hihat, mid_tom,
  ride_bell, tambourine, cowbell
)