// Heaven and Hell — Black Sabbath
// 90 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 58 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(90/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.

// bass · electric bass finger
const bass = note(`<
  A B C D@2 B C E F@7 G F@3 H I J F@5 K L M@2 N O P M H Q R Q S Q S A B C T@2 B C U V W X Y Z J AA@2
>`.pickRestart({
  A: "e2@2 f#2 g2, ~@12 f#2 ~@3", B: "c2@10 d2@3 ~ d2@2", C: "e2@2 f#2 g2",
  D: "[a2 ~ g2 f#2 ~@6 e3 d3 b2 a#2 a2 ~ e2@5 ~@3 f#2@4 g2@4, ~@4 e2@11 g2@2 ~@15]/2",
  E: "a2 ~ g2 f#2 e2@8 a1 ~ d2 e2, ~@13 b1@2 ~", F: "e1 ~ e1!3 ~ e1!3 ~ e1!3 ~ e1!2",
  G: "e1 ~ e1!3 ~ e1!3 ~ e1!2 a1 b1 d2 e2", H: "e1 ~ e1!3 ~ e1!3 ~ e1!2 g2 f#2 e2 d2", I: "c2@11 ~ c2@4", J: "d2",
  K: "e1@2 e1!3 ~ e1!3 ~ e1!3 ~ e1!2", L: "e1 ~ e1!3 ~ e1!3 ~ e1!2 e1@2 e1!2",
  M: "e1@2 e1!2 e1@2 e1!2 e1@2 e1!2 e1@2 e1!2", N: "e1 ~ e1!3 ~ e1!3 ~ e1 ~@2 b1 d2 e2, ~@11 e1@2 ~@3, ~@6 a1 ~",
  O: "e1@2 e1!3 ~ e1!2 e1@2 e1!2 e1@2 e1!2", P: "e1@2 e1!2 e1@2 e1!3 ~ e1!3 ~ e1!2", Q: "c2@3 c2", R: "d2@6 d2!2",
  S: "d2@3 d2", T: "[a2 ~ g2 ~@7 e3 d3 ~ a#2 a2 ~ e2@5 ~@3 f#2@4 g2@4, ~@3 f#2@2 ~@7 b2@2 ~@18, ~@4 e2@11 g2@2 ~@15]/2",
  U: "a2 ~ g2 ~ e2@4 e2 f#2 g2 e2 f#2 g2 a2 b2, ~@3 f#2@2 ~@11", V: "a1@6 e2 ~", W: "d2@14 g2 g#2", X: "a2@5 e2 a2 e2",
  Y: "d2@14 g2 a2", Z: "b2@14 c3 b2", AA: "a2",
})).s("gm_electric_bass_finger").gain(0.41)

// chords · overdriven guitar
const overdriven_guitar = note(`<
  A B A C A D A E ~@12 F G H I J I K@2 ~@8 L M L N L N A B A C A D A O P Q R N S T U@2
>`.pickRestart({
  A: "[e3,b3]@2 [f#3,c#4] [g3,d4]", B: "[c3,g3]@9 ~ [d3,a3]@3 ~ [d3,a3]@2",
  C: "[a3,e4] ~ [g3,d4] ~ [e3,b3]@11 ~, ~@3 [f#3,c#4]@2 ~@11", D: "g3@9 d3 [d3,a3]@3 [d3,a3] [d3,a3]@2, c3 ~",
  E: "[a3,e4] ~ [g3,d4] ~ [e3,b3]@10 ~@2, ~@3 [f#3,c#4]@2 ~@11", F: "[g2,c3,g3,c4]@11 ~ [g2,c3,g3,c4]@4",
  G: "[a2,d3,a3,d4]", H: "e2 ~ e2!2 f#3 g3 e3@2 e2 ~ e2!2 [b2,e3,g4,b4,e5]@2 ~@2",
  I: "e2 ~ e2!2 f#3 g3 a3@2 e2@2 g3 f#3 e3@4", J: "e2 ~ e2!2 f#3 g3 e3@2 e2 ~ e2!2 [b2,e3,g3,b3]@3 ~", K: "[e2,b2]/2",
  L: "[c3,g3]@3 [c3,g3]", M: "[d3,a3]@3 [d3,a3]", N: "[d3,a3]",
  O: "[a3,e4] ~ [g3,d4] ~ [e3,b3]@10 ~@2, ~@3 [a3,c#4]@2 ~@11", P: "[a2,e3,a3,c#4]", Q: "[f#3,d4], a3 ~@15",
  R: "[c3,g3]", S: "[g2,d3,g3]", T: "[f#3,a3], d3 ~@15", U: "[a2,c#3,e3,a3]/2",
})).s("gm_overdriven_guitar").gain(0.36)

// other · overdriven guitar
const overdriven_guitar_2 = note("<A ~ B ~ A ~ A ~ C@2 ~@29 D E ~@7 F G ~@8>".pickRestart({
  A: "d2 ~", B: "d2@7 ~@9", C: "[d2@31 ~]/2", D: "~@8 g4 e4 d4 ~ a#3 a3 g3 ~", E: "c3", F: "~@2 f#3 g3",
  G: "a3 ~ g3 f#3 e3@12",
})).s("gm_overdriven_guitar").gain(0.51)

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

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

// drums · hihat
const hihat = s("hh").struct(`<
  A B A C B@2 D E D F D F G B C B C A B C H D I J A D K B A C B A C B C@10 L C A M C N B C@2 O C O C A
>`.pickRestart({
  A: "x ~ x!3 ~ x!3 ~ x!3 ~ x ~", B: "x ~ x!3 ~ x ~ x ~ x!3 ~ x!2", C: "x ~ x!3 ~ x!3 ~ x!3 ~ x!2",
  D: "x ~ x!3 ~ x ~ x ~ x!3 ~ x ~", E: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x!2", F: "x ~ x ~ x ~ x!3 ~ x ~ x ~ x!2",
  G: "x ~ x!3 ~ x!3 ~ x!2 ~@2 x!2", H: "x ~ x ~ x ~ x ~ x ~ x!3 ~@2 x", I: "x ~ x ~ x ~ x!2 ~@2 x!3 ~ x ~",
  J: "x ~ x!3 ~@3 x ~ x!3 ~@2 x", K: "x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~", L: "x ~ x!3 ~ x!3 ~ x ~ x ~ x!2",
  M: "x ~ x ~ x ~ x!3 ~ x!3 ~ x!2", N: "x ~ x!3 ~ x!3 ~ x!3 ~@2 x", O: "x ~ x!3 ~ x!3 ~ x!3 ~@3",
})).gain(0.55)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct(`<
  A B A ~ B@2 C D C E C E ~ B ~ B ~ A B ~ F C G H A C I B A ~ B A ~ B ~@10 J ~ A K ~@2 B ~@7
>`.pickRestart({
  A: "~@15 x", B: "~@7 x ~@8", C: "~@7 x ~@7 x", D: "~@7 x ~@3 x ~@4", E: "~@3 x ~@7 x ~@4", F: "~@3 x ~@3 x ~@8",
  G: "~@3 x ~@4 x ~@6 x", H: "~@6 x!2 ~@8", I: "~@3 x ~@3 x ~@7 x", J: "~@11 x ~@4", K: "~@3 x ~@12",
})).gain(0.31)

// drums · open hat
const open_hat = s("oh").struct("<~@53 [~@7 x] ~ [~@7 x] ~@2>").gain(0.61)

// drums · crash
const crash = s("cr").struct("<~@4 x ~@3 x ~@37 x ~@11>").gain(0.49)

stack(bass, overdriven_guitar, overdriven_guitar_2, kick, snare, hihat, hihat_soft, open_hat, crash)