// Heart of Stone — The Rolling Stones
// 89 bpm, 12/8, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (6/8 at bar 1, 12/8 at bar 1) are rendered on a constant 12/8 grid of one bar per cycle
// note: pitch bends are ignored
// note: Full arrangement: all 42 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(89/6)

// 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
const electric_guitar_clean = note(`<
  A B@2 C D E F G H G I J K L M C D E N O@3 H J K L M C D E F G H G I J K L P L P Q
>`.pickRestart({
  A: "~@3 [d3,g3,b3,f4]", B: "[c3,e3,g3,c4,e4] [g3,c4,e4]!2 g3!2 e3 c3@3 [d3,g3,b3,f4]@3",
  C: "[c3,e3,g3,c4,e4] [g3,c4,e4]!2 g3!2 e3 c3@3 [e3,g3,c4,e4]@3", // C
  D: "[f3,a3,c4,f4] [a3,c4,f4]!2 c4!2 a3 f3@3 [a3,c4,f4]!3", E: "[d3,f#3,a3]!6 [f#3,a3,d4]!6",
  F: "[d3,g3,b3]@2 [d3,g3,b3]@2 [d3,g3,b3]@2 g3@2 a3@2 b3@2 ~ a3 [b2,d3]@2 [b2,d3]@2 ~@4 b3@2, ~@6 [b2,d3,c4] g3@4 ~, ~@3 [b2,d3]", // G Bm
  G: "[a2,e3,a3,c4] [e3,a3,c4]!5 [a2,e3,a3,c4] [e3,a3,c4]!5", // Am
  H: "[a2,e3,a3,c4] [e3,a3,c4]!5 [a2,e3,a3,c4] [e3,a3,c4]!2 [e3,a3,c4,e4]!3", // Am
  I: "[a2,e3,a3,c4] [a3,c4,e4]!5 [e3,a3,c4,e4] [a3,c4,e4]!2 [e3,a3,c4]!3", // Am
  J: "[f3,a3,c4,f4] [f3,a3,c4]!2 [f3,a3,c4,f4] [f3,a3,c4]!2 [f3,a3,c4,f4] [f3,a3,c4]!4 [a#3,c#4]", // F A#m
  K: "[g3,b3,d4]!5 [g3,c4,e4] [g3,b3,d4]@2 ~@4", L: "[a3,c4,e4]!9 [c4,e4] [e4,a4]!2",
  M: "[e3,g3,c4,e4] [g3,c4,e4]!5 [g3,b3,f4]@2 ~@4", // C G7
  N: "[d3,g3,b3]@2 [d3,g3,b3]@2 [d3,g3,b3]@2 g3@2 a3@2 b3@2 ~ a3 [b2,d3]@2 [b2,d3]@2 [b2,d3]@6, ~@3 [g2,b2]@3 [b2,d3,c4] g3@5", // G Bm G Bm
  O: "[a2,e3,a3,c4]@3 [e3,a3,c4]!3 [a2,e3,a3,c4]@3 [e3,a3,c4,e4]!3", // Am
  P: "[e3,g3,c4,e4] [g3,c4,e4]!5 [g3,b3,f4]@3 [g3,b3,g4]!3", Q: "[a3,c4,e4]!6 [a2,e3,a3,c4,e4]@6",
})).s("gm_electric_guitar_clean").gain(0.35).pan(0)

// chords · overdriven guitar
const overdriven_guitar = note(`<
  A B@2 C D E F G@3 H I J K L C D E M@2 N O P I J K L C D E F G@3 H I J K Q K Q R
>`.pickRestart({
  A: "~@9 f4!3", B: "e4@3 [e3,g3,c4,e4] [c4,e4] [e3,g3,c4] [e3,g3,c4,e4]@3 f4!3",
  C: "e4@3 [e3,g3,c4,e4] [c4,e4] [e3,g3,c4] [e3,g3,c4,e4]@3 c3!2 e3", // C
  D: "f3@3 [f3,a3,c4,f4] [c4,f4] [f3,a3,c4] [f3,a3,c4,f4]@3 f3!2 e3", // F F5 F
  E: "d3@3 [d3,a3,d4,f#4] [d4,f#4] [d3,a3,d4] [d3,a3,d4,f#4]@3 e2!2 f#2", // D D5 D
  F: "g2@3 [g3,b3,d4,g4] [d4,g4] [g3,b3,d4] [d3,g3,b3,d4,g4]@3 g2!2 g#2", // G G5 G
  G: "a2@6 [e3,a3,c4,e4] [a3,c4,e4] [e3,a3,c4]@2 [e3,a3,c4]@2 [a2,e3,a3,c4,e4]@6 g2@2 g2@2 g#2@2", // Am
  H: "a2@6 [e3,a3,c4,e4] [a3,c4,e4] [e3,a3,c4]@2 [e3,a3,c4]@2 [a2,e3,a3,c4,e4]@6 e4@4 e4@2", // Am
  I: "f4@3 d4 c4@2 f4@3 d4 c4@2 f4@3 d4 c4@2 f4@4 f#4@2", J: "g4@3 [d3,g3,b3,g4] ~@2",
  K: "[a2,e3,a3,c4,e4]@3 [e3,a3,c4,e4] [c4,e4] [e3,a3,c4] [a2,e3,a3,c4,e4]@3 [e3,a3,c4,e4] [c4,e4] [e3,a3,c4]", // Am C Am C Am
  L: "[c3,e3,g3,c4,e4]@3 [e3,g3,c4,e4] [c4,e4] [e3,a3,c4] [b2,d3,g3,b3,g4]@2 ~ f4!3", // C Am G
  M: "[g2@12 c4 a3 g3@8 e3@4 a2 c3 d3@2 g3 e3 g3 e3 g3@3 ~ d4@2 d4@2 d4@2 d4@2 a3@2]/2",
  N: "a3 c4 d4@2 e4@2 a4 e4@2 ~ c4 a3 a3@2 c4 a3 c4@2 a3@4 c4@2",
  O: "e4!2 e4@2 g4@2 a4!2 a4@2 c5@2 d5@2 d5@2 d5@2 d5@2 d5@2 a4@2",
  P: "a4@4 d5@2 d5@2 d5@2 d5@4 d5@2 d5@2 e5@3 d4 e4@2",
  Q: "[c3,e3,g3,c4,e4]@3 [e3,g3,c4,e4] [c4,e4] [e3,a3,c4] [b2,d3,g3,b3,g4]@3 [d3,g3,b3,g4] [b3,g4] [d3,g3,b3]", // C Am G Em G
  R: "[a2,e3,a3,c4,e4]@3 [e3,a3,c4,e4] [c4,e4] [e3,a3,c4] [a3,c4,e4,a4]@6", // Am C Am
})).s("gm_overdriven_guitar").gain(0.34).pan(1)

// bass · electric bass finger
const bass = note("<A B@2 C D E F G@3 H I J K L C D E F M@3 N I J K L C D E F G@3 H I J K O K L P>".pickRestart({
  A: "~@3 d2", B: "c2@3 g2!2 e2 c2@3 d2@3", C: "c2@3 g2!2 e2 c2@3 e2@3", D: "f2@3 a2!2 g2 f2@3 e2@3",
  E: "d2@3 a2!2 f#2 d2@3 a2 g2 f#2", F: "g2@3 d2@3 g2@4 g2 g#2", G: "a2@10 g2 g#2", H: "a2@10 a2 g2",
  I: "f2@9 f2@2 f#2", J: "g2@2 ~", K: "a2@10 a2 b2", L: "c3@3 g2 ~@2", M: "a2@4 c3 e3 a2@4 e2 g2",
  N: "a2@4 c3 e3 a2@4 a2 g2", O: "c3@2 g2 d2", P: "a2@4 a2 c3 a1@6",
})).s("gm_electric_bass_finger").gain(0.62)

// drums · kick
const kick = s("bd").struct("<~ [x ~@4 x!2 ~@4 x]!40 [x ~@4 x!2 ~@5]>").gain(0.59)

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

// drums · low tom
const low_tom = s("lt").struct(`<
  ~ A B A B A C A B A D A B A E A B A C A B A D A B A E A B A C A B A D A B A E A E F
>`.pickRestart({
  A: "~ x ~ x", B: "~@3 x ~@5 x!2 ~", C: "~@3 x ~@4 x!3 ~", D: "~@3 x ~@4 x!2 ~@2", E: "~@5 x!2 ~@10 x!2 ~ x ~@3",
  F: "~@3 x!2 ~@7",
})).gain(0.59)

// drums · hihat
const hihat = s("hh").struct("<~ A@10 B A@2 C A@8 B A@2 C A@8 B A@2 C A C D>".pickRestart({
  A: "~ x ~@5 x ~@4", B: "~@7 x ~@4", C: "~ x!2 ~@4 x!2 ~@3", D: "~ x ~@10",
})).gain(0.59)

// drums · mid tom
const mid_tom = s("mt").struct("<~@6 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~ A ~>".pickRestart({
  A: "~@11 x",
})).gain(0.59)

// drums · open hat
const open_hat = s("oh").struct("<~ A@10 B A@2 ~ A@8 B A@2 ~ A@8 B A@2 ~ A ~ C>".pickRestart({
  A: "~ x ~@2 x ~", B: "~@2 x", C: "~ x ~@4",
})).gain(0.59)

// drums · crash
const crash = s("cr").struct("<~@7 x ~@11 x ~@11 x ~@9 [~ x]>").gain(0.52)

// drums · ride
const ride = s("rd").struct("<~@11 A B ~@10 A B ~@10 A B ~@5>".pickRestart({
  A: "x!12", B: "x!7 ~@5",
})).gain(0.59)

stack(electric_guitar_clean, overdriven_guitar, bass, kick, snare, low_tom, hihat, mid_tom, open_hat, crash, ride)