// The Icicle Melts — The Cranberries
// 97 bpm, 6/8, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 93 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(97/3)

// 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 · pad poly · "Dolores 2"
const pad_poly = note(`<
  ~@16 A B C D A B C E F G H@2 I J K@2 L M N M O M P Q R ~@8 A B C S A T U S F V H@2 I J K@2 L M N M O M P Q R ~@8 L M N
  M O M P Q R ~@2
>`.pickRestart({
  A: "[b4,c#5,e5]@5 ~ [e4,b4,c#5]@5 ~", B: "[e4,b4,c#5]@10 ~@2 e5@3 ~ d5@5 ~ c5@2",
  C: "[e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@3 ~ [e4,g4]@11 ~ b4@2", // C Em
  D: "[e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@5 ~ [e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@3 ~ d5@2", // C Em C Em
  E: "[e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@5 ~ [e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@5 ~", F: "[b4,c#5,e5]@5 ~ [c#5,e5,a5]@5 ~",
  G: "[c#5,e5,a5]@10 ~@2 [c#5,e5,a5]@3 ~ g5@5 ~ f#5@2", // A
  H: "[[c5,e5,g5]@3 ~ f#5@3 ~ d5@2 [g4,c5,e5]@29 ~ e5@3 ~ b5@3 ~]/2", I: "[e5,a5,c#6]@5 ~ [c#5,e5,g#5]@5 ~",
  J: "[c#5,e5,a5]@10 ~@2 [c#5,e5,a5]@3 ~ g5@3 ~ f#5@3 ~", // A
  K: "[[c5,e5,g5]@3 ~ f#5@3 ~ d5@3 ~ [c5,e5]@12 g5@3 ~ f#5@3 ~ d5@3 ~ [g4,c5,e5]@12, ~ g4@2 ~, ~@2 [c5,e5] ~]/2", // C
  L: "e5@4 g5!2 [e5,g5,b5]@3 ~ a5 g5", M: "f#5@3 ~ g5@2 e5@5 ~ d5@10 ~@2, [a4,c5]@19 ~@5",
  N: "[g4,c5,e5]@5 ~ g5@2 g5@2 g5@2 [e5,g5,b5]@6 ~@2 a5@2 g5@2", // C Em
  O: "[g4,c5,e5]@5 ~ g5@2 g5@2 g5@2 [e5,g5,b5]@3 ~ a5@2 g5@5 ~", // C Em
  P: "[g4,c5,e5]@6 ~@2 g5@3 ~ [e5,g5,b5]@3 ~ a5@3 ~ g5@3 ~", // C Em
  Q: "[a4,c5,f#5]@3 ~ [a4,c5,g5]@6 ~@2 [a4,c5,f#5]@3 ~ [a4,c5,g5]@6 ~@2", R: "[a4,c5,f#5]@3 ~ [a4,c5,g5]@18 ~@2",
  S: "[e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@16 ~@2", T: "[e4,b4,c#5]@8 c#5@3 ~ e5@3 ~ d5@5 ~ c5@2",
  U: "[e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@6 [e4,g4,c5]@3 ~ [e4,g4,b4]@2 g4@6", // C Em C Em
  V: "[c#5,e5,a5]@8 a5@3 ~ [c#5,e5,a5]@3 ~ g5@5 ~ f#5@2", // A
})).s("gm_pad_poly").gain(0.48)

// other · epiano1 · "Piano"
const epiano1 = note(`<
  A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 C D C D C D C ~@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2
  B@2 A@2 B@2 C D C D C D C ~@2 A@2 B@2 A@2 B@2 C D C D C D C ~@4
>`.pickRestart({
  A: "a3@3 ~ e4@3 ~ b3@3 ~ a3@3 ~ e4@3 ~ b3@3 ~", B: "c4@3 ~ e4@3 ~ b3@3 ~ c4@3 ~ e4@3 ~ b3@3 ~",
  C: "c4@3 ~ e4@3 ~ g4@3 ~ e4@3 ~ c4@3 ~ e4@3 ~", D: "a4@3 ~ e4@3 ~ c4@3 ~ a4@3 ~ e4@3 ~ c4@3 ~",
})).s("gm_epiano1").gain(0.42)

// other · french horn · "Trombone"
const french_horn = note("<~@41 A B C D A B C D ~@25 A B C D A B C D ~@11>".pickRestart({
  A: "a3@10 ~@2 b3@6 ~@2 c#4@3 ~", B: "e4@10 ~@2 e4@3 ~ d4@3 ~ c4@3 ~", C: "c4@3 ~ b3@3 ~ g3@14 ~@2",
  D: "c4@3 ~ b3@3 ~ g3@3 ~ c4@3 ~ b3@3 ~ g3@3 ~",
})).s("gm_french_horn").gain(0.72)

// chords · distortion guitar · "Distorsion"
const distortion_guitar = note(`<
  ~@32 A B A B A B A C D ~ E F@2 ~ E F@2 ~@16 A B A B A B A C D ~ E F@2 ~ E F@2 A B A B A B A C D G@2
>`.pickRestart({
  A: "~@3 [g3,c4,e4] ~@2", B: "~@3 [e3,a3,c4] ~@2", C: "[e3,a3,c4] ~@2 [e3,a3,c4] ~@2", D: "[e3,a3,c4] ~@5",
  E: "~ [a3,c#4]", F: "[[g3,c4]@3 [c4,e4]]/2", G: "[[e3,c#4]@43 ~@5]/2",
})).s("gm_distortion_guitar").gain(0.35)

// chords · distortion guitar · "Distorsion" · soft notes
const distortion_guitar_soft = note("<~@39 A B ~@31 A B ~@15 A B ~@2>".pickRestart({
  A: "~ [e3,a3,c4]@2 ~ [e3,a3,c4]@2", B: "~@2 [e3,a3,c4]@4 [e3,a3,c4]@5 ~",
})).s("gm_distortion_guitar").gain(0.14)

// chords · acoustic guitar nylon · "Guitare 2"
const acoustic_guitar_nylon = note(`<
  ~@8 A B C D A B C D A B C D A B C D A B C D A B C D E F E F E F E G@2 A B C D A B C D A B C D A B C D A B C D A B C D
  E F E F E F E G@2 A B C D A B C D E F E F E F E G@2 H@2
>`.pickRestart({
  A: "[a3,c#4,e4]@5 ~ [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@5 ~ [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2", // A
  B: "[a3,c#4,e4]@5 ~ [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2", // A
  C: "[g3,c4,e4]@5 ~ [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@5 ~ [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@2", // C
  D: "[g3,c4,e4]@5 ~ [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@3 ~ [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@2", // C
  E: "[c4,e4,g4]@3 ~ [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]@3 ~ [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]@2", // C
  F: "[a3,c4,e4]@3 ~ [a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4]@3 ~ [a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4]@2", // Am
  G: "[a3,c#4,e4]@5 ~ [a3,c#4,e4]@5 ~", H: "[[b3,c#4,e4]@43 ~@5]/2",
})).s("gm_acoustic_guitar_nylon").gain(0.29)

// other · lead 2 sawtooth · "Saw"
const lead_2_sawtooth = note("<A B C@2 A B C@2 ~@36 D E@2 F@2 ~@28 D E@2 F@2 ~@11>".pickRestart({
  A: "a4@3 ~ a4@6 ~@2 b5@3 ~ b5@6 ~@2", B: "f#5@3 ~ f#5@18 ~@2", C: "[d5@3 ~ d5@39 ~@5]/2", D: "~@6 c5@5 ~",
  E: "[c#5@43 ~@5]/2", F: "[c5@43 ~@5]/2",
})).s("gm_lead_2_sawtooth").gain(0.19)

// bass · acoustic bass · "Basse"
const bass = note(`<
  ~@7 A B C D E B C D E F C D E F C D E F C D E F C D E G H G H G H G I@2 F C D E F C D E F C D E F C D E F C D E F C D
  E G H G H G H G I@2 F C D E F C D E G H G H G H G I@2 J@2
>`.pickRestart({
  A: "~@8 e2 d2 c#2 b1", B: "a1@10 ~@2 a1@6 ~@2 a1@3 ~", C: "a1@10 ~@2 a1@3 ~ a1@3 ~ a1@3 ~", D: "c2@18 ~@2 c2@3 ~",
  E: "c2@10 ~@2 c2@3 ~ d2@3 ~ c2@3 ~", F: "a1@18 ~@2 a1@3 ~", G: "c2@3 ~ e2@3 ~ g2@3 ~ c2@6 ~@2 b1@3 ~",
  H: "a1@10 ~@2 g1@3 ~ a1@3 ~ b1@3 ~", I: "a1@5 ~ a1@5 ~", J: "[a1@43 ~@5]/2",
})).s("gm_acoustic_bass").gain(0.48)

// drums · kick
const kick = s("bd").struct("<~@8 A@15 B A@11 B A B A C D A@27 B A B A C D A@11 B A B A C E B ~>".pickRestart({
  A: "x ~@4 x", B: "x", C: "x!2", D: "x ~@2 x ~ x", E: "x ~@2 x!3",
})).gain(0.19)

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

// drums · hihat
const hihat = s("hh").struct("<~@3 A ~ A B C D@83 E ~>".pickRestart({
  A: "~@3 x!3", B: "x!2", C: "x ~@2 x!3", D: "x!12", E: "x",
})).gain(0.19)

// drums · mid tom
const mid_tom = s("mt").struct("<~@90 [~@4 x!2] ~@2>").gain(0.19)

// drums · high tom
const high_tom = s("ht").struct("<~@90 [~ x] ~@2>").gain(0.19)

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

// drums · tambourine
const tambourine = s("tb").struct("<~@33 A ~ A ~ A ~@3 A@8 ~@17 A ~ A ~ A ~@3 A@8 ~ A ~ A ~ A ~@3 B ~>".pickRestart({
  A: "~ x", B: "x",
})).gain(0.19)

// drums · ride
const ride = s("rd").struct("<~@7 [~@3 x!3] [x!2]!83 ~@2>").gain(0.19)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@8 [x!12]!83 x ~>").gain(0.94)

stack(
  pad_poly, epiano1, french_horn, distortion_guitar, distortion_guitar_soft, acoustic_guitar_nylon, lead_2_sawtooth,
  bass, kick, snare, hihat, mid_tom, high_tom, crash, tambourine, ride, cabasa
)