// Rudolph the Red-Nosed Reindeer — Haggard. Merle
// 135 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (4/4 at bar 1, 2/4 at bar 12, 4/4 at bar 13) are rendered on a constant 4/4 grid of one bar per cycle
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 62 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(135/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 · piano · "A.PIANO 1"
const piano = note(`<
  ~@11 A B C D E@2 F G H I J K L@2 M N O P Q@3 R@2 S T I U@2 E@2 V@2 ~@8 A I U@2 E@2 W X Y Z AA
>`.pickRestart({
  A: "g4@2 a4 ~@2 [g4,c5] e4@3 [c5,e5]@3, c5 ~@3", B: "g4 ~@2 c5@5 c5 c5@2 [f#4,c5], c5 g4@3, ~ a4@11, ~@2 e4, ~@3 f4",
  C: "g4@2 a4 g4@2 a4 g4@3 [c5,e5]@3, c5@3 ~", D: "a4 b4@10 ~, d5@11 ~",
  E: "[[f4,a4]@4 [g4,b4]@2 ~@4 [f4,a4]@2 d4@6 ~@6 [a4,d5]@6 [g4,d5]@17 ~, ~@3 d5 ~@4, ~@9 a4@2 ~@13, ~@10 b4@5 ~@9]/2", // F G F D5 G5
  F: "d5@4 [a4,d5]@2 [g4,d5]@4 d5@2 [g4,d5]@6 [a4,d5]@5 ~, g4@3 ~@2 a4@4 ~@3", // D5 G5 D5
  G: "d4 e4@6 ~ c5 c5@2 [f#4,c5], g4@7 ~ e4@4, ~@3 f4", H: "[g4,c5]@2 [a4,c5]@3 [g4,c5] e4@3 [c5,e5]@3",
  I: "g4 a4@2 [g4,c5]@5 e4 c5@2 [f#4,c5], c5 ~@2 f4", J: "g4@2 a4 g4@2 a4 ~@3 [c5,e5]@3, c5@3 ~, ~ g4",
  K: "a4@2 b4@19 ~@3, d5@7 ~",
  L: "[~@2 [g4,b4]@2 ~ [f4,a4] [d4,g4]@3 a4 ~@2 [a4,d5]@3 [g4,d5]@9, [f4,a4]@4 ~@5 d5@3 ~@12, ~@20 b4@11 ~@17]/2", // G F G5 D5 G5 F
  M: "d5@4 [a4,d5]@2 [g4,d5]@4 d5@2 [g4,d5]@6 [d5,f5]@5 ~, g4@3 ~@2 a4@4 ~@3", N: "[c5,e5] ~",
  O: "~ a4@2 [a4,c5]@3 [c5,f5]@3 g4 a4@2, c5 ~@2 c5, g4 ~@5", P: "[g4,c5]@6 e4@4 [g4,c5]@13 ~",
  Q: "[[f4,c5]@6 [a4,d5]@4 ~@8 f4@3 ~ d4@2 ~@30 e4@6 d5@6 [a4,d5]@6, ~@12 g4@9 ~ g4@26 [d4,g4]@12 ~@12, ~@4 e4@5 ~ g4@2]/3", // F5 D5 G5
  R: "[a4 b4@2 [b4,d5]@2 b4@7 ~ c5@4 [c5,e5] a4 b4@2 [a4,d5]@3, d5@3 ~@2 d5@13 d5@3 ~@3, ~@2 b4 ~, ~@12 e5@5 ~@7]/2", // Bm C D5
  S: "~@3 [f4,a4]@2 [d4,g4]@4 c5!2 [f#4,c5], [g4,d5]@5 ~@4 e4@3, ~@5 f4", // F G5 F#dim G5
  T: "g4@2 a4 ~@2 [g4,c5] e4@3 [c5,e5]@2 ~, c5 ~@3", // C5 C
  U: "[g4@4 a4@2 g4@4 a4@2 ~@6 [c5,e5]@4 a4@2 b4@21 ~@3, c5@18 ~@4 d5@23 ~@3, ~@6 g4@5 ~@13]/2", // C
  V: "[[g4,b4]@2 [a4,c5] [g4,b4]@2 [a4,c5] [g4,b4]@3 [d5,f5]@2 [c5,e5]@10 ~@3]/2", // G Am G Am G Dm C
  W: "[g4,b4]@4 [a4,c5]@2 [g4,b4]@4 [a4,c5]@2 [g4,b4]@7 ~@5", X: "[g4,b4]@2 [a4,c5] [g4,b4]@2 [a4,c5] [g4,b4]@2 ~@4",
  Y: "[g4,b4]@2 [g4,b4] ~@2 [g4,b4] [f#4,c5] ~@2 [f4,d5]@2 ~", // G F#dim Dm
  Z: "[e4,c5]@2 ~ [g3,g4] f#4 [f#3,g3,g4] [g#3,g#4]@3 [g3,g4]@2 ~", AA: "~@2 [c#4,f5] ~ [c4,e5] ~@3",
})).s("gm_piano").gain(0.72)

// other · electric guitar muted · "MUTED GTR"
const electric_guitar_muted = note(`<
  ~@11 A@3 B@3 C D A@3 B@3 C E F G H I J C K L A@3 B@3 C E F G H I J C K L A@3 B@4 M B N O
>`.pickRestart({
  A: "c3 e3 g3 a3", B: "g2 b2 d3 e3", C: "g2 b2 d3 b2", D: "c3 a2 g2 a2", E: "c3!2 d3 e3", F: "f2 a2 c3 a2",
  G: "c3 e3 g3 e3", H: "d3 f3 g3 b3", I: "c4 a3 g3 e3", J: "g3 e3 d3 b2", K: "a2 e3 d3 a3", L: "g3 f3 e3 d3",
  M: "g2@5 ~ b2@6 d3@6 e3@6", N: "c3@2 ~@4 g2@2 f#2 ~ g2@2 g#2@5 ~ g2@4 ~@2", O: "~@6 c#3@3 ~@3 c3@4 ~@8",
})).s("gm_electric_guitar_muted").gain(0.15).pan(0.7)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note("<A@5 B@6 ~@51>".pickRestart({
  A: "[~@18 [d3,c4,d4,f4,a4]@13 [e3,b3,e4,g4]@13 ~ [b3,d4,g4]@12 ~ [c4,g4]@15 ~@3 [d3,c4,d4,f4,a4]@16 [e3,b3,e4,g4]@14 [g2,b3,d4,g4]@14, ~@44 g2@13 c3@18 ~@45, ~@19 e4@5 ~@16]/5", // Dm7 Em G C5 Dm7 Em G
  B: "[[c3,c4,e4,g4]@19 ~@36 e3@7 a2@13 ~ d3@30 [g3,b3]@11 [f3,a3]@9 [e3,g3]@9 [d3,f3]@7 ~@2, ~@20 [c4,e4,a4]@15 [b3,d4,g#4]@15 ~@94, ~@21 a2@15 ~@12 a3@7 ~@89, ~@34 e3@15 [c4,e4,a4]@26 [c4,d4,f#4,a4]@30 ~ [d4,g4]@36 ~@2]/6", // C G F Em Dm Am G#dim Am …
})).s("gm_string_ensemble_1").gain(0.16).pan(0.8)

// bass · electric bass pick · "PICK BASS"
const bass = note(`<
  ~@11 A@3 B@3 C D A@3 B@3 C E F G H I J C K L A@3 B@3 C E F G H I J C K L A@3 B@3 M N O P Q
>`.pickRestart({
  A: "c2 e2 g2 a2", B: "g1 b1 d2 e2", C: "g1 b1 d2 b1", D: "c2 a1 g1 a1", E: "c2!2 d2 e2", F: "f1 a1 c2 a1",
  G: "c2 e2 g2 e2", H: "d2 f2 g2 b2", I: "c3 a2 g2 e2", J: "g2 e2 d2 b1", K: "a1 e2 d2 a2", L: "g2 f2 e2 d2",
  M: "g1@6 b1@5 ~ d2@5 ~ e2@6", N: "g1@6 b1@6 d2@5 ~ e2@6", O: "g1@6 b1@6 d2@5 ~ e2@5 ~",
  P: "c2@2 ~@4 g1@2 f#1 ~ g1@2 g#1@5 ~ g1@4 ~@2", Q: "~@6 c#2@2 ~@4 c2@3 ~@9",
})).s("gm_electric_bass_pick").gain(0.32).pan(0.3)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~@11 A B C D@4 E@4 D@4 E F E G H I J K I E@3 D@4 E F E G H I J K I E@3 D@3 L M N O P
>`.pickRestart({
  A: "[c4,e4]@2 ~ [e4,g4]@3 [c4,e4,g4]@2 ~ [c4,e4,g4]@2 ~, g4@3 c4@2 ~@7", // C Em C
  B: "[c4,e4]@2 ~ [c4,e4,g4]@2 ~ [c4,e4,g4]@2 ~ [c4,e4,g4]@2 ~, g4 ~@3", // C
  C: "[c4,e4,g4]@2 ~ [c4,e4,g4]@3 [c4,e4,g4]@2 ~ [c4,e4,g4]@2 ~", // C
  D: "[b3,d4,g4]@2 ~ [b3,d4,g4]@2 ~ [b3,d4,g4]@2 ~ [b3,d4,g4]@2 ~", // G
  E: "[c4,e4,g4]@2 ~ [c4,e4,g4]@2 ~ [c4,e4,g4]@2 ~ [c4,e4,g4]@2 ~", // C
  F: "[c4,f4,a4]@2 ~ [c4,f4,a4]@2 ~ [c4,f4,a4]@2 ~ [c4,f4,a4]@2 ~", // F
  G: "[d4,f4,a4]@2 ~ [d4,f4,a4]@2 ~ [d4,g4,b4]@2 ~ [d4,g4,b4]@2 ~", // Dm G
  H: "[e4,g4,c5]@2 ~ [e4,g4,c5]@2 ~ [e4,g4,c5]@2 ~ [e4,g4,c5]@2 ~", // C
  I: "[d4,g4,b4]@2 ~ [d4,g4,b4]@2 ~ [d4,g4,b4]@2 ~ [d4,g4,b4]@2 ~", // G
  J: "[d4,g4,b4]@2 ~ [d4,g4,b4]@2 ~ [d4,g4,b4]@2 ~ [d4,g4]@2 ~, ~@9 b4 ~@2", // G G5
  K: "[c4,e4,a4]@2 ~ [c4,e4,a4]@2 ~ [d4,f#4,a4]@2 ~ [d4,f#4,a4]@2 ~", // Am D
  L: "[b3,d4,g4]@4 ~@2 [b3,d4,g4]@5 ~ [b3,d4,g4]@5 ~ [b3,d4,g4]@4 ~@2", // G
  M: "[b3,d4,g4]@5 ~ [b3,d4,g4]@4 ~@2 [b3,d4,g4]@5 ~ [b3,d4,g4]@4 ~@2", // G
  N: "[b3,d4,g4]@4 ~@2 [b3,d4,g4]@5 ~ [b3,d4,g4]@5 ~ [b3,d4,g4]@3 ~@3", O: "[c4,e4,g4] ~@7",
  P: "~@2 [b3,d#4] ~ [c4,e4] ~@3", // B C
})).s("gm_acoustic_guitar_steel").gain(0.08).pan(0.2)

// chords · piano · "A.PIANO 1"
const piano_2 = note(`<
  ~@11 A@3 B@3 C D A@3 B@3 C E F G H I J K L M A@3 B@3 C E F G H I J K L M A@3 B@3 N B O P Q
>`.pickRestart({
  A: "~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4], c2 e2 g2 a2", // C
  B: "~@2 [b3,d4,g4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4], g1 b1 d2 e2", // G
  C: "~@2 [b3,d4,g4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4], g1 b1 d2 b1", // G
  D: "~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4], c2 a1 g1 a1", // C
  E: "~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4], c2!2 d2 e2", // C
  F: "~@2 [c4,f4,a4] ~@2 [c4,f4,a4] ~@2 [c4,f4,a4] ~@2 [c4,f4,a4], f1 a1 c2 a1", // F
  G: "~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4] ~@2 [c4,e4,g4], c2 e2 g2 e2", // C
  H: "~@2 [d4,f4,a4] ~@2 [d4,f4,a4] ~@2 [d4,g4,b4] ~@2 [d4,g4,b4], d2 f2 g2 b2", // Dm G
  I: "~@2 [e4,g4,c5] ~@2 [e4,g4,c5] ~@2 [e4,g4,c5] ~@2 [e4,g4,c5], c3 a2 g2 e2", // C
  J: "~@2 [d4,g4,b4] ~@2 [d4,g4,b4] ~@2 [d4,g4,b4] ~@2 [d4,g4,b4], g2 e2 d2 b1", // G
  K: "~@2 [d4,g4,b4] ~@2 [d4,g4,b4] ~@2 [d4,g4,b4] ~@2 [d4,g4,b4], g1 b1 d2 b1", // G
  L: "~@2 [c4,e4,a4] ~@2 [c4,e4,a4] ~@2 [d4,f#4,a4] ~@2 [d4,f#4,a4], a1 e2 d2 a2", // Am D
  M: "~@2 [d4,g4,b4] ~@2 [d4,g4,b4] ~@2 [d4,g4,b4] ~@2 [d4,g4,b4], g2 f2 e2 d2", // G
  N: "g1@2 [b3,d4,g4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4] e2@2 [b3,d4,g4], ~ b1 d2 ~", // G
  O: "g1@4 [b3,d4,g4]@2 ~@4 [b3,d4,g4]@2 ~@4 [b3,d4,g4]@2 e2@5 ~, ~@6 b1@6 d2@7 ~@5", // G
  P: "[c2,c4]@2 ~@4 g3@2 [f#1,f#3] ~ [g1,g3]@2 [g#1,g#3]@5 ~ [g1,g3]@2 ~@4, ~@6 g1 ~@17", // C F# G G# G
  Q: "~@2 [c#2,f4] ~ [c2,e4] ~@3", // C# C
})).s("gm_piano").gain(0.18).pan(0.8)

// drums · kick
const kick = s("bd").struct("<~@11 [x!2]!49 x [~ x!2 ~]>").gain(0.21)

// drums · snare
const snare = s("sd").struct("<~@11 [~ x ~ x]!49 x [~ x!2 ~]>").gain(0.21)

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

// drums · ride
const ride = s("rd").struct("<~@11 [x ~ x!2 ~ x!2 ~ x!2 ~ x]!48 [x ~ x!2 ~ x!2 ~ x!2 ~@2] x [~ x!2 ~]>").gain(0.21)

stack(piano, electric_guitar_muted, string_ensemble_1, bass, acoustic_guitar_steel, piano_2, kick, snare, crash, ride)