// Get Off My Cloud — The Rolling Stones
// 127 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: track names are the Roland MT-32 patch names at their program numbers ("Guitar" on 62, "Vox" on 39, "Synth Bra" on 24, "Guitar 2" on 62), so with no bank select the whole file is read through the MT-32 patch table: ch 3 "Guitar" Elec Gtr 2 -> overdriven guitar; ch 4 "Vox" Funny Vox -> lead 6 voice; ch 5 "Synth Bra" Syn Brass 1 -> synth brass 1; ch 6 "Guitar 2" Elec Gtr 2 -> overdriven guitar; ch 7 "Bass Guit" Acou Bass 1 -> acoustic bass
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 87 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(127/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 · "Guitar"
const overdriven_guitar = note(`<
  A B C D E F G H I J K J A L M L N O P D Q R S T U V W X Y X Z AA AB L AC H Z AD AE AF AG AD AE AA I AH AI AJ AK AL AM
  AN AO AP M AQ K L M J Y AR I B N H AG AS E J AC D AK AL AT AU AV AW AX AI AY AI AZ BA AN BB@2
>`.pickRestart({
  A: "~@2 [g#3,b3,e4]@3 ~@3 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2", // E A
  B: "~@2 [f#3,b3,d#4]@3 ~@3 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2", C: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2 [a3,c#4,e4]@7 ~",
  D: "[f#3,b3,d#4]@3 ~ [f#3,b3,d#4]@2 ~@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2", E: "[g#3,b3,e4]@7 ~ [a3,c#4,e4]@7 ~",
  F: "[f#3,b3,d#4]@3 ~ [f#3,b3,d#4]@2 ~@2 [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4", // B A
  G: "[g#3,b3,e4] ~ [g#3,b3,e4]@2 ~@4 [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4", // E A
  H: "[f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@6 [a3,c#4,e4]@3 ~@3", // B A
  I: "[g#3,b3,e4] ~ [g#3,b3,e4]@2 ~@4 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2", // E A
  J: "[f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@4 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2", // B A
  K: "[g#3,b3,e4]@7 ~ [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2", L: "[f#3,b3,d#4]@7 ~ [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4",
  M: "~@2 [g#3,b3,e4]@3 ~@5 [a3,c#4,e4]@3 ~@3", N: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@4 [a3,c#4,e4]@3 ~@3",
  O: "~@2 [f#3,b3,d#4]@3 ~@3 [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4", // B A
  P: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2 [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4", Q: "[g#3,b3,e4]@7 ~ [g#3,b3,e4]@7 ~",
  R: "~@2 [a3,c#4,e4]@3 ~@3 [f#3,b3,d#4]@7 ~", S: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2 [g#3,b3,e4] ~ [g#3,b3,e4]@2 ~@4",
  T: "~@2 [a3,c#4,e4]@3 ~@3 [f#3,b3,d#4]@3 ~ [f#3,b3,d#4]@2 ~@2", // A B
  U: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2 [g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2", // E
  V: "[a3,c#4,e4]@7 ~ [f#3,b3,d#4]@3 ~ [f#3,b3,d#4]@2 ~@2", W: "[a3,d4,f#4]!2 ~ [a3,d4,f#4]@2 ~@3",
  X: "[f#3,b3,d#4]!2 ~ [f#3,b3,d#4]@2 ~@3", Y: "~@2 [g#3,b3,e4]@3 ~@3 [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4",
  Z: "~@2 [g#3,b3,e4]@3 ~@3 [a3,c#4,e4]@7 ~", AA: "[f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@4 [a3,c#4,e4]@7 ~",
  AB: "[g#3,b3,e4] ~ [g#3,b3,e4]@2 ~@6 [a3,c#4,e4]@3 ~@3", // E A
  AC: "[g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2", AD: "[f#3,b3,d#4]@7 ~@3 [a3,c#4,e4]@3 ~@3",
  AE: "[g#3,b3,e4]@7 ~@3 [a3,c#4,e4]@3 ~@3", AF: "[f#3,b3,d#4]@7 ~ [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2",
  AG: "[g#3,b3,e4]@7 ~ [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4", // E A
  AH: "[b3,d#4,f#4] ~ [b3,d#4,f#4]@2 ~@4 [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4", // B A
  AI: "~@2 [g#3,b3,e4]@3 ~@3 [g#3,b3,e4] ~ [g#3,b3,e4]@2 ~@4", AJ: "[a3,c#4,e4]@7 ~ [f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@4",
  AK: "[g#3,b3,e4]@7 ~ [g#3,b3,e4] ~ [g#3,b3,e4]@2 ~@4", // E
  AL: "[a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4 [f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@4", // A B
  AM: "[g#3,b3,e4] ~ [g#3,b3,e4]@2 ~@4 [g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2", AN: "[a3,c#4,e4]@7 ~ [f#3,b3,d#4]@7 ~",
  AO: "[a3,d4,f#4]@7 ~ [a3,d4,f#4]@2 ~@2 [a3,d4,f#4]@2 ~@2", AP: "[f#3,b3,d#4]!2 ~@2 [f#3,b3,d#4] ~ [f#3,b3,d#4] ~",
  AQ: "[f#3,b3,d#4]@7 ~ [f#3,b3,d#4]@2 ~@2 [f#3,b3,d#4]@2 ~@2", AR: "~@2 [f#3,b3,d#4]@3 ~@5 [a3,c#4,e4]@3 ~@3",
  AS: "[f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@4 [a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4", // B A
  AT: "~@2 [g#3,b3,e4]@3 ~@5 [g#3,b3,e4]@3 ~@3", AU: "~@2 [a3,c#4,e4]@3 ~@3 [f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@4",
  AV: "~@2 [g#3,b3,e4]@3 ~@3 [g#3,b3,e4]@7 ~", // E
  AW: "[a3,c#4,e4] ~ [a3,c#4,e4]@2 ~@4 [f#3,b3,d#4]@3 ~ [f#3,b3,d#4]@2 ~@2", // A B
  AX: "~@2 [a3,d4,f#4]@5 ~ [a3,d4,f#4]@2 ~@2 [a3,d4,f#4]@2 ~@2", // D
  AY: "[a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2 [f#3,b3,d#4] ~ [f#3,b3,d#4]@2 ~@4", // A B
  AZ: "[a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2 [f#3,b3,d#4]@7 ~", // A B
  BA: "~@2 [g#3,b3,e4]@3 ~@3 [g#3,b3,e4]@3 ~ [g#3,b3,e4]@2 ~@2", BB: "[f#3,b3,d#4]/2",
})).s("gm_overdriven_guitar").gain(0.31)

// other · synth brass 1 · "Synth Bra"
const synth_brass_1 = note("<~@20 A B C@2 D E F@2 ~@18 G H@3 I@2 J@2 ~@18 K L M N O P@2 Q ~ R@2 S T U@2>".pickRestart({
  A: "~@3 g#5@3 ~@5 g#5@3 ~@2", B: "~ e5@2 e5 a5@3 g#5@3 ~@6", C: "[~@3 g#5@3 ~@5 g#5@2 ~@2 e5@3 ~ a5@3 ~ g#5@4 ~@5]/2",
  D: "~@4 g#5@3 ~@4 g#5@2 ~@3", E: "e5@3 a5@2 ~@2 g#5@5 ~@4",
  F: "[d5 ~ d5@2 d5 ~ d5@4 d5 d5@4 f#5@4 b4 ~ b4@3 ~@2 b4 ~ b4 ~ b4 ~]/2", G: "~@3 g#5@3 ~@6 g#5@2 ~@2",
  H: "[e5 ~ e5@2 a5@3 ~ g#5@4 ~@3 g#5@3 ~@5 g#5@3 ~@5 e5@2 ~ e5 ~ a5@2 ~@2 g#5@3 ~@5]/3",
  I: "[~@3 g#5@3 ~@5 g#5@2 ~@2 e5@2 e5@2 ~ a5@3 g#5@9]/2", J: "[d5@2 d5@3 ~ d5@3 ~ d5 d5@4 f#5@4 b4 ~ b4@8 ~@3]/2",
  K: "~@4 g#5@3 ~@4 g#5@2 ~@2 e5", L: "~ e5@2 a5@3 ~ g#5@4 ~@5", M: "~@3 g#5@3 ~@5 g#5@2 ~@3",
  N: "e5 e5@2 ~ a5@3 g#5@4 ~@5", O: "~@4 g#5@2 ~@5 g#5@3 ~@2",
  P: "[e5!2 ~ a5@2 ~@2 g#5@3 ~@5 d5@2 ~ d5!2 ~@2 d5@3 d5 ~@2 d5@4]/2", Q: "f#5@3 b4 ~@2 b4 ~@9",
  R: "[~@8 g#5@3 ~ g#5@2 ~ e5@3 ~@2 a5@3 g#5@3 ~@6]/2", S: "~@3 e5@3 ~@5 e5@3 ~@2", T: "~@3 a5@3 ~@2 g#5@4 ~@4",
  U: "[~@15 e5@2 a5@2 ~ g#5@2 e5@3 ~@7]/2",
})).s("gm_synth_brass_1").gain(0.23)

// other · overdriven guitar · "Guitar 2"
const overdriven_guitar_2 = note(`<
  A B C B D E F@2 D G D H I J D G K L M N ~@6 O P Q@3 R D H S T M U@3 V W V X S Y ~@6 Z AA S AB AC AD M AE AF@2 M AE AG
  AH M T S AI M AJ ~@6 AK AL ~@7
>`.pickRestart({
  A: "~ e4@2 ~ e4@4 a4@2 g#4@4 a4@2", B: "b4@3 ~ b4@4 a4@2 b4@3 a4@3", C: "e4 ~@3 e4@3 ~ a4@2 g#4@4 a4@2",
  D: "e4 ~ e4@2 a4 g#4 a4 b4", E: "~@3 b4@4 ~ a4@2 b4@3 a4@2 ~",
  F: "[e4@2 ~@2 e4@4 a4@2 g#4@2 a4@2 b4@4 ~ b4@4 a4@3 b4@3 a4@2 ~]/2", G: "~@4 b4@4 a4@2 b4@3 a4@3",
  H: "~@2 b4@2 a4 b4@2 a4", I: "e4@2 ~@2 e4@3 ~ a4@3 g#4@3 a4@2", J: "b4@3 ~ b4@4 a4@2 b4@4 a4@2",
  K: "e4@2 ~@2 e4@3 ~ a4@2 g#4@2 a4@2 b4@2", L: "~@6 b4@2 a4@3 b4@2 ~ a4@2", M: "e4@2 ~@2 e4@3 ~ a4@2 g#4@4 a4@2",
  N: "b4@5 ~@3",
  O: "[d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] a4 f#4 ~", // D
  P: "d#4@2 f#4@2 b4@2 a4@4 ~ d#4 ~@4, ~@5 f#4 ~@2",
  Q: "[e4@2 ~ e4@4 ~ a4@2 g#4@2 a4@2 b4@4 ~ b4@4 a4@3 b4@3 a4@2 e4@2 ~@3 e4@4 a4@2 g#4@4 a4@2]/3",
  R: "b4@2 b4@2 a4 b4@2 a4", S: "e4 ~ e4@2 a4 g#4@2 a4", T: "b4@3 ~ b4@3 ~ a4@2 b4@3 a4@2 ~",
  U: "[b4@3 ~ b4@4 a4@2 b4@3 a4@2 e4@2 ~@3 e4@4 a4@2 g#4@4 ~ b4@3 ~@2 b4@3 ~ a4@2 b4@4 a4@2, ~@15 a4 ~@8]/3",
  V: "e4@2 ~@2 e4@3 ~ a4@2 g#4@4 a4 ~", W: "b4@2 ~@2 b4@3 a4@2 ~ b4@3 a4@3", X: "b4@3 ~ b4@4 a4@3 b4@4 ~",
  Y: "b4@2 ~@2 b4@7 ~@5", Z: "[d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ d4@2 f#4@2 a4@2",
  AA: "b4 f#4 d#4 f#4@2 ~@3", AB: "b4@2 ~@2 b4@4 a4@2 b4@3 a4@3", AC: "e4 ~@3 e4@4 a4@2 g#4@4 a4@2",
  AD: "b4@2 ~@2 b4@3 a4@3 b4@3 a4@2 ~", AE: "b4@3 ~ b4@3 ~ a4@2 b4@3 a4@3",
  AF: "[e4@2 ~@2 e4@3 ~ a4@2 g#4@4 ~ b4@3 ~@2 b4@3 ~ a4@2 b4@4 a4@2, ~@7 a4 ~@8]/2",
  AG: "e4@2 ~@2 e4@4 a4@2 g#4@4 a4 ~", AH: "b4@2 ~@2 b4@3 ~ a4@2 b4@4 a4@2", AI: "b4@3 ~ b4@4 a4@2 b4@3 a4@2 ~",
  AJ: "b4@2 ~@2 b4@4 a4@2 b4@5 a4",
  AK: "[d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] ~ [d4,f#4,a4] f#4 ~@2", // D
  AL: "[d#4,f#4,b4] ~@2 [d#4,f#4,b4] ~@2 [d#4,f#4,b4] ~@9", // B
})).s("gm_overdriven_guitar").gain(0.23)

// bass · acoustic bass · "Bass Guit"
const bass = note(`<
  A B A B A B A B A B A B A B A B A B A B C D C D C D E F A F A B A B A B A B A B A B A B A B C D C D C D E G A G A B A
  B A B A B A B A B A B A B C D C D C D E C D C D C D H@2
>`.pickRestart({
  A: "e2@2 e2@3 ~ b1@2 a1@2 a1@3 ~ e1@2", B: "b1@2 b1@3 ~ f#1@2 a1@2 a1@3 ~ e1@2",
  C: "e2@2 e2@3 ~ b1@2 g#1@2 g#1@3 ~ b1@2", D: "a1@2 a1@3 ~ e1@2 b1@2 b1@3 ~ f#1@2",
  E: "d2@2 d2@3 ~ a1@2 d2@2 d2@3 ~ a1@2", F: "b1@2 b1@3 ~ f#1@2 f#2@2 f#2@2 a2@2 a2@2",
  G: "b1@2 b1@3 ~ f#1@2 d#2@2 e2@2 f2@2 f#2@2", H: "b1@15 ~",
})).s("gm_acoustic_bass").gain(0.47)

// drums · kick
const kick = s("bd").struct("<[x!2]!84 ~@3>").gain(0.46)

// drums · rim
const rim = s("rim").struct(`<
  A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A
  B A B A B A B A B A B A B A B A B A B A B A B A B ~@3
>`.pickRestart({
  A: "~@2 x!2 ~@2 x!2", B: "~@4 x ~@4 x ~ x ~ x ~ x",
})).gain(0.46)

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

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

// drums · open hat
const open_hat = s("oh").struct(`<
  ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
  A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@3
>`.pickRestart({
  A: "~ x ~@6",
})).gain(0.46)

stack(overdriven_guitar, synth_brass_1, overdriven_guitar_2, bass, kick, rim, snare, hihat, open_hat)