// Ruby Tuesday — The Rolling Stones
// 110 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 87 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(110/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 · fretless bass · "Bass"
const bass = note(`<
  ~@2 A B C@2 D E F G H G I F J K F G L C L J M N O P Q R S T Q U V W X Y Z Y S T AA AB AC AD AE AC AE AF AG AH A B AI K
  AJ AK P G AL P AL G AI K P G M K M K M N O G M K AM C M AN O F A AO AP AQ ~
>`.pickRestart({
  A: "a1@5 ~ a1 ~ c2@5 ~ c2 ~", B: "f2@3 ~ f2@3 ~ g2@3 ~ g2@3 ~", C: "c2@5 ~ c2 ~ c2@5 ~ c2 ~",
  D: "a1@3 ~ a1@3 ~ c2@5 ~ c2 ~", E: "f2@5 ~ f2 ~ c2@3 ~ c2@3 ~", F: "g2@5 ~ g2 ~ g2 ~ g2@3 ~ g2 ~",
  G: "g2@5 ~ g2 ~ g2@6 g2 ~", H: "a1@3 ~ a1@3 ~ d2@5 ~ d2 ~", I: "a1@5 ~ a1 ~ d2@5 ~ d2 ~",
  J: "c2@5 ~ c2 ~ c2 ~ c2@3 ~ c2 ~", K: "c2@5 ~ c2 ~ c2@6 c2 ~", L: "c2@5 ~ c2 ~ g2@3 ~ g2@3 ~",
  M: "c2@5 ~ c2 ~ g2@5 ~ g2 ~", N: "a#1@3 ~ a#1@3 ~ f2@5 ~ f2 ~", O: "g2@5 ~ g2 ~ c2@3 ~ c2@3 ~",
  P: "g2@5 ~ g2 ~ g2@5 ~ g2 ~", Q: "a1@5 ~ a1@2 c2@5 ~ c2@2", R: "f2@5 ~ f2@2 g2@6 d2 ~", S: "c2@5 ~ c2@2 g1@5 ~ g1@2",
  T: "c2@5 ~ c2@2 a2@2 g2@2 e2@2 c2 ~", U: "f2@6 c2 ~ c2@5 ~ c2@2", V: "g2@5 ~ g2 ~ d2@5 ~ d2 ~",
  W: "g2@5 ~ g2 ~ d2@5 ~ g2 ~", X: "a1@5 ~ a1@2 d2@5 ~ d2@2", Y: "g2@5 ~ g2@2 d2@5 ~ d2@2", Z: "a1@5 ~ a1@2 d2@6 a1 ~",
  AA: "g2@5 ~ g2@2 d3@5 ~ d3 ~", AB: "g2@5 ~ g2@2 d2@4 g2 ~ g2 ~", AC: "c2@5 ~ c2@2 g2@5 ~ g2@2",
  AD: "c2@5 ~ c2@2 g2@5 ~ g2 ~", AE: "c2@5 ~ c2@2 g2@6 d2 ~", AF: "a#1@5 ~ a#1@2 f2@6 c2 ~", AG: "g2@6 d2 ~ c2@6 g1 ~",
  AH: "g2@5 ~ g2 ~ d2@4 g2@3 ~", AI: "c2@6 c2 ~ c2@5 ~ c2 ~", AJ: "a1@3 ~ a1@3 ~ c2@3 ~ c2@3 ~",
  AK: "f2@3 ~ f2@3 ~ c2@3 ~ c2@3 ~", AL: "a1@5 ~ a1 ~ d2@3 ~ d2@3 ~", AM: "c2@3 ~ c2@3 ~ g2@3 ~ g2@3 ~",
  AN: "a#1@5 ~ a#1 ~ f2@3 ~ f2@3 ~", AO: "f2@3 ~ f2@3 ~ c2@5 ~ c2 ~", AP: "c2@5 ~ c2 ~ c2 ~ c2@2 ~@2 c2 ~",
  AQ: "c2 ~ g1 ~ a1 ~@3 c2@3 ~@5",
})).s("gm_fretless_bass").gain(0.17)

// chords · epiano1 · "Piano"
const epiano1 = note(`<
  ~@2 A B C D E F G H I J K L M@2 N@2 O P Q R S T U J V W M@2 E X N@2 Y J Z AA AB AC G H O AD S P S T AE L A AF AG@2 E F
  N@2 Z J Z AH C D G H AI AD AI AJ Q AK AL J AI R O AD AI AM AE AA A AN AO AP ~
>`.pickRestart({
  A: "[a3,c4,e4]@7 ~@3 [g3,c4,e4]@4 ~@2", B: "[a3,c4,f4]@7 ~ [g3,b3,d4]@7 ~", C: "[g3,c4,e4]@10 c3@2 [g3,c4,e4]@3 ~",
  D: "[g3,c4,e4]@2 [g3,c4,e4] ~@3 [g3,c4,e4]@8 ~@2", E: "[a3,c4,e4]@7 ~ [g3,c4,e4]@7 ~",
  F: "[a3,c4,f4]@7 ~ [g3,c4,e4]@7 ~", G: "[g3,b3,d4]@4 ~ [g3,b3,d4]@2 ~", H: "[g3,b3,d4]@5 ~ [g3,b3,d4] ~",
  I: "[a3,c4,e4]@7 ~@3 [c4,d4,f#4,a4]@4 ~@2", J: "[g3,b3,d4] ~ [g3,b3,d4] ~@3 [g3,b3,d4]@6 ~@4",
  K: "[a3,c4,e4]@7 ~ [c4,d4,f#4,a4]@7 ~", L: "[g3,b3,d4]@15 ~", M: "[[g3,c4,e4]@25 ~@3 e4@2 g4@2, ~@13 c4@3]/2",
  N: "[[g3,b3,d4]@25 ~@3 b3@2 d4@2, ~@13 g3@3]/2", O: "~@2 [g3,c4,e4]@4 ~@2 [g3,b3,d4]@7 ~",
  P: "[g3,c4,e4]@6 c3@2 [g3,c4,e4]@3 ~ [g3,c4,e4] ~@3", Q: "~ [g3,c4,e4]@2 ~@2 [g3,b3,d4]@2 ~",
  R: "c4@8 c4@2 e4@2 g4@2 c5 ~, [g3,e4]@5 ~@3", S: "[g3,c4,e4]@7 ~ [g3,b3,d4]@7 ~", T: "[a#3,d4,f4]@7 ~ [a3,c4,f4]@7 ~",
  U: "[g3,b3,d4]@7 ~ [g3,c4,e4]@7 ~", V: "~@2 [a3,c4,e4]@4 ~@2 [g3,c4,e4]@7 ~", W: "~ [a3,c4,f4]@2 ~@2 [g3,b3,d4]@2 ~",
  X: "~ [a3,c4,f4]@2 ~@2 [g3,c4,e4]@2 ~", Y: "~ [a3,c4,e4]@2 ~@2 [a3,c4,d4,f#4]@2 ~",
  Z: "~@2 [a3,c4,e4]@4 ~@2 [c4,d4,f#4,a4]@7 ~", AA: "[g3,b3,d4]@6 g2@2 [g3,b3,d4]@3 ~ [g3,b3,d4] ~@3",
  AB: "[g3,c4,e4]@5 c3 [g3,c4,e4] ~", AC: "c4@5 c4 e4 ~, [g3,e4]@3 ~",
  AD: "[g3,c4,e4] ~ [g3,c4,e4] ~@3 [g3,c4,e4]@6 ~@4", AE: "[g3,b3,d4]@7 ~@3 [g3,c4,e4]@4 ~@2",
  AF: "[a3,c4,f4]@7 ~@3 [g3,b3,d4]@4 ~@2", // F G
  AG: "[[c4,e4,g4]@14 ~@2 [c4,e4,g4] ~ [c4,e4,g4] ~@3 [c4,e4] ~@3 c3@2 [c4,g4]@2 ~@2, ~@14 c3@8 g4@2 ~@4 e4 ~@3]/2", // C C5
  AH: "~@2 [g3,b3,d4]@2 ~@2 g2@2 [g3,b3,d4]@2 ~@2 [g3,b3,d4] ~@3", AI: "[g3,c4,e4]@7 ~@3 [g3,b3,d4]@4 ~@2",
  AJ: "[g3,c4,e4]@15 ~", AK: "~@2 [f3,a#3,d4]@4 ~@2 [a3,c4,f4]@7 ~", AL: "~@2 [g3,b3,d4]@4 ~@2 [g3,c4,e4]@7 ~",
  AM: "~@2 [a#3,d4,f4]@4 ~@2 [a3,c4,f4]@7 ~", AN: "[a3,c4,f4]@7 ~@3 [g3,c4,e4]@4 ~@2", AO: "[g3,c4,e4]@14 c3 ~",
  AP: "[g3,c4,e4]@2 c3 ~ [a3,c4,f4] ~@3 [g3,c4,e4]@8", // C F C
})).s("gm_epiano1").gain(0.15)

// other · overdriven guitar · "Harmony"
const overdriven_guitar = note(`<
  ~@2 A B@2 ~ C D E ~ F@2 G@3 H@2 ~ I J K@2 L@2 M N A B@2 ~ C D E ~ F@2 G@3 H@2 ~ I J K@2 L@2 M N A B@2 ~ C D E ~ F@2
  G@3 H@2 ~ I J K@2 L@2 M N I J K@2 L@2 M ~@6
>`.pickRestart({
  A: "e4@2 e4@2 e4 g4@3", B: "[c4@2 ~ a3 b3 b3@2 [e3,e4]@5 ~@4]/2", C: "e4@2 e4 e4@3 g4@2", D: "c4 c4@2 ~ b3 c4@2 e4",
  E: "d4 ~", F: "[e4@2 e4@2 a4@2 a4 d4@5 ~@3 d4]/2", G: "[e4@2 e4@2 a4 a4@2 d4@3 ~@2 b3 d4@2 c4@5 ~@4]/3",
  H: "[~@3 g3 b3 c4@2 d4@5 ~@4]/2", I: "c5@3 g4 b4@4", J: "c5@2 c5 g4@2 g4 g4@2",
  K: "[c5@4 c5@2 g4@2 b4@4 b4@2 b4 d5@3 c5@4 b4@2 g4@4 ~@4]/2", L: "[c5@2 c5 g4 b4@2 b4 f4@2 f4@2 a4@2 a4@2 ~]/2",
  M: "b4!3 c5 c5@2 c5@2", N: "~@3 d4",
})).s("gm_overdriven_guitar").gain(0.11)

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

// drums · rim
const rim = s("rim").struct("<[x!2] [x!4] ~@85>").gain(0.17)

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

// drums · clap
const clap = s("cp").struct("<~@57 [~@2 x!2 ~@4] ~@29>").gain(0.19)

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

// drums · hihat
const hihat = s("hh").struct(`<
  ~@2 A@3 B C A C A D A@2 B D B A E A B C B A@2 F G A@2 C B C B A@3 B A@2 C A H G A@2 H B A B ~ F A@2 C B A@11 G A@4 C A
  ~ E A B H A@3 C B A G A ~@2
>`.pickRestart({
  A: "x!8", B: "x!7 ~", C: "x!3 ~ x ~ x ~ x ~ x ~ x ~ x ~", D: "x ~ x ~ x!3 ~ x ~ x ~ x ~ x ~", E: "x!5 ~@2 x",
  F: "x ~ x!2 ~@8 x ~ x ~", G: "x!5 ~@3", H: "x!3 ~ x ~ x ~ x ~@3 x ~ x ~",
})).gain(0.17)

// drums · mid tom
const mid_tom = s("mt").struct("<~@24 A ~@16 B ~@7 A ~@33 B ~@3>".pickRestart({
  A: "~@3 x ~ x!2 ~", B: "~@12 x!4",
})).gain(0.19)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@5 A ~@2 B ~@4 A ~ A ~@3 A ~ A ~@2 C ~@4 A B A ~@2 D A ~@2 B ~@6 A ~ A ~ C ~@3 A ~@21 A E ~@4 A ~@5
>`.pickRestart({
  A: "~@7 x", B: "~@15 x", C: "~ x ~@2", D: "~ x ~@14", E: "~@5 x ~@2",
})).gain(0.15)

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

// drums · crash
const crash = s("cr").struct("<~@2 A ~@15 A ~@7 A ~@15 A ~@5 A ~ A ~@15 A ~@7 A ~@9 A B ~>".pickRestart({
  A: "x", B: "~ x!2 ~",
})).gain(0.17)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@3 A ~ A ~ A ~ A ~ A ~ A ~ A ~@3 A ~ A ~ A ~@27 A ~ A ~ A ~ B ~ A ~ A ~ A ~@3 A ~ A ~ A ~@3 A ~ A ~ A ~ A ~@5
>`.pickRestart({
  A: "~@3 x", B: "~@10 x!3 ~@3",
})).gain(0.22)

stack(
  bass, epiano1, overdriven_guitar, kick, rim, snare, clap, low_tom, hihat, mid_tom, open_hat, high_tom, crash,
  tambourine
)