// Dig a Pony — The Beatles
// 115 bpm, 3/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 139 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(115/3)

// 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 · overdriven guitar · "Guitar 1"
const overdriven_guitar = note(`<
  A B C D A B C E F@2 ~ G H I J K L M N@2 O P F ~ G H I J K L M Q@2 R S T C U A B V@3 ~ F@2 ~ G H I J K L M N@2 O P F ~
  G H I J K L M Q@2 R S T C U A B V@3 ~ W X Y Z AA AB AC AD AE AC AF AG AH F@2 ~ G H I J K L M N@2 O P F ~ G H I J K L M
  Q@2 R S T C U A B V@3 ~ A B C U A B C AI AJ@2
>`.pickRestart({
  A: "g3@4 b3 d4@4 e4 ~ g4@4 e4", B: "d4@4 f#4 a4@4 b4 ~ d5@4 b4", C: "a3@4 a3 a3@4 c4 ~ c#4@4 e4",
  D: "f4@2 f#4@2 ~ f#4@4 e4 ~@2 c#4@2 d4@2, ~@4 a4@2 ~@5 c4@2 ~@3",
  E: "f4@2 f#4@2 ~ f#4@4 e4 ~@2 c#4@2 ~@2, ~@4 a4@2 ~@5 c4@2 ~@3", F: "[a2,e3]@3 ~@13",
  G: "b3@5 a3@3 ~@3 e3@3 ~@2, a3 ~@15", H: "f#3", I: "f#3@5 e3@3 ~@3 c#3@3 ~@2, e3 ~@15", J: "b2",
  K: "~@5 [b3,g4]@3 ~@4 [d4,b4]@2 ~@2, ~@11 [c4,a4]@2 ~@3", L: "[c4,a4]@3 ~@2 [b3,g4]@11", M: "[b3,d4,f#4,b4]",
  N: "[~@16 e4@4 ~ f#4@4 ~@2 g#4@5, ~@15 g#3@5 a3@5 b3@7]/2", O: "[b3,g#4]@4 ~ a4@4 ~@2 b4@4 e4, ~@4 c#4@5 d4@5 ~@2",
  P: "[e4,c#5]", Q: "[~@16 c#5@4 ~ b4@5 ~ d4@4 [b3,g#4], ~@15 e4@5 d4@7 ~@5]/2",
  R: "[b3,g#4]@4 b3 [a3,f#4]@5 ~ [g#3,e4]@5", S: "g2@5 b2@5 ~ d3@5", T: "f#3@5 a3@5 ~ d4@5",
  U: "f4@2 f#4@2 ~ f#4@4 e4 ~@2 c#4@2 e4@2, ~@4 a4@2 ~@5 c4@2 ~@3", V: "a3/3", W: "e4@5 ~@7 e4@2 c#4@2, ~@11 f#4@2 ~@3",
  X: "a4@5 ~@7 a4@2 f#4@2, ~@11 b4@2 ~@3", Y: "~@5 c#5@2 b4@2 ~@7, ~@2 b4 ~@5",
  Z: "~@5 c#5@4 f#5@2 ~ a4@4, ~@4 b4@2 ~@5 b4@2 ~@3", AA: "f#4", AB: "~@5 a4@3 ~@3 b4@3 ~@2", AC: "[c#5,d5]@2 ~@9 d5@5",
  AD: "d5@3 b4@2 f4@11", AE: "~@5 a4@4 g4@2 f4@5, ~@2 g4 ~@5", AF: "d5@3 b4@2 g4@5 ~@4 g4@2",
  AG: "g#4@4 e5 g#4@4 ~@2 f#5@4 a4, ~@9 a4@5 ~@2", AH: "b4@4 g#5 a4@4 f#5 ~ g#4@4 e5",
  AI: "f4@2 f#4@2 ~ f#4@4 e4 ~@2 c#4@2 f#4@2, ~@4 a4@2 ~@5 c4@2 ~@3", AJ: "[a2,e3,a3,c#4]/2",
})).s("gm_overdriven_guitar").gain(0.36).pan(0.3)

// chords · distortion guitar · "Guitar 2"
const distortion_guitar = note(`<
  A B C D A B C E F@3 G H I@2 J K L M N O F@3 G H I@2 J K L M O@2 K P Q E R S T@3 ~ F@3 G H I@2 J K L M N O F@3 G H I@2
  J K L M O@2 K P Q E R S T@3 ~ U@2 V W X Y Z AA AB AC AD AE@2 F@3 G H I@2 J K L M N O F@3 G H I@2 J K L M O@2 K P Q E R
  S T@3 ~ A B C E A B C AF AG@2
>`.pickRestart({
  A: "g2@4 b2 d3@4 e3 ~ g3@4 e3", B: "d3@4 f#3 a3@4 b3 ~ d4@4 b3", C: "[a2,e3]@4 [a2,e3] [a2,e3]@4 c3 ~ c#3@4 e3",
  D: "f3@2 f#3@2 ~ f#3@4 e3 ~@2 c#3@2 d3@2, ~@4 a3@2 ~@5 c3@2 ~@3",
  E: "f3@2 f#3@2 ~ f#3@4 e3 ~@2 c#3@2 e3@2, ~@4 a3@2 ~@5 c3@2 ~@3",
  F: "[a2,e3,a3,c#4]@9 [c#4,a4]@2 ~ [e3,c#4]@2 [f#3,d4]@2, ~@11 [a3,a4]@2 ~@3", // A F#m C#m D A
  G: "[a2,e3,a3,c#4]@5 [a2,e3,a3,c#4]@5 ~ [a2,e3,a3,c#4]@5", // A
  H: "[f#3,a3,c#4,f#4]@5 [f#3,a3,c#4,f#4]@5 ~ [f#3,a3,c#4,f#4]@4 [f#3,a3,c#4,f#4]", // F#m
  I: "[f#3,a3,c#4,f#4]@4 [f#3,a3,c#4,f#4] [f#3,a3,c#4,f#4]@4 [f#3,a3,c#4,f#4] ~ [f#3,a3,c#4,f#4]@4 [f#3,a3,c#4,f#4]", // F#m
  J: "[g3,b3,d4,f4,g4]@9 [g3,b3,d4,f4,g4] ~ [g3,b3,d4,f4,g4]@4 [g3,b3,d4,f4,g4]", // G7
  K: "[g3,b3,d4,g4]@5 [g3,b3,d4,g4]@5 ~ [g3,b3,d4,g4]@5", // G
  L: "[b2,d3,f#3,b3]@4 [b2,d3,f#3,b3] [b2,d3,f#3,b3]@4 [b2,d3,f#3,b3] ~ [b2,d3,f#3,b3]@5", // Bm
  M: "[g3,b3,d4,f4,g4]@5 [g3,b3,d4,f4,g4]@5 ~ [g3,b3,d4,f4,g4]@5", // G7
  N: "[e3,g#3,b3,e4]@5 [e3,g#3,b3,e4]@4 [e3,g#3,b3,e4] ~ [e3,g#3,b3,e4]@4 [e3,g#3,b3,e4]", // E
  O: "[e3,g#3,b3,e4]@4 [e3,g#3,b3,e4] [e3,g#3,b3,e4]@4 [e3,g#3,b3,e4] ~ [e3,g#3,b3,e4]@4 [e3,g#3,b3,e4]", // E
  P: "[d3,f#3,a3,d4]@5 [d3,f#3,a3,d4]@5 ~ [d3,f#3,a3,d4]@5", Q: "a2@4 a2 a2@4 c3 ~ c#3@4 e3",
  R: "[g3,b3,d4,g4]@4 [g3,b3,d4,g4] [g3,b3,d4,g4]@4 [g3,b3,d4,g4] ~ [g3,b3,d4,g4]@4 [g3,b3,d4,g4]", // G
  S: "[d3,f#3,a3,d4]@4 [d3,f#3,a3,d4] [d3,f#3,a3,d4]@4 [d3,f#3,a3,d4] ~ [d3,f#3,a3,d4]@4 [d3,f#3,a3,d4]", // D
  T: "[a3,c#4,e4,a4]/3", // A
  U: "[a2,e3,a3,c#4,a4]@5 [a2,e3,a3,c#4,a4]@4 [f#3,d4]@2 ~ [f#3,d4]@4, ~@11 [a2,e3,a3,c#4,a4]@2 ~@3", // A D A
  V: "[a2,e3,a3,c#4,a4]@5 [a2,e3,a3,c#4,a4]@4 [f#3,d4]@2 ~ [f#3,d4]@2 [e3,c#4]@2, ~@11 [a2,e3,a3,c#4,a4]@2 ~@3", // A D C#m A
  W: "[a2,e3,a3,c#4,a4]@5 [a2,e3,a3,c#4,a4]@5 ~ [a2,e3,a3,c#4,a4]@5", // A
  X: "[f#2,c#3,f#3]@5 f#3@4 a3@2 f#3@3 e3@2, ~@11 e3 ~@4", Y: "c#3@5 [f#2,c#3,f#3,a3]@5 ~ [f#2,c#3,f#3,a3]@5",
  Z: "b2@5 f#3@5 ~ d4@5", AA: "g2@5 f3@5 ~ b3@5", AB: "g4@5 f4@5 ~ f3@5", AC: "[f#2,b2,f#3]@5 b3@5 ~ [d4,f#4]@5",
  AD: "[g2,d3,f3]@5 b3@5 ~ [f4,g4]@5", AE: "[e3,g#3,b3,d4,e4]@5 [e3,g#3,b3,d4,e4]@5 ~ [e3,g#3,b3,d4,e4]@5",
  AF: "f3@2 f#3@2 ~ f#3@4 e3 ~@2 c#3@2 f#3@2, ~@4 a3@2 ~@5 c3@2 ~@3", AG: "[~@24 e4 [c#4,g#4] d4 c#4@5, [a2,e3,a3]]/2",
})).s("gm_distortion_guitar").gain(0.32).pan(0.7)

// bass · electric bass pick · "Bass"
const bass = note(`<
  A B C D A B C D E F G H I J K L M N O P Q E F G H I J K L M N O R S T U V W A B X@3 ~ E F G H I J K L M N O P Q E F G
  H I J K L M N O R S T U V W A B X@3 ~ Y@2 G Z AA J N O M N O AB S E F G H I J K L M N O P Q E F G H I J K L M N O R S
  T U V W A B X@3 ~ A B C D A B C D ~@2
>`.pickRestart({
  A: "g1@4 b1 d2@4 e2 ~ g2@4 e2", B: "d2@4 f#2 a2@4 b2 ~ d3@4 b2", C: "a2@4 a2 a2@4 c2 ~ c#2@4 e2",
  D: "f2@2 f#2@2 ~ f#2@4 e2 ~@2 c#2@2 a1@2, ~@4 a2@2 ~@5 c2@2 ~@3", E: "a1", F: "~@11 e2@5", G: "a2",
  H: "a2@5 c#2@5 ~ e2@5", I: "f#2@15 c#2", J: "f#2@5 e2@5 ~ c#2@5", K: "b1@11 ~@5", L: "g1@15 e1",
  M: "g1@5 a1@5 ~ a#1@5", N: "b1", O: "g1", P: "e2@2 e2@2 e2 e2@2 e2@2 e2@2 e2@2 ~ e2@2",
  Q: "e3@2 e3@2 e3 e3@2 e3@2 e3@2 e3@4 e3", R: "e2@4 e2 e2@4 e2 ~ e2@3 ~@2", S: "e3@2 e3@2 e3 e3@2 e3@2 e3@2 e3@5",
  T: "g1@5 b1@5 ~ d2@5", U: "f#2@5 a2@5 ~ d3@4 d3", V: "a2@4 a2 a2@4 c3 ~ c#3@4 e3",
  W: "f3@2 f#3@2 ~ f#3@4 e3 ~@2 c#3@2 ~@2, ~@4 a3@2 ~@5 c3@2 ~@3", X: "a2/3", Y: "[a2@21 ~@6 e2@5]/2",
  Z: "c#2@5 e2@5 ~ a2@5", AA: "f#2", AB: "[d#2,e2] ~ e2@2 e2 e2@2 e2@2 e2@2 e2 e2@2 e2@2",
})).s("gm_electric_bass_pick").gain(0.45)

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

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

// drums · hihat
const hihat = s("hh").struct(`<
  ~@9 A ~ A ~ A ~ A ~ A ~ A ~@2 A ~ A ~ A ~ A ~@6 A ~@9 A ~ A ~ A ~ A ~ A ~ A ~@2 A ~ A ~ A ~ A ~@6 A ~@12 B ~ C ~ A ~@5
  A ~ A ~ A ~ A ~ A ~ A ~@2 A ~ A ~ A ~ A ~@6 A ~@18
>`.pickRestart({
  A: "~@5 x ~@10", B: "x", C: "~@11 x ~@4",
})).gain(0.36)

// drums · low tom
const low_tom = s("lt").struct("<A@7 ~@13 B ~@35 B ~@48 B ~@23 A@7 ~@3>".pickRestart({
  A: "~@5 x ~@10", B: "~@11 x ~@3 x",
})).gain(0.32)

// drums · mid tom
const mid_tom = s("mt").struct("<~@6 [~@11 x ~@4] ~@132>").gain(0.36)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@9 A ~ A ~ A ~ A ~ A ~ A ~@2 A ~ A ~ A ~ A ~@2 A ~@3 A ~@2 B@2 ~@5 A ~ A ~ A ~ A ~ A ~ A ~@2 A ~ A ~ A ~ A ~@2 A ~@3
  A ~@2 B@2 ~@5 B C B C B ~ B D B C E ~@2 A ~ A ~ A ~ A ~ A ~ A ~@2 A ~ A ~ A ~ A ~@2 A ~@3 A ~@2 B@2 ~@14
>`.pickRestart({
  A: "x", B: "x ~@4 x ~@5 x ~@4", C: "~@5 x ~@5 x ~@4", D: "~@11 x ~@4", E: "x ~@4 x ~@10",
})).gain(0.36)

// drums · high tom
const high_tom = s("ht").struct("<A@6 ~@14 B ~@22 C ~@12 B ~@22 D ~@25 B ~@22 E A@7 ~@3>".pickRestart({
  A: "~@11 x ~@4", B: "x ~@3 x!2 ~@3 x ~@6", C: "x ~@3 x ~@6 x ~@2 x ~", D: "x ~@3 x ~@4 x ~@6",
  E: "x ~@3 x ~@4 x ~@2 x ~@3",
})).gain(0.36)

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

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