// The Long Race — Bruce Hornsby
// 120 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 126 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(120/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 · electric guitar clean · "rythm guitar"
const electric_guitar_clean = note("<~@3 A ~ B ~ A ~ C ~ A ~ B ~ A ~ B ~@108>".pickRestart({
  A: "e4 ~ e4 b4 ~ b4 e4 ~ b4 ~@7", B: "e4 ~ e4 b4 ~ b4 e4 ~ g#4@2 ~@2 f#4 ~@3",
  C: "e4 ~ e4 b4 ~ b4 e4 ~ g#4 ~@3 f#4 ~@3",
})).s("gm_electric_guitar_clean").gain(0.41).pan(0.9)

// bass · fretless bass · "bass"
const bass = note("<~@3 A@2 B ~ C@2 D@2 A@2 B ~ A@2 B ~@106 E ~>".pickRestart({
  A: "[[a2,a3]@15 ~]/2", B: "[a2,a3]@3 ~ [f#2,f#3] ~ [d3,d4]@2", C: "[[a2,a3]@29 ~@3]/2",
  D: "[[a2,a3]@3 ~ f#2 ~ [d3,d4]@3 ~@7, ~@8 f#3 ~@23]/2", E: "~@12 [d3,a3,d4] ~@3",
})).s("gm_fretless_bass").gain(0.31)

// chords · overdriven guitar · "guitar verse"
const overdriven_guitar = note(`<
  ~@19 A@2 B C A@2 B C D E D F E D G H I@8 J K A L A L A@2 B C A@2 B C D E D F E D G H I@8 J K A L A L A L A L A L A L A
  L A L D E D F E D G H I@16 J K A L A L A L A L ~
>`.pickRestart({
  A: "e3 ~ e3 b3 ~ b3 e3 ~ b3 ~ b3 ~@5", B: "c#3 ~ c#3 g#3 ~ g#3 c#3 ~ g#3 ~ g#3 ~@5",
  C: "d3 ~ d3 f#3 ~ f#3 d3 ~ f#3 ~ f#3 ~@5", D: "[f#3,a3,b3,d4]@2 ~ [f#3,a3,d4]@4 ~",
  E: "[f#3,a3,c#4]@4 ~@2 [e3,g#3,b3]@5 ~@5", F: "[f#3,a3,c#4]@4 ~@2 [e3,g#3,b3] ~ [e3,g#3,b3]@5 ~@3",
  G: "[f#4,a4,d5] ~ [f#4,a4,d5]!2 ~ [f#4,a4,d5]!2 ~ [f#4,a4,d5] ~ [f#4,a4,d5]!3 ~ [f#4,a4,d5]!2", // D
  H: "[f#4,a4,d5] ~ [f#4,a4,d5]!2 ~ [f#4,a4,d5]!2 ~ [f#4,a4,d5] ~ [f#4,a4,d5]!2 [f#4,a4,d5]@3 ~", // D
  I: "[e4,a4]@3 ~ [e4,a4]@3 ~ [e4,a4]@3 ~ [e4,a4]@3 ~", J: "[c#4,e4,a4]@11 ~@5", K: "[d4,f#4,a4]@11 ~@5",
  L: "e3 ~ e3 b3 ~ b3 e3 ~ g#3@3 ~ f#3@3 ~",
})).s("gm_overdriven_guitar").gain(0.41).pan(0.3)

// bass · fretless bass · "bass verse"
const bass_2 = note(`<
  ~@19 A@2 B C A@2 B C D E D F E D G@2 H@2 I@2 H@2 J@2 K L A M A M A@2 B C A@2 B C D E D F E D G@2 H@2 I@2 H@2 J@2 K L B
  N B N B N B N A M A M A M A M D E D F E D G@2 H@2 I@2 H@2 J@2 H@2 I@2 H@2 J@2 K L A M A M A M A M ~
>`.pickRestart({
  A: "a2@2 ~ a2@2 ~ a2 ~ a2@3 ~@5", B: "f#2@2 ~ f#2@2 ~ f#2 ~ f#2@3 ~@5", C: "d3@2 ~ d3@2 ~ d3 ~ d3@3 ~ e2@3 ~",
  D: "b2@4 ~@2 g2@7 ~@3", E: "f#2@4 ~@2 e2@5 ~@5", F: "f#2@4 ~@2 e2 ~ e2@5 ~@3", G: "g2@2 ~ g2@2 ~ g2 ~ g2@3 ~@5",
  H: "[a2@4 ~@2 a2 ~ e2@4 ~@2 d3@6 ~@2 d3 ~ d3@3 ~ e2@3 ~]/2",
  I: "[a2@4 ~@2 a2 ~ e3@4 ~@2 d3@6 ~@2 d3 ~ f#3@3 ~ e3@3 ~]/2",
  J: "[a2@4 ~@2 a2 ~ e3@4 ~@2 d3@6 ~@2 d3 e3 f#3@3 ~ e3@3 ~]/2", K: "d3@11 ~@5", L: "g2@11 ~@5",
  M: "a2@2 ~ a2@2 ~ a2 ~ f#2@3 ~ d3@3 ~", N: "f#2@2 ~ f#2@2 ~ f#2 ~ f#2@3 ~ d3@3 ~",
})).s("gm_fretless_bass").gain(0.41).pan(0.6)

// other · overdriven guitar · "guitar solo"
const overdriven_guitar_2 = note(`<
  ~@10 A B C ~ A B C ~@3 D@2 E@2 F@3 ~ G@2 H ~@9 I ~@9 J@2 K@2 L@2 ~@2 M@2 N ~@5 O ~@8 A B P Q R A B S T U T V W@2 X@2 ~
  G@2 H ~@5 O ~@7 O ~@8 A B P Q R A B Y ~
>`.pickRestart({
  A: "e4 f#4 a4 b4 a4 b4 c#5 e5 c#5 e5 f#5 a5 f#5 [e4,a5] [f#4,b5] [a4,d6]", // A5 B5 D5
  B: "a5 f#5 e5 c#5 a5 f#5 e5 c#5 e5 c#5 b4 a4 e5 c#5 b4 a4", C: "b4 a4 f#4 e4 b4 a4 f#4 e4 [e4,a4]@5 ~@3",
  D: "[~@6 a6 f#6 e6@21 ~@3]/2", E: "[~@6 a5 f#5 ~ e5@18 ~@5]/2", F: "[~@6 a5 f#5 e5@28 ~@12]/3",
  G: "[~@11 c#5 e5@9 ~@11, ~@10 b4@11 ~@11]/2", H: "~@7 c#5 e5@8, ~@6 b4@3 ~@7", I: "~@6 a5 f#5 e5@7 ~",
  J: "[~@6 a5 f#5 ~ e5@13 ~@10]/2", K: "[~@11 f#6 a6@9 ~@11, ~@5 e6 ~@10]/2", L: "[~@6 a5 f#5 e5@10 ~@14]/2",
  M: "[~@11 c#5 e5@15 ~@5, ~@5 b4@5 ~@6]/2", N: "~@7 c#5 e5@6 ~@2, ~@3 b4 ~@4", O: "~@6 b4 c#5 e5@7 ~",
  P: "b4 a4 f#4 e4 b4 a4 f#4 e4!2 f#4 a4 b4 a4 b4 c#5 e5",
  Q: "c#5 e5 f#5 a5 f#5 [e4,a5] [f#4,b5] [a4,d6] a5 f#5 e5 c#5 a5 f#5 e5 c#5", // A5 B5 D5
  R: "e5 c#5 b4 a4 e5 c#5 b4 a4 b4 a4 f#4 e4 b4 a4 f#4 e4", S: "b4 a4 f#4 e4 b4 a4 f#4 e4 b4 a4 f#4 e4 b4 a4 f#4 e4",
  T: "e4 ~ e4 b4 ~ b4 e4 ~ b4 ~ b4 ~@5", U: "e4 ~ e4 b4 ~ b4 e4 ~ g#4@4 f#4@4",
  V: "e4 ~ e4 b4 ~ b4 e4 ~ g#4@3 ~ f#4 ~@3", W: "[b3@2 c#4@4 e4@4 f#4@4 a4@4 f#4@4 ~ a4@4 f#4@5]/2",
  X: "[b3 c#4@2 e4@2 f#4@2 a4@2 f#4@2 a4@2 f#4@2 ~]/2", Y: "b4 a4 f#4 e4 b4 a4 f#4 e4 ~@4 [d3,a3,d4] ~@3",
})).s("gm_overdriven_guitar").gain(0.41).pan(0.2)

// drums · kick
const kick = s("bd").struct("<~ [x!4]!124 ~>").gain(0.51)

// drums · rim
const rim = s("rim").struct("<~@124 [~@3 x] ~>").gain(0.51)

// drums · snare
const snare = s("sd").struct("<~@10 A ~ A ~ A ~ A ~@109>".pickRestart({
  A: "~@8 x!8",
})).gain(0.51)

// drums · hihat
const hihat = s("hh").struct("<~ [x!16]!124 ~>").gain(0.46)

stack(electric_guitar_clean, bass, overdriven_guitar, bass_2, overdriven_guitar_2, kick, rim, snare, hihat)