// Glad All Over — The Dave Clark Five
// 140 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 95 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(140/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 · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~@2 A B C@2 D@2 C D@2 E F G H I J K L M C@2 D@2 C D@2 E F G H I J K L M N O P Q R S T U C@2 D@2 C D@2 E F G H I J K L
  M N O P Q R S T V W@2 X@2 W X@2 Y Z AA AB AC AD AE AF AG AF AG AF AG AF AG X AH@4
>`.pickRestart({
  A: "d2@3 ~ d2@3 ~ g2@3 ~ g2@2 f#2 ~, c2 ~@15", B: "d2@3 ~ d2@2 f#2@2 g2@3 ~ g2@3 ~",
  C: "d2@3 ~ d2@2 f#2 ~ g2@3 ~ g2@2 f#2@2", D: "d2@3 ~ d2@2 f#2 ~ g2@3 ~ g2@2 f#2 ~", E: "d2 ~@7",
  F: "a1@3 ~ a1@3 ~ a1 ~ a1 ~ a1@3 ~", G: "a1@3 ~ a1@3 ~ a1@3 ~ a1@3 ~", H: "d2@3 ~ d2@3 ~ d2 ~ d2 ~ d2@3 ~",
  I: "d2@3 ~ d2@2 ~@2 d2@2 ~@2 d2@2 ~@2", J: "a1@2 ~@2 a1@3 ~ a1@2 ~@2 a1@2 ~@2",
  K: "a1@3 ~ a1@2 ~@2 a1@2 ~@2 a1@2 ~@2", L: "d2@3 ~ d2 ~ f#2@2 g2@3 ~ g2@2 f#2 ~",
  M: "d2@3 ~ d2@2 f#2@2 g2@3 ~ g2@2 f#2 ~", N: "a#1@3 ~ a#1@2 d2@2 f2@3 ~ f2@3 ~",
  O: "a#1@3 ~ a#1 ~ d2@2 f2@3 ~ f2@3 ~", P: "d2@3 ~ d2@3 ~ g2@3 ~ g2@3 ~", Q: "d2@3 ~ d2@3 ~ d2@3 ~ d2@3 ~",
  R: "g1@3 ~ g1@3 ~ g1@3 ~ g1 ~ d2@2", S: "g1@3 ~ g1@3 ~ g1@3 ~ g1@2 ~@2", T: "a1@2 ~@6 a1 ~@2 a1 ~ a1 ~@2",
  U: "a1 ~@7 a1 ~@2 a1 ~ a1 ~@2", V: "a1 ~@7 a#1 ~@2 a#1 ~ a#1 ~@2", W: "d#2@3 ~ d#2@2 g2 ~ g#2@3 ~ g#2@2 g2@2",
  X: "d#2@3 ~ d#2@2 g2 ~ g#2@3 ~ g#2@2 g2 ~", Y: "d#2 ~@7", Z: "a#1@3 ~ a#1@3 ~ a#1 ~ a#1 ~ a#1@3 ~",
  AA: "a#1@3 ~ a#1@3 ~ a#1@3 ~ a#1@3 ~", AB: "d#2@3 ~ d#2@3 ~ d#2 ~ d#2 ~ d#2@3 ~",
  AC: "d#2@3 ~ d#2@2 ~@2 d#2@2 ~@2 d#2@2 ~@2", AD: "a#1@2 ~@2 a#1@3 ~ a#1@2 ~@2 a#1@2 ~@2",
  AE: "a#1@3 ~ a#1@2 ~@2 a#1@2 ~@2 a#1@2 ~@2", AF: "d#2@3 ~ d#2 ~ g2@2 g#2@3 ~ g#2@2 g2 ~",
  AG: "d#2@3 ~ d#2@2 g2@2 g#2@3 ~ g#2@2 g2 ~", AH: "[d#2 ~ d#2 ~ d#2 ~ d#1@6 d#2@37 ~@15]/4",
})).s("gm_acoustic_bass").gain(0.64)

// chords · rock organ · "ORGAN 3"
const rock_organ = note(`<
  ~@2 A@9 B C@2 D@2 E@2 F G A@7 B C@2 D@2 E@2 F G H@2 I J K@2 L M A@7 B C@2 D@2 E@2 F G H@2 I J K@2 L N O@7 P Q@2 R@2
  S@2 T U T U T U T U T V@2 ~@2
>`.pickRestart({
  A: "[d3,d5,f#5,a5]@3 ~ [d3,d5,f#5,a5]@3 ~ [g3,d5,g5,b5]@3 ~ [g3,d5,g5,b5]@3 ~", B: "[d3,d5,f#5,a5] ~@7",
  C: "[[e4,a4,c#5,e5] ~ [a3,e4,a4,c#5,e5]@13 ~, a3 ~@31]/2", D: "[[d4,e4,a4,d5,f#5,a5] ~@3 [d4,a4,d5,f#5,a5]@26 ~@2]/2",
  E: "[[a3,e4,a4,c#5,e5] ~@3 [a3,e4,a4,c#5,e5]@27 ~]/2", F: "[d5,f#5,a5]@8 [d5,g5,b5]@7 ~, c5 ~@15",
  G: "[d5,f#5,a5]@7 ~ [d5,g5,b5]@7 ~", H: "[[f5,a#5,d6]@31 ~]/2", I: "[f#5,a5,d6]@7 ~ [g5,b5,d6]@6 ~@2, g#5 ~@15",
  J: "[f#5,a5,d6]@15 ~", K: "[[g5,b5,d6]@15 ~]/2",
  L: "[a5,e6]@2 ~@6 [a5,c#6,e6]@2 ~ [a5,c#6] ~ [a5,c#6,e6] ~@2, c#6 ~@10 e6@2 ~@3", // A5 A
  M: "[a5,c#6,f6]@2 ~@6 [c#6,f6]@2 ~ [a5,c#6] ~ [a5,c#6,f6] ~@2, ~@8 a5 ~@2 f6@2 ~@3", // Aaug C# A Aaug
  N: "[a#4,d5,f5]@2 ~@6 [a#4,d5,f5] ~@2 [a#4,d5,f5] ~ [a#4,d5,f5] ~@2", // A#
  O: "[d#3,d#5,g5,a#5]@3 ~ [d#3,d#5,g5,a#5]@3 ~ [g#3,d#5,g#5,c6]@3 ~ [g#3,d#5,g#5,c6]@3 ~", P: "[d#3,d#5,g5,a#5] ~@7",
  Q: "[[f4,a#4,d5,f5] ~ [a#3,f4,a#4,d5,f5]@13 ~, a#3 ~@31]/2", // A#
  R: "[[d#4,f4,a#4,d#5,g5,a#5] ~@3 [d#4,a#4,d#5,g5,a#5]@26 ~@2]/2", // D#
  S: "[[a#3,f4,a#4,d5,f5] ~@3 [a#3,f4,a#4,d5,f5]@27 ~]/2", T: "[d#5,g5,a#5]@8 [d#5,g#5,c6]@7 ~, c#5 ~@15",
  U: "[d#5,g5,a#5]@7 ~ [d#5,g#5,c6]@7 ~", // D# G#
  V: "[[g4,a#4,d#5] ~ [g4,a#4,d#5] ~ [g4,a#4,d#5] ~ [g4,a#4,d#5]@4 ~@2 [g4,a#4,d#5]@19 ~]/2", // D#
})).s("gm_rock_organ").gain(0.64)

// chords · electric guitar muted · "MUTED GTR"
const electric_guitar_muted = note(`<
  ~@2 A@3 B A B A B@2 C D@2 E@2 D F G@2 A B A B A B@2 C D@2 E@2 D F G@2 H@2 I J K@2 L M A B A B A B@2 C D@2 E@2 D F G@2
  H@2 I J K@2 L N O P O P O P@2 Q R@2 S@2 R T U@9 V@2 ~@2
>`.pickRestart({
  A: "[f#2,a2,d3]@3 ~ [f#2,a2,d3]@3 ~ [g2,b2,d3]@3 ~ [g2,b2,d3] ~ [g2,b2,d3] ~", // D G
  B: "[f#2,a2,d3]@3 ~ [f#2,a2,d3]@2 ~@2 [g2,b2,d3]@3 ~ [g2,b2,d3]@2 ~@2", C: "[f#2,a2,d3] ~@7",
  D: "[c#3,e3] ~ [c#3,e3]!3 ~ [c#3,e3]!3 ~ [c#3,e3]!3 ~ [c#3,e3]!2", // C#m
  E: "[a2,d3] ~ [a2,d3]!3 ~ [a2,d3]!3 ~ [a2,d3]!3 ~ [a2,d3]!2", // D5
  F: "[c#3,e3] ~ [c#3,e3]!3 ~ [c#3,e3]!3 ~ [c#3,e3]!3 c#3 [c#3,e3] c#3", G: "[f#2,a2,d3]@7 ~ [g2,b2,d3]@6 ~@2",
  H: "[~@4 [a#2,d3,f3]@7 ~ [a#2,d3,f3]@7 ~ [a#2,d3,f3]@7 ~ [a#2,d3,f3] ~@3]/2", // A#
  I: "[d3,f#3,a3]@3 ~ [d3,f#3,a3]@3 ~ [d3,g3,b3]@3 ~ [d3,g3,b3]@3 ~", // D G
  J: "[d3,f#3,a3]@3 ~ [d3,f#3,a3]@3 ~ [d3,f#3,a3]@3 ~ [d3,f#3,a3]@3 ~", // D
  K: "[~@4 [g2,b2,d3]@7 ~ [g2,b2,d3]@7 ~ [g2,b2,d3]@7 ~ [g2,b2,d3]@2 ~@2]/2", // G
  L: "[a3,c#4,e4]@2 ~@6 [a3,c#4,e4]@2 ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~@2", // A
  M: "[a3,c#4,f4]@2 ~@6 [a3,c#4,f4]@2 ~ [a3,c#4,f4] ~ [a3,c#4,f4] ~@2", // Aaug
  N: "[a#2,d3,f3]@2 ~@6 [a#2,d3,f3] ~@2 [a#2,d3,f3] ~ [a#2,d3,f3] ~@2", // A#
  O: "[g2,a#2,d#3]@3 ~ [g2,a#2,d#3]@3 ~ [g#2,c3,d#3]@3 ~ [g#2,c3,d#3] ~ [g#2,c3,d#3] ~", // D# G#
  P: "[g2,a#2,d#3]@3 ~ [g2,a#2,d#3]@2 ~@2 [g#2,c3,d#3]@3 ~ [g#2,c3,d#3]@2 ~@2", Q: "[g2,a#2,d#3] ~@7",
  R: "[d3,f3] ~ [d3,f3]!3 ~ [d3,f3]!3 ~ [d3,f3]!3 ~ [d3,f3]!2", // Dm
  S: "[a#2,d#3] ~ [a#2,d#3]!3 ~ [a#2,d#3]!3 ~ [a#2,d#3]!3 ~ [a#2,d#3]!2", // D#5
  T: "[d3,f3] ~ [d3,f3]!3 ~ [d3,f3]!3 ~ [d3,f3]!3 d3 [d3,f3] d3", U: "[g2,a#2,d#3]@7 ~ [g#2,c3,d#3]@6 ~@2",
  V: "[[g2,a#2,d#3] ~ [g2,a#2,d#3] ~ [g2,a#2,d#3] ~ [g2,a#2,d#3]@4 ~@2 [g2,a#2,d#3]@18 ~@2]/2", // D#
})).s("gm_electric_guitar_muted").gain(0.64)

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

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

// drums · clap
const clap = s("cp").struct("<~@2 A@9 ~@7 A@9 ~@7 A@8 ~@2 A@7 ~@7 A@8 ~@2 A@7 ~@7 A@9 B ~@3>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2",
})).gain(0.8)

// drums · low tom
const low_tom = s("lt").struct("<~@12 A@5 B ~@10 A@5 B ~@8 C@2 ~@8 A@5 B ~@8 C@2 ~@8 A@5 B ~@9 D ~@3>".pickRestart({
  A: "x!4", B: "x ~@3 x ~@3 x ~@5 x!2", C: "x ~@7 x ~@2 x ~ x ~@2", D: "~@2 x!2 ~@2 x ~",
})).gain(0.8)

// drums · hihat
const hihat = s("hh").struct("<~ [x!4]!41 [~ x ~ x]!2 [x!4]!22 [~ x ~ x]!2 [x!4]!23 [x!2 ~@2] ~@3>").gain(0.8)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~ A@10 ~ A@15 ~ A@14 ~@2 A@7 ~ A@14 ~@2 A@7 ~ A@15 B ~@3>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~@6",
})).gain(0.24)

// drums · mid tom
const mid_tom = s("mt").struct("<~@17 A ~@15 A ~@23 A ~@23 A ~@9 B ~@3>".pickRestart({
  A: "~@12 x!2 ~@2", B: "x!2 ~@6",
})).gain(0.8)

// drums · crash
const crash = s("cr").struct(`<
  ~@18 A ~@15 A ~ A ~@3 A ~@2 A@2 ~@13 A ~ A ~@3 A ~@2 A@2 ~@13 A ~ A ~ A ~ A ~ A B ~@3
>`.pickRestart({
  A: "x", B: "~@3 x",
})).gain(0.8)

stack(bass, rock_organ, electric_guitar_muted, kick, snare, clap, low_tom, hihat, hihat_soft, mid_tom, crash)