// Clarabella — The Beatles
// 160 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 77 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(160/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.

// bass · electric bass finger · "BASS"
const bass = note(`<
  ~@2 A ~ B ~ A C D E F G@2 H F G@2 I A I J E F K D L M K D N D K D E F G@2 O P K D N D K D E F G D Q M N D R S I D M T
  N D O F G@4 K D M@2 G@2 H F N A
>`.pickRestart({
  A: "c2@5 ~@11", B: "c2@5 ~ c2 ~@9", C: "~@14 c2 ~", D: "c2@5 ~ c2 ~ c2@6 c2 ~", E: "f2@6 f2 ~ f2@5 ~ f2 ~",
  F: "f2@5 ~ f2 ~ f2@6 f2 ~", G: "c2@5 ~ c2 ~ c2@5 ~ c2 ~", H: "g2@5 ~ g2 ~ g2@6 g2 ~", I: "c2 ~@3",
  J: "c2@6 c2 ~ c2@6 c2 ~", K: "c2@6 c2 ~ c2@5 ~ c2 ~", L: "g2@5 ~ g2 ~ g2@5 ~ g2 ~", M: "f2@5 ~ f2 ~ f2@5 ~ f2 ~",
  N: "c2@5 ~ c2 ~ c2 ~ c2@3 ~ c2 ~", O: "g2@6 g2 ~ g2@6 g2 ~", P: "f2@5 ~ f2 ~ f2 ~ f2@3 ~ f2 ~",
  Q: "g2@6 g2 ~ g2@6 b2 ~", R: "~ c2@3 ~@12", S: "c2@3 ~@13", T: "f2@5 ~ f2 ~ f2@6 f1 ~",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · electric guitar clean · "GUITAR"
const electric_guitar_clean = note(`<
  ~@2 A ~ A ~ A B C D E F C G H I@2 J@2 K L M@2 N O P Q R@4 S T U V W X Y Z N O R@2 I@2 AA AB R@2 AC AD AE AF A J AG C
  AH@2 N O AC Z AE AF AI T AI T U V N O AC Q AJ AK
>`.pickRestart({
  A: "[e3,g3,a#3] ~@15", B: "~@12 [g3,c4,e4]@3 ~", C: "~ [g3,c4,e4] ~@2 [g3,c4,e4]@3 ~",
  D: "[a3,c4,f4]@10 f3@2 [a3,c4,f4]@3 ~", E: "[a3,c4,f4]@2 [a3,c4,f4] ~@3 [a3,c4,f4]@8 ~@2",
  F: "[g3,c4,e4]@11 ~ [g3,c4,e4]@3 ~", G: "[g3,b3,d4]@15 ~", H: "[a3,c4,f4] ~ [a3,c4,f4] ~@3 [a3,c4,f4]@6 ~@4",
  I: "[[c4,e4,g4]@14 ~@2 [c4,e4,g4] ~ [c4,e4,g4] ~@3 [c4,e4,g4] ~@3 c3@2 [c4,e4,g4]@2 ~@2, ~@14 c3@9 ~@9]/2", // C
  J: "[e3,g3,a#3] ~@7", K: "[e3,g3,a#3]@3 ~@13",
  L: "[e3,g3,a#3,c4,e4,g4]@2 [c4,e4,g4] ~@3 [c4,e4,g4] ~@3 c3@2 [c4,e4,g4]@2 ~@2", // C7 C
  M: "[[c4,f4,a4]@14 ~@2 [c4,f4,a4] ~ [c4,f4,a4] ~@3 [c4,f4,a4] ~@3 f2@2 [c4,f4,a4]@2 ~@2, ~@14 f2@9 ~@9]/2", // F
  N: "[g3,c4,e4]@4 ~ [g3,c4,e4]@2 ~", O: "[g3,c4,e4]@5 ~ [g3,c4,e4] ~", P: "g3@8 g3@2 b3@2 d4@2 g4 ~, [b3,d4]@5 ~@3",
  Q: "[a3,c4,f4]@6 f3@2 [a3,c4,f4]@3 ~ [a3,c4,f4] ~@3", R: "[[g3,c4,e4]@25 ~@3 e4@2 g4@2, ~@13 c4@3]/2",
  S: "~@2 [g3,c4,e4]@5 ~ [g3,c4,e4]@7 ~", T: "[g3,c4,e4] ~ [g3,c4,e4] ~@3 [g3,c4,e4]@8 ~@2",
  U: "[a3,c4,f4]@4 ~ [a3,c4,f4]@2 ~", V: "[a3,c4,f4]@5 ~ [a3,c4,f4] ~", W: "[g3,c4,e4]@10 c3@2 [g3,c4,e4]@3 ~",
  X: "[g3,c4,e4]@2 [g3,c4,e4] ~@3 [g3,c4,e4]@8 ~@2", Y: "[g3,b3,d4]@6 g2@2 [g3,b3,d4]@3 ~ [g3,b3,d4] ~@3",
  Z: "f4@8 f4@2 a4@2 c5@2 f5 ~, [a3,c4]@5 ~@3", AA: "f4@4 ~ a4 c5 f5, [a3,c4]@7 ~, ~@4 f4@3 ~",
  AB: "[a3,c4,f4] ~ [a3,c4,f4] ~@3 [a3,c4,f4]@8 ~@2", AC: "[g3,b3,d4] ~ [g3,b3,d4] ~@3 [g3,b3,d4]@6 ~@4",
  AD: "[a3,c4,f4]@15 ~", AE: "[g3,c4,e4]@5 c3 [g3,c4,e4] ~", AF: "c4@5 c4 e4 ~, [g3,e4]@3 ~",
  AG: "[e3,g3,a#3]@2 ~@10 [g3,c4,e4]@3 ~", AH: "[[a3,c4,f4]@25 ~@3 a4@2 c5@2, ~@13 f4@3]/2",
  AI: "c4@4 ~@2 g4 c5, g3@7 ~, e4@5 e4@2 ~, ~@4 c4@3 ~", AJ: "[g3,c4,e4] ~ [g3,c4,e4] ~@3 [g3,c4,e4]@6 ~@4",
  AK: "[g3,c4,e4]@7 ~", // C
})).s("gm_electric_guitar_clean").gain(0.26)

// other · electric guitar clean · "GUITAR"
const electric_guitar_clean_2 = note(`<
  ~@9 A@2 B@2 C D E F G H@2 I J K L M N ~ O P Q@2 R S T@2 U V W X Y Z ~ AA@2 AB AC AD AE AF AG@2 AH@2 ~ AI AJ AK AL AM
  AN AO AP@3 ~ AQ AR AS@2 AT AU ~ AV AW AX AY@2
>`.pickRestart({
  A: "[~@4 a3@5 ~ [g3,g#3] ~@4 f3@5 ~@2 d#3@3 ~ c3@3 ~ d#3@2, ~@4 g#3 ~@27]/2", // G#maj7
  B: "[c3@3 ~@7 g#3 a3@3 c4@4 ~@2 d#4@3 ~ d#4@3 ~ c4@3 ~]/2", C: "~@6 b3@3 ~ g3@5 ~, ~@6 a#3 ~@9",
  D: "~@8 a3@3 ~ f3@3 ~, ~@8 g#3 ~@7", E: "d#3@2 c3@2 ~@2 d#3@3 ~ c3 ~ d#3!2 ~@2",
  F: "~@2 g3 ~ g3 ~ g3@3 ~ g3@3 ~ d#3 ~", G: "c3 ~@7", H: "[c3,e3] ~@15", I: "~@2 [g3,a#3]@5 ~",
  J: "~@4 a3@5 ~ f3@3 ~@3, ~@4 g#3 ~@11", K: "d#3@5 ~ c3@4 d#3@3 ~@3", L: "~@8 g#3@2 b3 ~@3 c4@2",
  M: "~@4 a#3@4 ~@2 f3@3 ~@3", N: "~@2 b3@3 g3@3, ~@4 a#3 ~@11", O: "~@5 b3@3, ~@10 a#3 ~@5",
  P: "~@2 g3@3 ~ g3@3 ~ d#3@4 ~@2", Q: "[~@8 [d#4,e4] ~ d#4@2 ~@2 c4@4 ~@14]/2", R: "~@4 c4 d#4@2 c4",
  S: "~@2 a#3@5 ~@9", T: "[~@4 g3@6 f3@4 ~ d#3@6 ~ c3@4 ~@6]/2", U: "~@8 d#4@2 c4 ~@3 d#4@2", V: "~@2 c4 ~@3 a#3@4 ~@6",
  W: "~@4 b3@5 ~ g3@5 ~, ~@4 a#3 ~@11", X: "f3@5 ~ d#3@3 ~ d#3@3 ~ c3@2", Y: "~@4 g3 ~ g3 ~@3 g3 ~@3 g3 ~",
  Z: "~@2 [g3,b3] ~@3 g3@2 ~@2 g3 ~@5", AA: "[~@8 d#4 ~ e4 ~ d#4 c4@6 ~@13]/2", AB: "~@4 g#3 a3 g#3@3 ~ a3@3 ~ c4@2",
  AC: "~@4 d#4@2 ~@2 d4@2 c4 ~@3 a#3@2", AD: "~@2 f3 ~ a#3@2 ~@2 g#3 ~ f3@2 ~ d#3 ~@2",
  AE: "c3 ~ d#3 ~@3 f3 ~@3 g3 ~@3 a#3@2", AF: "~@2 c4 ~ c4 ~ a#3 ~ c4 a#3 ~@2 g3 c4 ~ a#3",
  AG: "[~ g3 ~ c4@3 a#3@2 g3@2 ~ a#3@2 g3@2 c4@2 a#3@2 g3@2 c4@2 a#3@2 ~ g3 ~ a#3 ~ c4@2, ~@5 c4 ~@10]/2",
  AH: "[~@2 d#4@2 ~@2 c4 ~ d#4 ~@2 c4 ~@2 d#4@4 c4@3 ~ g3@3 ~@7, ~@5 d#4 ~@10]/2", AI: "[d#3,e3] ~@7",
  AJ: "[c3,e3] ~@7", AK: "~@2 [g3,a#3]@2 ~ [g3,a#3]@2 ~", AL: "~@10 d#4@3 ~ c4 ~", AM: "d#4@3 ~ c4@4 ~@8",
  AN: "~@4 a#3@5 ~ g3@5 ~", AO: "a#3@4 ~@2 c4@3 ~ a#3@4 ~@2",
  AP: "[~@4 f4@5 ~ d4@4 ~ b3@6 ~@2 f3@4 a3@3 ~@2 c3@4 ~@12, ~@23 g3 ~@7 d#3@2 ~@15]/3", AQ: "~@4 e3@4 ~@2 g3@3 ~@3",
  AR: "a#3@4 ~@2 a3@3 ~ g3@5 ~", AS: "[~@4 a#3@2 g3 ~ a#3 ~ c4@2 ~@2 c4@5 ~@13]/2",
  AT: "~@4 a3@5 ~ c4@2 ~@4, ~@4 g#3 ~@11", AU: "d#4@4 ~@2 f4@3 ~ d#4@4 ~@2", AV: "c3@2 d#3 ~@3 g3@2 ~@2 a#3@2 ~@2 c4 ~",
  AW: "c4@2 a#3 ~ g3 ~ a#3@2 g3 ~ d#3 ~ g3 ~ d#3 ~", AX: "c3@3 ~ d#3 ~ g3 ~ a#3 ~ c4@3 ~ c4@2",
  AY: "[~@4 d#4@2 ~@2 d#4 ~ d#4@2 ~@3 c4@5 ~@12]/2",
})).s("gm_electric_guitar_clean").gain(0.46)

// other · harmonica
const harmonica = note(`<
  ~@2 A ~ B ~ A C@2 D@2 E@2 F@2 G@2 ~ H@2 I@3 J@2 K@4 ~@2 L@2 M@2 N@2 O@3 ~ P Q R S T U V W X Y Z AA ~ H@2 AB AC@2 AD@2
  AE@2 AF@2 AG@2 AH AI AJ@2 AK AL AM ~ AN@2
>`.pickRestart({
  A: "[e4,g4,a#4]@3 ~@13", B: "[e4,g4,a#4] ~@3", C: "[~@3 [g4,a#4,c5]@5]/2", D: "[~@10 f4@11 ~ d#4@4 c4@4 ~@2]/2",
  E: "[~@6 a4@7 ~ c5@10 ~@8]/2", F: "[~@6 b4@3 ~ d5@3 g4@8 ~@11, ~@6 a#4 ~@25]/2", G: "[~@6 [g4,a#4]@12 c5@11 ~@3]/2",
  H: "[e4,g4,a#4] ~@7", I: "[[g4,c5]@23 ~@3 [c5,d#5]@5 [c5,d#5]@5 ~@2 a#4@10, a#4@20 ~@6 b4 ~@21]/3",
  J: "[~@10 [g4,a#4]@9 c5@2 ~ a#4@3 g4@4 ~@3]/2", // Gm
  K: "[~@6 b4@3 ~ d5@2 ~@2 f4@20 ~@4 [g4,c5]@21 ~@5, ~@6 a#4 ~@31 a#4 ~@25]/4", L: "[~@4 e4@5 a4@4 ~ g4@6 ~@12]/2",
  M: "[~@4 [a4,c5,d#5]@15 ~@13]/2", N: "[~@3 [g4,a#4]@6 ~@7, ~@6 e4 ~@25]/2",
  O: "[~@6 b4@3 g4@13 a4@3 c5@4 ~ d#5@7 ~@11, ~@6 a#4 ~@15 g#4 ~@25]/3", P: "~@4 a#4@5 a#4@2 a4 ~ a#4 a4@2",
  Q: "~ g4@3 ~@2 d#4@2 e4@2 g4 ~@3 [g4,a#4]@2", R: "~@2 [g4,c5] ~ c5@2 a#4 ~ c5 ~ c5@2 a#4@2 g4 ~, ~@4 b4 ~@11",
  S: "a#4@2 c5@2 a#4@2 g4@2 [g4,a#4] ~@2 a#4@2 ~ c5@2, ~@5 c5 ~@2", T: "d#5@3 ~ c5@2 a#4 c5@2 a#4@2 ~ g4@2 c5@2",
  U: "a#4@2 g4@2 ~ a#4@2 ~ g4@2 d#4@2 ~ d#4@2 ~, ~@2 c5 ~@5", V: "c4@2 d#4@2 ~ g4@2 a#4@2 ~ c5@2 ~ a#4 ~ c5",
  W: "~@2 d#5@2 ~ f5@2 d#5@2 ~ c5@2 ~ d#5@2 ~", X: "c5 ~ a#4 ~ g4 ~@2 g4@3 f4@2 g4@2 f4 ~, ~@3 a#4 ~@4",
  Y: "d#4@2 c4@2 d#4 ~ g4@2 ~@2 a#4 ~ a#4@2 g4 ~", Z: "a#4 ~ a#4@2 g4 ~ a#4 ~ a#4@2 g4 ~ a#4 ~ c5 ~",
  AA: "~ c5@3 ~@2 [a#4,c5]@3 ~ [a#4,c5]@4 ~@2", AB: "~@3 [a#4,c5]@12 ~", AC: "[~@7 a4@3 c5@5 f4@5 ~@12]/2",
  AD: "[~@6 [e4,f4,g4] g4@11 a#4@3 g4@2 a#4@5 g4@4, ~@3 a#4@6 ~@7]/2", AE: "[~@5 a#4 b4@4 d5@4 f4@8 ~@10]/2",
  AF: "[~@3 [g4,a#4]@8 c5@4 ~]/2", AG: "[g4 ~@3 [g4,a#4] ~@4 a#4@4 g4@6 ~@13, ~@2 c5@5 ~@9]/2",
  AH: "~@6 d#5@3 ~ c5@3 ~ a#4@2", AI: "c5@7 ~@9", AJ: "[~@6 a#4@12 g4@13 ~]/2", AK: "~@10 c5@3 a#4@2 ~",
  AL: "c5@13 ~@3", AM: "~@6 a#4@3 g4 ~ b4@4 ~", AN: "[~@3 g4 ~@8 g4@8 ~@12, ~ a#4@9 ~@6]/2",
})).s("gm_harmonica").gain(0.46)

// drums · rim
const rim = s("rim").struct("<~@2 x ~ x ~ x ~@70>").gain(0.41)

// drums · kick
const kick = s("bd").struct(`<
  ~@8 A B C B C B C B D B C B@3 C B C B C B D B C B@3 C B C B C B@3 C B C B C B C B C B@3 C B@3 C B C B C B@3 C B C B C
  B C B C B E
>`.pickRestart({
  A: "~@5 x ~ x", B: "x ~@2 x!2 ~@3", C: "x ~@2 x!2 ~@2 x", D: "x ~@2 x ~@4", E: "x",
})).gain(0.36)

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

// drums · low tom
const low_tom = s("lt").struct("<~@8 [~ x!4 ~ x ~] ~@7 [~@13 x!2 ~] ~@11 [~@13 x!2 ~] ~@48>").gain(0.41)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@16 [~@11 x!2 ~@3] ~@11 [~@11 x!2 ~@3] ~@23 [~@12 x!4] ~@24>").gain(0.36)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@10 A ~@5 B ~@3 A ~@3 A ~@3 B ~ A ~@7 A ~@5 A ~ A ~ A ~@5 A ~@3 A ~@18
>`.pickRestart({
  A: "~@7 x", B: "~ x ~@2",
})).gain(0.31)

// drums · high tom
const high_tom = s("ht").struct("<~@16 [~ x] ~@11 [~ x] ~@48>").gain(0.46)

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

// drums · ride
const ride = s("rd").struct("<~@2 A ~ A ~ A ~@10 A@4 ~@33 A@3 ~@20>".pickRestart({
  A: "x",
})).gain(0.46)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@10 A ~ A ~ A ~@3 A ~@3 A ~ A ~ A ~@3 A ~@3 A ~ A ~ A ~@3 A ~ A ~ A ~ A ~ A ~@3 A ~@3 A ~ A ~ A ~@3 A ~ A ~ A ~ A ~ A
  ~@2
>`.pickRestart({
  A: "~@3 x",
})).gain(0.46)

stack(
  bass, electric_guitar_clean, electric_guitar_clean_2, harmonica, rim, kick, snare, low_tom, hihat, mid_tom, open_hat,
  high_tom, crash, ride, tambourine
)