// She Said She Said — The Beatles
// 124 bpm, 4/4, key Bb major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (4/4 at bar 1, 3/4 at bar 26, 4/4 at bar 32) are rendered on a constant 4/4 grid of one bar per cycle
// note: Full arrangement: all 57 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(124/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 · church organ · "organ"
const church_organ = note("<~@13 A@6 B@2 C@2 D E F G H I J K L ~@8 M@2 N O@6 ~@8>".pickRestart({
  A: "bb5/6", B: "bb5@3 bb5@5", C: "bb5/2", D: "bb4@2 bb4@2 eb5!2 ~ eb5", E: "bb4 ~ bb4!5 ~",
  F: "ab4 ~ ab4 ab4@2 ab4 bb4@2", G: "d5@2 d5!2 f5@2 eb5 d5", H: "c5@2 bb4@2 ab4 g4 f4@2",
  I: "bb3@4 d4 f4 ~@2 bb4@4 bb4@4", J: "g4 bb4 eb5@2 bb3@2 d4 f4", K: "bb4@2 bb3@2 d4 f4 bb4@2",
  L: "bb4@2 g4 bb4 eb5@2 ~@2", M: "[~@6 bb5@3 bb5@4 ~ bb5@2]/2", N: "bb5@2 bb5 ab5 bb5 ab5 bb5@2",
  O: "[bb5 bb5@22 ~]/6",
})).s("gm_church_organ").gain(0.32)

// other · distortion guitar · "g1"
const distortion_guitar = note(`<
  A@2 B@3 C D C E F G H I B@2 C D C E F G H I ~ J K L M N O P Q R@2 S R T U V W V X Y S Z T AA S Z AB ~@7
>`.pickRestart({
  A: "[bb3 c4 d4 eb4 d4 eb4 f4 bb3@3 bb3@2 ~ bb3 bb3@2]/2", B: "bb3@4 bb3@4 bb3@2 bb3 bb3@2 bb3 bb3@2",
  C: "bb3@2 bb3@2 bb3 c4 d4 eb4", D: "d4@4 bb3@4 bb3@2 bb3 bb3@2 bb3 bb3@2", E: "d4@2 eb4@2 f4@2 bb3@4 bb3 bb3@2 bb3!3",
  F: "d4 c4 bb3 c4@2 ab3@3", G: "g3 bb3 [c4,d4] bb3@5", H: "[c4,d4] c4 bb3 c4@2 ab3@3", I: "bb3 ab3 f3 bb2@5",
  J: "~@8 c3 [db3,d3] f3 c3 ~ f3 bb2 d3, ~@6 db3 ~", K: "ab3@3 ~", L: "~@6 eb4 d4", M: "c4@2 bb3@2 ab3 g3 f3@2",
  N: "bb2@2 d3 f3 ab3@2 eb3@2", O: "g3 bb3 eb4@2 bb2@2 d3 f3", P: "bb3@2 bb2@2 d3 f3 ab3@2",
  Q: "eb3@2 g3 bb3 eb4@2 bb3@2", R: "bb3@4 bb3@2 bb3 bb3@2 bb3 bb3@2 bb3@4", S: "bb3@2 bb3 c4 d4 eb4 d4@2",
  T: "bb3@2 bb3 c4 d4 eb4 d4 eb4", U: "f4@2 bb3@4 bb3 bb3@2 bb3!3 d4@2 c4@2", V: "bb3 c4@2 ab3@3 g3 bb3",
  W: "[c4,d4] bb3@5 [c4,d4] c4", X: "d4 bb3@5 bb3@2", Y: "bb3@4 bb3@2 bb3 bb3@2 ~ bb3@2 bb3@4",
  Z: "bb3@2 bb3@2 bb3@2 bb3 bb3@2 bb3 bb3@2 bb3@4", AA: "f4@2 bb3@2 bb3@2 bb3 bb3@2 bb3 bb3@2 bb3@4",
  AB: "bb3@2 ~ c4 d4 eb4 ~@2, ~ bb3 ~@2",
})).s("gm_distortion_guitar").gain(0.29).pan(0.9)

// chords · overdriven guitar · "g2"
const overdriven_guitar = note(`<
  ~ A B C D C D C D E F E F C D C D C D E F E F G H I J K L M N O P Q P Q P R@8 S@5 ~@7
>`.pickRestart({
  A: "bb2@4 d4@3 ab3 f3@2 d4@2 f4@4", B: "bb2@2 d4@3 ab3 f3@2 d4@3 ab3@2 f3 bb2@2",
  C: "bb2@2 d4@2 bb2 ab3 f3@2 eb4@2 f3 eb4@3 ab4@2", D: "eb3@2 eb4@3 bb3 bb2@2 eb4@2 eb3 bb3 eb3 bb3 eb3@2",
  E: "[bb2,f3,bb3]@3 [c3,eb3,ab3,eb4,ab4]@2 eb4@2 ab3", // Bb5 Ab
  F: "[eb3,bb3,eb4]@6 [bb2,f3,ab3,d4]@4 [bb2,f3,ab3,d4]@2 [bb2,f3,g3,d4] [bb2,f3,ab3,d4] [bb2,f3,ab3,d4]@2", // Eb5 Bb7 Gm7 Bb7
  G: "[bb2,f3,ab3,d4,f4]@2 [bb2,f3,ab3,d4,f4]@2 [c3,eb3,ab3,eb4,ab4]@2 [c3,eb3,ab3,eb4,ab4]!2", // Bb7 Ab
  H: "[bb2,f3,ab3,d4,f4]@2 [bb2,f3,ab3,d4,f4] [bb2,f3,d4,f4] [bb2,f3,ab3,d4,f4] [bb2,f3,d4,f4] [bb2,f3,ab3,d4,f4] [bb2,f3,d4,f4]", // Bb7 Bb Bb7 Bb Bb7 Bb
  I: "[c3,ab3,eb4]!6 [bb2,d3,f3,bb3,d4,f4]@2", // Ab Bb
  J: "[bb2,d3,ab3,d4,f4]@2 ~ ab3 [bb2,d3,ab3,d4,f4]@2 [bb2,d3,ab3,d4,f4]@2 [c3,f3,ab3,c4,f4]@4 [c3,f3,ab3,c4,f4]@4, ~ [bb2,d3,d4,f4] ~@6", // Bb7 Fm Bb
  K: "[c3,f3,ab3,c4,f4]!2 [bb2,f3,ab3,d4,f4]!2 [bb2,f3,ab3,d4,f4]@2 [bb2,f3,ab3,d4,f4]@2", // Fm Bb7
  L: "[bb2,f3,ab3,d4,f4]!2 [bb2,f3,ab3,d4,f4]@2 [bb2,f3,ab3,d4,f4]@2 [eb3,bb3,eb4,g4]@2", // Bb7 Eb
  M: "[eb3,bb3,eb4,g4]@2 [eb3,bb3,eb4,g4]!2 [bb2,f3,ab3,d4,f4]!2 [bb2,f3,ab3,d4,f4]@2", // Eb Bb7
  N: "[bb2,f3,ab3,d4,f4]@2 [bb2,f3,ab3,d4,f4]!2 [bb2,f3,ab3,d4,f4]@2 [bb2,f3,ab3,d4,f4]@2", // Bb7
  O: "[eb3,bb3,eb4,g4]@2 [eb3,bb3,eb4,g4]@2 [eb3,bb3,eb4,g4]!2 bb2 d4", // Eb
  P: "bb2 ab3 f3@2 eb4@2 f3 eb4@3 ab4@2 eb3@2 eb4@2", Q: "~ bb3 bb2@2 eb4@2 eb3 bb3 eb3 bb3 eb3@2 bb2@2 d4@2",
  R: "[~ bb3 bb2@2 eb4@2 eb3 bb3 eb3 bb3 eb3@2 [bb2,f3,bb3]@6 [c3,eb3,ab3,eb4,ab4]@4 eb4@4 ab3@2 [eb3,bb3,eb4]@6 [bb2,f3,ab3,d4]@4 [bb2,f3,ab3,d4]@2 [bb2,f3,g3,d4] [bb2,f3,ab3,d4] [bb2,f3,ab3,d4]@2 [bb2,f3,bb3]@6 [c3,eb3,ab3,eb4,ab4]@4 eb4@4 ab3@2 [eb3,bb3,eb4]@6 [bb2,f3,ab3,d4]@4 [bb2,f3,ab3,d4]@2 [bb2,f3,g3,d4] [bb2,f3,ab3,d4] [bb2,f3,ab3,d4]@2 ~@11 ab3@2 ~@14 ab3@2 ~@14 ab3@2 ~@5 d4@2, ~@76 bb2@4 ~ ab3@2 ~@7 ab3@4 ~@3 ab3@2 ~@7 ab3@4 ~@3 ab3@2 ~@7 ab3@4 ~@2, ~@78 d4@6 d4@5 d4@2 ~@3 d4@6 d4@5 d4@2 ~@3 d4@6 d4@5 d4@2 ~@5, ~@41 f3@2 ~@3 bb2@2 ~ f3@2 ~@3 bb2@2 ~ f3@2 ~@3 bb2@2]/8", // Bb5 Ab Eb5 Bb7 Gm7 Bb7 Bb5 Ab …
  S: "[~@7 ab3@2 ~@14 ab3@2 ~@14 ab3@2 ~@14 ab3@2 ~ ab3@16 ~@6, ~ ab3@2 ~ d4@5 d4@2 ~ bb2@4 ~ ab3@2 ~@7 ab3@4 ~@3 ab3@2 ~@7 ab3@4 ~@3 ab3@2 ~@29, ~@2 f3@4 ~@4 ab3@4 d4@6 d4@5 d4@2 ~@3 d4@6 d4@5 d4@2 ~@3 d4@6 d4@5 d4@2 ~@21, ~@9 f3@2 ~@3 bb2@2 ~ f3@2 ~@3 bb2@2 ~ f3@2 ~@13]/5",
})).s("gm_overdriven_guitar").gain(0.4).pan(0)

// bass · electric bass finger · "bass"
const bass = note(`<
  ~ A B C D E F E F G H G I C D E F E F G H G J K L M N O P Q R S T U@8 V W X@3 Y Z AA@2 ~@7
>`.pickRestart({
  A: "bb2@4 bb2@4 bb2@2 bb2@2 bb2@3 ab2", B: "bb2@2 bb2@2 bb2!2 bb2@2", C: "bb2@2 bb2@2 ab2 ab2@2 bb2",
  D: "eb2@4 eb2@3 bb2 eb2@2 f2@2 g2@2 bb2@2", E: "bb2@4 ab2 ab2@3", F: "eb2@4 eb2 f2 g2 bb2", G: "bb2@3 ab2@3 ~@2",
  H: "eb2@6 bb2@7 f2 g2 ~", I: "eb2@6 bb2@6 bb2 f2@3", J: "eb2@3 bb2@4 eb2", K: "bb2 ~ bb2 ~ ab2@2 ab2 f2",
  L: "bb2@2 bb2 f2 bb2@2 bb2@2", M: "ab2@2 ab2@2 ab2@2 bb1 ~", N: "d2 ~ f2 ~ f2 ~ ab2 ~", O: "c3 ~ bb2@2 d2 ~ f2@2",
  P: "bb1 ~ d2 ~ f2@2 eb2 ~", Q: "g2 ~ bb2@2 bb1 ~ d2 ~", R: "f2 ~ bb1@2 d2@2 f2@2", S: "eb2 g2 bb2!2",
  T: "bb2@2 ab2 ab2@2 bb2 eb2@2",
  U: "[eb2@3 bb2 eb2@2 f2@2 g2@2 bb2@2 bb2@8 ab2@2 ab2@6 eb2@8 eb2@2 f2@2 g2@2 bb2@2 bb2@8 ab2@2 ab2@6 eb2@8 eb2@2 f2@2 g2@2 bb2@2 bb2@6 ab2@6 ~@4 eb2@6 bb2@7 f2 g2 ~ bb2@6 ab2@6 ~@4 eb2@4]/8",
  V: "~@2 bb2@6 bb2 f2@3 bb2@2 bb2@2", W: "bb2!8", X: "bb2@2 bb2@2 bb2@2 bb2@2 eb3 d3 bb2@2 bb2@2 bb2@2",
  Y: "bb2@2 bb2@2 bb2@2 bb2@2 eb3 d3 bb2@2 bb2@2 ab2@2", Z: "bb2 ab2 bb2 f2 bb2 ab2 bb2 ab2",
  AA: "[bb2 ab2 bb2 f2 bb2 ab2 bb2@8 ~@2]/2",
})).s("gm_electric_bass_finger").gain(0.44)

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

// drums · snare
const snare = s("sd").struct(`<
  ~ A B A C A D A E F G ~ H A C A D A E F G ~ I A@3 J@5 K L M N O P Q R S ~ T U@6 V ~@8
>`.pickRestart({
  A: "~ x ~ x", B: "~@2 x ~@3 x!2 ~@8", C: "x ~ x!2 ~@2 x ~@2 x!2 ~@2 x!2 ~", D: "~@2 x!5 ~@3 x!3 ~@3",
  E: "~@2 x ~@5 x ~@2 x ~ x!2 ~", F: "~@4 x ~@5 x!5 ~", G: "~@2 x ~@3 x!2", H: "~@12 x!2 ~@2", I: "~@13 x!2 ~",
  J: "x!8", K: "x!6 ~@2", L: "x ~@7 x ~@3 x ~ x!2", M: "~@2 x ~@2 x!2 ~@2 x!2 ~@5", N: "x ~@7 x ~@5 x!2",
  O: "x!3 ~@3 x!3 ~@7", P: "x ~@3 x ~@2 x", Q: "~@4 x ~@2 x ~ x!2 ~@5", R: "x ~@5 x!5 ~@5", S: "x ~@3 x!2 ~@2",
  T: "~@6 x!5 ~@5", U: "x!2", V: "x ~@7 x ~ x!2 ~@4",
})).gain(0.36)

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

// drums · high tom
const high_tom = s("ht").struct("<~@2 A ~@3 B ~ C ~ D ~ E ~@3 B ~ C ~ D ~ F ~@12 G ~ H ~ I ~@17>".pickRestart({
  A: "~@5 x ~@2 x ~@7", B: "~@7 x ~@5 x!2 ~", C: "~@5 x ~@10", D: "~@8 x ~ x!2 ~@4", E: "~@11 x ~ x!2 ~",
  F: "~@5 x ~@2", G: "~@3 x ~@5 x!2 ~@5", H: "~ x ~@14", I: "~@4 x ~ x!2 ~@8",
})).gain(0.4)

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

// drums · ride
const ride = s("rd").struct("<~@48 [~@3 x] ~@8>").gain(0.36)

stack(church_organ, distortion_guitar, overdriven_guitar, bass, kick, snare, low_tom, high_tom, crash, ride)