// Don't Be Cruel — Cheap Trick
// 170 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 130 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(170/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 · piano · "A.PIANO 1"
const piano = note(`<
  ~@3 A B ~ C ~ D A B E F G H@2 I@4 J@2 I@2 K L M N O P Q R M S ~ T ~ T ~ U ~ T V W X@2 Y@3 Z AA@2 AB AC AD AE AF@2 AG
  AH AI AJ AK AL AM AN AO@2 AM AP AQ AR AS R AT AU AK@2 AV AW AX AY@2 AZ BA BB AM AN BC@2 BD BE ~ BE ~ BF ~ BE BG BH
  BI@2 BJ BK BJ BL BM BN BG BO BP@2 BG BO BP@2 BG BO BP@2 BG BO BP@2 AJ BQ BJ BL BR BN
>`.pickRestart({
  A: "~@14 e4 ~", B: "d4 ~@3 d4 ~@3 d4@3 ~ e4@2 g4 ~", C: "d4 ~@3 d4 ~@3 d4@3 ~ e4 ~ g4 ~",
  D: "e4 ~@3 e4 ~@3 e4@3 ~ d4 ~ e4 ~", E: "~@8 b3@3 ~ d4@3 ~", F: "a3", G: "~@2 b3 ~@3 a3 ~ g3 ~@3 a3 ~@3",
  H: "[b3@13 ~@3]/2", I: "g2 ~@6 a#2 b2@2 ~ d3 e3@2 ~ d3", J: "c3 ~@6 d#3 e3@2 ~ g3 a3@2 ~ g3", K: "[a3,c4,e4]@13 ~@3",
  L: "[f#3,a3,d4]@15 ~", M: "g2 ~@6 a#2 b2@3 d3 e3@3 d3", N: "g2 ~@6 a#2 b2@3 d3 e3@2 ~@2", O: "[c3,e3,g3]@7 ~",
  P: "[d3,f#3,a3]@3 ~", Q: "[g3,c4,e4]@7 ~", R: "[f#3,a3,d4]@13 ~@3", S: "g2 ~@6 a#2 b2@3 d3 e3@2 ~ d3",
  T: "~ [g2,g3,b3,d4]@2 ~ [g2,g3,b3,d4] ~@3", U: "~ [c3,g3,c4,e4]@2 ~ [c3,g3,c4,e4] ~@3", V: "[a2,a3,c4,e4]@15 ~",
  W: "[f#3,a3,d4]@7 ~", // D
  X: "[~@4 [c4,e4]@2 ~@2 [g3,b3,d4]@3 ~ [g3,c4,e4]@3 d3 [g3,b3,d4]@2 ~ d3 [g3,c4,e4]@3 d3 [g3,b3,d4]@2 ~@2 [g3,c4,e4]@3 ~, g2@15 ~, ~@3 g3@4 ~@20 d3@3 ~@2]/2", // C G C G C G C
  Y: "[~@4 [c4,e4]@2 ~ d3 [g3,b3,d4]@2 ~ d3 ~ e4 ~@2 [g3,b3,d4]@2 ~ d3 [g3,c4,e4]@2 ~@2 [g3,b3,d4]@2 ~ d3 [g3,c4,e4]@2 ~@2 [d3,g3] ~@2 d3 [g3,c4,e4]@2 ~ d3 [g3,b3,d4]@2 ~@2 [g3,c4,e4]@2 ~ d3, g2@10 ~@5 g2@2 ~@6 g2@2 ~@6 g2@9 ~@3 g2@3 ~@2, ~@3 g3@4 ~@5 [g3,c4]@2 ~@34]/3", // C G C G C G5 C G …
  Z: "[g3,b3,d4]@2 ~@2 [g3,c4,e4]@3 d3 [g3,b3,d4]@3 g2 [g3,c4,e4]@2 ~@2, ~@3 g2@5 ~@8", // G C G C
  AA: "[~@3 [g3,c4] [c4,e4,g4]@2 ~@2 [c4,e4,g4]@2 ~ g3 [c4,f4,a4]@3 ~ [c4,e4,g4]@3 g3 [c4,f4,a4]@3 c3 [c4,e4,g4]@3 g3 [c4,f4]@3 d3, c3@13 ~@2 c3@4 ~@9 [g4,a4] ~@3]/2", // C5 C F C F C F5 Gsus2
  AB: "~@3 d3 [g3,c4,e4]@3 d3 [g3,b3,d4]@2 ~@2 [g3,c4,e4]@2 ~ d3, g2@8 ~@3 g2@4 ~", // C G C
  AC: "[g3,d4,f4]@3 ~ [g3,c4,e4]@3 d3 [g3,b3,d4]@3 ~ [g3,c4,e4]@3 ~, ~@3 g2@10 ~@3, ~@11 d3@3 ~@2", AD: "[a2,a3,c4,e4]",
  AE: "[f#3,a3,d4]", // D
  AF: "[~@4 [c4,e4]@2 ~@2 [g3,b3,d4]@3 ~ [g3,c4,e4]@2 ~@2 [g3,d4,f4]@3 ~ [g3,c4,e4]@3 ~ [g3,b3,d4]@3 ~ [g3,c4,e4]@4, g2, ~@3 g3@4 ~@25]/2", // C G C G7 C G C
  AG: "~ [c4,e4] ~@2 [c4,e4,g4]@12, [c3,g3]", AH: "~ d3@15, [a3,d4,f#4,a4]", AI: "[c3,c4,e4,g4]",
  AJ: "[d3,a3,d4,f#4,a4]@15 ~", AK: "g4!2 ~ g4!3 ~ g4!3 ~ g4!3 ~ g4", AL: "g4 ~@15", AM: "[a2,a3,c4,e4]@3 ~",
  AN: "[f#3,a3]@3 ~, d4@7 ~", AO: "[[g2,g3,b3,d4]@29 ~@3]/2", AP: "[f#3,a3]@11 ~@5, d4@7 ~", AQ: "[g2,g3,b3,d4]@15 ~",
  AR: "[g2,f3,b3,d4]@3 ~", AS: "[c4,e4,g4]@3 ~, [c3,g3]@7 ~", AT: "~ g3@13 ~@2, [c4,e4,g4]@13 ~@3, c3@11 ~@5",
  AU: "~ [d3,a3]@11 ~@4, [d4,f#4,a4]@3 ~", // D5 D
  AV: "[g2,g3,b3,d4]@3 d3 [g3,c4,e4]@2 ~ g2 [g3,b3,d4]@2 ~ d3 [g3,c4,e4]@2 ~ g2", // G C G C
  AW: "[g3,b3,d4]@2 ~ d3 [g3,c4,e4]@2 ~ g2 [g3,b3,d4]@2 ~ d3 [g3,c4,e4]@2 ~ g2", // G C G C
  AX: "[g3,b3,d4]@2 ~ g2 [g3,c4,e4]@3 g2 [g3,b3,d4]@2 ~@2 [g3,c4,e4]@2 ~ g2, ~@11 g2@2 ~@3", // G C G C
  AY: "[[g3,d4,f4]@2 ~ g2 [g3,c4,e4]@3 g2 [g3,b3,d4]@3 g2 [g3,c4,e4]@2 ~@2 [c4,e4,g4]@3 g3 ~ f4@2 g3 ~ e4@2 c3 [c4,f4,a4]@2 ~ g3, ~@15 c3@4 ~ [c4,a4]@2 ~@2 [c4,g4]@2 ~@6]/2", // G7 C G C F C5
  AZ: "[c4,e4,g4]@2 ~ c3 [c4,f4,a4]@2 ~ g3 [c4,e4,g4]@3 c3 [c4,f4,a4]@2 ~ [c3,d3]", // C F C F Csus2
  BA: "[g3,b3,d4]@2 ~ g2 [g3,c4,e4]@2 ~ g2 [g3,b3,d4]@2 ~ g2 [g3,c4,e4]@2 ~ g2", // G C G C
  BB: "[g3,d4,f4]@2 ~ g2 [g3,c4,e4]@2 ~ g2 [g3,b3,d4]@3 g2 [g3,c4,e4]@2 ~@2", // G7 C G C
  BC: "[[g2,g3,b3,d4]@3 d3 [g3,c4,e4]@2 ~ g2 [g3,b3,d4]@2 ~ d3 [g3,c4,e4]@2 ~@2 [f3,b3,d4]@3 d3 [f3,b3,d4]@2 ~ d3 [f3,b3,d4]@2 ~@2 [b3,d4]@2 ~@2, ~@15 g2@12 d3@2 ~@3, ~@28 f3 ~@3]/2", // G C G C Bdim Bm
  BD: "[a2,e3,a3,c#4,e4] ~@7", BE: "~ [a2,e3,a3,c#4,e4]@2 ~ [a2,e3,a3,c#4,e4] ~@3",
  BF: "~@2 [d2,f#3,a3,d4]@4 ~ [d2,f#3,a3,d4]@2 ~@7", BG: "[b2,b3,d4,f#4]@13 ~@3", BH: "[g#3,e4]@7 ~, b3@11 ~@5",
  BI: "[[a3,c#4,e4]@7 ~, [a2,e3]@13 ~@3]/2", BJ: "[d3,a3,d4,f#4,a4]@7 ~", BK: "[e3,b3,e4,g#4,b4]@7 ~",
  BL: "[e3,b3,e4,g#4,b4]@13 ~@3", BM: "a4!2 ~ a4!3 ~ a4!3 ~ a4!3 ~ a4", BN: "a4 ~@15", BO: "[g#3,e4]@7 ~, b3@3 ~",
  BP: "[[a2,e3,a3,c#4,e4]@7 ~]/2", BQ: "[e3,b3,e4,g#4,b4]@15 ~", BR: "a4!2 ~ a4!3 ~ a4!4 ~ a4!2 ~ a4",
})).s("gm_piano").gain(0.64)

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~@12 A B C D E F G H I J G K L B M D N O N P Q@2 R S ~ T ~ U ~ T V W G X G Y G Z AA AB G AC V W G AD AE O N P G R V W
  G AD V W G AD AE O N P G@2 E F G H I J G K L B M D AF AG ~ AH ~ AI ~ AH AJ AK AL AM AN AO O AP AL AF AJ AK AL AQ AJ AK
  AL AQ AJ AK AL AQ AJ AK AL AQ O AO O AP AR AF
>`.pickRestart({
  A: "a2@4 g2@3 ~ f#2@4 e2@3 ~", B: "d2@4 c2@4 b1@4 a1@3 ~", C: "g1@3 ~ e1@4 d1@3 ~ e1@3 ~",
  D: "g1@4 e2@3 ~ d2@4 e2@3 ~", E: "g1@3 ~ e1@4 d1@4 e1@3 ~", F: "g1@4 e2@3 ~ d2@4 e2@4",
  G: "g1@3 ~ e1@3 ~ d1@3 ~ e1@3 ~", H: "g1@3 ~ g1@3 ~ a1@3 ~ b1@3 ~", I: "c2@3 ~ c2@3 ~ c2@3 ~ c2@2 ~ g1",
  J: "c2@3 ~ c2@3 ~ c2@3 ~ c2@3 ~", K: "g1@3 ~ g1@3 ~ g1@3 ~ g1 ~@2 g1", L: "a2@3 ~ g2@3 ~ f#2@4 e2@3 ~",
  M: "g1@4 e1@4 d1@3 ~ e1@3 ~", N: "c2@3 ~ c2@2 ~@2 c2@2 ~ g1 c2@2 ~ g1", O: "d2@3 ~ d2@2 ~@2 d2@2 ~ a1 d2@2 ~ a1",
  P: "d2@2 ~@2 d2@2 ~@2 d2@2 ~ a1 d2@2 ~ a1", Q: "g2@3 ~ e2@3 ~ d2@3 ~ e2@3 ~", R: "g1@3 ~@13",
  S: "~@2 g1@4 ~@2 g1@3 ~@5", T: "~@3 g1@4 ~ g1@3 ~@5", U: "~@2 c2@5 ~ c2@3 ~@5", V: "a2@3 ~ g2@3 ~ f#2@3 ~ e2@3 ~",
  W: "d2@3 ~ c2@3 ~ b1@3 ~ a1@3 ~", X: "g1@4 e2@3 ~ d2@3 ~ e2@3 ~", Y: "g1@3 ~ e2@3 ~ d2@3 ~ e2@3 ~",
  Z: "g1@3 ~ e2@4 d2@3 ~ e2@3 ~", AA: "c2@3 ~ c2@3 ~ c2@2 ~ g1 c2@2 ~ g1", AB: "c2@3 ~ c2@3 ~ c2@2 ~@2 c2@2 ~@2",
  AC: "g1@3 ~ e2@4 d2@3 ~ e2@2 ~@2", AD: "g1@3 ~ e2@4 d2@4 e2@3 ~", AE: "c2@3 ~ c2@2 ~@2 c2@2 ~ g1 c2@3 g1",
  AF: "a1@3 ~@13", AG: "~@2 a1@4 ~@2 a1@3 ~@5", AH: "~@3 a1@4 ~ a1@3 ~@5", AI: "~@2 d2@5 ~ d2@3 ~@5",
  AJ: "b2@3 ~ a2@3 ~ g#2@3 ~ f#2@3 ~", AK: "e2@3 ~ d2@3 ~ c#2@3 ~ b1@3 ~", AL: "a1@3 ~ f#1@3 ~ e1@3 ~ f#1@3 ~",
  AM: "a1@4 f#2@3 ~ e2@3 ~ f#2@3 ~", AN: "d2@3 ~ d2@2 ~@2 d2@2 ~ a1 d2@3 a1", AO: "e2@3 ~ e2@2 ~@2 e2@2 ~ b1 e2@2 ~ b1",
  AP: "e2@2 ~@2 e2@2 ~@2 e2@2 ~ b1 e2@2 ~ b1", AQ: "a1@3 ~ f#2@4 e2@4 f#2@3 ~", AR: "a2@3 ~ f#2@3 ~ e2@3 ~ f#2@3 ~",
})).s("gm_acoustic_bass").gain(0.52)

// chords · acoustic guitar nylon · "NYLON GTR"
const acoustic_guitar_nylon = note(`<
  ~@35 A ~ B ~ C ~ A D E F@2 G@4 H@2 G@2 I J K@2 L M L N O ~@9 L M L N O ~@14 P ~ Q ~ R ~ S T U V@2 M W M X Y ~@17 M W M
  X Y ~
>`.pickRestart({
  A: "~ [g2,d3,g3]@2 ~ [g2,d3,g3] ~@3", B: "~@2 [g2,d3,g3]@5 ~ [g2,d3,g3]@2 ~@6",
  C: "~@2 [c3,e3,g3]@5 ~ [c3,e3,g3]@2 ~@6", D: "a2@7 ~", E: "[a2,d3]@7 ~", F: "[[g2,d3]@15 ~]/2",
  G: "~@4 [g3,b3,d4] ~@7 [g3,b3,d4] ~@3", H: "~@4 [c4,e4,g4] ~@7 [c4,e4,g4] ~@3", I: "[a2,a3]@15 ~", J: "d3@15 ~",
  K: "[[g2,d3]@31 ~]/2", L: "[c3,g3]@15 ~", M: "[d3,a3]@15 ~", N: "[d3,a3]@7 ~", O: "[g2,d3]",
  P: "~@2 [a2,e3,a3]@4 ~@2 [a2,e3,a3]@3 ~@5", Q: "~@2 [a2,e3,a3]@5 ~ [a2,e3,a3]@2 ~@6",
  R: "~@2 [d3,f#3,a3]@5 ~ [d3,f#3,a3]@2 ~@6", S: "~ [a2,e3,a3]@2 ~ [a2,e3,a3] ~@3", T: "b2@7 ~", U: "b2@7 ~, e3 ~@15",
  V: "[[a2,e3]@15 ~]/2", W: "[e3,b3]@15 ~", X: "[e3,b3]@7 ~", Y: "[a2,e3]",
})).s("gm_acoustic_guitar_nylon").gain(0.57)

// drums · kick
const kick = s("bd").struct("<A@35 ~@2 B ~ B ~ B C@21 A C@26 A ~@2 B ~ B ~ B C D C@7 A C@21 A>".pickRestart({
  A: "x", B: "~ x ~@2 x ~@3", C: "x!4", D: "x ~ x!2",
})).gain(0.54)

// drums · snare
const snare = s("sd").struct(`<
  A@34 B C ~ C ~ C ~ D A@20 ~ E A@13 F A@12 B C ~ C ~ C ~ D A@8 ~ E A@15 G A@4 ~ B
>`.pickRestart({
  A: "~ x ~ x", B: "x", C: "~ x ~@2 x ~@3", D: "~ x ~@2 x ~ x ~", E: "x ~@2 x", F: "~@11 x!3 ~ x",
  G: "~@3 x!2 ~@7 x ~@3",
})).gain(0.54)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<A@34 ~@13 A ~ A ~ A ~ A ~@8 B A@9 ~@5 C ~@28 B A@16 D ~@4 B ~>".pickRestart({
  A: "~@11 x ~@4", B: "x!2 ~ x!3 ~ x!3 ~ x!3 ~ x", C: "x!2 ~ x!3 ~ x!3 ~@6", D: "x!2 ~@11 x ~ x",
})).gain(0.11)

// drums · hihat
const hihat = s("hh").struct("<~@34 A B A B A B A B C@21 D C@26 A B A B A B A B C@9 D C@21 D>".pickRestart({
  A: "x!4", B: "x ~@2 x", C: "x!2", D: "x",
})).gain(0.54)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct(`<
  ~@42 A@20 ~@2 B A B A B A B A@19 ~@8 A@8 ~@2 B A B A B A B A B A B A B A B A@5 ~@2
>`.pickRestart({
  A: "~ x ~ x", B: "~ x ~@2",
})).gain(0.21)

// drums · open hat
const open_hat = s("oh").struct("<~@35 A ~ A ~ A ~ A ~@20 B ~@28 A ~ A ~ A ~ A ~@8 B ~@21 B ~>".pickRestart({
  A: "~ x ~@2 x ~@3", B: "~@15 x",
})).gain(0.54)

// drums · crash
const crash = s("cr").struct("<~@41 A B ~@11 B ~@3 B ~@13 B ~@5 B ~@18 A B ~@3 B ~@21 B ~@5>".pickRestart({
  A: "~@3 x", B: "x",
})).gain(0.54)

// drums · ride
const ride = s("rd").struct("<~@42 A@4 ~@8 A@8 ~@10 A@18 ~@8 A B A@6 ~@18 A@4 ~@2>".pickRestart({
  A: "x!2", B: "x",
})).gain(0.54)

stack(piano, bass, acoustic_guitar_nylon, kick, snare, snare_soft, hihat, hihat_soft, open_hat, crash, ride)