// Rock and Roll — Led Zeppelin
// 170 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: track names are the Roland MT-32 patch names at their program numbers ("Elec Guit" on 62, "Elec Guit" on 62, "Elec Guit" on 62), so with no bank select the whole file is read through the MT-32 patch table: ch 2 "Lead" Funny Vox -> lead 6 voice; ch 3 "Elec Guit" Elec Gtr 2 -> overdriven guitar; ch 4 "Elec Guit" Elec Gtr 2 -> overdriven guitar; ch 5 "Elec Guit" Elec Gtr 2 -> overdriven guitar; ch 5 "Elec Guit" Guitar 2 -> acoustic guitar steel; ch 7 "Bass Guit" Slap Bass 1 -> slap bass 1; ch 7 "Bass Guit" Acou Bass 1 -> acoustic bass
// note: Full arrangement: all 148 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(170/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [...]/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 · overdriven guitar · "Elec Guit"
const overdriven_guitar = note(`<
  ~@7 A@2 B@5 C@2 D@3 E D@3 E F@3 G D@3 E ~@6 H@2 D@3 E D@3 E F@3 G D@3 E ~@4 I@4 ~ J K J L J L J L J M N O P Q R S T U
  V W X Y Z AA@3 AB AC@2 AD@2 AE AF@2 AG D@3 E D@3 E F@3 G D@3 E ~@5 AH@2 AI AJ AK@2 AL@2 AM AN AO AP AQ AR@2 AS ~@8 AT
  AU@2
>`.pickRestart({
  A: "[~@4 c#4!2 ~ c4@9]/2", B: "[~@4 c4!2 ~ c#4@11 ~@2 c#4!2 ~ d4@11 ~@2 d4!2 ~ c#4]/5",
  C: "[c#4@20 g2 a2 a2@2 c3@2 a2@2 b2@2 a2@2]/2", D: "~ a3@7", E: "~ a3@2 ~ a3@2 ~@2", F: "~ d4@7",
  G: "~ d4@2 ~ d4@2 ~@2", H: "[~@4 d4@2 ~@2 c#4@2 c#4@2 c#4@2 c#4@17 ~]/2",
  I: "[~@4 c#4@2 ~@2 c#4@2 c#4@2 ~@2 c#4@21 ~ c#4@2 ~@2 c#4@2 c#4@2 ~@2 c#4@18]/4", J: "~ c4 ~ c4 a3 g3 a3 g3",
  K: "a3@3 ~@5", L: "a3 ~@3", M: "a3@4 ~@8 c3 a2 g2@2", N: "c3 a2 g2@2 c3 a2 g2@2 c3 a2 g2@2 c3 a2 g2@2",
  O: "c3 a2 g2@2 c3 a2 g2@2 c3 a2 c3@2 c3 a2 g2@2", P: "c3 a2 a2@6 e3 d3 a2@2 c3 a2 g2@2",
  Q: "a2 g2 a2@2 c3 a2 g2 e3 d3 a2 c3@2 a2 c3 d3@2", R: "e3 d3 c#3@2 a3 g3 e3@2 c#4 g3 d3@2 c#4 g3 d3@2",
  S: "g3@2 a3@2 b3 c#4@2 b3 c4@2 c#4@2 a4@2 e4@2", T: "d4 c4 a3@2 d4@2 c4 c#4 a3@2 g3@2 a3@2 c4@2",
  U: "e4@4 a4@2 e4@2 e4@2 a4@2 e4 g4 e4 d4", V: "g#4 f4 d#4@2 a4 f#4 e4@2 a#4 g4 f4@2 g#4 b4 g#4 f#4",
  W: "a4 c5 a4 g4 a4@2 g4@2 a4@2 c5 d5 e5@2 d5 c#5", X: "d5 e5@3 a4@2 g4@2 c5@2 b4@2 a4@2 f#4@2",
  Y: "c#5 ~ b4 a4@2 a4 f#4 c#5", Z: "~ b4 a4 f#4 b4 f#4 a4 b4",
  AA: "[a4@4 f#4@2 a4@2 e5@2 c#5@4 a4@4 ~@2 e5@4 d5 e5 d5 e5@3 d5 e5@5 d5 e5@2 d5 e5@4 d5@2 c5@2]/3",
  AB: "d5 e5 c#5@2 a4@2 ~@2", AC: "[g4 e4 d4@2 g4 e4 d4@2 g4 e4 d4@2 e4@2 c5 d5@3 a4@2 e4@2 d4@2 e4@2 d4@2 e4@2 ~@2]/2",
  AD: "e4 g4 e4 d4 e4 g4 e4 d4 e4 g4 e4 d4 e4 g4 e4 d4", AE: "e4 d4@11 c4@2 d4@2",
  AF: "[c4 a3@3 a3@2 d4 f#4@7 c4 d4]/2", AG: "c4 a3@5 ~@2", AH: "[~ c#4!6 c#4@3 ~@6]/2", AI: "~ c#4!5 d4 e4",
  AJ: "c#4@3 ~", AK: "[~@5 c#4!2 c#4@7 ~@2]/2", AL: "[~@5 c#4!2 c4@9]/2", AM: "~@5 c4!3", AN: "c4 c#4@3",
  AO: "~@5 c#4 ~ c#4", AP: "c4", AQ: "~@7 b3", AR: "[c4@10 ~@5 c4]/2", AS: "c#4", AT: "~@7 a#2 a2@4 c3@2 d3 c3",
  AU: "[g2 a2 c3 d3 e3 g3 a3 g3 a3 g3 a2 g3@10 d3@4 ~@7]/2",
})).s("gm_overdriven_guitar").gain(0.23)

// other · overdriven guitar · "Elec Guit"
const overdriven_guitar_2 = note(`<
  ~@7 A@2 B@5 C@2 ~@22 D@2 ~@20 E@4 ~ F ~ F ~ F ~ F ~@5 G ~@11 H@2 ~@30 I@2 J K L@2 M@2 N@2 O P Q R@2 S ~@8 T ~@2
>`.pickRestart({
  A: "[~@4 g4!2 ~ f#4@9]/2", B: "[~@4 f#4!2 ~ g4@11 ~@2 g4!2 ~ g#4@11 ~@2 g#4!2 ~ g4]/5", C: "[g4@10 ~@5 e3]/2",
  D: "[~@4 g4@2 ~@2 g4@2 g4@2 g4@2 g4@17 ~]/2",
  E: "[~@4 g4@2 ~@2 g4@2 g4@2 ~@2 g4@21 ~ g4@2 ~@2 g4@2 g4@2 ~@2 g4@18]/4", F: "~ e4 ~ e4 ~@4", G: "~ e3@3 ~@4",
  H: "[~@4 g5@4 g5!3 g5@3 g5 g5@5 g5 g5@2 g5 g5@4 ~@4]/2", I: "[~ g4!6 g4@3 ~@6]/2", J: "~ g4!5 g#4 a4", K: "g4@3 ~",
  L: "[~@5 g4!2 g4@7 ~@2]/2", M: "[~@5 g4!2 f#4@9]/2", N: "[~@5 f#4!2 f#4@3 g4@6]/2", O: "~@5 g4 ~ g4", P: "f#4",
  Q: "~@7 f4", R: "[f#4@10 ~@5 f#4]/2", S: "g4", T: "e4 ~",
})).s("gm_overdriven_guitar").gain(0.23)

// other · overdriven guitar · "Elec Guit"
const overdriven_guitar_3 = note("<~@4 A@2 B@2 C@2 B@2 D@2 B@2 E@3 F ~@128>".pickRestart({
  A: "[~@2 a3@2 c#4@2 a3@2 a3@2 ~@2 a3@2 c4 c#4@3 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2]/2",
  B: "[a3@2 a3@2 c#4@2 a3@2 a3@2 ~@2 a3@2 c4 c#4@3 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2]/2",
  C: "[d4@2 d4@2 f#4@2 d4@2 d4@2 ~@2 d4@2 f4 f#4@3 d4@2 d4@2 d4@2 d4@2 d4@2 d4@2 d4@2]/2",
  D: "[e3@2 e3@2 g#3@2 e3@2 e3@2 ~@2 e3@2 g3 g#3@3 e3@2 e3@2 e3@2 e3@2 e3@2 e3@2 e3@2]/2", E: "g3 a3@7",
  F: "g3 a3@2 g3 a3@2 g3 e3",
})).s("gm_overdriven_guitar").gain(0.23)

// other · acoustic guitar steel · "Elec Guit"
const acoustic_guitar_steel = note(`<
  ~@20 A@3 B C@3 D A@3 B E@2 F ~ G@2 H@2 A@3 B A@3 B C@3 D A@3 B E@2 F ~ H@8 I@2 H@2 J@2 H@2 A@3 B K A@2 B C@3 D A@3 B
  J@2 L ~ H@4 A@3 B A@3 B C@3 D A@3 B E@2 F ~ H@12 M@4 N@4 O P Q ~@2 R ~@2
>`.pickRestart({
  A: "g3 a3@7", B: "g3 a3@2 g3 a3@2 g3 e3", C: "c4 d4@7", D: "c4 d4@2 c4 d4@2 c4 a3", E: "e3!8", F: "d3 ~@7",
  G: "[~@2 a3@2 c#4@2 a3@2 a3@2 ~@2 a3@2 c4 c#4@3 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2]/2",
  H: "[a3@2 a3@2 c#4@2 a3@2 a3@2 ~@2 a3@2 c4 c#4@3 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2 a3@2]/2",
  I: "[d4@2 d4@2 f#4@2 d4@2 d4@2 ~@2 d4@2 f4 f#4@3 d4@2 d4@2 d4@2 d4@2 d4@2 d4@2 d4@2]/2", J: "e4!8", K: "c#4 a3!7",
  L: "d4 ~@7", M: "d4!8", N: "a3!8", O: "e3!2 g#3@2 b3@2 c#4 b3", P: "e3@2 g#3 e3 e3@4", Q: "d4 ~@3", R: "c#4 ~",
})).s("gm_acoustic_guitar_steel").gain(0.23)

// bass · slap bass 1 · "Bass Guit"
const bass = note("<~@4 A@4 B@2 C A D@2 C A E@3 F ~@128>".pickRestart({
  A: "a3!8", B: "c4 d4!7", C: "g#3 a3!7", D: "d4 e4!7", E: "g3 a3!7", F: "g3 a3!2 g3 a3!2 g3 e3",
})).s("gm_slap_bass_1").gain(0.23)

// bass · acoustic bass · "Bass Guit"
const bass_2 = note(`<
  ~@20 A@3 B C@3 D A@3 B E@2 F ~ G@4 A@3 B A@3 B C@3 D A@3 B E@2 F ~ G@8 C@2 A@2 E@2 A@5 B A@3 B C@3 D A@3 B E@2 F ~ G@4
  A@3 B A@3 B C@3 D A@3 B E@2 F ~ G@12 H@4 A@4 I J K ~@2 L ~@2
>`.pickRestart({
  A: "g3 a3!7", B: "g3 a3!2 g3 a3!2 g3 e3", C: "c4 d4!7", D: "c4 d4!2 c4 d4!2 c4 a3", E: "d4 e4!7", F: "d4 ~@7",
  G: "a3!8", H: "d4!8", I: "e3!2 g#3!2 b3!2 e3!2", J: "g#3 e3!7", K: "d4 ~@3", L: "a3 ~",
})).s("gm_acoustic_bass").gain(0.22)

// drums · rim
const rim = s("rim").struct("<~@142 x ~@2 x ~@2>").gain(0.23)

// drums · kick
const kick = s("bd").struct("<A@4 B A@29 ~@2 A@22 ~@2 A@34 C ~ A@22 ~@2 A@22 C ~@2 C ~@2>".pickRestart({
  A: "x!8", B: "~ x!7", C: "x",
})).gain(0.23)

// drums · snare
const snare = s("sd").struct("<A@3 B C@30 ~@2 C@22 ~@2 C@34 D ~ C@22 ~@2 C@22 ~@6>".pickRestart({
  A: "x ~@2 x ~ x ~@2", B: "x ~ x!6", C: "~ x ~ x", D: "x",
})).gain(0.23)

stack(
  overdriven_guitar, overdriven_guitar_2, overdriven_guitar_3, acoustic_guitar_steel, bass, bass_2, rim, kick, snare
)