// Wild Horses — The Rolling Stones
// 69 bpm, 4/4, key G major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 7 "Nylon Guitar" acoustic guitar nylon (copy of ch 1 "Nylon Guitar" acoustic guitar nylon)
// note: Full arrangement: all 101 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): Steel Guitar, Nylon Guitar.
setcpm(69/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 · acoustic guitar steel · "Steel Guitar"
const acoustic_guitar_steel = note(`<
  ~ A B@2 C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB E F G H I J K L M N O P Q R S T U V W X Y Z AC AD AE AF
  AG AH AI AJ E F G H I J K L M N O P Q R S T U V W X Y Z AK AL M N O P Q R S T U V W X Y Z AM@3
>`.pickRestart({
  A: "~@9 e4@6 [e3,a3], ~@8 [a3,c4]@7 ~", // A5 Am
  B: "[~ g3 ~ [a3,c4,e4] ~ g3 [d3,g3]@2 [g2,b2]@4 ~@3 b3 c4@2 [g3,b3]@2 [d3,g3]@2 [b2,d3]@2 [a3,c4,e4]@8, [a3,c4,e4]@2 ~@2 [a3,c4,e4]@2 ~@9 g3@3 ~@14]/2", // Am G5 G G5 Bm Am
  C: "[e3,a3] [d3,g3] ~ d3 [e3,a3] [d3,g3] a2@2 [g3,b3,g4]@8", // A5 G5 A5 G5 G
  D: "[d3,a3,b3]@2 [d3,g3,b3]@2 [b2,e3,g3]@2 [b2,d3,g3]@2 [d3,f#3,b3,d4]@4 [d3,f#3,b3,d4]@3 [d3,f#3,b3,d4]", // Bm7 G Em G Bm
  E: "[d3,f#3,b3,d4]@2 [d3,f#3,b3,d4]@2 [d3,f#3,b3,d4]@2 [d3,f#3,b3,d4]@2 [d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]", // Bm G
  F: "[d3,g3,c4,g4]@2 [d3,g3,b3,g4]@2 [b2,d3,a3]@2 [b2,d3,g3]@2 [d3,f#3,b3,d4]@4 [f#3,b3,d4]@2 ~ [f#3,b3,d4]", // Csus2 G Bm7 G Bm
  G: "[f#3,b3,d4]@2 [f#3,b3,d4]@2 [d3,f#3,b3]@2 [d3,f#3,b3]@2 [d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]", // Bm G
  H: "[d3,g3,c4]!2 [d3,g3,b3] [d3,g3,c4] [e3,a3,c4,e4]@2 [e3,a3,c4,e4]@2", // Csus2 G Csus2 Am
  I: "[e3,a3,c4,e4]@2 [e3,a3,c4,e4]@2 [e3,a3,c4,e4]@2 [d3,g3,b3,g4]@2 [e3,g3,c4,e4]@2 c3@2 [g2,c3,e3,g3,c4]@3 [c3,e3,g3,c4]", // Am G C
  J: "[g2,c3,e3,g3]@2 [g2,c3,e3,g3]@2 [a2,d3,f#3,a3]@2 [a2,d3,f#3,a3]@2 [b2,d3,g3,b3,g4]@4 [b2,d3,g3,b3]@3 [b2,d3,g3,b3]", // C D G
  K: "[d3,g3,b3,g4] [b2,d3,g3,b3]!3 [a2,d3,a3,d4]@2 [a2,d3,f#3,a3]@2", // G D5 D
  L: "[a2,d3,f#3,a3]@2 [a2,d3,f#3,a3]@2 [g2,c3,e3,g3,c4] [e3,g3,c4,e4] [g2,c3,e3,g3,c4]@2 [d3,f#3,b3,d4]@4 [d3,f#3,b3,d4]@4", // D C Bm
  M: "[d3,f#3,b3,d4]@2 [d3,f#3,b3,d4]@2 [f#3,b3,d4,f#4]@2 [f#3,b3,d4,f#4]@2 [d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]", // Bm G
  N: "[d3,g3,c4,g4]@2 [d3,g3,b3]@2 [b2,d3,a3]@2 [b2,d3,g3]@2 [d3,f#3,b3,d4]@4 [f#3,b3,d4,f#4]@2 ~ [f#3,b3,d4,f#4]", // Csus2 G Bm7 G Bm
  O: "[f#3,b3,d4,f#4]@2 [f#3,b3,d4,f#4]@2 [d3,f#3,b3,d4]@2 [d3,f#3,b3,d4]@2 [d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]", // Bm G
  P: "[d3,g3,c4]!2 [d3,g3,b3] [d3,a3,c4] [c3,e3,a3,c4]@2 [e3,a3,c4,e4]@2", // Csus2 G D7 Am
  Q: "[e3,a3,c4,e4]@4 [c3,e3,a3,c4]@4 [e3,g3,c4,e4]@2 c3@2 [g2,c3,e3,g3,c4]@3 [c3,e3,g3]", // Am C
  R: "[g2,c3,e3,g3] [c3,e3,g3,c4] [a2,d3,g3] [a2,d3,f#3,a3] [b2,d3,g3,b3,g4]@2 [b2,d3,g3,b3]@2", // C Dsus4 D G
  S: "[d3,g3,b3,g4]!2 [c3,d3,g3,b3]!2 [a2,d3,f#3,a3,d4]@2 [a2,d3,f#3,a3]@2", // G D
  T: "[a2,d3,f#3,a3]!2 [d3,f#3,a3,d4] [d3,g3,b3] [e3,a3,c4,e4]@2 [e3,a3,c4,e4]@2", U: "[c3,e3,g3,c4]!3 [c3,e3,g3]",
  V: "[g2,c3,e3,g3,c4]!2 [d3,f#3,a3,d4]!2 [b2,d3,g3,b3,g4]@2 [b2,d3,g3,b3]@2", // C D G
  W: "[c3,f3,a3,c4,f4] [c3,f3,a3,c4] [g2,c3,e3,g3,c4] [g2,c3,e3,g3]", // F C
  X: "[g2,c3,e3,g3,c4]@2 [c3,e3,g3,c4,e4]@2 [f#3,b3,d4,f#4] [b3,d4,f#4] [f#3,b3,d4,f#4]@2 [e3,a3,c4,e4]@4 [e3,a3,c4,e4]@4", // C Bm Am
  Y: "[c3,e3,g3,c4]@2 [c3,e3,g3,c4]@2 [c3,e3,g3,c4,e4] ~ [g2,c3,e3,g3,c4]@2", // C
  Z: "[c3,e3,g3,c4]@2 [e3,g3,c4,e4]@2 [d3,f#3,a3,d4] [f#3,a3,d4] [d3,f#3,a3,d4]@2 [b2,d3,g3,b3,g4]@4 [b2,d3,g3,b3]@4", // C D G
  AA: "[c3,f3,a3,c4,f4] [c3,f3,a3,c4] [g2,c3,e3,g3,c4]@2", // F C
  AB: "[c3,e3,g3,c4,e4]@4 [c3,e3,g3,c4]@2 ~@2 [d3,f#3,b3,d4]@4 [d3,f#3,b3,d4]@3 [d3,f#3,b3,d4]", // C Bm
  AC: "[c3,f3,a3,c4,f4]@4 [c3,f3,a3,c4]@4 [c3,e3,g3,c4] [e3,g3,c4,e4] [e3,g3,c4]@2 [e3,g3,c4,e4]@3 [g3,c4,e4]", // F C
  AD: "[c3,e3,g3,c4]@2 [e3,g3,c4,e4]@2 [c3,e3,g3,c4]@2 [e3,g3,c4,e4]@2 [f3,a3,c4,f4] [a3,c4,f4] [f3,a3,c4,f4]@2 [f3,a3,c4,f4]@3 [f3,a3,c4,f4]", // C F
  AE: "[f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [c3,e3,g3,c4,e4]@2 [e3,g3,c4,e4]@2 [c3,e3,g3,c4]@3 [e3,g3,c4,e4]", // F C
  AF: "[c3,e3,g3,c4]@2 [e3,g3,c4]@2 [c3,e3,g3,c4]@2 [e3,g3,c4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]@3 [a3,c4,f4]", // C F
  AG: "[f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [f3,a3,c4,f4]@2 [c3,e3,g3,c4]@2 [e3,g3,c4,e4]@2 [e3,g3,c4,e4]@3 [g3,c4,e4]", // F C
  AH: "[e3,g3,c4,e4]@2 [e3,g3,c4,e4]@2 [d3,a3,d4,f#4] [a3,d4,f#4] [d3,a3,d4,f#4]@2 [d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [d3,g3,b3,g4]", // C D G
  AI: "[d3,g3,c4]@2 [b2,d3,g3,b3]@2 [d3,g3,b3,g4]@4 [b2,d3,g3,b3,g4]@4 [d3,g3,b3,g4]@3 [g3,b3,g4]", // Csus2 G
  AJ: "[d3,g3,b3,g4]@2 [d3,g3,b3,g4]@2 [d3,g3,b3,g4]@2 [g3,b3,g4]@2 [d3,f#3,b3,d4]@4 [d3,f#3,b3,d4]@3 [d3,f#3,b3,d4]", // G Bm
  AK: "[c3,f3,a3,c4,f4] [c3,f3,a3,c4] [c3,e3,g3,c4,f4]@2", // F C
  AL: "[c3,e3,g3,c4,e4]@2 [g3,b3,d4]!2 [d3,f#3,b3,d4]@2 [d3,f#3,b3,d4]@2", // C G Bm
  AM: "[[c3,f3,a3,c4,f4] [c3,f3,a3,c4] [c3,e3,g3,c4,e4]@3 [d3,g3,b3,g4] [b3,d4,g4,b4]@4 ~@2]/3", // F C G
})).s("gm_acoustic_guitar_steel").gain(0.57)

// chords · acoustic guitar steel · "Steel Guitar"
const acoustic_guitar_steel_2 = note(`<
  A B C D E F ~ G ~@4 H ~@2 G ~ I@2 J K L M N O ~ M ~ P Q ~ G ~@4 R ~@2 S ~ I@2 J K L M N O ~ M ~@7 T U ~ G ~@4 H ~@2 G
  ~ I@2 J K L M N O ~ M ~ V W ~ G ~ I@2 J K L M N O ~ M ~@4
>`.pickRestart({
  A: "~@7 [g3,b3,d4,g4] [g3,b3,d4,g4]@4 [g3,b3,d4,g4]@3 [g3,b3,d4,g4]", // G
  B: "[g3,b3,d4,g4]@2 [g3,b3,d4,g4]@3 [g3,b3,d4,g4]!2 [g3,b3,d4,e4] [e4,g4]@4 [a3,c4,e4,g4]@3 [c4,g4]", // G Em7 Em Am7 C5
  C: "g4@2 [a3,c4,e4,g4]@2 ~ [a3,c4,e4]!3 d4@4 [g3,b3,d4,g4]@3 d4", // Am7 Am G
  D: "[g3,b3,d4,g4]@2 d4@2 b3 [g3,b3,d4,g4] [g3,g4] [g3,b3,d4,e4] g4@4 [a3,c4,e4,g4]@3 [a3,c4,e4,g4]", // G Em7 Am7
  E: "~ c4 e4 g4 b4 e4 ~@2 d4@4 [b3,d4,g4]@3 [b3,d4,g4], g4 ~@7", F: "g4@2 ~@2 d4 [b3,d4,g4] ~@10", G: "~@3 b4 ~@12",
  H: "~ f#4", I: "[~@15 a4@3 a4@4 b4@2 ~@8]/2", J: "~@5 d5@2 ~@9, ~@4 f#4@3 ~@9", K: "~@13 f#4 d4@2", L: "~ f#4 ~@14",
  M: "a3@2 a3 [a3,c4,g4] ~@4", N: "~@5 [a3,d4,f#4] [e3,b3] ~@9", O: "~@6 [a3,c4,f4]@2 ~@7 [g3,c4,e4]",
  P: "~@9 e4@3 e4 c4 g3@2", Q: "~ g4@2 g4 ~@2 b3@2 ~@8", R: "~@9 f#4@7", S: "~@5 g4 ~@10", T: "~@5 g4 b3 ~@9",
  U: "~ d5@2 ~@13", V: "~@9 f3 e3 g3 e3 c3 g3 f3", W: "~ d4@3 ~@4",
})).s("gm_acoustic_guitar_steel").gain(0.62)

// chords · acoustic guitar nylon · "Nylon Guitar"
const acoustic_guitar_nylon = note(`<
  ~ A B A C ~@2 D ~ E ~@2 F@2 ~ D ~ G H I ~ J ~ K ~@3 K ~@3 D ~ E ~@2 F@2 ~@2 L@2 M N O P Q K ~@2 Q K R S T U@2 V ~ W ~
  D ~ E ~@3 W ~@2 L@2 M N O P ~ K ~@3 K ~ X Y D Z@2 M N O P ~ K ~@3 K ~ AA ~
>`.pickRestart({
  A: "~@14 d5!2", B: "d5@2 d5!2 d5@2 c5@2 ~@8", C: "d5@2 d5 ~ d5@2 c5@2 ~@8", D: "~@3 b4 ~@12", E: "~@3 b3 ~@4",
  F: "[~@2 f#4@3 ~@3]/2", G: "~@3 [g3,b3,g4] ~@4", H: "~@3 [e3,a3,c4,e4] ~@4", I: "~ f#4 ~@2", J: "~@3 a3 ~@4",
  K: "~@2 c4 ~@5", L: "[~@15 a4@2 b4 ~ a4 ~@2 f#4@2 ~@8]/2", M: "~@3 g4 ~@4", N: "~@3 a4 ~@2 g4 ~@9", O: "~@7 g4",
  P: "~ g4 ~@6", Q: "[a3,b4] ~", R: "d4@2 c4 ~ d4@2 c4 ~@9", S: "~@3 g4 ~ g4 ~@10", T: "~@3 c5 ~ a4 ~@10",
  U: "[~ c4 ~ e4 ~ c5@3 ~@2 d4@2 ~ e4 d4@6 ~@12]/2", V: "~ e4@2 ~@13", W: "~@5 b4 ~ b4 ~@8", X: "~ d5@2 ~@5",
  Y: "~@3 a4 ~@4", Z: "[~@6 g4@2 ~@7 a4@2 b4 ~ a4 ~@2 f#4@2 ~@8]/2", AA: "~@5 e5 g5@2 ~@8",
})).s("gm_acoustic_guitar_nylon").gain(0.19)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@2 A@2 B@2 C D C E F G H I C D C E F G J K L M N O P M Q@2 C D C E F G H I C D C E F G J K L M N O P M R@2 ~@5 S C D
  C E F G H I C D C E F G J K L M N O P M Q@2 C D C E F G J K L M N O P T U@3
>`.pickRestart({
  A: "[~ g1@2 ~]/2", B: "[~@5 e1 g1@2 g1@16 b1@8]/2", C: "b1!2 g1@2", D: "g1!2 b1@2", E: "g1!2 a1@2",
  F: "a1@2 a1 g1 c2@4", G: "c2 d2 g1@2", H: "g1!2 d2@2", I: "d2 c2 b1@2", J: "g1@2 a1 g1 d2@2 d2@2",
  K: "d2@4 d2@4 a1@4 a1@3 a1", L: "a1@2 a1@2 a1@2 g1@2 c2@4 c2@3 c2", M: "c2!2 d2!2 g1@2 g1@2",
  N: "f1@4 f1@2 d2@2 c2@4 c2@3 c2", O: "c2@2 c2@2 b1@2 b1@2 a1@4 a1@3 a1", P: "a1@4 a1@2 g1@2 c2@4 c2@3 c2",
  Q: "[f1@2 f1 d2 c2@8 b1@4]/2", R: "[f1@2 f1 d2 c2@8 ~@4]/2", S: "~ b1", T: "c2@2 c2@2 d2@2 d2@2 g1@4 g1@3 g1",
  U: "[f1!3 d2 c2@5 c2 d2 b1 g1@8 ~@4]/3",
})).s("gm_electric_bass_finger").gain(0.63)

// drums · kick
const kick = s("bd").struct("<~@21 A B@5 C ~@9 A B@13 C ~@7 A B@21 C ~@9 A B@6 C ~@2>".pickRestart({
  A: "~ x", B: "x!2", C: "x",
})).gain(0.52)

// drums · snare
const snare = s("sd").struct(`<
  ~@21 A B@3 C B D ~@9 A B@3 C B@7 C B D ~@7 A@2 B@10 C B@7 C B D ~@9 A B@3 C B@2 D ~@2
>`.pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~@4 x ~@2 x ~@4 x ~@3", D: "~ x ~@2",
})).gain(0.52)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@25 A ~@11 B ~ C ~ D ~ C ~ E ~@3 A ~@9 F G C ~ H ~ C ~ I ~ C ~ D ~ C ~ E ~@3 A ~@11 J ~ C ~ C ~ C ~@3
>`.pickRestart({
  A: "~ x ~ x ~@4", B: "~@7 x!2 ~@7", C: "~@2 x!2 ~@2 x ~@9", D: "~@2 x!2 ~@2 x ~ x ~@7", E: "~@2 x!2 ~ x!3 ~@8",
  F: "~ x", G: "~ x ~@2", H: "~ x ~ x!2 ~@3", I: "~@2 x!2 ~ x!4 ~@7", J: "x!2 ~@4 x!2 ~@8",
})).gain(0.52)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@37 A ~ B ~@3 B ~@17 B ~ B ~ B ~@3 B ~@3 B ~@16 C D ~ B ~@3 B ~@3>".pickRestart({
  A: "~@3 x ~@4", B: "~@7 x ~@8", C: "~@7 x", D: "~@2 x ~ x!2 ~@10",
})).gain(0.52)

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

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

// drums · ride
const ride = s("rd").struct("<~@28 [~ x] ~@72>").gain(0.52)

stack(
  acoustic_guitar_steel, acoustic_guitar_steel_2, acoustic_guitar_nylon, bass, kick, snare, low_tom, hihat, mid_tom,
  open_hat, crash, ride
)