// Happy Guitar — The Spotnicks
// 114 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 73 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(114/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.

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~ A B C D@3 E F G@2 E F H@2 I J G@2 I K@2 L M N O P@3 Q@3 I R H@2 E S@3 E R T U M V W H@2 I X@2 Y E Z@3 E AA AB@2 E
  S@3 E AC@3 E AD@2 AE
>`.pickRestart({
  A: "[g4,c5,e5]@12 [a4,c5,f5] ~ [a4,c5,f5] ~", B: "[g4,c5,e5]@14 g4 ~", C: "[g4,c5,e5]@11 ~ [a4,c5,f5] ~ [a4,c5,f5] ~",
  D: "[g4@31 ~ a4@15 ~, [c5,e5]]/3", E: "[a4,c5,f5]@15 ~", F: "[b4,d5,g5]@15 ~", G: "[g4@15 ~ a4@15 ~, [c5,e5]@31 ~]/2",
  H: "[g4@15 ~ a4@15 ~, [c5,e5]]/2", I: "[a4,c5,f5]", J: "[d5,g5], b4@3 ~", K: "[~ [c5,e5], [d5,g5] ~, ~@2 g4@29 ~]/2",
  L: "[a4,c5,f5]@7 ~", M: "[g4,c5,e5]@15 ~", N: "[a4,c5]@7 ~ [g4,b4,d5]@7 ~, f5@15 ~", O: "[b4,d5,g5]@3 ~@13",
  P: "[g4 ~ f5, c5@47 ~, e5@2 ~, ~@16 a4@31 ~]/3", Q: "[b4@7 ~ g5@7 ~@17 a4@15 ~, g4@31 ~@17, d5 [c5,e5]@2]/3",
  R: "[g4,d5,g5]", S: "[[d5,g5]@15 ~@17 a4@15 ~, g4@31 ~@17, ~ [c5,e5]@2]/3", T: "[g4,c5,e5]",
  U: "[a4,c5,f5]@9 ~ [f4,a4]@2 [e4,g4] ~ [d4,f4] ~, ~@10 c5@5 ~", V: "[a4,c5]@7 ~ [b4,d5,g5]@7 ~, f5@15 ~",
  W: "[g4,d5,g5]@3 ~@5", X: "[[d5,g5]@16 [c5,e5]@15 ~, g4@31 ~]/2", Y: "[a4,c5,e5]",
  Z: "[[d5,g5] ~ a4, g4@31 ~@17, ~ [c5,e5]@2]/3", AA: "[g4,d5,g5]@15 ~", AB: "[g4@15 ~ a4@15 ~, [c5,e5], f5 ~@31]/2",
  AC: "[[d5,g5]@16 ~@16 a4@15 ~, g4@31 ~@17, ~ [c5,e5]@2]/3", // G5 C
  AD: "[[d5,g5]@15 ~ [c5,e5]@7 ~ [a4,c5,d#5,f5]@7 ~, g4@23 ~@9]/2", AE: "[g4,c5]@7 ~, e5@3 ~@5",
})).s("gm_string_ensemble_1").gain(0.24).pan(0.4)

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  ~ A B A B C D E F G H I J A H E F K H L F M N O P Q K H R J S T N J G D U J G V W X C Y C Z AA G AB N AC AD AE AF X AG
  V AH J AI AJ AK X AL AM AN AO AP AE AQ X AR AS
>`.pickRestart({
  A: "c2@3 ~ g1@3 ~ c2@3 ~ g1@3 ~", B: "c2@3 ~ g1@2 ~ g1 c2@2 b1@2 a1@2 g1@2", C: "c2@3 ~ g1@3 ~ c2@3 ~ g1@2 c2@2",
  D: "a1@3 ~ e2@3 ~ a1@2 ~@2 e2@3 ~", E: "f2@3 ~ c2@3 ~ f2@4 c2@4", F: "g2@4 d2@2 ~ d2 g2@2 g1@2 a1@2 b1@2",
  G: "c2@3 ~ g1@3 ~ c2@4 g1@2 c2@2", H: "a1@3 ~ e2@3 ~ a1@3 ~ e2@3 ~", I: "f2@3 ~ c2@2 d2@2 f2@3 ~ c2@2 d2@2",
  J: "g2@3 ~ d2@2 ~ d2 g2@2 g1@2 a1@2 b1@2", K: "c2@3 ~ g1@3 ~ c2@4 g1@3 ~", L: "f2@3 ~ c2@3 ~ f2@3 ~ c2@3 ~",
  M: "c2@3 ~ g1@3 ~ c2@3 ~ g1@2 c2 ~", N: "f2@3 ~ c2@3 ~ f2@2 ~ f2 c2@2 d2@2", O: "c2@4 g1@3 ~ c2@3 ~ g1@2 c2@2",
  P: "f2@3 ~ c2@2 f2 ~ g2@3 ~ d2@4", Q: "g1@2 ~@5 g1", R: "f2@3 ~ c2@3 ~ f2@3 ~ c2@2 d2@2",
  S: "c2@3 ~ g1@3 ~ c2@2 ~ c2 g1@2 c2@2", T: "a1@3 ~ e2@3 ~ a1@3 ~ e2@4", U: "f2@3 ~ c2@3 ~ f2@2 ~ f2 c2@2 f2 ~",
  V: "a1@3 ~ e2@4 a1@2 ~ a1 e2@2 a1@2", W: "f2@3 ~ c2@3 ~ f2@2 c2@2 d2@2 f2 ~", X: "g2@3 ~ d2@4 g2@2 g1@2 a1@2 b1@2",
  Y: "f2@3 ~ c2@4 f2@2 ~ f2 c2@2 d2@2", Z: "f2@3 ~ c2@2 d2@2 g2@3 ~ d2@3 ~", AA: "g1 ~@3",
  AB: "a1@2 ~@2 e2@4 a1@4 e2@3 ~", AC: "g2@3 ~ d2@4 g2 ~ g1@2 a1@2 b1@2", AD: "c2@3 ~ g1@4 c2@2 ~ c2 g1@2 c2@2",
  AE: "a1@3 ~ e2@3 ~ a1@3 ~ e2@2 a1@2", AF: "f2@3 ~ c2@4 f2 ~@2 f2 c2@2 d2@2", AG: "c2@3 ~ g1@4 c2@2 g1@2 c2@2 b1@2",
  AH: "f2@2 c2 d2 f2 ~ c2@2", AI: "c2@3 ~ g1@3 ~ c2@2 g1@2 c2@2 b1@2", AJ: "a1@2 ~@2 e2@3 ~ a1@3 ~ e2@4",
  AK: "f2@3 ~ c2@4 f2@4 c2@2 d2@2, e2 ~@15", AL: "c2@3 ~ g1@2 ~@2 c2@3 ~ g1@2 c2@2",
  AM: "a1@2 ~@2 e2@2 ~@2 a1@3 ~ e2@2 a1@2", AN: "f2@3 ~ c2@2 d2@2 f2@2 c2@2 d2@2 f2 ~", AO: "g2@2 d2@2 g2 g1 a1 b1",
  AP: "c2@2 ~@2 g1@3 ~ c2@4 g1@2 c2@2", AQ: "f2@3 ~ c2@3 ~ f2@4 c2@2 d2@2", AR: "c2@3 ~ g1@2 c2@2 f2@3 ~ f2@3 ~",
  AS: "c2@2 g1 c2@4 ~",
})).s("gm_electric_bass_finger").gain(0.5)

// chords · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note(`<
  ~ A B C D E F G H I J G K@2 L M N O L M P Q R S T U V W X Y Z W AA AB AC AD AE AF AC AG AE AH AI AJ AK AL AM AN AO AP
  AQ AR AS AT AU AV AW AX AY AV AW AX AY AV AW AX AZ AV BA AX AZ BB BC
>`.pickRestart({
  A: "[c4,e4]@10 ~@2 [f4,a4] ~ [f4,a4] ~, d4 ~@15", B: "[e4,g4]@8 [c4,e4]@7 ~", C: "[c4,e4]@11 ~ [f4,a4] ~ [f4,a4] ~",
  D: "[e4,g4] e4, ~@4 c4@3 ~", E: "e4@2 g4@4 e4 d4", F: "e4@2 a4@4 e4 d4", G: "f4@2 a4@4 f4 d4",
  H: "g4@4 b4@3 [g4,a4] g4@2 [f4,g4]@2 e4@2 d4@2", I: "~@4 g4@7 ~@3 d4@2, e4@3 e4", J: "~@2 a4@4 e4 d4, e4 ~",
  K: "[g4@2 b4@2 ~@7 c5 e5 c5 ~ e4, ~@2 g4@3 g4@2 g4, ~@9 e4@2 ~@5]/2", L: "~ e4 a4 c5 e5 c5 a4 e4",
  M: "~ f4 a4 c5 f5 c5 a4 f4", N: "~ g4 b4 d5 g5 d5 b4 g4", O: "~ e4 g4 c5 e5 c5 g4 e4",
  P: "~@2 g4@2 b4@2 d5@2 g5@4 g4@3 ~", Q: "[e4,g4,c5]@8 ~@2 [e4,g4,c5] ~ [e4,g4,c5] ~ [e4,g4,c5] ~",
  R: "[f4,a4,c5]@9 ~ [a4,c5]@2 [g4,c5]@2 [f4,c5] ~", S: "[g4,c5]@9 ~ [g4,c5]!3 ~ [g4,c5] ~",
  T: "[a4,c5]@2 a4 c5 [a4,b4] a4 g4 f4", U: "g4@5 ~@9 g3@2", V: "c4@3 ~ c4@6 c5 ~ c5@2 b4@2",
  W: "a4@4 e4@5 ~ e4 ~ e4@2 a4 ~", X: "a4@4 d4@5 ~ d4@2 a4 ~ a4@2", Y: "g4@3 ~ g4@3 d4 g4@7 ~",
  Z: "c4@3 ~ c4@5 ~ c5 ~ c5@2 [b4,c5]@2", AA: "a4@3 ~ d4@5 ~ d4@2 a4 ~ a4 ~", AB: "g4@3 ~ g4@3 d4 g4@5 ~ g4 ~",
  AC: "c5@2 e5@2 c5@2 g4 c5 e4 ~ e4 g4 c4 ~ c4 e4", AD: "~@3 a4@4 ~, a3@13 ~@3, ~@2 c4@11 ~@3, ~@2 e4@5 ~",
  AE: "[c4,f4] ~ [d4,f4] ~ [c4,f4] ~ [d4,f4] ~ [c4,f4] ~ [d4,f4] [d#4,f4] ~ [d4,f4] [c4,f4] ~", // F5 Dm F5 Dm F5 Dm D#sus2 Dm …
  AF: "[d4,g4]@2 [e4,g4] ~ [f4,g4] ~ [e4,g4] [d4,g4]@6 ~ g4@2", AG: "~@3 a4@4 ~, a3@7 ~, ~ c4@6 ~, ~@2 e4@5 ~",
  AH: "[d4,g4] ~ [e4,g4] ~ [d4,g4] ~ [e4,g4] ~ [d4,g4] ~ [e4,g4] [f4,g4]@3 ~@2", // G5 Em G5 Em G5 Em Fsus2
  AI: "[e4,g4,c5]@9 ~ [e4,g4,c5]!3 ~ [e4,g4,c5] ~", AJ: "[f4,a4,c5]@9 ~ [a4,c5]@2 [g4,c5] ~ [f4,c5]@2",
  AK: "~@6 f4 ~@3 [e4,g4,c5]!3 [e4,g4,c5]@2 ~, [e4,g4,c5]@9 ~@7", // C
  AL: "[f4,a4,c5]@5 ~ [a4,c5]@2 [g4,b4]@2 a4@2 g4@2 d4@2", AM: "g3@3 ~@5", AN: "[c3,e4]@2 [e3,g4]@4 [c3,e4] [b2,d4]",
  AO: "[c3,e4]@2 [e3,a4]@4 [c3,e4] [b2,d4]", AP: "[c3,f4]@2 [c3,a4]@4 [c3,f4] d4",
  AQ: "g4@4 b4@3 g4 [g4,a4]@2 f4@2 e4@2 d4@2, d3@11 ~@5", AR: "[c3,e4]@2 [e3,g4]@4 [c3,e4] [b2,d4], d4 ~@15",
  AS: "[c3,e4]@4 [e3,a4]@8 [c3,e4]@2 [b2,d4] ~", AT: "[c3,f4]@3 ~ [c3,a4]@8 [c3,f4]@2 d4@2",
  AU: "g4@4 b4@3 ~ g4@7 ~, d3@11 ~@5", AV: "~ [c4,e4] [e4,g4] [g4,c5] [c5,e5] [g4,c5] [e4,g4] [c4,e4]",
  AW: "~ [c4,e4] [e4,a4] [a4,c5] [c5,e5] [a4,c5] [e4,a4] [c4,e4]", // C A5 Am C Am A5 C
  AX: "~ [c4,f4] [f4,a4] [a4,c5] [c5,f5] [a4,c5] [f4,a4] [c4,f4]", // F5 F Am F5 Am F F5
  AY: "~ [d4,g4] [g4,b4] [b4,d5] [d5,g5] [b4,d5] [g4,b4] [d4,g4]", // G5 G Bm G5 Bm G G5
  AZ: "~@2 [d4,g4]@2 [g4,b4]@2 [b4,d5]@2 [d5,g5]@2 [b4,d5]@2 [g4,b4]@2 [d4,g4] ~", // G5 G Bm G5 Bm G G5
  BA: "~@2 [c4,e4]@2 [e4,a4]@2 [a4,c5]@2 [c5,e5]@2 [a4,c5]@2 [e4,a4]@2 [c4,e4] ~", // C A5 Am C Am A5 C
  BB: "[c4,e4,g4,c5]@7 ~ [f4,a4,c5] ~ [f4,a4,c5]@3 ~ [f4,a4,c5] ~", BC: "[e4,g4,c5]@4 ~@2 [e4,c5]@7 ~@3, ~@6 g4 ~@9",
})).s("gm_overdriven_guitar").gain(0.45)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  ~ A B A B@2 C D E F G D E H C I E H C I E H J H K L H C I M N C I O P C I E Q R D S H J T K U H C I E H C I E H C I E
  H G D O B C D E B G I V@2 W
>`.pickRestart({
  A: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [a3,c4,f4] ~", // C F
  B: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~", // C
  C: "~@2 [a3,c4,e4] ~@3 [a3,c4,e4] ~@3 [a3,c4,e4] ~ [a3,c4,e4] ~ [a3,c4,e4] ~", // Am
  D: "~@2 [a3,c4,f4] ~@3 [a3,c4,f4] ~@3 [a3,c4,f4] ~@3 [a3,c4,f4] ~", // F
  E: "~@2 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~", // G7
  F: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~ c4 ~ [g3,c4,e4] ~ c4 ~ [g3,c4,e4] ~", // C
  G: "~@2 [a3,c4,e4] ~@3 [a3,c4,e4] ~@3 [a3,c4,e4] ~@3 [a3,c4,e4] ~", // Am
  H: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~", // C
  I: "~@2 [a3,c4,f4] ~@3 [a3,c4,f4] ~@3 [a3,c4,f4] ~ [a3,c4,f4] ~ [a3,c4,f4] ~", // F
  J: "~@2 [a3,c4,f4] ~@3 [a3,c4,f4] ~@3 [f3,a3,c4] ~ [e3,g3,c4] ~ [d3,f3,c4] ~", // F C Dm7
  K: "~@2 [a3,c4,f4] ~@3 [a3,c4,f4] ~@3 [g3,b3,d4,f4] ~@3 [g3,b3,d4,f4] ~", L: "[g3,b3,d4,f4] ~@7",
  M: "~@2 [b3,d4,g4] ~@3 [b3,d4,g4] ~@3 [b3,d4,g4] ~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~", // G G7
  N: "~@2 [g3,c4,e4] ~ c4 ~ [g3,c4,e4] ~@3 [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~", // C
  O: "~@2 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~", // G7
  P: "~@2 [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~", // C
  Q: "~@2 [g3,c4,e4] ~@3 [g3,c4,d4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4]@2", // C
  R: "~@2 [a3,c4,d4,e4] ~@3 [a3,c4,e4] ~@3 [a3,c4,e4] ~ [a3,c4,e4] ~ [a3,c4,e4] ~", // Am
  S: "~@2 [b3,d4,g4] ~@3 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~", // G G7
  T: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,d4,e4] ~", U: "[g3,b3,d4,f4]@5 ~@11",
  V: "[~@2 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~@3 [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4] ~@3 [g3,c4] ~@3 [g3,c4,e4] ~@3 [a3,c4,d#4,f4] ~@3 [a3,c4,d#4,f4] ~, ~@7 e4@2 e4@2 ~@5]/2", // G7 C5 C F7
  W: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4]@8 ~@2", // C
})).s("gm_piano").gain(0.4).pan(0.6)

// drums · kick
const kick = s("bd").struct(`<
  ~
  [x ~@3 x!2 ~@2 x ~@3 x!2 ~@2]!17
  [x ~@3 x ~ x ~@2 x ~@2 x!2 ~@2]
  [x ~@3 x!2 ~@2 x ~@3 x!2 ~@2]!7
  [x ~@3 x!2 ~@3 x ~@2 x!2 ~@2]
  [x ~@3 x!2 ~@2 x ~@3 x!2 ~@2]!45
  [x ~@2 x ~@4]
>`).gain(0.6)

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

// drums · hihat
const hihat = s("hh").struct("<~ [x!3 ~] ~@71>").gain(0.48)

// drums · crash
const crash = s("cr").struct("<~ A ~@3 A ~@7 A ~@7 A ~@4 A ~@7 A ~@11 A@2 ~@7 A ~@7 A ~@8 B>".pickRestart({
  A: "x", B: "~@3 x ~@4",
})).gain(0.6)

// drums · ride
const ride = s("rd").struct("<~ [x!8]!71 [x!4 ~@4]>").gain(0.54)

stack(string_ensemble_1, bass, overdriven_guitar, piano, kick, snare, hihat, crash, ride)