// Shake the Disease — Depeche Mode
// 120 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 131 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(120/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 · "SynPiano"
const piano = note(`<
  A B@3 A B@3 C D C D E@3 F G@3 H I J K L@2 M N@6 O@3 P@2 Q@8 R S R S C D C D E@3 F G@3 H I J K L@2 M N@6 O@3 P@2 Q@8 R
  S R S T@2 U V W@2 X V A Y@2 Z@8 P@2 Q@8 R S R S T@2 U V W@2 X V
>`.pickRestart({
  A: "f4@3 a4, d4", B: "[f4@3 bb4@2 f4@2 bb4@2 [d4,f4]@3, d4@4 ~ db4@3 ~@4]/3",
  C: "~@2 [d4,f4,a4]!2 bb4@2 a4@2, ~ [d4,f4]", D: "~@2 [d4,f4,a4]!2 a4 bb4 a4@2, ~ [d4,f4]",
  E: "[[d4,f4,a4]@2 [d4,f4,a4]@2 g4!3 f4@3 g4 f4 g4!2 c5 [f4,a4]@2 f4 [d4,f4,a4]!2 [d4,f4,bb4]@2 [d4,f4,a4]@2, ~@4 [c4,f4]@3 [a3,c4]@5 [d4,f4]@3 d4@3 ~@6]/3", // Dm F Dm Bb Dm F5 Am Dm
  F: "~@2 [d4,f4,a4]!2 a4 bb4 d4 f4, ~@2 [d4,f4] ~", // Dm
  G: "[[d4,f4,a4]@2 [d4,f4,a4]@2 [c4,e4,g4] [c4,e4,g4]@2 f4@3 g4 g4@2 c5 [f4,a4]@3 f4 [d4,f4,a4]!2 [d4,f4,bb4]@2 [d4,f4,a4]@2, ~@7 [a3,c4]@4 [d4,f4]@3 d4@4 ~@6]/3", // Dm C F Dm Bb Dm Am Dm
  H: "~@2 [d4,f4,a4]!2 [d4,f4,bb4]@2 f4 g4", I: "a4@3 bb4@2 a4@3 [c4,f4,a4]@8, [c4,f4] ~",
  J: "[c4,e4]@6 c5!2, ~@3 [e4,g4]", K: "c5 f4!2 f4@2 c5!3, a4@3 [f4,a4]",
  L: "[c5 a4 bb4 [g4,bb4]@3 g4 g4@2 f4@2 [bb3,d4,f4]@5, [e4,g4]@3 e4@4 [bb3,d4]@4 ~@5]/2", // Gm Bb Em Bb
  M: "~@2 d4!2 f4 g4 f4 [d4,f4,a4], ~@2 bb3@2 d4@3 ~", // Dm
  N: "[~ f4 [bb3,d4,f4]@10 d4!2 a4 [d4,a4]@4 d4!3 a4 ab4@5 ab4 bb4 c5 bb4@2 ab4@2 ab4!2 bb4 c5 [f4,bb4]@4 f4 f4@2 f4 [a4,d5,f5], ~@15 f4@8 [c4,f4]@8 [db4,f4]@8 d4@8 ~]/6", // Bb D5 Bb5 Dm F5 Db
  O: "[~ e5 ~ c5 ~@2 f4 f4@2 g4 ab4 g4@2 f4!2 f4@2 g4 ab4 bb4@2 ab4!2 g4, ~@2 d5@2 d5@3 [ab3,c4]@8 [ab3,db4]@9]/3", // Ab Db5
  P: "[ab4@3 g4@2 f4@3 [d4,f4]@24, d4 ~@3, f4@5 ~@3 a4@16 ~@8]/2", // Dm
  Q: "[[a3,d4,f4]!3 [g3,c4,e4] [g3,c4,e4]@2 [g3,c4,f4] [g3,c4,f4]@3 ~@6]/2", // Dm C Csus4
  R: "[f3,bb3,d4]!3 [e3,g3,c4] [e3,g3,c4]@2 [f3,bb3,d4]!2", S: "~ [f4,a4]!4 [g4,bb4] f4!2, ~@3 a4",
  T: "[~ e4 d4 c4@2 d4@2 f4@2 g4@2 a4 g4@2 f4 a3, d4@2 ~ g3@4 ~@9, f4 ~@15, ~ a3@6 ~@7 [a3,c4]@10 [bb3,d4]@8]/2", // Am Bb
  U: "~ d4 g4 f4@5, [a3,c4]", V: "~@2 [d4,f4,a4]!2 a4 bb4 [d4,f4,a4]@2, ~@2 [d4,f4] ~",
  W: "[f4 e4 d4 c4@2 d4@2 f4@2 g4@2 a4 g4@2 f4 a3, a3@3 g3@4 a3@8 ~, d4@2 ~@5 c4@9]/2", X: "c4 d4 g4 f4@5, a3",
  Y: "[f4@3 ab4@2 f4@2 ab4, c4@4 ~ db4@3]/2",
  Z: "[~@2 [d4,f4]@2 d4!2 a4 [d4,a4]@4 d4!2 ~ a4 ab4@5 ab4 bb4 c5 bb4@2 ab4@2 ab4!2 bb4 c5 [f4,bb4]@4 f4 f4@2 f4 f5@2 e5 ~ c5 ~@2 f4 f4@2 g4 ab4 g4@2 f4!2 f4@2 g4 ab4 bb4@2 ab4!2 g4, ~@7 f4@8 ~@24 a4@8 [ab3,c4]@8 [ab3,db4]@9, ~@13 d4@2 [c4,f4]@8 [db4,f4]@8 d4@8 d5@3 d5@2 d5@3 ~@17]/8", // Dm D5 Bb5 Ab Db5 F5 Db
})).s("gm_piano").gain(0.36)

// bass · synth bass 1 · "SynBass2"
const bass = note(`<
  A@2 B C A@2 B C A@4 D E A@2 D E A@2 F G F H C@3 I J K L M J K N O@2 P@8 Q@2 R S A@4 D E A@2 D E A@2 F G F H C@3 I J K
  L M J K N O@2 P@8 Q@2 R S T U A@2 T U A@2 V W X Y J K L M J K N O@2 P@8 Q@2 R S T U A@2 T U A@2
>`.pickRestart({
  A: "d3!8", B: "db3!8", C: "bb2!8", D: "d3!3 c3!4 f2", E: "f2!3 bb2!4 d3", F: "f2!8", G: "c3!4 bb2@2 g2@2", H: "c3!8",
  I: "bb2!3 bb2@5", J: "d3!7 f3", K: "f3!7 db3", L: "db3!7 bb2", M: "bb2!7 db3", N: "eb3!8", O: "bb2!4",
  P: "[d3!3 c3 c3@2 f3 f3@2 g3!5 ~@2]/2", Q: "[d3!3 c3 c3@2 d3 d3@9]/2", R: "d3!3 c3 c3@2 c3!2", S: "c3",
  T: "d3!3 c3!4 f3", U: "f3!3 bb2!4 d3", V: "d3", W: "e3", X: "db3", Y: "bb2",
})).s("gm_synth_bass_1").gain(0.36)

// drums · kick
const kick = s("bd").struct(`<
  ~@8 A B A B A C A B A C A B@3 A B@2 A C A B A B A B A B A B ~@12 A B A B A C A B A C A B@3 A B@2 A C A B A B A B A B A
  B ~@12 A B A B A B A B ~@3 A B A B A B A B A B ~@12 A B A B A B A B
>`.pickRestart({
  A: "x ~@2 x ~ x ~ x", B: "x ~@5 x ~@3 x ~@2 x ~@2", C: "x ~@3 x ~ x ~@3 x ~@2 x ~@2",
})).gain(0.46)

// drums · rim
const rim = s("rim").struct("<~@20 A ~@3 B ~@36 A ~@3 B ~@65>".pickRestart({
  A: "~@10 x!2 ~@4", B: "~@12 x!3 ~",
})).gain(0.31)

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

// drums · hihat
const hihat = s("hh").struct(`<
  ~@8 A@29 B C B C B C B C B C B C A@29 B C B C B C B C B C B C A@8 B C B A@10 B C B C B C B C B C B C A@8
>`.pickRestart({
  A: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!2", B: "x!4", C: "x ~@3 x ~@3 x ~ x ~ x ~ x!2",
})).gain(0.31)

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