// Ozone Baby — Led Zeppelin
// 140 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (4/4 at bar 1, 2/4 at bar 57, 4/4 at bar 57) are rendered on a constant 4/4 grid of one bar per cycle
// note: Full arrangement: all 122 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 25.
setcpm(140/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 · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~@2 A ~ B C D ~ A E F ~@2 A ~@2 G H D H D I J K L ~@2 A E F ~@2 A ~@2 G H D H D I J K M ~@3 N ~ O ~@3 P ~ Q ~@17 R S R
  S R S R S T ~@25 U@4 R S R S R S R S U V W
>`.pickRestart({
  A: "~ [d4,a4,d5,f#5] ~ [d4,a4,d5,f#5] ~ e5 ~@2", B: "~@5 [d4,a4,d5,f#5] ~@2", C: "e5 d5 ~ e5 ~@2 e5 ~",
  D: "[d4,a4] ~@7", E: "~ e5 ~ b4 ~@4", F: "~@5 e5 ~@2", G: "[d4,a4,d5] ~@3",
  H: "~@4 e4@2 ~@2 [d4,a4,d5]@3 [d4,a4,d5] ~@3 [d4,a4]", I: "~@2 e4 ~ [d4,a4] f#5 ~@2", J: "[d4,a4] f#5!2 a4 ~@4",
  K: "~@4 e4@2 ~@2 [d4,a4,d5,f#5]@2 f#5@2 ~@2 f#5 [d4,a4,d5,f#5]", L: "[d4,a4,d5,f#5] f#5 f#5@2 ~ g#4 a4@2",
  M: "[d4,a4,d5,f#5] f#5 f#5@2 ~ g#4 a4 ~", N: "~@3 d6 b5 a5 ~@2", O: "~@3 d6 [a5,d6] b5 a5@2", P: "~@4 a5 b5 a5@2",
  Q: "~@2 [a5,d6] [b5,e6] [a5,d6] ~@3", R: "~@6 e4 ~", S: "[d4,a4,d5]@3 [d4,a4,d5] ~@3 [d4,a4] [d4,a4]@2 ~@6",
  T: "~ g#4 ~@6", U: "~ g#4 a4@2 ~@4", V: "~ e4 f#4 g4@2 a4 b4@2", W: "f#5",
})).s("gm_acoustic_guitar_steel").gain(0.48).pan(0)

// bass · electric bass pick
const bass = note(`<
  A@2 B@3 C@3 D@2 E F@2 D@2 G H I J I J K L M N O@2 D@2 E F@2 D@2 G H I J I J K L M N ~ P Q@2 R@2 S@2 T@2 U@4 V@2 W@2
  X@2 Y@2 Z@2 X@2 AA@2 AB AC AD AC AE AF AG AF AH AI@3 V@2 AJ AK@2 V@2 AK@2 V@2 AK@2 AL@2 AC AM AC AN AC AD AO AH AP
  AQ@3 AC AM AC AN AC AD AO AH AR@2 AS
>`.pickRestart({
  A: "[~ e2 f#2 g2@2 a2 b2 c3@2 d3 e3 d3@2 d3!3]/2", B: "[d3!4 d3@2 d3@3 e2 f#2 g2@2 a2 b2 c3@2 d3 e3 d3@2 d3 d3@2]/3",
  C: "[d3@2 d3@2 d3 d3@4 e2 f#2 g2@2 a2 b2 c3@2 d3 e3 d3@2 c4 d4 d3]/3",
  D: "[c4 d4 c4 d4 d4@3 d4@2 d4 d4@2 b2 c3 d3@2]/2", E: "d3!2 d3@2 c4 d3 c4 b3",
  F: "[a3 e2 f#2 g2@2 a2 b2 c3@2 d3 e3 d3@2 c4 d4 d3]/2", G: "d3 g3 f#3 d3!2 d4 c4 b3", H: "a3@2 d3@2 e3 e2!2 f#2",
  I: "g2@2 a2@2 b2@2 c3 c#3 d3@2 d3!2 d3@2 a2!2", J: "a2@2 d3!2 d3@2 a2@2 e3@2 g2@2 e2@2 f#2@2",
  K: "g2@2 a2@2 b2@2 c3 c#3 d3@2 d3@2 d3@2 a2@2", L: "a2 d3!2 a2 e3 b2 e2 f#2", M: "g2 e2 b2 c3 d3!4",
  N: "d3!4 a2 c#3 d3 ~", O: "[~ e2 f#2 g2@2 a2 b2 c3@2 d3 e3 d3@2 c4 d4 d3]/2", P: "~@7 e2",
  Q: "[f#2 g2 a2 d3@2 e3 f#3 g3@3 g3 f#3@3 e3 f#3]/2",
  R: "[e2@2 f#2@2 a2@2 d3@4 e3@2 f#3@2 g3@4 g3!2 g3@4 f#3@4 e3@4]/2",
  S: "[e2 f#2 a2 d3@2 e3 f#3 g3@2 g3 a3!2 b3 d4@2 e4]/2", T: "[e2 f#2 a2 d3@2 e3 f#3 g3@2 g3!2 f#3@3 e3 f#3]/2",
  U: "[e2 f#2 a2 d3@2 e3 f#3 g3@2 g3!2 f#3@2 e2 f#2 g2@2 a2 b2 c3@2 d3 c3 ~@2 d4 e4@2 e4@2 a2@2, ~@23 a2@7 ~@2]/4",
  V: "[[a2,e4]@2 a2@3 g2 b2 ~@2 d4 e4@2 e4@2 a2@2, ~@7 a2@7 ~@2]/2", // A5
  W: "[a2!5 g2 b2 a2@2 g2 [a2,e4]!2 [a2,e4]@2 a2@2]/2", X: "[a2!5 g2 b2 a2@2 g2 [a2,e4]@2 [a2,e4]@2 [a2,e4]@2]/2",
  Y: "[a2!5 g2 b2 a2@2 g2 a2@2 a2@2 [a2,e4]@2]/2", Z: "[[a2,e4]@2 a2@3 g2 b2 a2@2 g2 [a2,e4]@2 [a2,e4]@2 [a2,e4]@2]/2",
  AA: "[a2 g2!2 a2@2 g2 b2 a2@2 g2 [a2,e4]@2 [a2,e4]@2 [a2,e4]@2]/2", AB: "a2 g2 a2 a2@2 a2!3",
  AC: "e3@2 g2@2 e2@2 f#2@2 g2@2 a2@2 b2@2 c3 c#3", AD: "d3!3 a2!2 d3!2 a2", AE: "d3!2 f#3 d3 a3 d3 g3 f#3",
  AF: "e3@2 e2@2 e2@2 f#2@2 g2@2 a2@2 b2@2 c3 c#3", AG: "d3@2 d3!2 d3@2 a2!2 a2@2 d3!2 d3@2 a2@2", AH: "d3!8",
  AI: "[a2 c#3 d3 ~@2 e2 f#2 g2@2 a2 b2 c3@2 d3 c3 ~@2 d4 e4@2 e4@2 a2@2, ~@15 a2@7 ~@2]/3",
  AJ: "~ d4 e4@2 e4@2 a2@2, a2@3 ~", AK: "[g2 a2 b2 c3@2 d3 c3 ~@2 d4 e4@2 e4@2 a2@2, ~@7 a2@7 ~@2]/2",
  AL: "[[a2,e4]@2 a2@3 g2 b2 a2@2 [a2,e4]!7]/2", AM: "d3@2 d3@2 d3@2 a2@2 a2@2 d3!2 d3@2 a2@2",
  AN: "d3@2 d3@2 d3@2 a2!2 a2@2 d3!2 d3@2 a2@2", AO: "e3 g2 e2 f#2 g2 e2 b2 c3", AP: "d3 c#3 d3 ~@5",
  AQ: "a2 c#3 d3 ~@5", AR: "[a2 c#3 d3 ~@2 e2 f#2 g2@2 a2 b2 c3@2 d3 e3@2]/2", AS: "d3",
})).s("gm_electric_bass_pick").gain(0.4).pan(0.1)

// chords · distortion guitar
const distortion_guitar = note(`<
  A@2 B@6 C@2 D@3 E@2 F@2 G@6 H@2 I@2 C@2 D@3 E@2 F@2 G@6 J@2 K@10 L@4 M@2 N@2 M@2 N@2 M@2 N@2 M@2 O P@8 Q@3 R@14 S P@8
  T@4 P@8 U@2 V
>`.pickRestart({
  A: "[~ e3 f#3 g3@2 a3 b3 c4@2 d4 e4 [d4,a4,d5,f#5]@3 [d4,a4,d5,f#5]@2]/2", // D
  B: "[[d4,a4,d5,f#5]@4 [d4,a4,d5,f#5]@4 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]!2 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]@4 e3@2 f#3@2 g3@4 a3@2 b3@2 c4@4 d4@2 e4@2 [d4,a4,d5,f#5]@6 [d4,a4,d5,f#5]@4]/3", // D
  C: "[[d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]!3 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5] [d4,a4,d5,f#5]@2 b3 c4 [d4,a4,d5,f#5]@2]/2", // D
  D: "[[d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]@4 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]!2 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]@4 e3@2 f#3@2 g3@4 a3@2 b3@2 c4@4 d4@2 e4@2 [d4,a4,d5,f#5]@6 [d4,a4,d5,f#5]@4]/3", // D
  E: "[[d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]!3 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]!3 b3 c4 [d4,a4,d5,f#5]@2]/2", // D
  F: "[[d4,a4,d5,f#5]!2 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]!3 [d4,a4,d5,f#5]@2 [d4,a4,d5,f#5]!3 [e4,b4,e5,g5,b5]@2 [e4,b4,e5,g5,b5]@2]/2", // D Em
  G: "[[b4,e5,g5] [a4,d5,f#5] a3 [d4,a4,d5,f#5]@2 [d4,a4] [d4,a4,d5,f#5] [d4,a4]@2 [d4,a4,d5]!2 [d4,b4] [e4,b4,e5,g5,b5]@2 [e4,b4,e5,g5,b5]@2]/2", // Em D D5 D D5 G Em
  H: "[[b4,e5,g5] [a4,d5,f#5] a3 [d4,a4,d5,f#5]@2 [d4,a4] [d4,a4,d5,f#5] [d4,a4]@2 [d4,a4,d5]!2 [d4,b4] a3 c#4 d4@2]/2", // Em D D5 D D5 G
  I: "[~ e3 f#3 g3@2 a3 b3 c4@2 d4 e4 [d4,a4]@3 [d4,a4,d5,f#5]@2]/2", // D5 D
  J: "[[b4,e5,g5] [a4,d5,f#5] a3 [d4,a4,d5,f#5]@2 [d4,a4] [d4,a4,d5,f#5] [d4,a4]@2 [d4,a4,d5]!2 [d4,b4] a3 c#4 d4 ~]/2", // Em D D5 D D5 G
  K: "[e3 f#3 a3 f#4@2 d4 f#4 b4@2 g4 b4 a4 f#4 e5 d5@2]/2",
  L: "[e3 f#3 a3 f#4@2 d4 f#4 b4@2 g4 b4 a4@2 e3 f#3 [g3,d4]@2 a3 b3 [c4,g4]@2 [d4,a4] [c4,g4] [a3,e4]@3 [a3,e4]@2 [a3,e4]@2 [a3,e4]@2]/4", // G5 C5 D5 C5 A5
  M: "[[a3,e4]!3 [a3,e4]@2 [g3,d4] [b3,f#4] [a3,e4]@2 [g3,d4] [a3,e4]@2 [a3,e4]@2 [a3,e4]@2]/2", // A5 G5 B5 A5 G5 A5
  N: "[[a3,e4]@2 [a3,e4]@2 ~ [g3,d4] [b3,f#4] [a3,e4]@3 [a3,e4]@2 [a3,e4]@2 [a3,e4]@2]/2", // A5 G5 B5 A5
  O: "[a3,e4]!3 [a3,e4]@2 [a3,e4]!3", // A5
  P: "[[e4,b4,e5,g5,b5]@2 [e4,b4,e5,g5,b5]@2 [b4,e5,g5] [a4,d5,f#5] a3 [d4,a4,d5,f#5]@2 [d4,a4] [d4,a4,d5,f#5] [d4,a4]@2 [d4,a4,d5]!2 [d4,b4]]/2", // Em D D5 D D5 G
  Q: "[a3 c#4 [d4,a4,d5]@2 ~ e3 f#3 g3@2 [a3,e4] [b3,f#4] [c#4,g4]@2 [d4,a4] [c#4,g4] [a3,e4]@2 [g3,d4] [a3,e4]@2 [a3,e4]@2 [a3,e4]@2]/3", // D5 A5 B5 C#dim D5 C#dim A5 G5 …
  R: "[[a3,e4]@2 [a3,e4]@2 ~ [g3,d4] [b3,f#4] [a3,e4]@2 [g3,d4] [a3,e4]@2 [a3,e4]@2 [a3,e4]@2]/2", S: "[a3,e4]!4",
  T: "a3 c#4 d4@2 ~@4", U: "[a3 c#4 d4 ~@2 e3 f#3 g3@2 a3 b3 c4@2 d4 e4@2]/2", V: "[d4,a4,d5]",
})).s("gm_distortion_guitar").gain(0.22).pan(0)

// other · overdriven guitar
const overdriven_guitar = note("<~@82 A@4 B C D E F G H I J K L M N@2 ~@22>".pickRestart({
  A: "[~@14 [c#5,e5]@4 [c#5,e5]@4 [c#5,e5]@4 [c#5,e5]@4 [c#5,e5]@4 b4@2 a4@2 f#4@2 a4@10 b3 c4 c#4 e4!2 d4 c#4 e4!2 f#4 a4 g4 f#4 g4]/4", // C#m
  B: "a4 g4 f#4 g4 a4 g4 f#4 g4 a4@6 b4 c#5", C: "f#5 c#5 e5 c#5 e5 c#5 b4 ~ b4 a4!2 f#4 a4 g4 f#4 g4",
  D: "a4 g4 f#4 e4!2 d4 c#4 b3 a3@2 c4@2 c#4@2 c#4@2", E: "a3@6 g4 f#4 e4 f#4 g4 f#4 e4@2 f#4@2",
  F: "d4@2 c4 d5 d5@2 c#5@2 a5@2 a5@4 g5@2", G: "a5@2 g5 e5@3 g5@2 a5@2 f#5@2 e5@2 c#5@2",
  H: "d5@2 ~@2 d5@2 e5@2 c5@2 d5 g4 g4@2 ~@2", I: "~@10 e5 [g5,b5] d6@2 c6@2", J: "c#6 b5 a5@8 a5@2 b5@2 a5@2",
  K: "b5 a5 b5 c#6@2 c#6 ~ f#6", L: "e6 c#6 b5 a5 b5 a5 b5 ~", M: "d6 e6 g6!2 d6 e6 g6!2 d6 e6 g6!2 d6@2 ~@2",
  N: "[a6@4 a6@3 a6!2 f#6 e6 c#6 a6 f#6 e6@18]/2",
})).s("gm_overdriven_guitar").gain(0.8).pan(0.1)

// drums · kick
const kick = s("bd").struct(`<
  A B C D B E D B F G H D@2 C I J K C I L M N O I C A B F G H D@2 C I J K C I L M N O I C ~@2 L P J Q J E J R J S D R T
  R T R T Q U G V Q U W T R J X Y Z Y O AA O E AB D W AC W T Q AD R AE W T R AF W V AG J O AC AH Y X Y E@2 AI@4 O AC AH
  Y X Y E@2 AJ B AK
>`.pickRestart({
  A: "~ x!3 ~ x ~ x", B: "~ x ~ x ~ x ~@2", C: "x!2 ~@2 x ~@3", D: "~ x ~ x ~ x ~ x", E: "x ~@3 x!2 ~@2",
  F: "x!2 ~@2 x!2 ~@2", G: "~ x ~ x!2 ~@3", H: "x!2 ~@3 x ~@2", I: "x!2 ~ x!2 ~@3", J: "x!2 ~ x ~ x ~@2", K: "~ x",
  L: "x ~@2 x ~ x ~@2", M: "x!2 ~ x!3 ~@2", N: "x ~@2 x!2 ~@3", O: "x!2 ~ x!3 ~ x", P: "x ~@2 x ~ x ~ x",
  Q: "~ x ~@2 x!2 ~ x", R: "~ x ~@2 x!2 ~@2", S: "~ x ~ x ~@3 x", T: "x!2 ~@3 x ~ x", U: "~@7 x", V: "x!2 ~ x ~ x ~ x",
  W: "~ x ~@2 x ~@3", X: "x!2", Y: "x ~@3 x!2 ~ x", Z: "x!2 ~@2 x!2 ~ x", AA: "~ x ~ x!3 ~ x", AB: "x!2 ~@5 x",
  AC: "x ~@4 x ~ x", AD: "~@5 x ~ x", AE: "~@4 x!2 ~ x", AF: "x!2 ~@4 x!2", AG: "~@2 x!2 ~@4 x ~ x ~@5",
  AH: "x ~@3 x ~@2 x", AI: "x!2 ~@6", AJ: "x ~@6 x", AK: "x",
})).gain(0.64).pan(0)

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

// drums · low tom
const low_tom = s("lt").struct("<~@16 A ~@18 A ~@28 B ~@3 C ~@19 D ~@33>".pickRestart({
  A: "~@4 x ~ x!2 ~@8", B: "~@4 x ~@5 x!2 ~@4", C: "~@6 x!8 ~@2", D: "~@7 x ~@8",
})).gain(0.64).pan(0)

// drums · hihat
const hihat = s("hh").struct(`<
  A B C D B E D F G E@2 D F G E@2 H G I J K G L M N O F G E@2 D F G E@2 H G I J K G L M P ~ Q H R S T S T U T U V W X Y
  X Y X Y Z AA AB AC AD K Z Y Z Y Z E AE AF AG AH K@2 AI W X Y AJ AK Z K Z K AL AK Z AG Z AI AM Y AH I K@3 AF K@2 AI@4
  AH I K@3 AF K@2 AI W ~
>`.pickRestart({
  A: "~@5 x ~@2", B: "~ x ~@3 x!3", C: "x ~@3 x ~ x ~ x ~ x!3 ~ x ~", D: "x ~ x ~@2 x ~@2", E: "x!8",
  F: "~ x ~@3 x!2 ~", G: "x ~ x ~ x!4", H: "~ x ~ x", I: "x!5 ~ x ~", J: "x ~ x!3 ~ x!2", K: "x!4", L: "x!5 ~ x!2",
  M: "x!3 ~ x ~ x!2", N: "x!3 ~ x ~ x ~", O: "x!3 ~@2 x ~@2", P: "x!3 ~ x ~@3", Q: "~@11 x ~@4",
  R: "x ~ x ~ x ~ x!3 ~ x!3 ~ x!2", S: "x ~ x!3 ~ x ~ x!5 ~ x!2", T: "x ~ x!3 ~ x!3 ~ x!3 ~ x!2",
  U: "x ~ x!3 ~ x!7 ~ x!2", V: "x ~ x!3 ~ x!3 ~@7", W: "~ x ~@3 x ~@2", X: "~ x!2 ~ x ~ x ~", Y: "x!3 ~", Z: "~ x!3",
  AA: "x", AB: "~ x!2 ~ x!4", AC: "x!3 ~@5", AD: "~ x!2 ~ x!3 ~", AE: "~@2 x!6", AF: "x ~ x!6", AG: "x ~ x!3 ~ x ~",
  AH: "x ~ x ~ x ~ x!2", AI: "x!2 ~@2", AJ: "~ x!4 ~ x!2", AK: "x ~ x!3 ~@3", AL: "~@2 x ~ x ~ x!2",
  AM: "~@2 x ~ x!3 ~",
})).gain(0.64).pan(0)

// drums · open hat
const open_hat = s("oh").struct("<~@3 A ~@2 A ~@4 A ~@18 A ~@91>".pickRestart({
  A: "~ x ~@6",
})).gain(0.64).pan(0)

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

stack(acoustic_guitar_steel, bass, distortion_guitar, overdriven_guitar, kick, snare, low_tom, hihat, open_hat, crash)