// Breaking Point — The Moody Blues
// 100 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 126 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(100/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(`<
  A@6 B@2 C@2 D@2 E@2 D@2 C@2 D@2 E@2 F@2 C@2 G@2 E@2 H@2 C@2 I@2 J@2 K@2 L@2 M N O@4 P@2 Q R S@2 E@2 T@2 U V C@2 D@2
  E@2 D@2 C@2 D@2 E@2 F@2 C@2 G@2 E@2 H@2 C@2 I@2 J@2 K@2 L@2 M N C@2 L@2 W@2 C@2 L@2 W@2 C@2 L@2 W@2 C@2 L@2 W@2 C@2
  L@2 W@2
>`.pickRestart({
  A: "[e5@64 e5@3 ~ e5 ~ d5@7 ~@15 g4 ~ a4 ~, b4, g4@23 ~]/6", B: "[b4@3 ~ d5 ~ b4@21 ~@5]/2", C: "[[g4,b4]@27 ~@5]/2",
  D: "[[e4,g4]@27 ~@5]/2", E: "[[c4,e4]@27 ~@5]/2", F: "[[f#4,a4]@27 ~@5]/2", G: "[[e4,g4]@13 ~@3]/2",
  H: "[[d4,f#4]@27 ~@5]/2", I: "[[d4,f#4,b4]@27 ~@5]/2", J: "[[c4,f#4]@27 ~@5]/2", K: "[[g3,b3,e4]@27 ~@5]/2",
  L: "[b4@16 a4@11 ~@5, [d4,f#4]@27 ~@5]/2", M: "[c4,f#4,a4]", N: "[c4,e4,g4]@11 ~@5", O: "[[g4,b4,e5]@59 ~@5]/4",
  P: "[[f#4,a4]@13 ~ [a4,d5]@13 ~@5]/2", Q: "[c5,e5]@4 ~@2 [g4,c5]@7 ~@3", R: "[e4,g4]@9 ~ [c4,e4]@5 ~",
  S: "[[d4,f#4]@13 ~ [d4,f#4]@13 ~@5]/2", T: "[[d4,f#4]@13 ~ [f#4,b4]@6 ~@2 [d4,f#4]@7 ~@3]/2",
  U: "f#4@5 ~@3 [d#4,f#4]@5 ~@3", V: "d#4 ~ b3 ~ d#4 ~ e4@5 ~ f#4@3 ~", W: "[[f#4,a4]@16 [e4,g4]@11 ~@5, c4@27 ~@5]/2",
})).s("gm_piano").gain(0.42).pan(0.2)

// other · drawbar organ · "ORGAN 1"
const drawbar_organ = note(`<
  A@8 B@3 C D E B@5 C F G H I B@3 C D G J K L@2 M@2 N O L P Q R N ~@5 S@2 T@2 U@2 V@2 U@4 B@3 C D E B@5 C F G H I B@3 C
  D G J K L@2 M@2 N O L P Q R N W X Y Z@2 AA W X Y Z@2 AA W X Y Z@2 AA W X Y Z@2 AA W X Y Z@2 AA AB
>`.pickRestart({
  A: "[e3@123 ~@5]/8", B: "e3 ~ e3 ~ e3 ~ e3@3 ~ e3 ~ b2 ~ d3 ~", C: "e3 ~ e3 ~ e3 ~ e3@3 ~ e3 ~ d3 ~ b2 ~",
  D: "a2 ~ e2 ~ g2 ~ a2@3 ~ e2 ~ g2 ~ a2 ~", E: "a2 ~ e2 ~ g2 ~ a2 ~ b2 ~ c3 ~ d3 ~ d#3 ~",
  F: "a2 ~ e2 ~ g2 ~ a2@3 ~ a2 ~ e2 ~ g2 ~", G: "a2 ~ e2 ~ g2 ~ a2@3 ~ a2 ~ b2 ~ c3 ~",
  H: "d3 ~ d3 ~ d3 ~ d3@3 ~ d3 ~ a2 ~ b2 ~", I: "d3 ~ d3 ~ d3 ~ d3@3 ~ d3 ~ c3 ~ b2 ~",
  J: "b2 ~ b2 ~ b2 ~ b2@3 ~ b2 ~ f#2 ~ a2 ~", K: "b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ c3 ~ d3 ~",
  L: "e3 ~ e3 ~ e3 ~ d3 ~ e3 ~ e3 ~ b2 ~ d3 ~", M: "d3 ~ d3 ~ c3 ~ d3 ~ d3 ~ d3 ~ d3@3 ~",
  N: "c3 ~ c3 ~ c3 ~ b2 ~ c3 ~ c3 ~ c3@3 ~", O: "c3 ~ c3 ~ c3 ~ b2 ~ c3 ~ c3 ~ c3 ~ d3 ~",
  P: "e3 ~ e3 ~ e3 ~ d3 ~ e3 ~ e3 ~ b2 ~ e3 ~", Q: "d3 ~ d3 ~ d3 ~ c3 ~ d3 ~ d3 ~ d3@3 ~",
  R: "d3 ~ d3 ~ d3 ~ c3 ~ d3@3 ~@5", S: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~",
  T: "c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~", U: "b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~",
  V: "a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~", W: "c3 ~ c3 ~ c3 ~ b2 ~ c3@3 ~ c3 ~ d3 ~",
  X: "e3 ~ e3 ~ e3 ~ d3 ~ e3@3 ~ b2 ~ d3 ~", Y: "e3 ~ e3 ~ e3 ~ d3 ~ e3@3 ~ b2 ~ e3 ~",
  Z: "d3 ~ d3 ~ d3 ~ c3 ~ d3@3 ~ d3 ~ d3 ~", AA: "c3 ~ c3 ~ c3 ~ b2 ~ c3@3 ~ c3 ~ c3 ~",
  AB: "c3 ~ c3 ~ c3 ~ b2 ~ c3@3 ~@5",
})).s("gm_drawbar_organ").gain(0.21).pan(0.8)

// bass · lead 1 square · "SQUAREWAVE"
const bass = note(`<
  A@8 B@4 C@2 D@2 B@4 C@2 E@2 B@4 C@2 F@2 D@2 E@2 G@2 D@2 E@2 G@2 B@4 ~@12 B@4 C@2 D@2 B@4 C@2 E@2 B@4 C@2 F@2 D@2 E@2
  G@2 D@2 E@2 H ~@31
>`.pickRestart({
  A: "[e2@123 ~@5]/8", B: "[e2@59 ~@5]/4", C: "[a2@27 ~@5]/2", D: "[e2@27 ~@5]/2", E: "[d2@27 ~@5]/2",
  F: "[b2@27 ~@5]/2", G: "[c2@27 ~@5]/2", H: "c2",
})).s("gm_lead_1_square").gain(0.35)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  A@8 ~@40 B@2 C@2 D@2 E@2 D@2 F@2 G@4 E@2 H@2 G@4 E@2 B@2 G@4 E@2 D@2 H@2 I J K L H@2 ~@4 H@2 I M@2 L H@2 I M@2 L H@2 I
  M@2 L H@2 I M@2 L H@2 I M@2 L
>`.pickRestart({
  A: "[e4@123 ~@5]/8", B: "[[d4,f#4,a4]@27 ~@5]/2", C: "[[c4,e4,g4]@27 ~@5]/2", D: "[[d4,f#4,b4]@27 ~@5]/2",
  E: "[[c4,e4,a4]@27 ~@5]/2", F: "[[d#4,f#4,b4]@27 ~@5]/2", G: "[[e4,g4,b4]@59 ~@5]/4", H: "[[e4,g4,b4]@27 ~@5]/2",
  I: "[d4,f#4,a4,b4]", J: "[d4,f#4,a4]@11 ~@5", K: "[d4,f#4,a4]", L: "[c4,e4,g4]@11 ~@5", M: "[d4,f#4,a4]/2",
})).s("gm_string_ensemble_1").gain(0.18).pan(0.1)

// chords · pad poly · "POLYSYNTH"
const pad_poly = note(`<
  ~@48 A@2 B@2 C@2 D@2 C@2 E@2 F@4 D@2 G@2 F@4 D@2 A@2 F@4 D@2 C@2 G@2 H I J K G@2 ~@4 G@2 H L@2 K G@2 H L@2 K G@2 H L@2
  K G@2 H L@2 K G@2 H L@2 K
>`.pickRestart({
  A: "[[d5,f#5,a5]@27 ~@5]/2", B: "[[c5,e5,g5]@27 ~@5]/2", C: "[[d5,f#5,b5]@27 ~@5]/2", D: "[[c5,e5,a5]@27 ~@5]/2",
  E: "[[d#5,f#5,b5]@27 ~@5]/2", F: "[[e5,g5,b5]@59 ~@5]/4", G: "[[e5,g5,b5]@27 ~@5]/2", H: "[d5,f#5,a5,b5]",
  I: "[d5,f#5,a5]@11 ~@5", J: "[d5,f#5,a5]", K: "[c5,e5,g5]@11 ~@5", L: "[d5,f#5,a5]/2",
})).s("gm_pad_poly").gain(0.15).pan(0.9)

// drums · kick
const kick = s("bd").struct("<~@8 [~ x] [x!2]!38 [~@2 x!2] [x!2]!7 [x ~ x!2] [x!2]!70>").gain(0.37)

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

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

// drums · crash
const crash = s("cr").struct(`<
  ~@8 A ~@7 A ~@7 A ~@7 A ~@7 A ~ A ~ A ~@3 A ~@7 A ~@3 A ~@7 A ~@7 A ~@7 A ~@7 A ~@3 A ~@5 A ~@5 A ~@5 A ~@5 A ~@5
>`.pickRestart({
  A: "x",
})).gain(0.37)

stack(piano, drawbar_organ, bass, string_ensemble_1, pad_poly, kick, snare, hihat, crash)