// No Reply — The Beatles
// 125 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 69 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(125/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 · "bas"
const bass = note(`<
  ~ A B C@2 A B C@2 D E F G H I C J A B C@2 A B C@2 K G F E L B M J N G D@2 O A C@2 N G D@2 O A C@2 A B C@2 A B C@2 K P
  F P L I M Q D G R ~
>`.pickRestart({
  A: "c2@5 ~ c2@2 c2@5 ~ c2@2", B: "d2@5 ~ d2@2 d2@5 ~ d2@2", C: "g1@5 ~ g1@2 g1@5 ~ g1@2",
  D: "e2@5 ~ e2@2 e2@5 ~ e2@2", E: "b1@5 ~ b1@2 f#2@5 ~ f#2@2", F: "c2@5 ~ c2@2 g1@5 ~ g1@2",
  G: "b1@5 ~ b1@2 b1@5 ~ b1@2", H: "a1@5 ~ a1@2 e2@5 ~ e2@2", I: "d2@5 ~ d2@2 a1@5 ~ a1@2",
  J: "g1@5 ~ g1@2 d1@3 ~ e1@3 ~", K: "e2@5 ~ e2@2 b1@5 ~ b1@2", L: "a1@5 ~ a1@2 e1@5 ~ e1@2",
  M: "g1@5 ~ g1@2 d2@5 ~ d2@2", N: "g1@5 ~ g1@2 g1@3 ~ a1@3 ~", O: "a1@5 ~ a1@2 a1@5 ~ a1@2",
  P: "b1@5 ~ b1@2 f#1@5 ~ f#1@2", Q: "g1@5 ~ g1@2 d2@3 ~ g1@3 ~", R: "c2@5 ~@11",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · acoustic guitar steel · "guitar"
const acoustic_guitar_steel = note(`<
  ~ A B C D E F G H I J C K L M N@2 O@8 P@8 Q@2 R@2 S T U V W X R@2 Y Z N@2 AA AB AC AD AE AF AG AH I AI AJ AK AL AF N@2
  AM AN AC ~
>`.pickRestart({
  A: "[g3,c4,e4]@8 c3 ~ [g3,c4,e4]@3 ~ d3 ~", B: "[c4,d4,f#4,a4]@8 d3 ~ [c4,d4,f#4,a4]@3 ~@3",
  C: "[b3,d4,e4,g4]@8 ~@4 [b3,d4,e4,g4]@3 ~", D: "g3 ~ [b3,d4,e4,g4]@3 ~@5 [b3,d4,e4,g4]@3 ~@3",
  E: "~@2 [g3,c4,e4]@3 ~@3 [g3,c4,e4]@7 ~", F: "~@2 [c4,d4,f#4,a4]@3 ~@3 [c4,d4,f#4,a4]@7 ~",
  G: "[g3,b3,d4]@8 ~@2 [g3,b3,d4]@3 ~ g3 ~", H: "~@2 [g3,b3,d4]@3 ~@5 [g3,b3,d4]@3 ~@3",
  I: "e3 ~ [g3,b3,e4]@3 ~@3 [g3,b3,e4]@7 ~", J: "[f#3,b3,d4]@8 b2 ~ [f#3,b3,d4]@3 ~@3",
  K: "b2 ~ [f#3,b3,d4]@3 ~@3 [f#3,b3,d4]@7 ~", L: "[c4,e4,g4,a4]@15 ~",
  M: "d3 ~ [c4,d4,f#4,a4]@3 ~@3 [c4,d4,f#4,a4]@7 ~", N: "[~@4 [g3,b3,d4] [g3,b3,d4]@2 [g3,b3,d4]@9]/2",
  O: "[~@13 d4@3 [b3,d4,e4,g4]@6 ~@3 [b3,d4,e4,g4]@4 e4@4 [g3,c4,e4]@3 c4@5 [c4,d4,f#4,a4]@3 d4@4 [g3,b3,d4]@5 g3@2 g3@2 [g3,b3,d4]@4 [g3,b3,d4]@3, [g3,c4,e4]@5 g3@16 ~ [b3,d4,e4,g4]@3 ~@4 [b3,g4]@16 ~@8 [b3,d4]@4 ~@7, ~@4 c3@16 ~@4 g3@9 ~@3 e4@16 ~@12, ~@5 e4@8 [c4,f#4,a4]@16 d4@12 ~@3 [c4,f#4,a4]@16 ~@4, ~@5 c4@2 d3 [c4,d4,f#4,a4]@4 d3@16 ~@8 g3@12 ~@16]/8", // Em7 C D7 G C Em7 Em Bm …
  P: "[[g3,b3,e4]@5 b3@3 [b3,d4,f#4]@6 [b3,d4]@2 [b3,d4,e4,g4]@5 [b3,d4]@3 [f#3,b3,d4]@6 ~@8 [c4,a4]@3 ~@3 d4@4 g3@5 g3 g3@2 g3 g3@2 g3 [g3,b3,d4]@4, ~@5 g3@16 ~@9 [f#3,b3]@14 [c4,f#4,a4]@16 ~@4, ~@5 e4@11 ~@5 [e4,g4]@11 [c4,e4,g4,a4]@6 [e4,g4]@16 ~@10, ~@14 f#4@16 d4@11 [c4,d4,f#4,a4]@2 d3@16 ~@5, ~@37 a2@11 [b3,d4]@6 [b3,d4]@3 [b3,d4]@3 ~@4]/8", // Em Bm Em7 Bm F G B5 F#dim …
  Q: "[[g3,b3,d4]@8 ~@4 a4@4 [d#4,f#4,a4,b4]@15 ~, ~@8 [g3,b3,d4]@23 ~, ~@12 [c#4,e4,g4]@19 ~]/2", // G B7 G C#dim
  R: "[~@4 [g#3,b3,e4] [g#3,b3,e4]@2 [g#3,b3,e4]@9]/2", S: "[a3,c4,e4]@8 ~@2 [a3,c4,e4]@3 ~@3",
  T: "[g3,c4,e4]@8 c3 ~ [g3,c4,e4]@3 ~ g2 ~", U: "[g3,b3,d4] ~", V: "[g3,b3,d4] [g3,b3,d4]@2 [g3,b3,d4]@5",
  W: "~@2 [g3,b3,d4]@5 ~ [g3,b3,d4]@3 ~ [c#4,e4,g4,a4]@3 ~", X: "[a3,b3,d#4,f#4]@8 ~@4 [a3,b3,d#4,f#4]@3 ~",
  Y: "[a3,c4,e4]@15 ~", Z: "c3 ~ [g3,c4,e4]@3 ~ c3 ~ [g3,c4,e4]@7 ~", AA: "[g3,c4,e4]@8 ~@2 [g3,c4,e4]@3 ~@3",
  AB: "[c4,d4,f#4,a4]@8 d3 ~ [c4,d4,f#4,a4]@3 ~ g2 ~", AC: "[b3,d4,e4,g4] ~",
  AD: "[b3,d4,e4,g4] [b3,d4,e4,g4]@2 [b3,d4,e4,g4]@5", AE: "[g3,c4,e4]@8 ~@2 c3 ~ [g3,c4,e4]@3 ~",
  AF: "[c4,d4,f#4,a4]@8 ~@4 [c4,d4,f#4,a4]@3 ~", AG: "[g3,b3,d4]@8 ~@4 [g3,b3,d4]@3 ~",
  AH: "~@2 [g3,b3,d4]@3 ~@3 [g3,b3,d4]@7 ~", AI: "b2 ~ [f#3,b3,d4]@3 ~ b2 ~ [f#3,b3,d4]@7 ~", AJ: "[b3,d4,e4,g4]@15 ~",
  AK: "[b3,d4,f#4]@15 ~", AL: "[c4,e4,g4,a4]@8 ~@4 [c4,e4,g4,a4]@3 ~", AM: "~@2 [g3,b3,e4]@3 ~@3 [g3,b3,e4]@7 ~",
  AN: "~@2 [f#3,b3,d4]@3 ~@3 [f#3,b3,d4]@7 ~", // Bm
})).s("gm_acoustic_guitar_steel").gain(0.3)

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

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

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

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

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

// drums · open hat
const open_hat = s("oh").struct("<~@25 A ~ A ~@12 A ~ A ~@2 A ~@9 A ~ A ~@11>".pickRestart({
  A: "~@7 x",
})).gain(0.3)

// drums · high tom
const high_tom = s("ht").struct("<~@40 [~ x] ~@7 [~ x] ~@7 [~ x] ~@12>").gain(0.36)

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

stack(bass, acoustic_guitar_steel, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash)