// The Thin Ice — Pink Floyd
// 59 bpm, 12/8, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: ch 4 "Dave -- plays the strings" named as a string part, played on string ensemble 1 (its electric guitar clean patch is not one)
// note: Full arrangement: all 26 bars on a 32-step grid, each part at one level. Source detail keeps the original performance.
setcpm(59/6)

// 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.

// other · pad sweep
const pad_sweep = note("<A@4 B C D@3 E ~@16>".pickRestart({
  A: "[~@31 c4@17 ~@9 f3@17 ~@10 c4@18 ~@8 f3@18]/4", B: "~@9 c4@18 ~@5", C: "~@2 f3@9 ~@5",
  D: "[c4@5 ~@9 f3@5 ~@9 a3@19 ~@9 c4@5 ~@2 g3@5 ~@2 f4@5 ~@2 c4@5 ~@2 a3@5 ~@7]/3", E: "~@2 g3@5 ~@25",
})).s("gm_pad_sweep").gain(0.25).pan(0.6)

// chords · piano · "Rick -- plays the Piano"
const piano = note("<A@6 B@4 C D E F G H I ~@9>".pickRestart({
  A: "[~@31 e3@13 a3@13 ~@13 g3@14 e3@13 a3@13 ~@14 g3@13 g3@7 ~@7 c4@7 ~@6 [a2,a3,c4]@7 a2@5 a2 ~ a3@7 [c3,e3,a3]@7, ~@31 [c2,g3,c4]@17 ~@9 [f2,c3,a3]@17 ~@10 [c2,g3,c4]@18 ~@8 [f2,c3,a3]@18 ~@9 [c3,c4,e4]@9 ~@5 [f2,a3,f4]@9 ~@2 g2@5 ~@4 e3@9 ~@12, ~@44 [a2,e3]@17 ~@9 [g2,b3,d4]@18 ~@9 [a2,e3]@18 ~@9 [g2,b3,d4]@18 ~@2 [g2,g3,b3,d4]@9 ~@5 [c3,g3,c4,e4]@6 e4@9 ~@5 [c4,e4]@9 ~@5, ~@171 [a3,c4]@7 a2@14]/6", // Am C5 F C5 F C F A5 …
  B: "[g3@7 ~@7 c4@7 ~@7 [a3,c4]@6 [a3,c4]@8 [e3,a3,c4]@7 c4@7 g3@7 ~@7 c4@7 ~@7 [a3,c4]@7 ~@7 a2@7 a2@2 ~ [b2,d4,g4]@2 [c3,d4,f4]@2 ~ [e4,g4] ~ [e4,g4] ~ [e4,g4] ~@2 [g4,c5] ~ [g4,c5] ~@2 [g4,c5] ~ [a4,c5], [c3,c4,e4]@9 ~@5 [f2,a3,f4]@9 ~@2 g2@5 ~@26 [c3,c4,e4]@9 ~@5 [e2,a3,f4]@9 ~@3 [d2,g2]@5 ~@4 [f#2,a3,c4,f#4]@10 ~@27, ~@7 [g2,g3,b3,d4]@9 ~@5 [c3,g3,c4,e4]@7 [a2,e4]@19 ~@2 [e3,a3]@9 ~@5 [g2,g3,b3,d4]@9 ~@5 [c3,g3,c4,e4]@7 [e2,e3,e4]@10 ~@4 [g3,b3,d4,g4]@10 ~@20]/4", // Am G Dm7 Em C5 Am C F …
  C: "~ [a4,c5] ~@2 [a4,c5] ~ [a4,c5] ~@2 [a4,c5] ~ [a4,c5] ~@2 [f4,a4] ~ [f4,a4] ~ [f4,a4] ~@2 [f4,a4] ~ [f4,a4] ~@2 [f4,a4] ~ [g4,b4,d5] ~@2 [g4,b4,d5]", // Am F G
  D: "~ [g4,b4,d5] ~ [g4,b4,d5] ~@2 [g4,b4,d5] ~ [g4,b4,d5] ~@2 [e4,g4] ~ [e4,g4] ~@2 [e4,g4] ~ [g4,c5] ~@2 [g4,c5] ~ [g4,c5] ~@2 [a4,c5] ~ [a4,c5] ~ [a4,c5] ~", // G Em C5 Am
  E: "~ [a4,c5] ~ [a4,c5] ~@2 [a4,c5] ~ [f4,a4] ~@2 [f4,a4] ~ [f4,a4] ~@2 [f4,a4] ~ [f4,a4] ~@2 [f4,a4] ~ [g4,b4,d5] ~@2 [g4,b4,d5] ~ [g4,b4,d5] ~@2 [g4,b4,d5]", // Am F G
  F: "~ [g4,b4,d5] ~@2 [g4,b4,d5] ~ [g4,c5,e5] ~@2 [g4,c5,e5] ~ [g4,c5,e5] ~@2 [g4,c5,e5] ~ [g4,c5,e5] ~@2 [g4,c5,e5] ~ [a4,c5,e5] ~@2 [a4,c5,e5] ~ [a4,c5,e5] ~@2 [a4,c5,e5] ~ [a4,c5,e5]", // G C Am
  G: "~@2 a4 ~ [f4,a4] ~@2 [f4,a4] ~ [f4,a4] ~@2 [f4,a4,c5] ~@2 [f4,a4,c5] ~ [f4,a4,c5] ~@2 [b3,d4] ~ [b3,d4] ~@2 [b3,d4] ~ [b3,d4] ~@2 [b3,d4] ~", // F Bm
  H: "[b3,d4] ~@2 [e4,g4] ~ [e4,g4] ~@2 [e4,g4] ~ [e4,g4] ~@2 [e4,g4] ~@2 [e4,g4] ~ [e4,c5] ~@2 [e4,c5] ~ [e4,c5] ~@2 [e4,c5] ~ [e4,c5] ~@2 [e4,c5]", // Bm Em C
  I: "~@2 [c4,f4] ~ [c4,f4] ~@2 [c4,f4] ~ [c4,f4] ~@2 [c4,f4] ~@2 [c4,g4] ~ [b3,d4] ~@2 [b3,d4] ~ [b3,d4] ~@2 [b3,d4] ~ [b3,d4] ~@2 [b3,d4] ~", // F5 C5 Bm
})).s("gm_piano").gain(0.2)

// other · drawbar organ · "and the organ !"
const drawbar_organ = note("<~@9 A@7 B ~@9>".pickRestart({
  A: "[~@17 c6@14 a6@15 f6@14 g6@15 c6@15 a6@14 f6@15 g6@15 c6@15 a6@15 f6@15 ~ g6@15 c6@15 a6@14]/7",
  B: "~@2 f6@15 g6@15",
})).s("gm_drawbar_organ").gain(0.01).pan(0.6)

// other · string ensemble 1 · "Dave -- plays the strings"
const string_ensemble_1 = note("<~@17 A B C D E F@4>".pickRestart({
  A: "~ [e4,e5]@8 [d4,d5]@7 [f4,f5]@8 [e4,e5]@5 ~ [d4,d5]@2", // E D F E D
  B: "[a3,a4]@8 e4@2 a4 e4@2 d4 c4 a3 e4@2 e4 e4@2 d4 c4 a3 e3 d3 c3 a2 [e2,g2] d2 c2 a1", // A Em
  C: "e4@8 d4@8 f4@8 e4@5 d4@3", D: "e4@8 e5@2 a5 g5 f5 g5 a5@2 a5@2 a5 a5@2 a5 a5@2 a5@8", E: "~ e5@8 d5@8 f5@8 e5@7",
  F: "[~ e5@9 d5@9 [b4,b5]@19 ~ [e4,g4,c5,e5]@69 ~@20]/4", // B C
})).s("gm_string_ensemble_1").gain(0.61).pan(0.3)

// bass · electric bass finger · "Roger -- on the Bass"
const bass = note("<A@2 B C@3 D@7 E@2 F@2 G H I J K L M@2 ~>".pickRestart({
  A: "[~@31 c2@6 ~ c3@6 a2@7 a2 c3 e3@2 a2@2 f2@7]/2", B: "f3@6 g2@7 g2@2 a2@2 b2@2 ~ c2@6 c3@6",
  C: "[~ a2@7 e3@6 f2@7 f3@7 g2@6 g2@2 ~ a2@2 b2@2 c3@7 g2@7 f2@7 g2@6 a2@7 a2@5 a2@2 a2@14]/3",
  D: "[c3@7 g2@7 f2@7 g2@7 a2@14 g3@2 g3!4 ~ f#3@2 f#3@5 c3@7 g2@7 f2@7 e2@5 d2@2 e2@7 f#2@7 g2@7 g2@2 ~ a2@2 b2@2 ~ c3@9 c3@2 ~ b2@2 a2@10 a2@2 g2@2 ~ f2@9 f2@2 ~ f#2@2 g2@7 g2@2 ~ a2@2 b2@2 ~ c3@10 c3@2 b2@2 ~ a2@9 a2@2 ~ g2@2 f2@7 ~ f2@2 c3@2 ~ d3@2 g2@9]/7",
  E: "[~ g2@2 ~ f2@2 c2@10 g2@2 ~ c2@2 g2@8 e3@2 a2@3 g2@2 f2@10 ~ f2@2 f2@3 g2@7 g2@3 a2@2]/2",
  F: "[b2@3 c3@7 b2@8 ~@13 c3@3 f2@7 g2@8 g2@8 g2@2 a2@3 b2@2, ~@18 a2@15 ~@31]/2", G: "~ e3@8 d3@7 f3@8 e3@5 ~ d3@2",
  H: "e3!3 ~", I: "e2@8 d2@8 a2@8 e2@2 b2 e2@2 e2@3, ~@29 b2 ~@2", J: "a2@8 a2@3 ~ g2 ~ e2@2 a2@8 a2@8",
  K: "~ e2@8 d2@8 f2@8 e2@7", L: "~ e2@9 f#2@9 g2@8 g1 g2 g1@2 [g1,g2]",
  M: "[g1@2 g1 g1@2 g1 g2 c2@44 ~@13, ~@3 g2 ~@60]/2",
})).s("gm_electric_bass_finger").gain(0.64).pan(0.7)

// drums · kick
const kick = s("bd").struct("<~@17 A B C D E F G ~@2>".pickRestart({
  A: "~@16 x ~@11 x ~ x!2", B: "x ~@14 x!2 ~@11 x!2 ~@2", C: "x ~@15 x ~@12 x!3", D: "x ~@7 x ~@5 x!2",
  E: "~ x ~@15 x ~@14", F: "~ x ~@14 x ~ x!2 ~@12", G: "~@3 x ~@12",
})).gain(0.64).pan(0.6)

// drums · snare
const snare = s("sd").struct("<~@17 [~@9 x ~@14 x ~@7] [~ x ~ x]!3 [~@9 x ~@15 x ~@6] [~@10 x ~@18 x ~@2] ~@3>")
  .gain(0.64).pan(0.6)

// drums · hihat
const hihat = s("hh").struct("<~@17 A B C D E F G ~@2>".pickRestart({
  A: "~@9 x ~ x ~@2 x ~ x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2",
  B: "x ~@2 x ~ x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2 x ~@2",
  C: "x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2",
  D: "~@8 x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2 x ~@2 x ~@2 x ~", E: "x ~@10 x ~@2 x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@3 x",
  F: "~ x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@3 x ~@2", G: "x ~@2 x ~@3 x ~@24",
})).gain(0.64).pan(0.6)

// drums · low tom
const low_tom = s("lt").struct("<~@21 [~ x ~@30] ~@4>").gain(0.64).pan(0.6)

// drums · mid tom
const mid_tom = s("mt").struct("<~@16 [~@23 x ~@5 x!3] [~ x ~@30] ~@2 [~@27 x!5] x ~@4>").gain(0.64).pan(0.6)

// drums · high tom
const high_tom = s("ht").struct("<~@16 [~@24 x!5 ~@3] ~@3 [~@22 x!5 ~@5] ~@5>").gain(0.64).pan(0.6)

// drums · crash
const crash = s("cr").struct("<~@17 [~ x ~@30] ~@3 [~ x ~@30] ~@4>").gain(0.64).pan(0.6)

stack(pad_sweep, piano, drawbar_organ, string_ensemble_1, bass, kick, snare, hihat, low_tom, mid_tom, high_tom, crash)