// I'm Going Slightly Mad — Queen
// 116 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// 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(116/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 · music box · "Effects"
const music_box = note("<~@4 A ~@32 A B ~@78 C D ~@7>".pickRestart({
  A: "~@8 [d6,d#6] [e6,f6,f#6] [g6,g#6,a6] [a#6,b6,c7] [c#7,d7,d#7] [e7,f7,f#7] [g7,g#7,a7] [a#7,b7,c8]", // D#maj7
  B: "[a#7,b7] [g7,g#7,a7] [e7,f7,f#7] [c#7,d7,d#7] [a#6,b6,c7] [g6,g#6,a6] [e6,f6,f#6] [c#6,d6,d#6] ~@8", // Bmaj7
  C: "~@13 a3@2 ~", D: "b3@2 ~ e4@2 d4@10 ~",
})).s("gm_music_box").gain(0.19).pan(0)

// chords · distortion guitar · "Electric Guitar"
const distortion_guitar = note(`<
  ~@6 A@2 B C A@2 B C D@2 E@2 D@2 E@2 F@2 G ~ G ~@2 H@2 I@2 H@2 J K A@6 B C A@2 B C D@2 E@2 D@2 E@2 F@2 G ~ G ~@2 H@2
  I@2 H@2 J L ~@6 H@2 I@2 H@2 J L M ~ D@2 E@2 D@2 E@2 N O P ~ P ~@2 Q@2 R@2 Q@2 S@3 T ~@13
>`.pickRestart({
  A: "[d3,f3,a3]!2 ~ [d3,f3,a3]!3 ~ [d3,f3,a3]", B: "[e3,a#3,d4]!2 ~ [e3,a#3,d4]!3 ~ [e3,a#3,d4]",
  C: "[e3,a#3,c#4]!2 ~ [e3,a#3,c#4]!3 ~ [e3,a#3,c#4]", D: "[f#3,a#3,c#4,e4]!2 ~ [f#3,a#3,c#4,e4]!3 ~ [f#3,a#3,c#4,e4]",
  E: "[g3,b3,d4]!2 ~ [g3,b3,d4]!3 ~ [g3,b3,d4]", F: "g4 e4 c#4 b3 g4 e4 c#4 a3", G: "[a3,d4,f#4,a4]",
  H: "f4 c4 a3 f3 f4 c4 a3 f3", I: "e4 b3 g3 e3 e4 b3 g3 e3", J: "[g#3,b3,f4]!2 ~ [g#3,b3,f4]!3 ~ [g#3,b3,f4]",
  K: "[g3,a#3,e4]!2 ~ [g3,a#3,e4]!3 ~@2", L: "[g3,a#3,f4]!2 ~ [g3,a#3,f4]!3 ~ [g3,a#3,f4]", M: "[d3,f3,a3] ~@7",
  N: "g4 e4 c#4 a#3 g4 e4 c#4 a#3", O: "a4 f#4 d#4 c#4 a4 f#4 d#4 b3", P: "[b3,e4,g#4,b4]",
  Q: "g4 d4 b3 g3 g4 d4 b3 g3", R: "f#4 c#4 a3 f#3 f#4 c#4 a3 f#3", S: "[a#3,c#4,g4]!2 ~ [a#3,c#4,g4]!3 ~ [a#3,c#4,g4]",
  T: "[a#3,c#4,g4]!2 ~ [a#3,c#4,g4]!3 ~@2", // Gdim
})).s("gm_distortion_guitar").gain(0.31).pan(1)

// other · overdriven guitar · "Electric Guitar"
const overdriven_guitar = note("<~@101 A B C D ~@11 E ~@3 E ~@5>".pickRestart({
  A: "~@3 e4", B: "e4", C: "~@13 a4@3", D: "a#4 b4", E: "e6 d6 ~ c#6 ~ c6 ~ b5",
})).s("gm_overdriven_guitar").gain(0.34).pan(0.2)

// other · overdriven guitar · "Solo - Electric Guitar"
const overdriven_guitar_2 = note("<~@78 A@2 B C D@2 E F G H ~ I ~@36>".pickRestart({
  A: "[~@2 f4@3 ~ f4@2 f4@10 c4 b3 ~ a#3 a3@4 ~@2 f5@2 [f#5,g5]@2, ~@13 f3@3]/2", B: "f5 e5@4 b4@2 g4",
  C: "e4@4 ~ c5@3, ~@4 g4@3 ~", D: "[f5@2 g5 a5@3 f5 c5@6 a5@2 g#5]/2", E: "g#5 f5", F: "d5 a#4", G: "f5 c5 d5@6",
  H: "d4", I: "~@2 c#6@3 c#5@11",
})).s("gm_overdriven_guitar").gain(0.6).pan(0.7)

// bass · synth bass 2 · "Bass"
const bass = note(`<
  ~@4 A@2 B C D E F@2 G@2 H I J@2 K L M N O P Q R S T U V W X Y Z AA AB AC AD AE B C B C D E F@2 G@2 H I AF@2 K L M N
  AG@2 AH AI AJ AK U V W X Y Z AA AB AL AM AN AO AP AQ AR Z@2 AS AT AU AV AW AX AY@2 AZ BA BB BC AZ BD BB@2 BE BF BG BH
  BI BH BJ BK BL BM BN BO N BP BQ BR@2 BS BT BB@2 BU@2 U@2 BV BW BU@2 BX
>`.pickRestart({
  A: "[~@8 a3 ~ f3 ~ e3@2 a#3@4 ~ a#3@2 a3 ~ d3@3 d3@2 a2@4]/2", B: "[d1,d2]!3 ~ [d1,d2] [f1,f2] [d1,d2] ~",
  C: "[d1,d2]!3 ~ [d1,d2]!3 ~", D: "e1@2 ~@3 g1 a#1 d2", E: "a#2",
  F: "[d1,d2]@2 [d1,d2]@2 ~@2 d2!2 [d1,d2]@2 [d1,d2]@2 [d1,d2]@2 ~@2", G: "e1!2 ~@4 e1 ~", H: "f#2!2 ~ c#3 f#2!2 ~ c#3",
  I: "f#2!2 ~@5 f#2", J: "g2@3 ~ g2@4 g2@3 ~ g2@3 ~", K: "f#2@2 ~ f#1!3 ~ f#1", L: "f#1@2 ~ f#1!3 ~ f#1",
  M: "g1!2 ~@3 g1 ~@2", N: "g1 ~@3 g1 ~@2 g1", O: "a1@4 a1@3 ~ a1@3 ~ a1@4", P: "a1@3 ~ a1@3 ~ a1@3 ~ a1@4",
  Q: "[d1,d2]@5 ~ [d1,d2] ~ [d1,d2]@5 ~ [d1,d2]@2", R: "[d1,d2]@5 ~ [d1,d2] ~ [d1,d2]@2 ~@6",
  S: "[d1,d2]@3 ~ [d1,d2]@3 ~ [d1,d2]@4 [d1,d2]@3 ~", T: "[d1,d2]@3 ~ [d1,d2]@3 ~ e1@2 e1@2 ~@2 e1@2",
  U: "e1!2 ~ e1!3 ~ e1", V: "f1!2 ~@2 f1!2 ~@2", W: "f1 ~@3 f1 ~@2 f1", X: "e1!2 ~@2 e1!2 ~@2", Y: "e1 ~@2 e1!3 ~ e1",
  Z: "f1!2 ~ f1!3 ~ f1", AA: "f1!6 ~ f1", AB: "g#1@7 ~ g#1@7 ~", AC: "g1@7 ~ g1@4 d2@4",
  AD: "[d1,d2]!2 ~ [d1,d2]!3 ~ [d1,d2]", AE: "[d1,d2]!2 ~ [d1,d2]!3 [c1,c2] [c#1,c#2]", AF: "g2@4 g2@3 ~ g2@3 ~ g2@4",
  AG: "a1@3 ~ a1@3 ~ a1@4 a1@3 ~", AH: "[d1,d2]@5 ~ [d1,d2]@2 [d1,d2]@5 ~ [d1,d2]@2",
  AI: "[d1,d2]@5 ~ [d1,d2]@2 [d1,d2]@2 ~@6", AJ: "[d1,d2]@3 ~ [d1,d2]@4 [d1,d2]@3 ~ [d1,d2]@3 ~",
  AK: "[d1,d2]@3 ~ [d1,d2]@4 e1 ~ e1@2 ~@2 e1@2", AL: "g1@3 ~ g1@3 ~ g1@4 d2@3 ~",
  AM: "[d1,d2]!3 ~ [d1,d2] f2 [d1,d2]!2", AN: "[d1,d2] ~ [d1,d2] ~ [d1,d2]!4",
  AO: "[d1,d2] ~ [d1,d2]!2 e1 [d2,f2] e2 [d1,d2]", AP: "[d1,d2] ~ [d1,d2]!4 ~ [d1,d2]",
  AQ: "[d1,d2] ~ [d1,d2]!3 [d2,f2] e2@2", AR: "[d1,d2]!2 [d1,d2]@6", AS: "e1!2 ~ e1!2 ~ e1 ~",
  AT: "e1 ~ e1 ~ e1!2 ~ e1", AU: "f1 ~ f1 ~ f1 ~@3", AV: "f1 ~@3 f1 ~ f1 ~", AW: "g#1 b1 d2 f2 g#2 f2 d2@2",
  AX: "g1 ~ g1!2", AY: "[[d1,d2] ~ [d1,d2] ~ [d1,d2]@6 ~@6]/2", AZ: "f#1@2 f#1@2 ~@3 f#1 f#1@2 f#1@2 ~@2 f#1@2",
  BA: "f#2 ~@3 f#2 ~@3", BB: "g1!2 ~ g1!3 ~ g1", BC: "g1@2 g1@2 ~@2 g2 d2 f2@2 c2 c#2 d2 f2 f#2 g2",
  BD: "f#1@2 f#2@2 f#1!2 d2@2", BE: "a1!2 ~ e2 a1!2 ~ a1", BF: "b1@2 b1@2 ~@2 f#2@2 b1@2 b1@2 ~@2 a1 b1",
  BG: "e1 ~ e1@2 ~@2 e1@2 e1@2 e1@2 ~@2 e1@2", BH: "e1 ~ e1@2 ~@2 e1 ~ f#1@2 f#1@2 ~@2 f#1@2",
  BI: "e1 ~ e1@2 ~@2 e1 ~ e1@2 e1@2 ~@2 e1@2", BJ: "f#1!2 ~ f#1!3 ~ f#1", BK: "g1!2 ~@2 g1 ~@3",
  BL: "g1!2 ~@2 g1 ~@2 g1", BM: "f#1 ~@3 f#1 ~@3", BN: "f#1 ~@3 f#1 ~ f#1 ~", BO: "g1 ~@3 g1 ~@3",
  BP: "a#1@8 ~@2 g3 a3 a#3 a3 g3 f3", BQ: "c3@14 a3 a#3",
  BR: "c4 a#3 a3 a#3 c#4 a#3 a3 a#3 c4 a#3 a3 a#3 c#4 a#3 a3 a#3", BS: "d4 e4@2 ~ a3 b3@2 ~",
  BT: "d3@2 g2@4 ~ c3@3 g2@6", BU: "b1!2 ~ b1!3 ~ b1", BV: "g1 g1@3 g1!2 ~@2", BW: "d3 g2",
  BX: "e1 [f#1,g1] a1 b1 [c2,d2] e2@5 ~@6", // Gmaj7 Csus2
})).s("gm_synth_bass_2").gain(0.6)

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

// drums · snare
const snare = s("sd").struct("<~@6 A@30 B A@34 B A@5 C A@9 ~ A@32 D A@3 E ~>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2", C: "~@2 x ~@4 x", D: "~@3 x", E: "~@4 x ~@5 x!3 ~@3",
})).gain(0.6)

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

// drums · crash
const crash = s("cr").struct(`<
  ~@6 A ~@7 A ~@7 A ~ A ~@10 A@2 ~@4 A ~@7 A ~@7 A ~ A ~@10 A@3 ~@4 B ~@2 A ~ A ~ A@2 ~@4 A ~@3 A ~ A ~ A ~ A ~@2 A ~ A
  ~ A ~@3 A ~ A ~@3 A ~ A ~ A ~ A ~@2
>`.pickRestart({
  A: "x", B: "~ x",
})).gain(0.54)

// drums · ride
const ride = s("rd").struct("<~@86 [~@7 x] x ~@38>").gain(0.54)

// drums · cabasa
const cabasa = s("cabasa:4").struct(`<
  ~ A ~@4 B C@29 D C@4 B C@29 D E C@4 F C@2 E C@3 E C G H C@2 E C@3 E C E C@3 E C@2 E C@9 E C@3 E C@5 E I ~
>`.pickRestart({
  A: "~@2 x!2 ~@4", B: "~ x!7", C: "x!8", D: "x ~ x!3 ~ x ~", E: "x ~ x!6", F: "x!5 ~ x!2", G: "x!7 ~", H: "~@2 x!6",
  I: "x!4 ~@4",
})).gain(1.83)

stack(
  music_box, distortion_guitar, overdriven_guitar, overdriven_guitar_2, bass, kick, snare, hihat, crash, ride, cabasa
)