// Magic Carpet Ride — Steppenwolf
// 110 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 72 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. 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 · electric bass finger
const bass = note(`<
  ~ A B A B A B A B A B A B A B A B ~@3 C D E F A B A B A B A B A B A B A B ~@3 G H G I J K L M N O P@8 A B A B A B A B
  Q R S T@2
>`.pickRestart({
  A: "d3 ~ d3@2 ~ c3@2 ~ g2@2 ~@2 g2@2 ~@2", B: "d3 ~ d3@2 ~ c3@2 ~@3 g2 ~ g2@2 ~@2",
  C: "g3@3 g3@3 d4@2 g4@2 d4@2 g4@2 d4@2", D: "g3@3 d4@3 d3@2 g3@2 d3@2 g2@2 d3@2",
  E: "g3@3 g3@3 d4@2 g4@2 g3@2 g2@2 d3@2", F: "g2@3 g3@3 d4@2 g3@2 f3@2 d3@2 c3@2",
  G: "g3@4 d4 f4 g4@2 d4 f4 g4@2 d4@4", H: "g3@2 d3 f3 g3@2 ~ f4 g4@2 d3@2 g3@3 ~, ~@3 d4 ~@4",
  I: "g3@2 d4 f4 g4@2 d4 f4 g4@2 d4@2 g3@2 e3@2", J: "e3@3 e3@3 b3 d4 e4@2 b3@2 e3@3 ~",
  K: "e3@3 ~ d4 e4!2 b3 d4 b3 d4@2 b3@2 e3@2, ~@3 b3@2 ~@11", L: "e3@4 ~ d4 e4@2 b3 g3 e3@2 d3@2 b2@2, ~@2 b3 ~@5",
  M: "g3 e3 d3 b2 g2 e2 g2 e2", N: "e4@2 e4 e4@2 e4 e4@2 e4!2 b3@2 e3@2 d3@2",
  O: "e4@2 e4 e4@2 e4 e4@2 e4!2 b3@2 g3@2 f#3@2", P: "e3@2 e3 e3@2 e3 e3@2 e3!2 d3@2 e3@2 g3@2", Q: "g2", R: "a#2",
  S: "c3@9 ~ c3 ~ d3 f3 g3 ~", T: "[g2@25 ~@7]/2",
})).s("gm_electric_bass_finger").gain(0.37)

// bass · fretless bass
const bass_2 = note(`<
  ~ A B A B A B A B A B A B A B A B ~@3 C D E F A B A B A B A B A B A B A B ~@3 G H G I J K L M N O P@8 A B A B A B A B
  Q R S T@2
>`.pickRestart({
  A: "d2 ~ d2@2 ~ c2@2 ~ g1@2 ~@2 g1@2 ~@2", B: "d2 ~ d2@2 ~ c2@2 ~@3 g1 ~ g1@2 ~@2",
  C: "g2@3 g2@3 d3@2 g3@2 d3@2 g3@2 d3@2", D: "g2@3 d3@3 d2@2 g2@2 d2@2 g1@2 d2@2",
  E: "g2@3 g2@3 d3@2 g3@2 g2@2 g1@2 d2@2", F: "g1@3 g2@3 d3@2 g2@2 f2@2 d2@2 c2@2",
  G: "g2@4 d3 f3 g3@2 d3 f3 g3@2 d3@4", H: "g2@2 d2 f2 g2@2 ~ f3 g3@2 d2@2 g2@3 ~, ~@3 d3 ~@4",
  I: "g2@2 d3 f3 g3@2 d3 f3 g3@2 d3@2 g2@2 e2@2", J: "e2@3 e2@3 b2 d3 e3@2 b2@2 e2@3 ~",
  K: "e2@3 ~ d3 e3!2 b2 d3 b2 d3@2 b2@2 e2@2, ~@3 b2@2 ~@11", L: "e2@4 ~ d3 e3@2 b2 g2 e2@2 d2@2 b1@2, ~@2 b2 ~@5",
  M: "g2 e2 d2 b1 g1 e1 g1 e1", N: "e3@2 e3 e3@2 e3 e3@2 e3!2 b2@2 e2@2 d2@2",
  O: "e3@2 e3 e3@2 e3 e3@2 e3!2 b2@2 g2@2 f#2@2", P: "e2@2 e2 e2@2 e2 e2@2 e2!2 d2@2 e2@2 g2@2", Q: "g1", R: "a#1",
  S: "c2@9 ~ c2 ~ d2 f2 g2 ~", T: "[g1@25 ~@7]/2",
})).s("gm_fretless_bass").gain(0.4)

// chords · rock organ
const rock_organ = note(`<
  ~@3 A B C B D E D E A B C B D E F G H I J I J A B C B D E D E A B C B C B F G H I J I J K L@2 M N O P Q R S T U V W D
  E A B C B C B F G H X@2
>`.pickRestart({
  A: "[d5,f#5,a5] ~ [d5,f#5]@2 ~ [e5,g5] ~@2 [g4,b4,d5]@2 ~@2 [g4,b4,d5]@2 ~ [d5,f#5,a5], ~@2 a5 ~@2 c5@2 ~@9", // D Em G D
  B: "[d5,f#5,a5] ~ [d5,f#5,a5] ~@2 [c5,e5,g5]!2 ~@2 [b4,d5] [g4,b4,d5] ~ [g4,b4,d5]@2 ~@2", // D C Bm G
  C: "[d5,f#5,a5] ~ [d5,f#5]@2 ~ [c5,e5,g5]@2 ~ [g4,b4,d5]@2 ~@2 [g4,b4,d5]@2 ~ [d5,f#5,a5], ~@2 a5 ~@13", // D C G D
  D: "[d5,f#5,a5] ~ [f#5,a5] ~@2 [c5,e5,g5]@2 ~ [g4,b4,d5]@2 ~@2 [g4,b4,d5]@2 ~ [d5,f#5,a5], ~ d5 ~@6", // D F#m C G D
  E: "[d5,f#5,a5] ~ [f#5,a5] ~@2 [c5,e5,g5] [c5,e5,g5]@2 ~ [g4,b4,d5]!2 ~ [g4,b4,d5]@2 ~@2, ~ d5 ~@6", F: "[b4,d5,g5]",
  G: "[f5,a#5]", H: "[e5,g5,c6]", I: "d6@3 d6@2 ~ f6@2 ~@2 g5@2 ~@2 g5@2, f6@5 g5@3 e6@4 f6@4, ~@6 d6 ~ c6@7 ~",
  J: "[d6,f6]@2 ~ [d6,g6]@2 ~ [d6,f6]@2 [d6,g6] ~ [d6,f6]@2 [d6,g6]@2 g5 ~, ~@2 g5@3 g5@3 ~ g5@4 ~@3", // Dm G5 Dm G5 Dm G5
  K: "[a4,b4]@2 ~ [a4,b4,d5]@2 ~ [a4,b4,d5]@3 ~@3 [b4,d5]@4, e4@3 ~@2 e4@3 ~ [e4,a4]@2 e4@4 ~, ~@5 [b4,d5] ~@2", // Asus2 Bm7 Bm A5 Bm
  L: "[e4,b4,d6]@3 [a5,c#6]@2 ~ [a5,b5]@3 ~ g5@2 g5@2 [e4,b4,e5]@2, a5@2 ~@3 [e4,e5]@4 [e4,b4]@5 ~@2, ~@9 e5@3 ~@4, ~@5 b5@3", // E7 A Asus2 E5 E E5
  M: "[e4,b4,d5,g5]@2 [e4,d5,g5] [e4,b4,d5,g5]@2 [e4,b4,d5,g5] [e4,b4,d5,g5]@2 [e4,b4,g5] [e4,b4,d5,g5] [e4,b4,d5]@2 [e4,b4,d5,g5]@4, ~@10 g5 ~@5", // Em7 Em Em7 E7 Em7
  N: "[b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,d5,g5]!2", // G Em G
  O: "[b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,d5,g5]!2", // G Em G Em G
  P: "[b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 b4 [b4,d5,g5]@2 [b4,g5]!2", // G Em
  Q: "[b4,d5,g5]@2 [b4,d5] [b4,d5,g5]@2 b4 [b4,d5,g5]@2 g5 [b4,d5,g5]@2 [d5,g5] [b4,d5,g5]@2 [b4,d5] ~", // G Bm G G5 G Bm
  R: "[b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,d5] [b4,d5,g5]@2 b4 [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,d5,g5] [d5,g5]", // G Em G Bm G Em G G5
  S: "[b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5] [b4,d5,g5]@2 [b4,d5,g5] b4", // G Bm G
  T: "[b4,d5,g5]@2 [b4,d5] [b4,d5,g5]@2 ~ [b4,d5,g5]@2 d5 [b4,d5,g5]@2 [b4,d5] [b4,d5,g5]@2 [b4,d5,g5]!2", // G Bm G Bm G
  U: "[b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5]", // G Em G Bm
  V: "[b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 d5 [b4,d5,g5]@2 [b4,g5]!2", // G Em G Em G Em
  W: "[b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 [b4,g5] [b4,d5,g5]@2 g5 [b4,d5,g5]", // G Em G Em G Em G Em …
  X: "[[g5,d6,f6,g6]@25 ~@7]/2", // G7
})).s("gm_rock_organ").gain(0.33)

// chords · rock organ · soft notes
const rock_organ_soft = note(`<
  ~@4 A ~ A ~@5 A ~ A ~@3 B ~ C ~ C ~@2 A ~ A ~@5 A ~ A ~ A ~ B ~ C ~ C ~ D E@2 F G H I J K L M N O P ~@3 A ~ A ~ A ~ B
  ~@3
>`.pickRestart({
  A: "~@9 g4 ~@6", B: "d5", C: "~ g5 ~@6", D: "d5 ~@5 a4@2", E: "e5@4 ~ b4@4 ~@7", F: "~@2 b4 ~@5 d5 ~@7",
  G: "~@11 d5 ~@4", H: "~@2 d5 ~@8 d5 ~@4", I: "~@11 [d5,g5] ~@2 d5!2",
  J: "~@2 g5 ~@2 [d5,g5] ~@2 [b4,d5] ~@2 b4 ~@2 g5 [b4,d5,g5]", K: "~@2 d5 ~@2 g5 ~@2 [d5,g5] ~@2 d5 ~@3 b4",
  L: "~@11 g5 ~@3 [d5,g5]", M: "~@2 g5 ~@2 [b4,d5,g5] ~@2 [b4,g5] ~@2 g5 ~@4", N: "~@5 d5 ~@9 g5",
  O: "~@5 d5 ~@2 d5 ~@2 [b4,g5] ~@2 d5!2", P: "~@2 d5 ~@2 d5 ~@2 d5 ~@2 d5 ~@2 [b4,d5] ~",
})).s("gm_rock_organ").gain(0.2)

// chords · rock organ
const rock_organ_2 = note("<~@49 A B C D ~ E F G F@2 ~@13>".pickRestart({
  A: "b6@14 a#6 [g6,a6], a#6 ~@15", // Gsus2
  B: "a6 [e6,g6] a6 [e6,g6] g6 [d6,e6]!2 b5 [d6,e6] [a5,b5] b5 [a5,b5] [a5,d6] [b5,e6]@3", // Em Dsus2 Asus2 D5 E5
  C: "[b5,d6,g6]@11 [b5,d6,g6]@2 [b5,d6,g6] [b5,d6,g6]@2", // G
  D: "~@2 [b5,d6,g6]@2 [b5,d6,g6]@2 [b5,d6,g6]!3 [b5,d6,g6]@2 [b5,d6,g6] [b5,d6,g6]@2 [b5,d6,g6]!2", // G
  E: "[b4,d5,g5] ~ [b4,d5,g5]!2 [b4,d5,g5]@2 [b4,d5,g5]!2 [b4,d5,g5]@2 [b4,d5,g5]!2 [b4,d5,g5]@2 [b4,d5,g5]@2", // G
  F: "[b4,d5,g5] ~ [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [b4,d5,g5]@2 [b4,d5,g5] [d5,g5]@2 [b4,g5] ~, ~@12 b4 ~ d5@2", // G G5 Em
  G: "[b4,d5,g5]@4 [b4,d5,g5]@4 [b4,d5,g5]!2 [b4,d5,g5]@2 [b4,d5,g5]@2 [b4,d5,g5]!2", // G
})).s("gm_rock_organ").gain(0.33)

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

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

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

// drums · low tom
const low_tom = s("lt").struct("<~@71 [x!8 ~@8]>").gain(0.44)

// drums · hihat
const hihat = s("hh").struct("<~ [x!8]!16 [x!4]!7 [x!8]!14 [x!4]!11 [x!8]!18 [x!4]!4 [x!3 ~]>").gain(0.57)

// drums · crash
const crash = s("cr").struct("<~@21 x!3 ~@18 x!7 ~@21 x [~ x]>").gain(0.57)

// drums · ride
const ride = s("rd").struct("<~@42 [~@2 x!2 ~ x!2 ~@2 x!2 ~ x ~@3]!7 [x ~@2 x ~ x!2 ~ x ~ x ~ x ~ x ~]!10 ~@13>")
  .gain(0.63)

stack(bass, bass_2, rock_organ, rock_organ_soft, rock_organ_2, rim, kick, snare, low_tom, hihat, crash, ride)