// Twenty Flight Rock — Paul McCartney
// 94 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 105 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): Electric I.
setcpm(94/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, A@4 for four bars: edit a riff to change every repeat.

// chords · acoustic guitar steel · "Acoustic Gtr."
const acoustic_guitar_steel = note(`<
  A B A B C@4 D E F G F G F G F H A B A B I@4 D E F G F G F G F H A B A B I@4 D E J K L M J K N@2 O F G F G F G F P A B
  A B C@4 D E J K L M Q R S T U V W X Y Z@2 AA AB AC AD AE AF AG AH AC AD AE AF AG AH AI@2 ~
>`.pickRestart({
  A: "[g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,f4,b4] ~ [g3,f4,b4] ~ [g3,f4,b4] ~ [g3,f4,b4] ~", // G G7
  B: "[g3,e4,c5] ~ [g3,e4,c5] ~ [g3,e4,c5] ~ [g3,e4,c5] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~", // C Am7b5
  C: "[[g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4,g5] ~, ~@14 g5@6 ~@10 g5@7 ~@9 g5@6 ~@12]/4", // G Am7b5 G Am7b5
  D: "~ b5@4 ~ [g3,g4,b4,d5,g5,b5] ~ [g3,g4,b4,d5,g5,b5]@6 ~@2, [g3,g4,b4,d5,g5]@5 ~@11", // G
  E: "[g3,g4,b4,d5,g5] b5 ~ [g5,b5]@2 ~ [g3,g4,b4,d5,g5] b5 ~ [g3,b5]@7, ~ [g3,g4,b4,d5] ~@2 [g4,b4,d5,g5]@3 ~", // G
  F: "[f3,f4,a4,c5] ~ [f3,f4,a4,c5] ~ [f3,f4,a4,c5] ~ [f3,f4,a4,c5] ~ [c3,c4,e4,g4] ~ [c3,c4,e4,g4] ~ [c3,c4,e4,g4] ~ [c3,c4,e4,g4] ~", // F C
  G: "[d3,d4,f#4,a4] ~ [d3,d4,f#4,a4] ~ [d3,d4,f#4,a4] ~ [d3,d4,f#4,a4] ~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5] ~", // D G
  H: "[d3,d4,f#4,a4] ~ [d3,d4,f#4,a4] ~ [d3,d4,f#4,a4] ~ [g3,g4,b4]@10", // D G
  I: "[[g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,g4,b4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~ [g3,d#4,a4] ~, ~@14 g5@6 ~@10 g5@7 ~@9 g5@6 ~@12]/4", // G Am7b5 G Am7b5
  J: "~ [a3,a4,c5,e5] ~ [a3,a4,c5,e5] ~ [a3,a4,c5,e5] ~ [a3,a4,c5,e5]", // Am
  K: "~ [e3,e4,g4,b4] ~ [e3,e4,g4,b4] ~ [e3,e4,g4,b4] ~ [e3,e4,g4,b4]", // Em
  L: "~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5]", M: "~ [d3,d4,f#4,a4]!7",
  N: "[~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5] ~ [g3,g4,b4,d5] ~ [g4,b4,d5]@2 ~@7, ~@7 g3 ~@8]/2", O: "[g4,b4,d5]@5 ~@3",
  P: "[d3,d4,f#4,a4] ~ [d3,d4,f#4,a4] ~ [d3,d4,f#4,a4] ~ [g3,g4,b4,d5]@6 ~@4", // D G
  Q: "~ [a#4,d5,f5] ~ [a#4,d5,f5] ~ [a#4,d5,f5] ~ [a#4,d5,f5]", // A#
  R: "~ [f4,a4,c5] ~ [f4,a4,c5] ~ [f4,a4,c5] ~ [f4,a4,c5]", // F
  S: "~ [g#4,c5,d#5] ~ [g#4,c5,d#5] ~ [g#4,c5,d#5] ~ [g#4,c5,d#5]", // G#
  T: "d#4 [d#4,g4,a#4] ~ [d#4,g4,a#4] ~ [d#4,g4,a#4] ~ [d#4,g4,a#4]", // D#
  U: "~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4]", V: "~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [a#3,d4,f4]",
  W: "~ [a#3,d4,f4] ~ [a#3,d4,f4] ~ [a#3,d4,f4] ~ [a3,c4,f4]", // A# F
  X: "~@2 [a3,c4,f4]@3 ~ [a3,c4,f4]@3 ~ [a3,c4,f4]@2 ~@2 [f#3,a3,d4]@2", // F D
  Y: "~@2 [f#3,a3,d4]@3 ~ [f#3,a3,d4] ~ [g3,b3,d4]@3 ~ [g3,b3,d4]@2 ~@2", // D G
  Z: "[[f3,a3,c4]@3 ~ [f3,a3,c4]@3 ~ [c4,e4,g4]@3 ~ [c4,e4,g4]@20]/2", AA: "~@8 c6 ~ c6 c6@2 c6!3",
  AB: "c6@2 c6 c6@2 c6!3 c6@2 c6 c6@2 c6!3", AC: "c6 ~ c6!2 ~ c6!2 ~ c6!2 ~ c6!2 ~ c6!2",
  AD: "c6 ~ c6!2 ~ c6!4 ~ c6!3 ~ c6 ~", AE: "c6 ~ c6!2 ~ c6!4 ~ c6 ~ c6!2 ~ c6",
  AF: "[c6,f6] c6!3 ~ c6!2 ~ c6 c6@2 c6!2 ~ [c6,e6] c6", AG: "~ c6!4 ~ c6 c6@2 c6!4 ~ c6!2",
  AH: "~ c6!2 ~ c6!2 ~@8 e6 ~", AI: "e6 c6 ~ c6 ~ c6!2 ~ c6!2 ~ c6!2 ~@3",
})).s("gm_acoustic_guitar_steel").gain(0.25).pan(0.6)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@8 A B C D E D F D G H ~@10 C I F D J K F H ~@8 A B L M N O L M P Q R C D E D F D G H ~@8 A B L M N S@3 T U V@2 W X Y
  Z@2 ~@2 AA@2 AB AC AD AC AA@2 AB AC AD AC AE@2 ~
>`.pickRestart({
  A: "g2@5 ~ g2 ~ g2@7 ~", B: "g2 ~ g2@3 ~ g2 ~ g2@7 ~", C: "f2@2 g2@2 a2 ~ c3@4 e2@3 ~ g2@2",
  D: "d2 ~ f#2@3 ~ g2@3 ~ a2 ~ b2@3 ~", E: "f2@2 g2@2 a2@2 b2@2 c3!2 e2 ~ g2@2 e2 ~", F: "f2 g2 a2 b2 c3 e2 g2 e2",
  G: "f2@2 g2 ~ a2@2 c3@3 ~ e2@3 ~ g2 ~", H: "d2@2 f#2@3 ~ g2@10", I: "d2 ~ f#2@3 ~ g2@3 ~ a2@2 b2@3 ~",
  J: "f2@2 g2@2 a2 ~ c3@2 ~ c3 e2 ~ g2 ~ e2 ~", K: "d2 ~ f#2@3 ~ g2@2 ~ g2 a2@2 b2@3 ~",
  L: "a2 ~ e2@2 g2 ~ a2@2 e2@2 g2 ~ a2 ~ g2 ~", M: "e2 ~ b2 ~ d3 ~ e3 ~ b2 ~ d3 ~ e3 ~ f#3 ~",
  N: "g3 ~ d3 ~ e3@2 g3 ~ d3 ~ e3 ~ g3 ~ d3@2", O: "~@2 a2 ~ b2 ~ d3 ~ a2@2 b2 ~ d3@2 a2 ~",
  P: "g3 ~ d3 ~ e3@2 g3 ~ d3 ~ e3 ~ g3 ~ d3 ~", Q: "d3@2 a2 ~ b2@2 d3@2 a2@2 b2@2 d3@2 f#3@2", R: "g3@3 ~",
  S: "[~@2 a2 ~ b2 ~ d3 ~ a2@2 b2 ~ d3@2 a#2@4 f2@2 g2 ~ a#2 ~ f2@2 g2 ~ a#2 ~ f2@4 c3 ~ d#3 ~ f3 ~ c3 ~ d#3 ~ f3 ~ g3 ~]/3",
  T: "g#3@2 d#3 ~ f3 ~ g#3 ~ d#3@2 f3 ~ g#3 ~ d#3@2", U: "~@2 a#2 ~ c3 ~ d#3@2 a#2 ~ c3 ~ d#3 ~ c3@2",
  V: "[~@2 g2 ~ a#2 ~ c3 ~ g2@2 a#2 ~ c3 ~ g2@4 d3 ~ e3 ~ g3 ~ d3 ~ e3 ~ g3 ~ a#3@2]/2",
  W: "~@2 f3 ~ g#3 ~ a#3 ~ f3@2 g#3 ~ a#3 ~ f3@2", X: "~@2 c3 ~ d#3 ~ f3 ~ c3@2 a#2 ~ g2@2 g2!2",
  Y: "d2 ~ f#2 ~ a2 ~ g#2 ~ g2@2 b2@2 c3@2 d3 ~", Z: "[f2@2 a2@2 a#2@2 c3@2 c3 ~ c3 ~ c3@16 ~@4]/2",
  AA: "c3 ~@3 c3 ~@3", AB: "c3@3 ~ c3@3 ~ c3@4 c3@2 ~@2", AC: "c3@3 ~@5 c3@3 ~ c3@3 ~", AD: "c3@3 ~@5 c3@4 ~@4",
  AE: "c3@3 ~ c3@2 ~@10",
})).s("gm_electric_bass_finger").gain(0.3)

// other · overdriven guitar · "Lead Gtr."
const overdriven_guitar = note("<~@46 A@2 B@2 C@2 D@3 ~@50>".pickRestart({
  A: "[~@2 a4@2 c5 ~ d5 ~ d5@3 c5 a4@2 g5@4 e5@3 ~ b5@3 e5 g5@2 d5@2 e5@2, ~@14 f5 ~@17]/2",
  B: "[g5@2 ~@2 a5@2 ~@2 a5@3 a5 g5@2 e5@4 c6@2 ~@2 c6@4 [e5,f5]@2 d5@3 ~]/2", // Fmaj7
  C: "[g4@4 c5 ~ d5 ~ d5@3 c5 a4@2 g5@4 e5@2 ~@2 b5@3 ~ [e5,g5] ~ d5@2 e5@2]/2", // Em
  D: "[g5 ~ a5 ~ a5 ~ a5 ~ a5@4 g5@2 e5@4 c6 ~@3 e5@4 c6@2 ~@2 f5@14 ~@4]/3",
})).s("gm_overdriven_guitar").gain(0.45).pan(0.6)

// other · lead 1 square · "Synth I"
const lead_1_square = note("<~@2 A@2 ~@16 A@2 ~@13 B@2 ~ A@2 ~@65>".pickRestart({
  A: "[g4@31 ~]/2", B: "[~@6 g3@23 ~@3]/2",
})).s("gm_lead_1_square").gain(0.45).pan(0)

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

// drums · kick · soft notes
const kick_soft = s("bd").struct("<~@53 A B ~@2 C@3 D E F ~@42>".pickRestart({
  A: "~ x!7", B: "x!6 ~@2", C: "x!2", D: "x!2 ~ x ~ x ~@2", E: "x!4", F: "x",
})).gain(0.25)

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

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@5 A ~ A ~ B ~@13 A ~ A ~ B ~@13 A ~ A ~ C ~ D ~ E ~@6 C ~ F ~@2 G H I@4 ~ A ~ A ~ J ~ D ~ E ~@28
>`.pickRestart({
  A: "~@10 x!3 ~@3", B: "~@11 x!5", C: "~@12 x!4", D: "~@7 x", E: "~@11 x ~ x!3", F: "~@5 x ~ x", G: "~@14 x!2",
  H: "x!2 ~@6", I: "~@3 x", J: "~@12 x!3 ~",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct("<~@73 [x!8]!12 [x ~ x ~ x ~ x ~ x!3 ~ x!4] [x ~ x!3 ~ x!3 ~@7] ~@18>").gain(0.25)

// drums · mid tom
const mid_tom = s("mt").struct("<~@49 [~@3 x] ~@26 [~@3 x] ~@28>").gain(0.5)

// drums · open hat
const open_hat = s("oh").struct("<~@46 A@2 B C A D E F ~ G A@5 ~@12 A@2 B C A D A@8 H ~@17>".pickRestart({
  A: "x!4", B: "x ~ x ~ x!3 ~", C: "x ~@3 x ~@3 x!2 ~ x ~ x ~@2", D: "x ~@3 x ~@3 x!2 ~ x ~ x ~ x",
  E: "x ~@3 x ~@3 x ~@3 x!2 ~@2", F: "x ~@11 x!3 ~", G: "~ x!3", H: "x",
})).gain(0.45)

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

// drums · crash · soft notes
const crash_soft = s("cr").struct("<~@43 x ~@11 [~ x!2 ~] ~@14 x ~@34>").gain(0.15)

// drums · ride
const ride = s("rd").struct("<~@92 [x!4]!4 ~@2 [x!4]!4 [x!2 ~@2]!2 ~>").gain(0.35)

// drums · tambourine
const tambourine = s("tb").struct("<~@10 A B A@5 C ~@10 A B A@5 C ~@51 A@3 D E@3 F E D E@3 F E G@2 ~>".pickRestart({
  A: "x!8", B: "x!3 ~ x!4", C: "x!3 ~@5", D: "x ~ x ~ x!4", E: "x!4", F: "x!3 ~ x ~ x ~", G: "x!3 ~",
})).gain(0.45)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct("<~@86 A ~@4 B C D E@2 ~ B C D E@2 F@2 ~>".pickRestart({
  A: "~@3 x", B: "~@5 x ~ x", C: "~ x ~@3 x ~ x", D: "~@5 x ~@2", E: "~@3 x ~ x ~ x", F: "~ x ~ x ~ x ~@2",
})).gain(0.25)

// drums · cowbell
const cowbell = s("cb").struct("<~@11 [~@3 x ~@4] ~@17 [~@3 x ~@4] ~@75>").gain(0.3)

// drums · agogo bells
const agogo_bells = s("agogo:4").struct(`<
  ~@84
  [~@3 x ~ x ~ x ~ x ~ x ~ x ~ x]
  [~ x ~ x ~ x ~ x ~ x!3 ~ x!3]
  [x!8 ~@8]
  ~@18
>`).gain(0.95)

// drums · woodblocks
const woodblocks = s("woodblock:4").struct("<~@46 [x!8]!8 [x!6 ~@2] [x!8]!7 [x!4 ~@4] ~@42>").gain(0.36)

stack(
  acoustic_guitar_steel, bass, overdriven_guitar, lead_1_square, kick, kick_soft, snare, low_tom, hihat, mid_tom,
  open_hat, crash, crash_soft, ride, tambourine, tambourine_soft, cowbell, agogo_bells, woodblocks
)