// Coma White — Marilyn Manson
// 74.4 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 108 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(74.4/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 · electric guitar clean · "clean guitar"
const electric_guitar_clean = note("<A@24 ~@12 A@16 ~@56>".pickRestart({
  A: "[~@12 c4 ~@15 c4 ~@15 c4 ~@3 a3 d4 a3 d4 a3 d4 a3 d4 a3 c4 a3 c4 a3 b3 a3 b3 ~@12 c4 ~@15 c4 ~@15 c4 ~@3 a3 d4 a3 d4 a3 d4 a3 d4 a3 c4 a3 c4 a3 b3 a3 b3, a3@2 e4@2 b3@2 a3@2 e4@2 b3@3 a3@2 e4@2 b3@2 a3@2 e4@2 b3@2 a3@2 e4@3 c4@2 a3@2 e4@2 b3@2 a3@2 e4@2 b3@3 a3@2 e4@18 b3@2 a3@2 e4@2 b3@2 a3@2 e4@3 c4@2 a3@2 e4@2 b3@2 a3@2 e4@2 b3@3 a3@2 e4@2 b3@2 a3@2 e4@2 b3@2 a3@2 e4@3 c4@3 ~@15, ~ b3@2 a3@2 e4@2 b3@2 a3@2 e4@3 c4@2 a3@2 e4@2 b3@2 a3@2 e4@2 b3@3 a3@2 e4@2 b3@2 a3@2 e4@2 b3@2 a3@2 e4@3 c4@3 ~@15 a3@2 e4@2 b3@2 a3@2 e4@2 b3@3 a3@2 e4@2 b3@2 a3@2 e4@2 b3@2 a3@2 e4@3 c4@2 a3@2 e4@2 b3@2 a3@2 e4@2 b3@3 a3@2 e4@17]/8",
})).s("gm_electric_guitar_clean").gain(0.26)

// chords · distortion guitar · "distorted guitar"
const distortion_guitar = note(`<
  ~@24 A B C D A B E F G@5 ~@15 A B C D A B C D A B C D A B C D ~@4 H@2 I@2 J@4 K@5 B L M A B C D A B C D A B C D A B
  N@5 ~
>`.pickRestart({
  A: "[a2,e3,a3,e4]!8", B: "[c3,g3,c4,g4]!8", C: "[g2,d3,g3,d4]!8",
  D: "[g2,d3,g3,d4] [f2,c3,f3,c4] [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2", // G5 F5
  E: "[g2,d3,g3,d4]!6 [g2,d3,g3,d4,a5]!2", // G5 Gsus2
  F: "[g2,d3,g3,d4,a5] [f2,c3,f3,c4] [f2,c3,f3,c4,a5]@2 [f2,c3,f3,c4,a5]@2 [f2,c3,f3,c4,a5]@2 [f2,c3,f3,c4,a5]@2 [f2,c3,f3,c4,a5]@2 [f2,c3,f3,c4,a5]@2 [f2,c3,f3,c4,a5]@2", // Gsus2 F5 F
  G: "[a5@2 g5@2 a5@2 g5@2 [c3,g3,c4,g4,f#5]@2 [d3,a3,d4,a4,a5]@2 f#5@2 f5@5 ~ f5 g5 f5 g5 [c3,g3,c4,g4,e5]@2 [d3,a3,d4,a4,a5]@2 e5@2 g5@2 a5@2 g5@2 a5@2 g5@2 [d3,a3,d4,a4,f#5]@2 [c3,g3,c4,g4,g5]@2 f#5@2 f5@5 ~ f5 ~ f5@2 e5@2 g5@2 f5 e5 f5 d5 e5@11 ~@5, [a2,e3,a3,e4]@8 ~@6 [g#2,d#3,g#3,d#4]@8 ~@8 [a2,e3,a3,e4]@8 ~@8 [f2,c3,f3,c4,e4]@19 ~@15]/5", // C D5 C D5 D C5 A5 G#5 …
  H: "[a5@2 g5@2 a5@2 g5@2 f#5@2 a5@2 f#5@2 f5@5 ~ f5 g5 f5 g5 e5@2 a5@2 e5@2 g5@2]/2",
  I: "[a5@2 g5@2 a5@2 g5@2 f#5@2 g5@2 f#5@2 f5@5 ~ f5 ~ f5@2 e5@2 g5@2 f5 e5 f5 d5]/2",
  J: "[[a2,e3,a3,e4,a5]@2 [a2,e3,a3,e4,g5]@2 [a2,e3,a3,e4,a5]@2 [a2,e3,a3,e4,g5]@2 [c3,g3,c4,g4,f#5]@2 [d3,a3,d4,a4,a5]@2 f#5@2 [g#2,d#3,g#3,d#4,f5]@4 [g#2,d#3,g#3,d#4]@2 ~ g5 ~ g5 [c3,g3,c4,g4,e5]@2 [d3,a3,d4,a4,a5]@2 e5@2 ~@2 a5@2 [a2,e3,a3,e4,g5]@2 [a2,e3,a3,e4,a5]@2 [a2,e3,a3,e4,g5]@2 [d3,a3,d4,a4,f#5]@2 [c3,g3,c4,g4,g5]@2 f#5@2 [f2,c3,f3,c4,e4,f5]@4 [f2,c3,f3,c4,e4]@2 [f2,c3,f3,c4,e4,f5]@2 [f2,c3,f3,c4,e4,f5]@2 [f2,c3,f3,c4,e4,e5]@2 [f2,c3,f3,c4,e4,g5]@2 ~ e5 ~ d5, ~@10 [g#2,d#3,g#3,d#4,f5]!2 ~@3 [a2,e3,a3,e4,g5]@2 ~@13 [f2,c3,f3,c4,e4,f5]!2]/4", // A5 A7 A5 A7 C D5 Fm7 G#5 …
  K: "[[a2,e3,a3,e4]@8 ~@16 [e3,e4]@8 [a2,e3,a3,e4]!8, e5@67 ~@13]/5", L: "[d3,a3,d4,a4]!8", M: "[f2,c3,f3,c4]!8",
  N: "[[g2,d3,g3,d4]@2 [g2,d3,g3,d4]@2 [g2,d3,g3,d4]@2 [g2,d3,g3,d4]@2 [g2,d3,g3,d4]@2 [g2,d3,g3,d4]@2 [g2,d3,g3,d4]@2 [g2,d3,g3,d4]@2 [g2,d3,g3,d4] [f2,c3,f3,c4] [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]@2 [a2,e3,a3,e4]@32 ~@16, a5]/5", // G5 F5 A5
})).s("gm_distortion_guitar").gain(0.3)

// bass · electric bass pick · "bass"
const bass = note(`<
  ~@4 A B C D A B C D A B C D A B C D A B C D E F G H E F G H I J K L A B C D A B C D A B C D A B C D E F G H E F G H E
  F G H E F G H ~@8 I J K L A B C D A B M D E F G H E F G H E F G H E F G H ~@4
>`.pickRestart({
  A: "a1", B: "c2", C: "g1", D: "f1", E: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~",
  F: "c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~", G: "g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~",
  H: "g1 f1!2 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~", I: "a1 ~ a1 ~ a1 ~ a1 ~ c2 ~ d2 ~ c2 ~ g#1 ~",
  J: "g#1 ~ g#1 ~ g#1 ~ g#1 ~ c2 ~ d2 ~ c2 ~ a1 ~", K: "a1 ~ a1 ~ a1 ~ a1 ~ d2 ~ c2 ~ a1 ~ f1 ~",
  L: "f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~", M: "d2",
})).s("gm_electric_bass_pick").gain(0.64)

// other · string ensemble 1 · "strings"
const string_ensemble_1 = note("<~@17 A B C D E F@2 ~@24 D E F@2 ~@56>".pickRestart({
  A: "c5 ~@15", B: "b4 ~@15", C: "a4 ~@15", D: "c5", E: "b4, e5 ~@15", F: "[a4@12 a5@3 b5@3 c6@4 d6@9 ~]/2",
})).s("gm_string_ensemble_1").gain(0.28)

// other · orchestral harp · "harp"
const orchestral_harp = note(`<
  ~@24
  [a4 ~@3 e5 ~ d5 ~@3 e5 ~@5]!8
  ~@20
  [a4 ~@3 e5 ~ d5 ~@3 e5 ~@5]!16
  ~@12
  [a4 ~@3 e5 ~ d5 ~@3 e5 ~@5]!24
  ~@4
>`).s("gm_orchestral_harp").gain(0.19)

// chords · overdriven guitar · "overdrived guitar"
const overdriven_guitar = note("<~@68 A@8 ~@32>".pickRestart({
  A: "[[a2,e3,a3,e4]@2 [a2,e3,a3,e4]@2 [a2,e3,a3,e4]@2 [a2,e3,a3,e4]@2 [c3,g3,c4,g4]@2 [d3,a3,d4,a4]@3 ~ [g#2,d#3,g#3,d#4]@4 [g#2,d#3,g#3,d#4]@2 [g#2,d#3,g#3,d#4]@2 [g#2,d#3,g#3,d#4]@2 [c3,g3,c4,g4]@2 [d3,a3,d4,a4]@3 ~ [a2,e3,a3,e4]@4 [a2,e3,a3,e4]@2 [a2,e3,a3,e4]@2 [a2,e3,a3,e4]@2 [d3,a3,d4,a4]@2 [c3,g3,c4,g4]@3 ~ [f2,c3,f3,c4,e4]@4 [f2,c3,f3,c4,e4]@2 [f2,c3,f3,c4,e4]@2 [f2,c3,f3,c4,e4]@2 [f2,c3,f3,c4,e4]@2 [f2,c3,f3,c4,e4]@2 [f2,c3,f3,c4,e4]@2 [f2,c3,f3,c4,e4]@2]/4", // A5 C5 D5 G#5 C5 D5 A5 D5 …
})).s("gm_overdriven_guitar").gain(0.3).pan(0)

// other · distortion guitar · "distorted guitar2"
const distortion_guitar_2 = note("<~@88 A@3 B A@3 C D@9 E@3>".pickRestart({
  A: "a3@3 ~ e4@2 d4@3 ~ e4@2 f4@2 e4@2", B: "a3@3 ~ e4@2 d4@3 ~ e4@2 [g4,e5]@4",
  C: "a3@3 ~ e4@2 d4@3 ~ e4@2 f4@2 a4@2", D: "b3@2 c4@2 b3@2 a3@3 ~ g3@5 ~", E: "[b3@2 c4@2 b3@2 a3@3 ~ g3@23 ~@15]/3",
})).s("gm_distortion_guitar").gain(0.3)

// drums · kick
const kick = s("bd").struct("<~@4 A@19 B C@7 D A@19 B C@7 D C@7 D ~@7 E F@4 A@8 C@7 D C@7 D G ~@3>".pickRestart({
  A: "x!2 ~@6 x ~ x ~ x ~@3", B: "x!2 ~@2 x ~@3 x ~ x ~ x ~ x ~", C: "x!3 ~ x!3 ~", D: "x!3 ~ x!4", E: "~@12 x!4",
  F: "x ~@3 x!2 ~@6 x ~ x ~", G: "x",
})).gain(0.52)

// drums · snare
const snare = s("sd").struct(`<
  ~@4 A B A C A B A C A B A C A B A C A B A D A E@2 F A E@2 G A B A C A B A C A B A C A B A C A B A D A E@2 F A E@2 G A
  E@2 F A E@2 G ~@7 H I J K L A B A M A B A N A E@2 F A E@2 G A E@2 F A E@2 O P ~@3
>`.pickRestart({
  A: "x!2 ~ x", B: "~@4 x ~@7 x ~@2 x", C: "~@4 x ~@4 x ~ x ~ x!2 ~", D: "x ~@3 x ~ x ~ x ~ x ~ x!4", E: "~ x ~ x",
  F: "~@4 x ~@7 x ~ x!2", G: "~@2 x ~@3 x!2", H: "~@12 x!4", I: "x ~@2 x!2 ~@3 x ~@7", J: "x ~@3 x ~ x!2", K: "x!3 ~",
  L: "x ~@7 x ~@3 x!4", M: "~@4 x ~@3 x ~@3 x ~ x!2", N: "~@4 x ~@3 x!2 ~@2 x!4", O: "~@4 x ~@3 x ~@3 x!4", P: "x",
})).gain(0.41)

// drums · low tom
const low_tom = s("lt").struct("<~@24 A@7 B ~@20 A@7 B A@7 B ~@20 A@7 B A@8 C ~@3>".pickRestart({
  A: "x!2", B: "x ~@3 x ~ x!2", C: "x",
})).gain(0.52)

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

// drums · ride
const ride = s("rd").struct("<~@4 [x!8]!64 ~@8 [x!8]!28 x ~@3>").gain(0.41)

stack(
  electric_guitar_clean, distortion_guitar, bass, string_ensemble_1, orchestral_harp, overdriven_guitar,
  distortion_guitar_2, kick, snare, low_tom, crash, ride
)