// Twist And Shout — The Beatles
// 133 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 78 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(133/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 · fretless bass · "FRETLESS"
const bass = note(`<
  A B C B D E F E G E H E G E I E J E F E K E I E J E F E K E I E J E F E K E L E J E F E K M@5 N E I E J E F E K E H E
  J E F E K E K E K E K M@3 O P
>`.pickRestart({
  A: "~@5 a1 b1 c#2", B: "d2@2 f#2 d2 g2 b2 g2 a2", C: "~@2 a2 ~ a2 ~ a2 ~ a2@2 g2@2 f#2@2 e2@2",
  D: "~@2 a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2@2", E: "d2@2 f#2 a2 g2@2 b2 g2",
  F: "a2@2 a1@2 c#2@2 e2 ~ a2@2 g2@2 f#2@2 e2@2", G: "a2@3 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2@2",
  H: "~@2 a1 ~ c#2@2 e2 ~ a2@2 g2@2 f#2@2 e2@2, a2 ~@3", I: "~@2 a1 ~ c#2@2 e2@2 a2@2 g2@2 f#2@2 e2@2, a2 ~@3",
  J: "a2@2 a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2@2", K: "a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2@2",
  L: "a2 a1 c#2 e2 a2 g2 f#2 e2", M: "a1@5 ~ a1@5 ~ a1@3 ~", N: "a1 ~ a1 ~ a1 ~@3 a2 ~ g2@2 f#2@2 e2@2, ~@3 a1@2 ~@3",
  O: "a1 ~@2 a1@2 ~ a#1@2 ~ b1@2 ~ c2 ~ c#2 ~", P: "~ d2 ~@9 d2@5",
})).s("gm_fretless_bass").gain(0.8)

// chords · english horn · "ENG.HORN"
const english_horn = note(`<
  ~@5 A B C ~ C B A D A ~ E ~ F G H D A B E ~ C I A D A ~ C ~ J B K D ~@9 L@3 M@2 C B C ~ C B A D A ~ E ~ E B C D A B A
  B A N ~ O@4
>`.pickRestart({
  A: "~@8 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [a3,c#4,e4]@2", B: "~ [a3,c#4,e4] ~@6",
  C: "~@8 [g3,b3,d4] ~ [g3,b3,d4]@2 ~@2 [a3,c#4,e4]@2", D: "~ [a4,d5]@7",
  E: "~@8 [g3,b3,d4] ~ [b3,d4]@2 ~@2 [a3,c#4,e4]@2, ~@10 g3 ~@5", // G Bm A
  F: "~@8 [g3,b3,d4] ~ [b3,d4]@2 ~@2 [a3,c#4,e4] ~, ~@10 g3 ~@5", G: "[a3,c#4,e4] ~@7",
  H: "~@4 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4]@3 ~ [a3,c#4,e4]@2", I: "~@2 [a3,e4] ~@13, ~ c#4 ~@6",
  J: "~@8 [g3,b3,d4] ~ [g3,b3,d4]!3 ~ [a3,c#4,e4]@2", // G A
  K: "~@4 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4]@2 ~@2 [a3,c#4,e4]@2", // G A
  L: "[~@32 g4@15 ~, c#4@23 ~, ~@16 e4@31 ~]/3", M: "[c#4,e4,g4,a4]/2", N: "~@2 [a3,c#4,e4]@3 ~@11",
  O: "[~@32 g4@17 ~@15, c#4@49 ~@15, ~@16 e4@33 ~@15]/4",
})).s("gm_english_horn").gain(0.8).pan(0.3)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~ A B A B A B A C A B A B A C A B A B A B A B A B A B A B A C A B A B D B E F G F G F G F H I J K L M A C A B A C A C
  A B A B A C A B A B A C A B H I J N ~
>`.pickRestart({
  A: "[d3,a3,d4]@4 [d3,a3,d4] ~@3 [g2,d3,g3]@2 [g2,d3,g3] ~@3 [a2,e3] ~", // D5 G5 A5
  B: "~@2 [e3,c#4,g4,a4]@2 [e3,c#4,g4,a4]@2 [e3,c#4,g4,a4]@2 [e3,g4,a4]@2 [e3,g4,a4]@2 [e3,c#4,g4,a4]@2 [e3,g4,a4] ~, ~@2 c#4 ~", // A7
  C: "~@2 [e3,c#4,g4,a4]@2 [e3,c#4,g4,a4]@2 [e3,c#4,g4,a4]@2 [e3,g4]@2 [e3,g4,a4]@2 [e3,c#4,g4,a4]@2 [e3,g4,a4] ~, ~@2 c#4 ~, ~@8 a4 ~@7", // A7 Em A7
  D: "[d3,a3,d4]@4 [d3,a3,d4] ~@3 [g2,d3,g3]@2 [g2,d3,g3]@2 ~@2 [a2,e3] ~", E: "f#3 ~@5 f#3 ~ b3 ~ d4@2 ~@2 c#4@2",
  F: "~@6 g3 ~ b3@2 ~@2 a3@2 ~@2", G: "f#3@2 ~@4 f#3 ~ b3 ~ d4@2 ~@2 c#4@2", H: "[a2,e3] a2!2 [a2,e3]!2 a2 [a2,e3] a2",
  I: "[a2,e3] ~ a2 [a2,e3] a2!2 [a2,e3] a2, a3@3 a3@5, ~ a2 ~@6, ~@3 e3@2 ~@11", // A5
  J: "[a2,e3]@2 [a2,e3]@2 [a2,e3]@2 [a2,e3]@2 ~ e3 [a2,e3]@2 [a2,e3]@2 [a2,e3]@2, a3@3 a3@3 a3@2, ~@4 a2 ~@3", // A5
  K: "[a2,e3]!5 e3!2 [a2,e3], [a3,c#4]@3 [a3,c#4]@3 [a3,c#4]@2, ~@5 a2@2 ~", // A5 A
  L: "[a2,e3]@2 a2 e3 e3@2 e3@2 [a2,e3]@2 e3@2 [e3,a3]@2 e3@2, [a3,c#4]@3 [a3,c#4]@3 [c#4,g4]@2, ~@2 a2@2 ~ a2@3, ~@4 g#2 ~@11", // A5 A C#dim
  M: "[e3,a3,c#4] [e3,a3,c#4,g4] [e3,c#4,g4]!2 [c#4,g4]!2 c#4 [a2,e3,c#4], a2@7 ~, ~ a3@3, ~@4 e3@3 ~, ~@3 g4", // A A7 C#dim A
  N: "[a2,e3,a3,c#4] ~@7", // A
})).s("gm_acoustic_guitar_steel").gain(0.64).pan(0.8)

// other · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note(`<
  A B C B C B C B C B C B C B C B C B C B C B C B C B C B C B C B C B C B C D E F G H I J K ~@5 A B C B C B C B C B C B
  C B C B C B C B C B L ~@3 M N
>`.pickRestart({
  A: "~@5 a2 b2 c#3", B: "d3@4 d3@2 ~@2 g2 ~ g2@2 ~@2 a2@2", C: "~@2 a2 ~ a2 ~ a2 ~ a2 ~ a2@2 b2@2 c#3@2",
  D: "d3 ~@5 d3 ~ g3 ~ b3 ~@3 a3 ~", E: "~@3 e3 g3 ~ f#3 ~", F: "d3@2 ~@4 d3 ~ g3 ~ b3 ~@3 a3@2",
  G: "~@6 e3 ~ g3 ~@3 f#3 ~@3", H: "d3@2 ~@4 d3 ~ g3 ~ b3@2 ~@2 a3 ~", I: "~@6 e3 ~ g3 ~@3 f#3@2 ~@2",
  J: "d3@2 ~@4 d3 ~ g3 ~ b3@2 ~@2 a3@2", K: "~@6 e3 ~ g3@2 ~@2 f#3 ~@3", L: "~@2 a2 ~ a2 ~ a2 ~ a2 ~@7",
  M: "~@3 a2@2 a#2 ~@2 b2@2 ~ c3 ~@2 c#3 ~", N: "~ d3 ~@9 [c3,d3,f#3,a3,c4]@5",
})).s("gm_overdriven_guitar").gain(0.8).pan(0.3)

// drums · kick
const kick = s("bd").struct("<~ A@44 B@2 C@2 D E A@22 C@2 D F G>".pickRestart({
  A: "x ~@3 x!2 ~@2", B: "x ~@2 x ~@2 x ~", C: "x ~@2 x ~@2 x!2", D: "x ~@2 x ~ x!3", E: "x!8",
  F: "~@3 x ~@2 x ~@2 x ~ x ~@2 x ~", G: "~ x ~@9 x ~@4",
})).gain(0.8)

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

// drums · hihat
const hihat = s("hh").struct("<~ A B A B A@7 B A@7 B A@7 B A@7 B A@7 B ~@6 A@7 B A@7 C A B A B A B ~@5>".pickRestart({
  A: "x!8", B: "x", C: "x!2 ~@6",
})).gain(0.8)

// drums · low tom
const low_tom = s("lt").struct("<~@77 [~@7 x ~@8]>").gain(0.8)

// drums · mid tom
const mid_tom = s("mt").struct("<~@77 [~ x ~@2]>").gain(0.8)

// drums · open hat
const open_hat = s("oh").struct("<~@45 A@5 B ~@22 A B A C ~>".pickRestart({
  A: "x ~@2 x ~@2 x ~", B: "x!8", C: "x",
})).gain(0.8)

// drums · high tom
const high_tom = s("ht").struct("<~@77 [~ x ~@14]>").gain(0.8)

// drums · crash
const crash = s("cr").struct("<~@77 [~@11 x ~@4]>").gain(0.8)

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