// Drown — The Smashing Pumpkins
// 72 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 5 electric guitar muted (copy of ch 4 acoustic bass)
// note: Full arrangement: all 100 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 30.
setcpm(72/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 · overdriven guitar
const overdriven_guitar = note(`<
  A@2 B A@13 C D E@2 F G ~@4 A@8 C D E@2 F G H I H I J K J K J K J K L@4 M@4 N@2 M@2 N@2 M O P Q P Q P Q P Q R@12 I@11 ~
>`.pickRestart({
  A: "[a2,c#4]@2 [a2,c#4]!2 [d3,e4] [a2,c#4] [a2,b3] [d2,a3]@2 [d2,a3]!3 [d2,f#3] [d2,a3] [d2,f#3] [d2,a3]", // A Dsus2 A Asus2 D5 D D5 D …
  B: "[a2,c#4]@2 [a2,c#4]!2 [d3,e4] [a2,c#4] [a2,b3] [d2,a3]@2 [d2,f#3]@2 [d2,f#3]@2 [d2,f#3]!2 d2", // A Dsus2 A Asus2 D5 D
  C: "[c3,g3,d4,g4]!4", D: "[g2,d3,a3,d4] [g2,d3,a3,d4]@3", E: "[a2,e3,a3]@4 [e3,a3,e4,a4]@2 [e3,a3,e4,a4] [e3,b3]@9",
  F: "[a1,a2,d3,a3,d4]@4 a3@3 d2 b3@2 [d2,b3] b3 ~ d2 d4 e4, ~@6 d4 ~", G: "f#4 [e3,b3]",
  H: "[a2,e3,a3,c#4,e4,a4]@4 [a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4] [a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4]!3 [a2,e3,a3,c#4,e4,a4]@2", // A
  I: "[d2,a2,d3,f#3,a3,d4]@4 [d2,a2,d3,f#3,a3,d4]@2 [d2,a2,d3,f#3,a3,d4] [d2,a2,d3,f#3,a3,d4]@2 [d2,a2,d3,f#3,a3,d4]@2 [d2,a2,d3,f#3,a3,d4]!3 [d2,a2,d3,f#3,a3,d4]@2", // D
  J: "[a2,e3,a3,c#4,e4,a4]!4 [a2,e3,a3,c#4,e4,a4]@4 [g2,c3,e3,g3,c4,e4,g4]@4 [g2,c3,e3,g3,c4,g4]!2 [g2,c3,e3,g3,c4,g4]@2", // A C
  K: "[g2,d3,g3,b3,d4,g4]@4 [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4]@2", // G
  L: "[a2,d3,f#3,a3,d4,a4]/4", M: "d3@2 a3@2 d4@2 a3 e4@2 d4@2 a3 d4@4", N: "d3@2 a3@2 d4@2 a3 d4@2 a3@2 d3 c#4@4",
  O: "[a1,a2,d3,a3,d4,e4]", // Asus4
  P: "[a2,e3,a3,c#4,e4,a4] [e3,a3,c#4,e4,a4] [a2,e3,a3,c#4,e4,a4] [e3,a3,c#4,e4,a4] [a2,e3,a3,c#4,e4,a4]@3 b2 [c3,g3,c4,e4,g4,c5]@4 [c3,g3,c4,e4,g4,c5]@2 [c3,g3,c4,e4,g4,c5]@2", // A C
  Q: "[g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@3 [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4]@2", // G
  R: "[d3,f#3,a3,d4,f#4,a4]/2", // D
})).s("gm_overdriven_guitar").gain(0.19)

// chords · distortion guitar
const distortion_guitar = note("<~@22 A@5 ~@13 B C B C D E F@2 G H I J@3 ~@34 K@10 L@2>".pickRestart({
  A: "b3/5", B: "~@4 e4!3 b4@2 b4@2 e4@4 ~", C: "f#3@6 f#3!3 a3!3 f#3!2 f#3@2", D: "~@4 b4@3 a4 c5@5 c5@2 c5",
  E: "b4@5 a4 b4 a4 g4 a4@3 g4@4", F: "[~@4 b4@3 a4 c5@5 d5 ~ c5@13 ~@4]/2",
  G: "a3@2 c#4 d4 e4 d4 c#4@2 c4@4 c5@3 [c4,c5]", // C
  H: "[b3,b4]@3 [b3,b4] [a3,a4]@2 [a3,a4]!2 [b3,b4]@2 [g3,g4]@2 [g3,g4]@4", I: "a3@2 c#4 d4 e4 d4 c#4@2 c4@4 c5@2 c5!2",
  J: "[b4@6 ~ f#4@17]/3",
  K: "[[d2,c4]@4 [d2,b3]@4 [d2,a3]@4 [d2,f#3]@6 [d2,c4] [d2,c4]@2 [d2,b3]@3 [d2,a3]@4 [d2,f#3]@4]/2", // D7 G D5 D D7 G D5 D
  L: "[[d2,c4]@2 [d2,b3]@2 [d2,a3]@2 [d2,f#3]@3 ~@7]/2", // D7 G D5 D
})).s("gm_distortion_guitar").gain(0.57).pan(0)

// chords · distortion guitar
const distortion_guitar_2 = note("<~@22 A@2 B C@2 ~@49 D E D E ~@20>".pickRestart({
  A: "[~@3 e4@5]/2", B: "a3@6 b3 c#4", C: "f#4/2", D: "~@6 e4 d4", E: "a3@6 e4 d4",
})).s("gm_distortion_guitar").gain(0.25).pan(1)

// bass · acoustic bass
const bass = note(`<
  ~@4 A B A C A B A@3 B A D E F G@2 H@2 A B A C A B A@3 B A D E F G@2 H@2 I J I J K L K L M N M N O@4 P@11 Q R S R S T S
  T S O@4 P@9 U@4 V W@5 ~
>`.pickRestart({
  A: "a2@2 a2!3 b2 a2 d2@2 d2!3 d2@2 e2!2", B: "a2@2 a2!3 b2 a2 d2@2 d2!3 d2@2 a2 b2",
  C: "a2@2 a2!2 d3 c#3 a2 d2@2 d2!3 d2@2 e2!2", D: "a2@2 a2!3 b2 a2 d2@2 d2!3 d2@2 d2@2", E: "c2@2 c2@2 c2@2 c2 b1",
  F: "~ g1 g1@2 g1@12", G: "a1/2", H: "[~@2 f#3 e3, d1]/2", I: "a1@2 a1!2 a2!3 a1@2 a1@2 a1 a2!3 a1",
  J: "d1@3 d1 d1@2 d1 d1@2 d1@2 d1 e1 d1 e1 f#1", K: "a1!4 a1@2 a1!2 c2@3 c2 c2@2 c2@2",
  L: "g1@3 g1 g1@3 g1@2 g1@2 g1 g1@2 g1@2", M: "a1!2 a1@2 e1@4 c2@3 c2 c2@2 c2@2",
  N: "g1@2 g1!2 g1@2 g1 g1@2 g1@2 g1!5", O: "d2@7 a1", P: "d2@3 d2 d2@2 d2 d2@2 d2@2 d2 d2@2 a1@2",
  Q: "d2!10 e2!2 f#2!4", R: "a1!8 c2@3 c2 c2@2 c2@2", S: "g1!16", T: "a1@4 e1@4 c2@3 c2 c2@2 c2@2",
  U: "a1@2 a1!2 a2@2 a1 d2@2 d2@2 d2 d2@2 d2@2", V: "c2 d2!3 d2@2 d2 d2@2 d2@2 d2 d2@2 c2!2",
  W: "c2 d2!3 d2@2 d2@2 d2@3 d2 d2@2 a1@2",
})).s("gm_acoustic_bass").gain(0.25).pan(0.6)

// other · guitar harmonics
const guitar_harmonics = note("<~@44 A ~@7 B@4 ~@21 C@4 D@2 E ~@16>".pickRestart({
  A: "~@8 g5@5 ~@3", B: "a4/4", C: "[a4@18 ~@2 e4@5 a4 e4@4 ~@2]/4", D: "[~@2 e4@3 b3 c#4 d4@7 e4@2]/2", E: "a#4@3 ~",
})).s("gm_guitar_harmonics").gain(0.25)

// bass · acoustic bass
const bass_2 = note("<~@56 A B C D E F G F E F H B ~@32>".pickRestart({
  A: "f#3@14 e3 f#3", B: "a3", C: "a3 b3@6 a3@5 a3 f#3!2 e3", D: "f#3@12 e3@2 e3!2", E: "f#3@14 e3!2", F: "f#3",
  G: "a3 b3@6 a3@5 f#3 a3 f#3 e3", H: "a3 f#3@4 a3@2 b3@5 a3 b3 a3 b3",
})).s("gm_acoustic_bass").gain(0.48).pan(0)

// other · distortion guitar
const distortion_guitar_3 = note("<~@77 A@4 B@2 C ~@16>".pickRestart({
  A: "[~@20 e4@5 a4 e4@4 ~@2, a4@5 ~@3, ~ a3]/4", B: "[f#3@5 e3 f#3 d3@7 e3@2]/2", C: "f#3@3 a3",
})).s("gm_distortion_guitar").gain(0.22).pan(0.3)

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

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

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@3 A B@3 C ~@52 D@2 B E F B@2 G H I J ~@8 K B@3 E L B J@2 M N ~ J O P Q ~@2 A R ~
>`.pickRestart({
  A: "~@15 x", B: "~@3 x ~@4 x ~@2 x ~@3 x", C: "~@3 x ~ x ~@2 x ~@7", D: "~@3 x ~@3 x ~@3 x ~@3 x",
  E: "~@3 x ~@4 x ~@2 x ~@4", F: "~ x ~ x ~@4 x ~@2 x ~@3 x", G: "~ x ~ x ~ x ~@2 x!2 ~ x ~@3 x", H: "x!4",
  I: "x ~@3 x ~@3 x ~@3 x ~@2 x", J: "x", K: "~@3 x ~@7 x ~@4", L: "x ~@2 x ~@4 x ~@2 x ~ x ~ x", M: "x!8",
  N: "x ~ x ~ x ~ x ~ x ~@2 x ~@3 x", O: "~@7 x", P: "x ~@6 x", Q: "x ~@2 x ~@4 x ~@2 x ~@3 x", R: "x ~@14 x",
})).gain(0.36)

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

// drums · open hat
const open_hat = s("oh").struct("<~@5 [~@15 x] ~@94>").gain(0.36)

// drums · mid tom
const mid_tom = s("mt").struct("<~@3 [~@15 x] ~@96>").gain(0.36)

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

// drums · ride bell
const ride_bell = s("rd").struct("<~@86 [x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x] x ~@4 [x!5 ~@3 x!5 ~@3]!2 ~@6>").gain(0.36)

stack(
  overdriven_guitar, distortion_guitar, distortion_guitar_2, bass, guitar_harmonics, bass_2, distortion_guitar_3, kick,
  snare, low_tom, hihat, open_hat, mid_tom, crash, ride_bell
)