// Living Doll — Cliff Richard
// 133 bpm, 4/4, key A major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 82 bars on a 24-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, A@4 for four bars: edit a riff to change every repeat.

// chords · piano · "A.PIANO 1"
const piano = note(`<
  ~@2 A@6 B C A@2 D@2 E F A ~ E@2 G A E@2 H ~ A@3 I A@2 J C K A L@2 E C M ~ N A@5 B O N A D@2 P A Q R S E A@2 T U H ~
  G@2 A@4 B O A@2 L V W X Y Z
>`.pickRestart({
  A: "~@6 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~@7 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~", // A
  B: "~@6 [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~@7 [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~", // B
  C: "~@6 [g#3,b3,e4] ~@3 [g#3,b3]@2 ~@6 [g#3,e4]@2 ~@2 [g#3,b3]@2, ~@10 e4 ~@7 b3 ~@3 e4 ~", // E G#m C#m G#m
  D: "~@6 [a#3,c#4,f#4] ~@3 [a#3,c#4,f#4] ~@7 [a#3,c#4,f#4] ~@3 [c#4,f#4] ~, ~@11 a#3", // F# F#5
  E: "~@6 [a3,f#4] ~@3 [a3,d4,f#4] ~@7 [a3,d4,f#4] ~@3 [a3,d4,f#4] ~, ~@3 d4 ~@8", // D
  F: "~@6 [g#3,b3] ~@3 [g#3,e4]@2 ~@6 [g#3,b3]@2 ~@2 [g#3,b3]@2, ~@10 b3 ~@7 e4 ~@3 e4 ~", // G#m C#m G#m
  G: "~@6 [a3,e4] ~@3 [a3,e4] ~@7 [a3,e4] ~@3 [a3,e4] ~, ~@3 c#4 ~ c#4 ~@3 c#4 ~ c#4", H: "[b3,e4,g#4] ~@23",
  I: "~@6 [c#4,e4]@2 ~@2 [a3,c#4]@2 ~@6 [a3,e4] ~@3 [a3,c#4,e4]@2, ~@6 a3 ~@3 e4 ~@7 c#4@2 ~@4", // C#m A A5 A
  J: "~@6 [b3,f#4] ~@3 [b3,f#4] ~@7 [b3,f#4] ~@3 [b3,f#4] ~, ~@3 d#4 ~ d#4 ~@3 d#4 ~ d#4", // B5
  K: "~@6 [c#4,e4]@2 ~@2 [a3,c#4,e4] ~@7 [c#4,e4]@2 ~@2 [a3,c#4] ~, ~@6 a3 ~@11 a3 ~@3 e4@2", // C#m A C#m A
  L: "~@3 [a#3,c#4,f#4] ~ [a#3,f#4] ~@3 [a#3,f#4] ~ [a#3,f#4], ~@10 c#4 ~@7 c#4 ~@3 c#4 ~", // F# D#m
  M: "~@6 [a3,e4] ~@3 [a3,c#4] ~@7 [a3,c#4,e4] ~@3 [c#4,e4] ~, ~@3 c#4 ~ e4 ~@5 a3", // A5 A C#m
  N: "~@6 [a3,e4] ~@3 [a3,e4] ~@7 [a3,c#4,e4] ~@3 [a3,c#4,e4] ~, ~@3 c#4 ~ c#4 ~@6", // A5 A
  O: "~@6 [b3,e4] ~@3 [g#3,b3]@2 ~@6 [g#3,b3]@2 ~@2 [g#3,b3,e4]@2, ~@6 g#3@2 ~@2 e4 ~@7 e4 ~@5", // E5 G#m E
  P: "~@6 [a3,c#4,e4]@2 ~@2 [a3,c#4,e4]@2 ~@6 [c#4,e4]@2 ~@2 [a3,e4] ~, ~@18 a3 ~@3 c#4@2", // A C#m A5
  Q: "~@6 [g#3,b3,e4]@2 ~@2 [g#3,e4] ~@7 [g#3,e4] ~@3 [g#3,b3] ~, ~@5 b3 ~@3 b3 ~@2", R: "[a3,c#4] ~@23, e4 ~@11",
  S: "~@6 [a3,d4] ~@3 [a3,d4,f#4] ~@7 [a3,d4]@2 ~@2 [a3,d4,f#4] ~, ~@6 f#4@2 ~@10 f#4 ~@5", // D5 D D5 D
  T: "~@6 [a3,d4,f#4]@2 ~@2 [a3,d4,f#4] ~@7 [a3,f#4]@2 ~@2 [a3,d4,f#4] ~, ~@18 d4 ~@5", // D
  U: "~@6 [a3,d4,f#4] ~@3 [a3,d4] ~@7 [a3,d4,f#4]@2 ~@4, ~@5 f#4 ~@6", // D D5 D
  V: "~@6 [a#3,c#4,f#4] ~@3 [c#4,f#4] ~@7 [a#3,c#4,f#4] ~@3 [a#3,c#4,f#4] ~, ~@5 a#3 ~@6", // F# F#5 F#
  W: "~@6 [d4,f#4]@2 ~@2 [a3,d4] ~@7 [a3,f#4]@2 ~@2 [a3,d4,f#4] ~, ~@6 a3 ~@3 f#4@2 ~@6 d4 ~@5", // D D5 D
  X: "~@6 [g#3,e4]@2 ~@2 [g#3,b3]@2 ~@6 [b3,e4] ~@3 [g#3,b3,e4] ~, ~@6 b3 ~@3 e4 ~@7 g#3@2 ~@4", // C#m G#m E5 E
  Y: "~@6 [a3,c#4,e4]@2 ~@2 [a3,e4] ~@7 [a3,c#4,e4] ~@5, ~@5 c#4 ~@6", Z: "[a3,c#4,e4] ~@23",
})).s("gm_piano").gain(0.3)

// chords · synth strings 1 · "SYN STR 1"
const synth_strings_1 = note(`<
  ~@2 A@6 B@4 C@3 D@3 E@6 F ~ A@6 G@4 C@3 H@3 I@2 J@4 K@4 L@6 M@6 N ~ O@6 P@4 Q@3 D@3
>`.pickRestart({
  A: "[[e3,a3,c#4]@47 ~]/6", B: "[[d#3,f#3]@23 ~ g#3@23 ~ [a3,c#4]@46 ~@2, b3@47 ~ g#3 ~@47, ~@8 e3@23 ~]/4",
  C: "[[c#3,a#3]@47 ~ a3@24, f#3, ~@16 d3@7 ~]/3", D: "[[g#3,b3]@8 [a3,c#4]@9 ~@7, e3@17 ~@7]/3",
  E: "[[f#3,d4]@47 ~ c#4@47 ~ [f#3,d4]@45 ~@3, a3@139 ~@5, ~@12 e3@11 ~@13]/6", F: "[g#3,b3,e4] ~@11",
  G: "[[d#3,f#3]@23 ~ g#3@23 ~ [a3,c#4]@46 ~@2, b3@47 ~@49, ~@8 e3@23 ~]/4", // D#m A
  H: "[b3@8 [a3,c#4]@9 ~@7, e3@49 ~@23, g#3@11 ~@25]/3", I: "[[a3,c#4]@15 ~, e4]/2",
  J: "[e3@47 ~ e4@45 ~@3, [a3,c#4]@47 ~]/4", K: "[[d#3,f#3]@11 ~ g#3@11 ~ [a3,c#4]@23 ~, b3 ~, ~@8 e3@23 ~]/4",
  L: "[[f#3,a#3]@23 ~ a3@24 g#3@12 [c#3,a3] ~@11, c#3@95 ~ b2@22 ~@26, ~@24 e3@37 ~@11]/6", // F# F#m
  M: "[[d3,f#3]@23 ~ [c#3,e3]@23 ~ [d3,f#3]@23 ~, a3@47 ~]/6", N: "[e3,g#3,b3] ~@7", O: "[[e3,a3,c#4]@71 ~]/6",
  P: "[[d#3,f#3]@23 ~ g#3@22 ~@2 [a3,c#4]@46 ~@2, b3@47 ~@49, ~@8 e3@23 ~]/4", // D#m A
  Q: "[c#3@47 ~ a3@24, f#3, a#3@44 ~@4 d3@21 ~@3]/3",
})).s("gm_synth_strings_1").gain(0.16)

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  A B C D@5 E F C D G@2 H I J K L M N O L M P ~ D@6 Q R D S G T H I J K U N U N U N V W U X Y@2 U Z I K L M N O L M P ~
  D@6 Q R D S G T H I J K
>`.pickRestart({
  A: "e2@3 ~ f#2@2 e2@4 d2@2 c#2@6 b1@6", B: "a1 ~@3", C: "a2@6 ~@4 a2@2 e2@7 ~@3 e2@2",
  D: "a2@7 ~@3 a2@2 e2@6 ~@4 e2@2", E: "b2@5 ~@5 b2@2 f#2@5 ~@5 f#2@2", F: "e2 d2 c#2 e2",
  G: "f#2@6 ~@4 f#2@2 c#2@7 ~@3 c#2@2", H: "d2 f#2 a2 f#2", I: "e2 d2 c#2 b1", J: "a1 c#2 e2 c#2", K: "a1 ~@11",
  L: "d2 f#2 a2 b2", M: "d3 b2 a2 f#2", N: "a2@6 f#2@6 e2@5 ~ c#2@6", O: "a1@6 a1@5 ~ b1@6 c#2@6", P: "e2 ~@7",
  Q: "b2@7 ~@3 b2@2 f#2@6 ~@4 f#2@2", R: "e2@3 d2@3 c#2 ~ c#2 e2@3, ~@2 d2 ~", S: "a2@3 ~@2 a2 e2@3 a2@2 e2",
  T: "f#2@6 ~@4 f#2@2 c#2@6 f#2@4 c#2 ~", U: "a1@3 c#2@3 e2@2 ~ f#2@3", V: "b1 d#2 f#2 d#2",
  W: "e2@3 d2@3 c#2@3 b1@2 ~", X: "a2@6 f#2@6 e2@6 c#2@5 ~", Y: "a#1 c#2 f#2 c#2", Z: "a2 f#2 e2 f#2",
})).s("gm_acoustic_bass").gain(0.32)

// drums · kick
const kick = s("bd").struct("<~@2 A@15 B A@6 B ~ A@15 B A@15 B A@6 B ~ A@15 B>".pickRestart({
  A: "x ~@4 x!2 ~@5", B: "x",
})).gain(0.46)

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

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

stack(piano, synth_strings_1, bass, kick, snare, hihat)