// Rock 'n Roll All Night — Kiss
// 150 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 3 "Ace" distortion guitar (copy of ch 1 "Paul" distortion guitar); ch 7 "Chorus 2" lead 2 sawtooth (copy of ch 6 "Chorus 1" lead 2 sawtooth)
// note: Full arrangement: all 121 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(150/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · [...]/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 · distortion guitar · "Paul"
const distortion_guitar = note(`<
  ~@2 A B@8 C@3 D E@7 D F@2 G H I@5 J@4 D E@7 D E@7 D F@2 G H I@5 J@4 K@2 ~@6 D E@7 D E@7 D F@2 G H I@5 J@4 K@2 ~@6 D
  F@2 G L M@3 N
>`.pickRestart({
  A: "~@2 [d3,a3,d4,g4]@3 [d3,a3,d4,g4]@3", // Dsus4
  B: "[[d3,a3,d4,f#4]@4 [d3,a3,d4,g4]@4 [d3,a3,d4,g4]@2 [d3,a3,d4,f#4]@4 [a2,e3,a3]@16 [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [a2,e3,a3] ~ [a2,e3,a3]@16 [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [a2,e3,a3] ~ [a2,e3,a3]@16 [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [a2,e3,a3] ~ [a2,e3,a3]@16 [e3,b3,e4]@2]/8", // D Dsus4 D A5 E5 C#m E5 C#m …
  C: "[~@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [a2,e3,a3] ~ [d3,a3,d4]@4 [d3,a3,d4]@2 [d3,b3,d4]@2 [d3,a3,d4]@2 [d3,b3,d4]@2 [d3,a3,d4]@2 [d3,a3,d4] ~ [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,b3,e4] ~ [e3,b3,e4] ~]/3", // E5 C#m E5 C#m E5 A5 D5 G …
  D: "[d3,a3,d4] ~ [d3,a3,d4] ~ [d3,a3,d4,g4]@6 [d3,a3,d4,g4]@6", // D5 Dsus4
  E: "[[d3,a3,d4,f#4]@4 [d3,a3,d4,g4]@4 [d3,a3,d4,g4]@2 [d3,a3,d4,f#4]@4 [a2,e3,a3]@16 [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [a2,e3,a3] ~ [a2,e3,a3]@16 [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [a2,e3,a3] ~ [d3,a3,d4]@4 [d3,a3,d4]@2 [d3,b3,d4]@2 [d3,a3,d4]@2 [d3,b3,d4]@2 [d3,a3,d4]@2 [d3,a3,d4] ~ [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,b3,e4] ~ [e3,b3,e4] ~]/7", // D Dsus4 D A5 E5 C#m E5 C#m …
  F: "[[d3,a3,d4,f#4]@2 [d3,a3,d4,g4]@2 [d3,a3,d4,g4] [d3,a3,d4,f#4]@2 [f3,c4,f4]@2 [f3,c4,f4] [f3,d4,f4] [f3,c4,f4]!3 [f3,d4,f4] [g3,d4,g4]]/2", // D Dsus4 D F5 Dm F5 Dm G5
  G: "[g3,d4,g4]!2 [g3,e4,g4] [g3,d4,g4]!3 [g3,e4,g4] [g3,d4,g4]", H: "[f3,c4,f4] ~@3",
  I: "[~@7 [a2,e3,a3]@16 [d3,a3,d4]@2 [d3,a3,d4] [d3,b3,d4]@2 [d3,a3,d4]@2 [d3,a3,d4] [e3,b3,e4]@2 [e3,b3,e4] [e3,c#4,e4]@2 [e3,b3,e4]@2 [e3,c#4,e4] [e3,b3,e4]]/5", // A5 D5 G D5 E5 C#m E5 C#m …
  J: "[[a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3]@26 [d3,a3,d4]@4 [d3,a3,d4]@2 [d3,b3,d4]@4 [d3,a3,d4]@4 [d3,a3,d4]@2 [e3,b3,e4]@4 [e3,b3,e4]@2 [e3,c#4,e4]@4 [e3,b3,e4]@4 [e3,c#4,e4]@2 [e3,b3,e4]@2]/4", // A5 D5 G D5 E5 C#m E5 C#m …
  K: "[[a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3]@28]/2", L: "~ [e4,g4] [d4,f#4] [c4,e4] [d4,f#4] [c4,e4] [a3,d4] [g3,c4]",
  M: "[[a3,d4] [g3,c4] [e3,a3] [a2,e3,a3]@21]/3", N: "[a2,e3,a3] ~@3",
})).s("gm_distortion_guitar").gain(0.36).pan(0)

// bass · electric bass pick · "Gene"
const bass = note(`<
  ~@2 A B@8 C@3 A D@7 A E@3 F G@5 H@4 A D@7 A D@7 A E@3 F G@5 H@4 I@2 ~@6 A D@7 A D@7 A E@3 F G@5 H@4 I@2 ~@6 A E@3 ~
  J@3 K
>`.pickRestart({
  A: "~@2 d2@3 d2@3",
  B: "[a1@2 d2@2 d2 a1@2 a1@2 a1 g#1@2 f#1@2 e1 e2@2 e2 d2@2 c#2@2 b1 a1@2 a1 g#1@2 f#1@2 e1 e2@2 e2 d2@2 c#2@2 b1 a1@2 a1 g#1@2 f#1@2 e1 e2@2 e2 d2@2 c#2@2 b1 a1@2 a1 g#1@2 f#1@2 e1 e2]/8",
  C: "[~ e2 d2@2 c#2@2 b1 d2@2 d2 c#2@2 b1@2 a1 e2@2 e2 d2@2 c#2@2 b1@2]/3",
  D: "[a1@2 d2@2 d2 a1@2 a1@2 a1 g#1@2 f#1@2 e1 e2@2 e2 d2@2 c#2@2 b1 a1@2 a1 g#1@2 f#1@2 e1 e2@2 e2 d2@2 c#2@2 b1 d2@2 d2 c#2@2 b1@2 a1 e2@2 e2 d2@2 c#2@2 b1@2]/7",
  E: "[a1@2 d2@2 d2 a1@2 f2@2 f2 e2@2 d2@2 c2 g1@2 g1 b1@2 c2@2 d2 g2]/3", F: "g2 ~@3",
  G: "[~@7 a1@16 d2@2 d2 c#2@2 b1@2 a1 e2@2 e2 d2@2 c#2@2 b1 a1]/5",
  H: "[~@2 a1@13 d2@2 d2 c#2@2 b1@2 a1 e2@2 e2 d2@2 c#2@2 b1 a1]/4", I: "[~ a1@7]/2", J: "[d3 c3 a2 a1@21]/3",
  K: "a1 ~@3",
})).s("gm_electric_bass_pick").gain(0.64)

// other · distortion guitar · "Solo"
const distortion_guitar_2 = note("<~@75 A@2 B C D@4 ~ E F@2 G@2 H I J K L M ~@26>".pickRestart({
  A: "[~@7 e4@2 a4!2 e4 a4!2 e4 a4]/2", B: "a4 e4 a4!2 e4 a4!2 e4", C: "a4!2 e4 a4!2 e4 a4!2",
  D: "[c5 a4 e4@2 a4 g4 e4@2 d4 c4 g3@2 a3@2 [e4,g4]@4 d4@2 c4@2 a3@2 c4@2 d4@2 c4@2 [e4,g4]@6 d4 e4 d4 a3 e4@10 ~@14]/4", // Em
  E: "e5!2 a4 e5@2 a5 e5!2", F: "[a4@2 e5@4 a5@2 e5@2 e5@2 a4@2 e5@4 g5 e5 d5 e5 g5 e5 g5 e5 d5 e5 g5 e5 g5 e5]/2",
  G: "[d5 e5 g5 e5 g5 e5 g5 d5 e5@2 d5@2 e5@2 d6@6 d6@8 e5 d5 e5@2]/2", H: "g5@2 e5@6 c6@2 e5@4 d5 c5", I: "a4 ~@7",
  J: "~@7 b4", K: "c5 a5 c5 b4 c5 a5 c5 b4", L: "d5 b5 d5 c5 d5 [g5,b5] [a5,c6] a5", M: "[g5,b5] ~@7",
})).s("gm_distortion_guitar").gain(0.6)

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

// drums · snare
const snare = s("sd").struct(`<
  A@2 B C A@3 D A@3 D A@2 E C A@3 D A@2 E C A@5 D A@2 F G A@2 B C A@3 D A@2 E C A@3 D A@2 E C A@5 D A@2 F G A@2 F A H@6
  B C A@3 D A@2 E C A@3 D A@2 E C A@5 D A@2 F G A@2 F A@7 I C A@2 ~ J K L ~
>`.pickRestart({
  A: "~ x ~ x", B: "~@2 x ~@2 x ~@2", C: "x ~@3 x ~@3 x ~ x!3 ~@3", D: "~@4 x ~@6 x!2 ~@3", E: "~ x!3", F: "x!2 ~ x",
  G: "~@4 x ~@3 x ~ x!3 ~@3", H: "~@2 x!2 ~@2 x ~", I: "x!4", J: "x ~@7 x!8", K: "x!16", L: "x!4 ~@12",
})).gain(0.64)

// drums · low tom
const low_tom = s("lt").struct("<A@2 B ~@33 B ~@37 B ~@44 C ~>".pickRestart({
  A: "x!8", B: "x!2 ~@6", C: "~@4 x!2 ~ x!3 ~@6",
})).gain(0.48)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@117 [~ x!2 ~@5] ~ [~@4 x!3 ~@9] ~>").gain(0.64)

// drums · high tom
const high_tom = s("ht").struct("<~@113 x ~@3 [~ x ~@6] ~@3>").gain(0.64)

// drums · crash
const crash = s("cr").struct(`<
  ~@2 A B ~@3 C ~@3 C ~@3 D ~@3 C ~@3 C ~ C ~ C ~ C ~@2 E C ~@2 A B ~@3 C ~@3 D ~@3 C ~@3 C ~ C ~ C ~ C ~@2 E C ~@2 E ~
  F@6 A B ~@3 C ~@3 D ~@3 C ~@3 C ~ C ~ C ~ C ~@2 E C ~@2 E ~ F@7 G ~ C ~ H ~@2 I
>`.pickRestart({
  A: "~@2 x ~@2 x ~@2", B: "x ~ x ~@4 x", C: "~@7 x", D: "~@2 x ~@4 x", E: "~ x ~@2", F: "x!4", G: "x ~ x ~ x ~@2 x",
  H: "~@3 x ~@4", I: "x",
})).gain(0.64)

stack(distortion_guitar, bass, distortion_guitar_2, kick, snare, low_tom, hihat, mid_tom, high_tom, crash)