// Sgt. Peppers Lonely Hearts Club Band (reprise) — The Beatles
// 120 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: ch 4 "Lead Brass" named as a brass, played on brass section (its lead 5 charang patch is not one)
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 38 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(120/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("<~@3 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC AD AE AF AG AH@2>".pickRestart({
  A: "~@7 c2", B: "f1@2 ~ f1 f1@2 ~@2 f1@2 ~ f1 f1@3 ~", C: "f1@2 ~ f1 f1@3 ~ f1 ~ f1 ~ f1 ~ f1 ~",
  D: "f1@2 ~ f1 f1@3 ~ f1@2 ~ f1 f1@3 ~", E: "f1@3 f1 f1@3 f1!2 ~ f1 ~ f1 ~ f1 ~",
  F: "f1 ~ f1@2 ~@2 f1@2 ab1 ~ ab1@2 ~@2 ab1 ~", G: "bb1 ~ bb1@2 ~@2 bb1@2 f1 ~ f1@2 ~@2 f1@2",
  H: "bb1 ~ bb1@3 ~ bb1 ~ bb1@3 ~ bb1@2 f1@2", I: "~@2 f1 ~ f1@2 f1!2 c2@2 f1 c2@2 f1!2 c2",
  J: "f1 ~ f1@3 ~ f1 ~ ab1 ~ ab1@3 ~ ab1@2", K: "bb1 ~ bb1@2 ~@2 bb1@2 f1 ~ f1@2 ~@2 f1 ~",
  L: "g1 ~ g1@2 ~@2 g1 ~ g1@3 ~ g1 ~ c2@2", M: "~@2 c2 ~ c2@2 ~ c2 c2@2 ~ c2 c2@2 ~ c2",
  N: "bb1@3 ~ bb1 ~ bb1 ~ bb1@3 ~ bb1@2 f1 ~", O: "f1@3 ~ f1 ~ f1 ~ f1@2 ~@2 f1 ~ f1 ~",
  P: "g1@3 ~@3 g1 ~ g1@3 ~ g1 ~ g1@2", Q: "d2@5 ~ d2 ~ d2@3 ~ d2 ~ d2@2", R: "g1@3 ~ g1 ~ g1 ~ bb1@3 ~ bb1 ~ bb1 ~",
  S: "c2@3 ~ c2 ~ c2@2 g1@3 ~ g1 ~ g1 ~", T: "c2@3 ~ c2 ~ c2 ~ c2@3 ~ c2@2 g1@2",
  U: "~@2 g1 ~ g1@2 ~ g1 d2@2 g1 d2@2 g1 d2!2", V: "g1 ~ g1 ~@3 g1 ~ bb1 ~ bb1@2 ~@2 bb1 ~",
  W: "c2 ~ c2@3 ~ c2@2 g1 ~ g1@2 ~@2 g1 ~", X: "a1 ~ a1@2 ~@2 a1 ~ a1 ~ a1@2 ~@2 a1 ~", Y: "d2@5 ~ d2@3 ~ d2@3 ~ d2@2",
  Z: "c2@4 ~@2 c2 ~ c2 ~ c2@2 ~@2 c2@2", AA: "g1@4 ~@2 g1 ~ g1 ~ g1@2 ~@2 g1 ~", AB: "a1 ~ a1@3 ~ a1 ~ a1@4 ~@2 a1 ~",
  AC: "c2@5 ~ c2@7 ~ c2 ~", AD: "c2@5 ~ c2@3 ~ c2 ~@3 c2@2", AE: "g1@4 ~@2 g1@3 ~ g1@2 ~ g1 ~ g1",
  AF: "bb1@4 ~@2 bb1@3 ~ bb1@2 ~ bb1 ~ bb1", AG: "c2@4 ~@2 c2@3 ~ c2@2 ~ c2 ~ c2", AH: "[g1@3 ~]/2",
})).s("gm_electric_bass_finger").gain(0.56)

// chords · distortion guitar · "Guitars"
const distortion_guitar = note("<~@4 A@4 B C D E F C G H I J K L M N O P Q R S T U@2 V W X Y Z AA AB ~>".pickRestart({
  A: "[f2@4 f2 f2@3 f2@3 f2 f2@4 f2@3 f2 f2@2 f2@2 f2@3 f2 f2@2 [f2,f3]@2 f2@4 f2@4 f2@3 f2 f2@3 f2 f2@4 f2@3 f2 f2@2 [f2,f4,a4]@2 f2@2 f2@2, [a3,c4] ~, f3@15 ~ [f3,a3,c4]@16, ~@2 [f4,a4]@4 [f4,a4]@4 [f4,a4]@4 [f4,a4]@4 [f4,a4]@4 [f4,a4]@4 [f4,a4]@3 ~ [f4,a4]@2]/4", // F Am F
  B: "[f3,a3,c4] ~ [f3,a3,c4]@2 f3@2 [a3,c4] ~ [ab3,c4,eb4] ~ [ab3,c4] ~ c4 ~ [c4,eb4]@2, ~@5 eb4 ab3@2", // F Am Ab Cm
  C: "[bb3,d4,f4] ~ [bb3,d4,f4]@2 bb3@2 [d4,f4] ~ [f3,a3,c4] ~ [f3,a3,c4]@2 f3@2 [a3,c4] ~", // Bb Dm F Am
  D: "[bb3,d4,f4] ~ [bb3,d4,f4] f4 bb3@2 [d4,f4] ~ [bb3,d4,f4]@2 bb3@2 [d4,f4]@2 bb3 ~", // Bb Dm Bb Dm
  E: "[f3,a3,c4] ~ [f3,a3,c4] ~ [f3,a3,c4]@2 f3 [f3,a3,c4] [f3,a3,c4]@2 f3 [f3,a3,c4]!2 f3 [f3,a3,c4] ~", // F
  F: "[f3,a3,c4] ~ [a3,c4]@2 f3@2 [a3,c4] ~ [ab3,c4,eb4] ~ [ab3,c4,eb4]@2 ab3@2 [c4,eb4]@2, ~@2 f3 ~@13", // F Am Ab Cm
  G: "[g3,b3,d4] ~ [g3,b3] ~ g3@2 [g3,b3,d4] ~ [b3,d4]@2 [g3,b3] ~ [g3,b3,d4] ~ [c4,e4,g4] ~, ~@2 d4@4 ~@2 g3 ~@7", // G Bm G C
  H: "[c4,e4,g4]@2 c4 ~ [c4,e4,g4] ~ c4 [c4,e4,g4] [c4,e4,g4]@2 [c4,e4] [c4,e4,g4] [e4,g4] d4 [e4,g4]@2, ~@13 c4@3", // C Em
  I: "[bb3,d4,f4]@3 ~ [bb3,d4,f4] ~ [bb3,d4,f4] ~ [d4,f4]@2 bb3@2 [bb3,d4,f4] ~ [f3,a3,c4] ~, ~@8 bb3 ~@7", // Bb Dm Bb F
  J: "f3@2 [a3,c4] ~ [a3,c4]@2 ~@2 [a3,c4]@2 f3@2 [a3,c4] ~ [g3,b3,d4]@2, ~@4 f3 ~ f3@4 ~@6", // Am G
  K: "~@2 [g3,b3,d4] ~ [b3,d4]@2 ~@2 [b3,d4]@3 ~ [g3,b3,d4] ~ [d3,gb3,a3]@2, ~@4 g3 ~ g3@5 ~@5", // G Bm G D
  L: "~@2 [d3,gb3,a3] ~ [d3,gb3,a3] ~ [d3,gb3,a3] ~ [d3,gb3,a3]@3 ~ [d3,gb3,a3] ~ [d3,gb3,a3] ~", // D
  M: "[g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [bb3,d4,f4] ~ [bb3,d4,f4] ~ [bb3,d4,f4] ~ [bb3,d4,eb4,f4] ~", // G Bb
  N: "[c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~", // C G
  O: "[c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [g3,b3,d4]@2", // C G
  P: "~@2 [g3,b3,d4] ~ [g3,b3,d4]@2 g3 b3 d4 g3 b3 d4 g3 b3 d4 g3", // G
  Q: "g3 ~ [g3,b3,d4] ~ [g3,b3] ~ g3 b3 [bb3,d4,f4] ~ [bb3,d4,f4] ~ [bb3,d4] ~ bb3 ~, ~@2 d4 ~@3 f4 ~", // G Bb
  R: "[c4,e4,g4] ~ [c4,e4,g4] ~ [e4,g4]@2 [c4,e4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3] ~ [g3,b3] ~, ~@4 c4 ~@7 d4@2 ~@2", // C Em C G
  S: "[a3,db4,e4] ~ [a3,db4,e4] ~ [a3,db4,e4] ~ [a3,db4,e4] ~ [a3,db4,e4] ~ [a3,db4,e4] ~ [a3,db4,e4] ~ [d4,gb4,a4]@2", // A D
  T: "~@2 [d4,gb4,a4] ~@2 gb4 [d4,a4] [gb4,a4] d4 ~ a4 ~ [gb4,a4]@2 d4 ~, ~@4 a4@2 ~@3 gb4@2 ~ d4 ~@3", // D D5 Gbm
  U: "[[c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [e4,g4]@2 c4@2 [e4,g4] ~ [g3,b3,d4] ~@2 [b3,d4]@2 ~ [g3,b3,d4] ~ g3 ~ [g3,b3,d4]@3 ~ [g3,b3,d4] ~ [a3,db4,e4]@2, ~@8 c4 ~@6 g3@4 ~@13]/2", // C Em G Bm G A
  V: "~@2 [a3,db4,e4] ~ [a3,db4,e4] ~ [a3,db4,e4] ~ [a3,db4,e4]@3 ~ [db4,e4]@2 a3 ~, ~@12 a3 ~@3", // A Dbm
  W: "[c4,e4,g4]@5 ~ [c4,e4,g4]@9 ~", X: "[c4,e4,g4]@5 ~ [c4,e4,g4]@5 ~ [c4,e4,g4]@3 ~",
  Y: "[g3,b3,d4]@5 ~ [b3,d4]@4 g3 ~ g3!2 ~@2, c4 ~@5 g3@2 ~@4 [b3,d4]@3 ~", // G Bm
  Z: "[bb3,d4,f4]@6 [bb3,d4]@4 [bb3,d4]@2 [bb3,d4] d4 [bb3,d4]@2, db4 ~@5 f4@10", // Bb
  AA: "[c4,e4,g4]@5 ~ [c4,e4,g4]@4 c4@2 [e4,g4]@2 c4 ~", AB: "[g3,b3,d4]",
})).s("gm_distortion_guitar").gain(0.31).pan(0.3)

// other · distortion guitar · "Electric Guit"
const distortion_guitar_2 = note("<~@8 A B C D A E F G H I J K L M N@2 O P Q@2 R S T U V W X Y Z@2>".pickRestart({
  A: "f2 ab2", B: "bb2 f2", C: "bb2@3 ~ bb2@4", D: "f2@4 ~@2 f2@2 ~@2 f2 ~ f2@2 f2@2", E: "bb2@4 f2@3 ~",
  F: "g2@4 ~ g2@3", G: "c3@2 ~ c3@3 ~ c3", H: "bb2@2 ~ bb2!2 ~ bb2 ~", I: "f2@2 ~ f2@3 ~ f2", J: "g2@2 ~ g2@2 ~ g2@2",
  K: "~ [g2,d3]@2 ~ [g2,d3]@2 ~ g2", L: "g2@2 g2@2 ~ bb2@2 ~", M: "c3@3 g2 ~ g2 ~ g2", N: "[~ c3 ~@2 c3 ~ c3 g2@8 ~]/2",
  O: "g2@3 ~ bb2@4", P: "c3 g2", Q: "[~ a2@2 ~ a2 ~ a2 d3@4 ~ d3@3 ~]/2", R: "c3@3 ~ c3 ~ c3 ~", S: "g2@3 ~ g2@4",
  T: "a2@3 ~ a2@3 ~", U: "c3@6 ~ c3", V: "c3@2 ~ c3@2 ~ c3@2", W: "~ g2 ~ g2@5", X: "~ bb2 ~ bb2@5",
  Y: "~@2 c3@2 ~@2 c3@5 ~ d3@4, ~@6 c3 ~", Z: "[g2@5 ~@3, a2 ~@15]/2",
})).s("gm_distortion_guitar").gain(0.6).pan(0.8)

// other · distortion guitar · "Electric Guit" · soft notes
const distortion_guitar_soft = note("<~@11 A B ~@2 C D ~@6 E F G ~ H I ~@2 J@3 K L M@2>".pickRestart({
  A: "~@2 f6 eb6 f6@3 ~ f6 eb6 [bb5,c6] bb5 ab5@2 c6@2", B: "f5@13 ~@3", C: "~ d6@2 c6@3 d6 c6", D: "bb5@13 ~@3",
  E: "~@2 g5 bb5 c6@2 d6@2 f6@2 d6 ~ d6 c6 bb5@2", F: "g5@5 bb5@3", G: "c6@8 [f6,g6] ~@7", H: "~ e6@2 d6@5",
  I: "c6 ~@7", J: "[~@6 c6@4 d6@3 ~ g6@7 ~ c6@4 e6@4 g6@8 e6@4 d6@6]/3", K: "e6@5 ~ d6@6 e6@2 d6@2",
  L: "c6@6 d6@5 ~ c6@4", M: "[b5@9 ~@7]/2",
})).s("gm_distortion_guitar").gain(0.3).pan(0.8)

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

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

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

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@11 A ~@3 A ~@3 B ~@3 C ~@3 D ~@2 E F E ~ F E ~@2>".pickRestart({
  A: "~@6 x!2 ~ x ~@2 x ~ x ~", B: "~@2 x ~@8 x ~ x ~@2", C: "~@6 x!2 ~ x!2 ~ x ~ x ~", D: "~@6 x!3 ~@4 x!2 ~",
  E: "~@5 x!2 ~", F: "~@7 x",
})).gain(0.8)

// drums · open hat
const open_hat = s("oh").struct("<~@11 A ~@6 A B ~@3 C ~@3 D ~@5 E F E G ~>".pickRestart({
  A: "~@7 x", B: "~@5 x!3", C: "~@15 x", D: "~@5 x!2 ~", E: "x ~@2 x ~@4", F: "x ~@2 x ~@2 x ~", G: "x",
})).gain(0.8)

// drums · high tom
const high_tom = s("ht").struct("<~@19 [~@4 x!3 ~] ~@7 [~@5 x!2 ~] ~@10>").gain(0.8)

// drums · crash
const crash = s("cr").struct("<~@23 [~@7 x ~@8] ~@14>").gain(0.8)

// drums · tambourine
const tambourine = s("tb").struct("<[x!4]!33 ~@5>").gain(0.8)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct("<[~ x ~ x ~ x ~ x]!33 ~@5>").gain(0.16)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<[x!4]!33 ~@5>").gain(4.06)

// drums · cabasa · soft notes
const cabasa_soft = s("cabasa:4").struct("<[~ x ~ x ~ x ~ x]!33 ~@5>").gain(0.81)

stack(
  bass, distortion_guitar, distortion_guitar_2, distortion_guitar_soft, kick, snare, low_tom, hihat, mid_tom, open_hat,
  high_tom, crash, tambourine, tambourine_soft, cabasa, cabasa_soft
)