// Go All the Way — The Raspberries
// 134 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 110 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(134/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 · "Track 2"
const bass = note(`<
  ~ A B A C D@2 E F G@8 H I J K L M N O P Q R S T Q N U P Q R V W I J K L Q N X Y Q Z S L Q AA AB AC Q R AD AE AF AG@2
  AH@2 AI AJ AK AH@2 AI AL AM AH AM AH AN AO AP AQ AR Q AS AT AC AU R S AV Q AW AT AC AU Z AX AY AZ BA BB BC BD BE BF BG
  BH BI BJ BK BJ BL@2
>`.pickRestart({
  A: "a1 d2 a1 ~", B: "~@2 a1@2 ~@2 d2@2 ~@2 d2@5 ~", C: "~ a1 ~ d2 ~ d2@2 ~",
  D: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~", E: "a2 ~ a2 ~ a2 ~ a2 ~ a2@2 e2@2 f#2@2 a2@2",
  F: "~@2 a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~",
  G: "[a1@2 e2 ~ f#2 ~ e2@2 a1@3 ~ a1@2 a2@4 a1@3 ~ d2@2 ~@2 d2@2 ~@2 a1@4 e2@2 f#2@2 e2@2 a1@3 ~ a1@2 a2@4 a1@3 ~ d2@2 ~@2 d2@2 ~@2 a1@4 e2@2 f#2@2 e2@2 a1@3 ~ a1@2 a2@4 a1@3 ~ d2@2 ~@2 d2@2 ~@2 a1@4 e2@2 f#2@2 e2@2 a1@2 ~@2 a1 ~ g2@6 a2@4 g2@2 e2@2 b1@4]/8",
  H: "c2@4 ~@2 c2@5 ~@5", I: "c2@4 ~@2 a1@4 ~@2 d2@3 ~", J: "d2@4 ~@2 d2@4 ~@2 c2@3 ~", K: "b1@4 ~@2 e2@6 d2 ~ c2 ~",
  L: "a1@2 ~ a1@2 ~ e1 ~", M: "f#1@4 ~@2 f#1@3 ~@3 c#2@2 ~@2", N: "d2@4 ~@2 a1 ~ d2@4 c#2@4",
  O: "b1@5 ~ b1 ~ e1@4 ~@2 e1 ~", P: "c#2@4 ~@2 c#2@5 ~ g#1@3 ~", Q: "f#1@2 ~ f#1@2 ~ c#2 ~",
  R: "b1@4 ~@2 b1@5 ~ b1@2 ~@2", S: "d2@4 ~@2 d2 ~ e2@5 ~@3", T: "a1@4 ~@2 a1@4 ~@2 e1@3 ~",
  U: "b1@4 ~@2 b1 ~ e1@4 ~@2 e1 ~", V: "d2@5 ~@3 g1 ~ a1 ~ b1@2 ~@2", W: "c2@2 ~ c2@3 ~@2",
  X: "b1@4 ~@2 b1 ~ e1@5 ~ e1 ~", Y: "c#2@4 ~@2 c#2@4 ~@2 g#1@3 ~", Z: "b1@2 ~ b1@2 ~ b1 ~",
  AA: "d2@4 ~@2 a1 ~ d2@3 ~ c#2@3 ~", AB: "b1@4 ~@2 b1 ~ e1@5 ~@3", AC: "c#2@2 ~ c#2@2 ~ g#1 ~",
  AD: "d2@4 ~@2 d2 ~ e2@4 ~@4", AE: "a2 ~@3 a2@2 ~@2 a2@5 ~@3", AF: "~@2 a2@2 ~@2 a2@2 ~@2 a2@3 ~@3",
  AG: "[a1@19 ~@13]/2", AH: "a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~", AI: "f2 g2", AJ: "a2@5 ~ a2@2 ~@2 a2@2 ~@4",
  AK: "a2@2 ~ a2 ~ a2 ~@2", AL: "a2@4 b2@3 ~", AM: "e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~",
  AN: "d3 ~ d3 ~ d3 ~ d3 ~ d3 ~ d3 ~ d3 ~ d3 ~", AO: "g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2 ~",
  AP: "c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~@3", AQ: "e2@4 ~@2 e2@7 ~@3", AR: "a1@4 ~@2 a1@5 ~ e1@2 ~@2",
  AS: "d2@5 ~ a1 ~ d2@3 ~ c#2@2 ~@2", AT: "b1@4 ~@2 b1 ~ e1@6 ~@2", AU: "f#1@4 ~@2 f#1@5 ~ c#2@2 ~@2",
  AV: "a1@4 ~@2 a1@5 ~ e1@3 ~", AW: "d2@4 ~@2 a1 ~ d2@3 ~ c#2@2 ~@2", AX: "d2@4 ~@2 d2 ~ e2@5 ~ e2 ~", AY: "f#2@7 ~",
  AZ: "f2@7 ~", BA: "e2@13 ~@3", BB: "d#2@13 ~@3", BC: "d2@13 ~@3", BD: "c#2@7 ~", BE: "c2@15 ~", BF: "b1@7 ~ e1@6 ~@2",
  BG: "a1@2 ~@2 a1@2 ~@2 a1@3 ~@5", BH: "~ a2 ~ d3 ~ d3@2 ~", BI: "a2@2 ~@3 a2@2 ~ a2@2 e2@2 f#2@2 a2@2",
  BJ: "~ a2 ~ a2 ~ a2@2 ~", BK: "a2 ~ a2 ~ a2 e2 f#2 a2", BL: "[a1@27 ~@5]/2",
})).s("gm_electric_bass_finger").gain(0.64)

// chords · distortion guitar · "Track 3"
const distortion_guitar = note(`<
  ~ A B A B A B A C@4 D@2 E@3 ~@40 F B G B H B I J K L B I M N O N O P Q R S ~@16 T U V W X Y Z AA A B A B A B AB@2
>`.pickRestart({
  A: "[a3,c#4] ~ [a3,d4] ~ [a3,c#4] ~@3", B: "~ [a3,c#4] ~ [a3,d4] ~ [a3,d4]@2 ~",
  C: "[~@2 [a3,c#4]@2 ~@2 [a3,d4]@2 ~@2 [a3,d4]@2 ~@2 e3@4 a3@2 g3@2 e3 ~ [e3,a3]@4 ~@4]/2", // A D5 A5
  D: "[~@2 [a3,c#4]@2 ~@2 [a3,d4]@2 ~@2 [a3,d4]@3 ~ e3@4 a3@2 g3@2 e3 ~ [e3,a3]@4 ~@4]/2", // A D5 A5
  E: "[~@2 [a3,c#4]@2 ~@2 [a3,d4]@2 ~@2 [a3,d4]@3 ~ e3@4 a3@2 g3@2 e3 ~ [e3,a3]@4 ~@2 [g3,d4]@14 ~@4]/3", // A D5 A5 G5
  F: "[a3,c#4]@2 ~@2 [a3,d4]@2 ~@2 [a3,c#4]@5 ~@3", G: "[a3,c#4] ~ [a3,d4] ~ [a3,c#4]@3 ~",
  H: "[a3,c#4]@3 ~ [a3,d4]@2 ~@2 [a3,c#4]@6 ~@2", I: "[f3,c4]@3 ~ [g3,d4]@3 ~",
  J: "[a3,e4]@4 ~@2 [a3,e4]@2 ~@2 [a3,e4]@3 ~ [a3,e4] ~", K: "[a3,e4]@4 ~@2 [a3,e4]@2 ~@2 [a3,e4]@3 ~@3",
  L: "[a3,c#4]@2 ~@2 [a3,d4]@3 ~ [a3,c#4]@4 ~@4", M: "[a3,e4]@6 ~@2 [b3,f#4]@5 ~@3",
  N: "e2 ~ e2 ~ g#2 ~ g#2 ~ b2 ~ b2 ~ c#3@2 e3 ~", O: "a2 ~ a2 ~ c#3 ~ c#3 ~ e3 ~ e3 ~ f#3@2 a3 ~",
  P: "d3 ~ d3 ~ f#3 ~ f#3 ~ a3 ~ a3 ~ b3@2 d4 ~", Q: "g2 ~ g2 ~ b2 ~ b2 ~ d3 ~ d3 ~ e3@2 g3 ~",
  R: "c3 ~ c3 ~ e3 ~ e3 ~ g3 ~ g3 ~ a3 ~ c4 ~", S: "[a3,d4]@4 ~@2 [b3,e4]@5 ~ [b3,e4]@3 ~",
  T: "f#3 a3 c#4 g#4@2 f#4 c#4 a3", U: "f3 a3 c#4 g#4@2 f#4 c#4 a3",
  V: "e3@2 a3@2 c#4@2 g#4@4 f#4@2 ~ a3 ~@2, ~@6 c#4 ~", W: "d#3@2 [e3,f#3]@2 a3@2 f#4@2 a3@2 f#3@2 a3@2 f#3 ~",
  X: "d3@2 f#3@2 a3@2 e4@4 d4@3 ~@3", Y: "c#3@2 e3 ~ [a3,d4] ~ [a3,c#4]@5 ~@5", Z: "f3@2 a3@2 c4 ~ g4@4 f4@3 ~@3",
  AA: "[a3,d4]@3 ~ [a3,e4]@3 ~", AB: "[[a3,c#4]@7 ~]/2",
})).s("gm_distortion_guitar").gain(0.64)

// chords · electric guitar muted · "Track 4"
const electric_guitar_muted = note(`<
  ~@17 A@2 B C D@2 E F G H I J K D L F M N I O P@2 B C D@2 E F G N I J K@2 E F G Q I R ~@21 D@2 E S G T I J D@2 U V G T
  I W ~@16
>`.pickRestart({
  A: "[g4,c5]@4 ~@2 [g4,c5]@5 ~@5", B: "[f4,a4]@2 ~ [f4,a4]@3 ~@2", C: "[a4,d5]@4 ~@2 [g#4,b4]@5 ~@5",
  D: "[a4,c#5]@2 ~ [a4,c#5]@3 ~@2", E: "[a4,e5]@4 ~@2 [a4,d5] ~ [a4,d5]@3 ~ [a4,c#5]@2 ~@2",
  F: "[a4,d5]@4 ~@2 [g#4,b4]@7 ~@3", G: "[g#4,c#5]@2 ~ [g#4,c#5]@3 b4 ~", H: "[f#4,a#4]@4 ~@2 [f#4,a#4]@6 c#5@2 f#4 ~",
  I: "[f#4,b4]@4 ~@2 [f#4,b4]@5 ~ [f#4,b4]@2 ~@2", J: "[a4,d5]@3 ~ [f#4,b4]@3 ~", K: "[a4,c#5]@4 ~@2 [a4,c#5]@7 ~@3",
  L: "[a4,e5]@4 ~@2 [a4,d5] ~ [a4,d5]@3 ~ [a4,c#5]@3 ~", M: "[g#4,c#5]@4 ~@2 c#5@6 b4@3 ~, ~@6 g#4@5 ~@5",
  N: "[f#4,a#4]@4 ~@2 [f#4,a#4]@6 c#5@3 ~", O: "[a4,d5]@7 ~ [f#4,b4]@5 ~@3", P: "[g4,c5]@3 ~@3 [g4,c5]@4 ~@6",
  Q: "[f#4,a#4]@3 ~@3 a#4@6 c#5@2 ~@2, ~@3 f#4@4 ~", R: "[a4,d5]@6 ~@2 [f#4,b4]@5 ~@3", S: "[a4,d5]@2 ~ [g#4,b4]@4 ~",
  T: "[f#4,a#4]@4 ~@2 a#4@6 c#5@3 ~, ~@3 f#4@4 ~", U: "[a4,e5]@4 ~@2 [a4,d5] ~ [a4,d5]@2 ~@2 [a4,c#5]@2 ~@2",
  V: "[a4,d5]@4 ~@2 [g#4,b4]@9 ~", W: "[a4,d5]@6 ~@2 [a4,e5]@5 ~@3",
})).s("gm_electric_guitar_muted").gain(0.64)

// other · overdriven guitar · "Track 5"
const overdriven_guitar = note("<~@64 [~@4 e4 ~ e4@9 ~] [~ c#4 a3 ~ d4@2 c#4@2 a3@3 ~@5, d4 ~@7] ~@44>")
  .s("gm_overdriven_guitar").gain(0.64)

// chords · synth brass 2 · "Track 7"
const synth_brass_2 = note(`<
  ~@21 A B C D E F G H I B J K E F L M ~@4 N O C K E F P H N Q C D E F R S ~@13 T U V W X Y@2 Z N AA C K AB AC AD S N B
  J K AE F L H ~@16
>`.pickRestart({
  A: "~@3 [d4,f#4]@2 ~ [e4,g#4] ~", B: "[e4,c#5]@5 ~ [e4,b4]@5 ~ [e4,g#4]@3 ~", C: "[f#4,a4]@11 ~ [e4,a4]@3 ~",
  D: "[d4,a4]@5 ~ [d4,g#4]@6 ~@4", E: "~@8 [e4,b4]@2 ~@2 [e4,b4]@3 ~", F: "[f#4,a#4] ~", G: "[f#4,b4]@11 ~@5",
  H: "[a4,d5]@3 ~ [a4,e5]@3 ~", I: "~@6 [d4,f#4]@5 ~ [e4,g#4]@2 ~@2", J: "[f#4,a4]@11 ~ e4@3 ~, ~@11 a4@3 ~@2",
  K: "[d4,a4]@5 ~ [d4,g#4]@7 ~@3", L: "[f#4,b4]@13 ~@3", M: "[a4,d5] ~", N: "~@6 [d4,f#4]@4 ~@2 [e4,g#4]@3 ~",
  O: "[e4,c#5]@5 ~ [e4,b4]@4 ~@2 [e4,g#4]@3 ~", P: "[f#4,b4]@7 ~", Q: "[e4,c#5]@4 ~@2 [e4,b4]@5 ~ [e4,g#4]@3 ~",
  R: "[f#4,b4]@5 ~@3", S: "[a4,d5]@6 ~@2 [a4,e5]@5 ~@3", T: "~@4 [e4,g#4] ~ [e4,g#4]@6 ~@4",
  U: "~@4 [e4,a4] ~ [e4,a4]@6 ~@4", V: "~@4 [e4,b4] ~ [e4,b4]@6 ~@4", W: "~@4 [e4,c#5] ~ [e4,c#5]@6 ~@4",
  X: "~@4 [f#4,d5] ~ [f#4,d5]@6 ~@4", Y: "~@4 [g4,d5] ~ [g4,d5]@7 ~@3", Z: "[b4,e5]@4 ~@2 [b4,e5]@5 ~@5",
  AA: "[e4,c#5]@5 ~ [e4,b4]@5 ~ [e4,g#4]@2 ~@2", AB: "~@8 [e4,b4]@3 ~ e4@3 ~, ~@11 b4@3 ~@2", AC: "[f#4,a#4]@9 ~@7",
  AD: "[f#4,b4]@3 ~", AE: "~@8 [e4,b4]@3 ~ [e4,b4]@3 ~",
})).s("gm_synth_brass_2").gain(0.56)

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

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

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

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

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

// drums · high tom
const high_tom = s("ht").struct("<~@10 A ~@3 A ~@33 B ~@19 C ~@8 D ~@7 B ~@14 E ~@9>".pickRestart({
  A: "x ~@2 x ~@4", B: "~@5 x!3", C: "~@12 x!4", D: "~ x ~@6", E: "~ x ~@5 x",
})).gain(0.8)

// drums · crash
const crash = s("cr").struct(`<
  ~ A ~@2 B A B A ~ C ~ C ~ C ~ A ~@5 A ~@3 A ~@3 A ~@11 A ~@3 A ~@3 A ~@7 A ~ A ~ A ~ C A ~ A ~ C A ~@8 A ~@3 A ~@3 A
  ~@15 A ~ A ~ A ~ A ~
>`.pickRestart({
  A: "x", B: "~@7 x", C: "x!2",
})).gain(0.8)

// drums · ride
const ride = s("rd").struct(`<
  ~@21 A B@3 A B@3 A B@7 ~@4 A B@3 A B@2 C A B@2 C B@3 C ~@21 A B@3 A B@2 C A B@2 C B@3 C ~@16
>`.pickRestart({
  A: "~ x!7", B: "x!8", C: "x!4 ~@4",
})).gain(0.8)

stack(
  bass, distortion_guitar, electric_guitar_muted, overdriven_guitar, synth_brass_2, kick, snare, low_tom, hihat,
  mid_tom, high_tom, crash, ride
)