// Flying — The Beatles
// 95 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 38 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(95/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 · drawbar organ · "organ"
const drawbar_organ = note("<A@4 B@2 A@2 C D E F G@4 H I J@2 K L J M G@4 H I J@2 K L N O@3>".pickRestart({
  A: "c3 c3@2 g2@2 d#3 e3 c3", B: "f2 f2@2 c2@2 c2 d#2 c2", C: "g2 g2@2 g2@2 d2 g2@2", D: "f2 f2@2 f2@2 c2 f2@2",
  E: "c3 c3@2 c3@2 g2 c3@2", F: "g2!4 g2@2 g2@2, g3", G: "c3 c3@2 g2@2 c3 e3 g2", H: "f2 f2@2 c2@2 f2 a2 c2",
  I: "f2 f2@2 f2@2 a2 c3 d3", J: "c3 c3@2 g2@2 c3 e3 c3", K: "g2 g2@2 g2@2 g2 d3 g2", L: "f2 f2@2 f2@2 c3 a2 f2",
  M: "g2!5 a2 b2 g2", N: "c3 c3@2 g2@2 g2 c3 g2", O: "c2/3",
})).s("gm_drawbar_organ").gain(0.56).pan(0.6)

// chords · electric guitar jazz · "jazz guitar"
const electric_guitar_jazz = note(`<
  A@4 B C D E F G H I J@2 K@2 L@2 M@2 N O P Q J@2 K@2 L@2 M@2 N O R S@2 ~
>`.pickRestart({
  A: "[[g3,c4,f4]!3 [g3,c4,e4]@2 [g3,c4,f4]!2 [g3,c4,e4]]/2", B: "~ f3 [c4,d#4,a4] f3 [c4,d#4,a4]@2 [a3,d#4,f4]@2",
  C: "f3 [c4,d#4] f3 [c4,d#4]@2 [d4,f4]@2 [c4,d#4]", D: "[a#3,d4] [a3,c4]@2 [g3,b3]@2 [g3,c4]@3",
  E: "[g3,c4,e4] [g3,c4,f4]!2 [g3,c4,e4]", F: "[g4,e5] [f4,d5] [e4,c5] [d4,b4] [c4,a4] [b3,g4] [a3,f4] [g3,e4]",
  G: "[a3,f4] [b3,g4]!2 [a3,f4] [b3,g4]!2 [a3,f4] [g3,e4]", H: "[e3,c4]@2 [g3,e4]@4 [e3,c4]@4 [e3,c4]@4 c4 a3",
  I: "~ [b3,d4,f4]!3, g3", // Bdim
  J: "[~@2 b4 ~@2 d5 [e4,g4]@2 [e4,g4,c5]@2 [f4,g4,c5]@2 [f4,g4,c5]@2 [e4,g4,c5]@2, [e4,g4]@2 [f4,g4] ~@5, ~@3 c5@2 ~ e5@10]/2", // Em C Fsus2 C Em Fsus2
  K: "[~@4 b4@2 ~@4 d5@2 e5 f5 ~@2 [e4,g4]@4 [f4,g4,a#4]@4 [f4,g4,a#4]@4 [e4,g4,a#4]@4, [e4,g4]@2 [f4,g4] [e4,g4] ~@4, ~@3 c5@2 ~@2 e5@9]/2", // Em Gm7 Edim Em Fsus2 Em
  L: "[[a3,c4,f4]@2 b4 ~@2 b4 [c4,f4]@2 [c4,f4]@2 [c4,f4]@2 f4 e4 [c4,f4]@2, ~ [c4,f4] [f4,g4] ~@5, ~@3 c5@2 ~ a4@10]/2", // F F5 Fsus2
  M: "[~@4 b4@2 ~@4 d5@2 e5 f5 ~@2 [e4,g4,c5]@4 [f4,g4,c5]@4 [f4,g4,c5]@4 [e4,g4,c5]@4, [e4,g4]@2 [f4,g4] [e4,g4] ~@4, ~@3 c5@2 ~@2 e5@9]/2", // C Fsus2 C Em Fsus2 Em
  N: "[g4,b4] [f4,a4] [g4,b4] [f4,a4] [e4,g4]@2 [f4,a4] [e4,g4], [d5,g5]", // G F G F Em F Em G5
  O: "[f4,a4] [g4,b4]!2 [f4,a4] [g4,b4]!2 [f4,a4] [e4,g4], [c5,f5]", P: "[e4,c5] [g4,e5]@2 [e4,c5]@5",
  Q: "[b3,d4,f4,g4]", R: "[g4,c5,e5]", S: "[b4 c5 a4 ~ b4@11 ~, [e4,g4]@29 ~@3, [g2,e3]@27 ~@5]/2",
})).s("gm_electric_guitar_jazz").gain(0.56).pan(1)

// bass · electric bass finger · "bass"
const bass = note("<A B C D E F G H I J K L M N O D E F P Q R J S T C B U Q E V W X I J Y Z ~@2>".pickRestart({
  A: "c2 ~ c2@5 c1 c2@4 c2 ~ c2 ~", B: "c2@4 c2 ~ c2@4 c2!2 c2@4", C: "c2 ~ c2@4 c2 ~ c2 ~ c2 ~ c2@4",
  D: "c2@4 c2 ~ c2@5 c1 c2 ~ c2 ~", E: "f2 ~ f2@4 c2@2 f2 ~ f2@4 c2@2", F: "f2 ~ f2@3 ~ f2 ~ f2 ~ f2 ~ f2 ~ f2 ~",
  G: "c2 ~ c2@4 g1@2 c2 ~ c2@4 g1 ~", H: "c2 ~ c2 ~ c2 ~ c2@5 c1 c2@4", I: "g2 ~ g2@4 g1@2 g2 ~ g2@4 d2@2, ~@14 g1 ~",
  J: "f2 ~ f2@4 f2 ~ f2 ~ f2 ~ f2@2 c2 ~", K: "c2 ~ c2@4 c2 ~ c2 ~ c2@3 ~ c2 ~",
  L: "g2 ~ g2@4 d2@2 g2@2 g2 ~ g2 ~ g2 ~", M: "c2 ~ c2@4 g1 ~ c2@4 c2@4", N: "c2@4 c2 ~ c2@4 c2 ~ c2 ~ c2 ~",
  O: "c2 ~ c2@4 c2 ~ c2 ~ c2 ~ c2 ~ c2 ~", P: "c2 ~ c2@5 c1 c2 ~ c2 ~ c2@4", Q: "c2@4 c2 ~ c2@4 c2 ~ c2@4",
  R: "g2 ~ g2@4 d2@2 g2 ~ g2@4 d2 ~", S: "c2 ~ c2@4 g1@2 c2 ~ c2@4 c2 ~", T: "g2 ~ g2@3 ~ g2 ~ b1@2 c2@2 d2@2 g2 ~",
  U: "c2 ~ c2@4 g2 ~ c2@4 c2@4", V: "f2 ~ f2@3 ~ f2@2 a1@2 a#1@2 b1@2 c2@2, ~@10 a1 ~@5", W: "c2 ~ c2@4 c2 ~ c2@4 c2@4",
  X: "c2@4 c2 ~ c2@4 g2 ~ c2@4", Y: "c2 ~ c2@4 g1@2 c2 ~ c2@4 g1@2", Z: "c2 ~ c2@3 ~ c2 ~ c2 ~@7",
})).s("gm_electric_bass_finger").gain(0.64)

// chords · acoustic guitar steel · "rhythm guitar"
const acoustic_guitar_steel = note(`<
  A B C D E F G H I J K L M N O P J Q R S T U V W X Y Z AA AB@2 AC AD AE AF AG AH ~@2
>`.pickRestart({
  A: "~@2 [g3,c4,f4] ~ [g3,c4,f4] ~ [g3,c4,f4] ~ [g3,c4,f4]@4 ~@2 e4@2, ~@3 c4", // Csus4
  B: "[g3,c4,e4]@4 [g3,c4,f4] ~ [g3,c4,f4]@5 ~ [g3,c4,e4] ~ [g3,c4,e4]@2", // C Csus4 C
  C: "[g3,c4,f4]@8 ~@2 [g3,c4,f4] ~ [g3,c4,e4]@4", D: "~@2 [g3,c4,e4]@2 [g3,c4,f4]@8 ~@2 [g3,c4,e4] ~",
  E: "[c4,d#4,f4,a4] ~ [c4,d#4,f4,a4]@4 f3@2 [c4,d#4,f4,a4] ~ [c4,d#4,f4,a4]@4 f3@2", // F7
  F: "[c4,d#4,f4,a4] ~ [c4,d#4,f4,a4]@3 ~ [c4,d#4,f4,a4]@4 f3 ~ [c4,d#4,f4,a4] ~@3", // F7
  G: "~@2 e4@2 g4@2 [a#3,c4,e4,g4]@3 ~ [a#3,c4,e4,g4]@3 ~ [a#3,c4,e4,g4] ~, a#3 ~@3", // C7
  H: "[g3,c4,e4]@4 ~@2 [g3,c4,f4] ~ [g3,c4,f4] ~ [g3,c4,f4] ~ [g3,c4,e4]@4", // C Csus4 C
  I: "~@2 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4]@4 g2@2", // G
  J: "[a3,c4,f4] ~ [a3,c4,f4]@4 f3@2 [a3,c4,f4] ~ [a3,c4,f4]@4 f3@2", // F
  K: "[g3,c4,e4]@7 ~@5 g4@2 c5@2, ~@4 c4@3 ~, ~@5 e4@2 ~", // C
  L: "~@2 [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4]@4 g2@2", // G7
  M: "[g3,c4,e4]@4 ~ [g3,c4,f4] [g3,c4,e4]@2", // C Csus4 C
  N: "[g3,c4,e4] ~ [g3,c4,e4]@2 ~@2 [g3,c4,f4] ~ [g3,c4,f4] ~ [g3,c4,f4] ~@3 e4@2, ~@3 c4", // C Csus4
  O: "[g3,c4,e4] ~ [g3,c4,e4]@5 ~ [g3,c4,f4] ~ [g3,c4,f4]@2 [g3,c4,e4]@4", // C Csus4 C
  P: "~@2 [g3,c4,e4]@2 ~@2 [a#3,d4,f4,g4] ~ [a#3,d4,f4,g4] ~ [a#3,d4,f4,g4] ~ [a#3,c4,e4,g4]@4", // C Gm7 C7
  Q: "[a3,c4,f4] ~ [a3,c4,f4]@3 ~ [a3,c4,f4]@4 f3 ~ [a3,c4,f4] ~@3", // F
  R: "[g3,c4,e4]@8 [g3,c4,f4] ~ [g3,c4,f4]@2 [g3,c4,e4]@4", // C Csus4 C
  S: "[g3,c4,e4] ~ [g3,c4,e4]@2 [g3,c4,f4]@4 c4 ~ f4 g4 [g3,c4,e4]@4", T: "[g3,b3,d4]",
  U: "~@2 a4@2 c5@2 [a3,c4,f4]@3 ~ [a3,c4,f4]@3 ~ [a3,c4,f4] ~, f4 ~@3", // F
  V: "~@2 [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4]@5 c3", // C
  W: "~@2 b3@2 d4@2 [b3,d4,f4,g4]@3 ~ [b3,d4,f4,g4]@3 ~ [b3,d4,f4,g4] ~, f3 ~@3", // G7
  X: "[g3,c4,e4]@4 c4 ~ e4 g4 ~@2 [g3,c4,f4]@2 ~@2 [g3,c4,e4]@2", // C Csus4 C
  Y: "~@2 [g3,c4,e4]@2 ~@2 [g3,c4,f4] ~ [g3,c4,f4] ~ [g3,c4,f4] ~@3 e4@2, ~@3 c4", // C Csus4
  Z: "[g3,c4,e4]@4 c4 ~ e4 g4 [g3,c4,f4]@4 [g3,c4,e4]@4", // C Csus4 C
  AA: "~@2 [g3,c4,e4] ~ [a#3,d4,f4,g4] ~ [a#3,d4,f4,g4]@5 ~ [a#3,c4,e4,g4]@4", // C Gm7 C7
  AB: "[~@2 [a3,c4,f4]@5 ~ [a3,c4,f4] ~ [a3,c4,f4]@3 ~ [a3,c4,f4]@8 f3@2 [a3,c4,f4]@2 f3@2 [a3,c4,f4] ~@3]/2", // F
  AC: "[g3,c4,e4]@4 [g3,c4,f4]@2 ~ e4, ~@3 c4", // C Csus4
  AD: "[g3,c4,e4]@4 ~@2 [g3,c4,f4] ~ [g3,c4,f4] ~ [g3,c4,f4] ~@3 [g3,c4,e4]@2", // C Csus4 C
  AE: "~@2 b3@2 d4@2 [g3,b3,d4]@3 ~ [g3,b3,d4]@3 ~ [g3,b3,d4] ~, g3 ~@3", // G
  AF: "~@2 [a3,c4,f4]@5 ~ [a3,c4,f4] ~ [a3,c4,f4] ~@5", // F
  AG: "[g3,c4,e4] ~ [g3,c4,e4]@4 c3@2 [g3,c4,e4] ~ [g3,c4,e4]@4 c3@2", // C
  AH: "[g3,c4,e4] ~ [g3,c4,e4]@3 ~ [g3,c4,e4]@4 c3 ~@5", // C
})).s("gm_acoustic_guitar_steel").gain(0.35).pan(0)

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

// drums · snare
const snare = s("sd").struct(`<
  A B A C A D A B A E A C A D A F A B A F A D A B A G A B A B A H A H A I ~@2
>`.pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@3 x!5 ~ x ~", C: "~@4 x!3 ~@3 x ~ x ~ x!2", D: "x ~@2 x ~@2 x!2",
  E: "x!2 ~ x!2 ~ x!2 ~@2 x!3 ~@3", F: "x ~@2 x ~@3 x", G: "~ x!3", H: "~@2 x!6", I: "~ x ~@2",
})).gain(0.49)

// drums · low tom
const low_tom = s("lt").struct("<~@9 A ~@5 B ~@3 B ~@11 C ~ C ~@4>".pickRestart({
  A: "~@7 x", B: "~@3 x", C: "~@2 x!6",
})).gain(0.43)

// drums · hihat
const hihat = s("hh").struct("<A B A B A ~ A B A C A B A ~ A ~ A B A ~ A ~ A B A B A B A B A@5 D ~@2>".pickRestart({
  A: "x!8", B: "x!2 ~@6", C: "x!4", D: "x!5 ~@3",
})).gain(0.43)

// drums · mid tom
const mid_tom = s("mt").struct("<~@5 A ~@3 B ~@3 A ~ C ~@3 C ~ A ~@16>".pickRestart({
  A: "~@4 x!2 ~@2", B: "~@13 x ~@2", C: "~@3 x ~@2 x ~",
})).gain(0.49)

// drums · open hat
const open_hat = s("oh").struct("<~ A ~@5 A ~@9 A ~@5 A ~ A ~ A ~ A ~@8>".pickRestart({
  A: "~ x ~@2",
})).gain(0.49)

// drums · high tom
const high_tom = s("ht").struct("<~@5 A ~@7 A ~ B ~@3 B ~ A ~@16>".pickRestart({
  A: "~ x ~@2", B: "x",
})).gain(0.43)

// drums · crash
const crash = s("cr").struct("<A ~ A B A ~ A ~ A ~ A B A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@3>".pickRestart({
  A: "x", B: "~@7 x ~ x ~@6",
})).gain(0.43)

// drums · tambourine
const tambourine = s("tb").struct("<[x!8]!35 [x!5 ~@3] ~@2>").gain(0.49)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@31 [~ x ~ x ~ x ~ x] ~ [~ x ~ x ~ x ~ x] ~@4>").gain(1.86)

// drums · shaker
const shaker = s("sh").struct("<~@31 [x!4] ~ [x!4] ~@4>").gain(0.49)

stack(
  drawbar_organ, electric_guitar_jazz, bass, acoustic_guitar_steel, kick, snare, low_tom, hihat, mid_tom, open_hat,
  high_tom, crash, tambourine, cabasa, shaker
)