// Run for Your Life — The Beatles
// 87 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 59 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(87/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 · rock organ · "Harm 1 Organ 3"
const rock_organ = note("<~@8 A B C@2 ~@6 A B C@2 ~@10 A B C@2 ~@6 A B C@2 ~@13>".pickRestart({
  A: "f#5@3 f#5@2 f#5 f#5@2 f#5 f#5@2 g#5@4 g#5@2 g#5 g#5@6", B: "f#5@3 f#5@2 f#5@3 f#5 f#5@2 g#5@4 g#5@2 g#5 g#5@6",
  C: "[f#5@2 f#5 f#5@2 f#5 f#5@2 f#5@3 g5@7 f#5@3 e5@2 d5@4 d5@3 ~@3 d5@2 d5 d5@6 ~@6]/2",
})).s("gm_rock_organ").gain(0.72).pan(0.4)

// other · rock organ · "Harm 2 Organ 3"
const rock_organ_2 = note("<~@9 A B@2 ~@7 A B@2 ~@11 A B@2 ~@7 A B@2 ~@13>".pickRestart({
  A: "~@11 e6@4 d6@2 d6 d6@6", B: "[b5@2 b5 b5@2 b5 b5@2 b5@3 d6@7 c#6@3 c#6@2 b5@4 b5@3 ~@3 f#5@2 f#5 f#5@6 ~@6]/2",
})).s("gm_rock_organ").gain(0.56).pan(0.6)

// chords · electric guitar muted · "Muted Gtr Lead"
const electric_guitar_muted = note("<~@2 A@2 ~@7 B A@2 ~@21 B A@2 ~@7 B A@12 ~>".pickRestart({
  A: "~@3 c4@5 b3@4 ~@5 f3@3 f#3@4, d3 a3", B: "~@5 b2 c3 c#3",
})).s("gm_electric_guitar_muted").gain(0.54).pan(1)

// chords · electric guitar jazz · "Jazz Gtr Lead"
const electric_guitar_jazz = note("<~@22 A B C D E F G ~@30>".pickRestart({
  A: "~@11 a5@4 g5@2 f5 g5@2 ~ d5@2 c5, ~@11 g5 ~@8 f5@4",
  B: "d5@2 ~@10 a5@3 a5@2 a5 g5@2 ~ d5@2 ~, ~ d5@6 ~, ~@12 g5 ~@7 f5@3 ~",
  C: "~@11 d5 ~@5 e5 d5@2 ~ a4@2 c5, ~ g4@4 g5@2 ~, ~@12 e5@5 ~@3 c5@3 ~",
  D: "[c#5,d5]@2 ~@10 a4@3 a4@2 a4 g4@2 ~ d4@2 ~, ~ d5@5 ~@2, ~@12 g4 ~@7 f4@3 ~", // Dmaj7
  E: "~@12 [f3,f#3,g3] g#3 ~@3 a3@3 d4 ~@3, ~@13 a3@4 ~@7, ~@15 d4@5 ~@4",
  F: "~@12 a4@3 a4@2 a4 g4@2 ~ d4@2 ~, ~@12 g4 ~@7 f4@3 ~", G: "d4!2 d4@6, c4 ~@23",
})).s("gm_electric_guitar_jazz").gain(0.52).pan(1)

// chords · acoustic guitar nylon · "Rythm Gtr (Nylon BK32)"
const acoustic_guitar_nylon = note(`<
  A B@4 C B C D@2 E C B@3 C B C D@2 E C B@2 F B G B@2 C B C D@2 E C B@3 C B C D@2 E C B@12 ~
>`.pickRestart({
  A: "~@23 [d3,a3,d4,f#4]", // D
  B: "[d4,f#4]@3 [d4,f#4]@3 [d3,a3,d4,f#4]@2 [d4,f#4] [d3,a3,d4,f#4]@2 [d4,f#4] [d4,f#4]@3 [d4,f#4]@3 [d3,a3,d4,f#4]@2 [d4,f#4] [d3,a3,d4,f#4]@2 [d4,f#4], [d3,a3] ~ [d3,a3] ~", // D D5
  C: "[b3,d4,f#4]@3 [b3,d4,f#4]@3 [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4] [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4] [b3,d4,f#4]@3 [b3,d4,f#4]@3 [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4] [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4], [f#2,b2,f#3] ~ [f#2,b2,f#3] ~", // Bm B5
  D: "[b3,d4,f#4]@3 [b3,d4,f#4]@3 [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4] [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4] [g#3,b3,e4]@3 [g#3,b3,e4]@3 [e2,b2,e3,g#3,b3,e4]@2 [g#3,b3,e4] [e2,b2,e3,g#3,b3,e4]@2 [g#3,b3,e4], [f#2,b2,f#3] ~ [e2,b2,e3] ~", // Bm E B5 E5
  E: "[b3,d4,f#4]@3 [b3,d4,f#4]@3 [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4] [f#2,b2,f#3,b3,d4,f#4]@2 [b3,d4,f#4] [b3,d4,g4]@3 [b3,d4,g4]@3 [f#2,c#3,e3,a#3,c#4,f#4]@2 [a#3,c#4,f#4] [f#2,c#3,e3,a#3,c#4,f#4]@2 [a#3,c#4,f#4], [f#2,b2,f#3] ~ [g2,d3,g3] ~", // Bm G F#7 F# F#7 F# B5 G5
  F: "[b3,d4,g4]@3 [b3,d4,g4]@3 [g2,d3,g3,b3,d4,g4]@2 [b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2 [b3,d4,g4] [b3,d4,g4]@3 [b3,d4,g4]@3 [g2,d3,g3,b3,d4,g4]@2 [b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2 [b3,d4,g4], [g2,d3,g3] ~ [g2,d3,g3] ~", // G G5
  G: "[c#4,e4,a4]@3 [c#4,e4,a4]@3 [a2,e3,a3,c#4,e4,a4]@2 [c#4,e4,a4] [a2,e3,a3,c#4,e4,a4]@2 [c#4,e4,a4] [c#4,e4,a4]@3 [c#4,e4,a4]@3 [a2,e3,a3,c#4,e4,a4]@2 [c#4,e4,a4] [a2,e3,a3,c#4,e4,a4]@2 [c#4,e4,a4], [a2,e3,a3] ~ [a2,e3,a3] ~", // A A5
})).s("gm_acoustic_guitar_nylon").gain(0.32).pan(0.1)

// chords · electric guitar jazz · "Slide Gtr (Jazz)"
const electric_guitar_jazz_2 = note("<~@2 A@3 ~@7 A@3 ~@6 B@8 ~@7 A@3 ~@6 C@8 D@6>".pickRestart({
  A: "[~@7 [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@7]/3", // C D C D
  B: "[~@7 [g3,c4,e4]@2 [a3,d4,f#4,b4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4,b4]@5 ~ [c4,f4,a4]@2 [d4,g4,b4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [d4,g4,b4]@2 [e4,a4,c#5]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@7]/8", // C Bm7 C Bm7 F G C D …
  C: "[~@7 [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]]/8", // C D C D C D C D …
  D: "[~ [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 [a3,d4,f#4]@5 ~ [g3,c4,e4]@2 ~@7]/6", // D C D C D C D C …
})).s("gm_electric_guitar_jazz").gain(0.4).pan(0.3)

// bass · fretless bass · "Fretless E. Bass"
const bass = note(`<
  ~@2 A@3 B A B C@2 D E A@3 B A B C@2 D E A@2 F A G A@2 B A B C@2 D E A@3 B A B C@2 D E A@12 ~
>`.pickRestart({
  A: "d2@5 d2 a1@2 a1@3 a1 d2@5 d2 a1@2 a1@3 a1", B: "b1@5 b1 f#1@2 f#1@3 f#1 b1@5 b1 f#1@2 f#1@3 f#1",
  C: "b1@5 b1 f#1@2 f#1@3 f#1 e1@5 e1 g#1@2 b1@3 g#1", D: "b1@5 b1 f#1@2 f#1@3 f#1 g1@5 g1 f#1@2 f#1@3 f#1",
  E: "b1@5 b1 f#1@2 f#1@3 f#1 b1@3 b1@3 c2@3 c#2@3", F: "g1@5 g1 d2@2 d2@3 d2 g1@5 g1 d2@2 d2@3 a1",
  G: "a1@5 a1 e2@2 e2@3 e2 a1@5 a1 e2@2 e2@3 e2",
})).s("gm_fretless_bass").gain(0.59).pan(0.6)

// drums · kick
const kick = s("bd").struct("<~@2 [x ~@5 x ~ x ~@2 x!2 ~@5 x ~ x ~@2 x]!56 ~>").gain(0.45)

// drums · snare
const snare = s("sd").struct("<~@2 A@11 B A C A@14 B A@8 D A@2 B D A@10 B@2 A B ~>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~@3 x ~ x ~@3 x ~@5 x ~@5 x ~@2", C: "~@3 x ~@5 x ~@5 x ~ x ~@3 x ~@2",
  D: "~@3 x ~ x ~@3 x ~@5 x ~ x ~@3 x ~@2",
})).gain(0.4)

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

// drums · open hat
const open_hat = s("oh").struct("<~@4 [~@11 x ~@12] ~@7 [~@11 x] ~@46>").gain(0.35)

// drums · crash
const crash = s("cr").struct("<~@18 A B ~@2 A C A ~ A ~@5 A@2 D E A@2 ~@6 F E A G A G@2 A ~ G ~@2 G ~@2>".pickRestart({
  A: "x", B: "~@11 x ~@12", C: "x!2 ~@6", D: "~@23 x", E: "~ x ~@2 x ~@3", F: "~@11 x ~@11 x", G: "~ x ~@6",
})).gain(0.35)

stack(
  rock_organ, rock_organ_2, electric_guitar_muted, electric_guitar_jazz, acoustic_guitar_nylon, electric_guitar_jazz_2,
  bass, kick, snare, hihat, open_hat, crash
)