// Are You Gonna Go My Way — Lenny Kravitz
// 128 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (4/4 at bar 1, 7/8 at bar 31, 4/4 at bar 32) are rendered on a constant 4/4 grid of one bar per cycle
// note: pitch bends are ignored
// note: Full arrangement: all 109 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(128/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 · "FRETLESS"
const bass = note(`<
  ~@7 A B C D E D C D E F G H G H G H G I J K L M N M N O P Q R S@2 ~@3 T U V W X M N M N M N M N Y Z AA AB M N M N O P
  Q R AC@2 ~@6 AD@2 AE@4 AF@2 AE@6 AF@2 AG@2 U V W X U V W X O AH AI@2 AJ AK AL@2 ~
>`.pickRestart({
  A: "~@10 d3 ~ d3 ~ d3 ~", B: "d3@2 e2@3 ~ e2@2 ~ e2 d2@2 e2@4", C: "~@2 e2@3 ~ e2@2 ~ e2 d2@2 e2@2 d2@2",
  D: "b1@2 e2@3 ~ e2@2 ~ e2 d2@2 e2@4", E: "d2@2 e2@2 ~ e2 e2@2 ~ e2 d2@2 e2@2 d2@2",
  F: "b1@2 e2@2 ~@2 e2@2 ~@2 e2@2 b1 ~ e2@2", G: "d2 e2 ~ e2 b1 e2 b1 e2", H: "d2@2 e2@2 ~@2 e2@2 ~@2 e2@2 b1 ~ e2@2",
  I: "d2 g2 ~ g2 ~ f2 g2 f2", J: "d2@2 g2 ~@3 g2 ~@3 f2@2 g2@2 f2@2", K: "d2@2 g2 ~@3 g2 ~@3 f2@2 g2@2 f2 ~",
  L: "d2@2 g2 ~@2 f2 ~@2 e2 ~@2 f2 ~@2 g2 ~", M: "e2@2 ~@2 e2@2 ~@2 e2@2 b1 ~ e2@2 d2@2", N: "e2 ~ e2 b1 e2 b1 e2 d2",
  O: "g2!8", P: "f#2!4 f2!4", Q: "e2 ~ e2 ~ e2 b1 d2 b1", R: "e2@2 ~@2 e2@2 ~@2 e2@2 g2@2 e2@2 b1 ~",
  S: "[g2!6 ~ f#2@9]/2", T: "~@8 d3 ~ d3 ~ d3 ~ d3@2", U: "e2@3 ~ e2@2 ~ e2 d2@2 e2@5 ~",
  V: "e2@3 ~ e2@2 ~ e2 d2@2 e2@2 d2@2 b1@2", W: "e2@3 ~ e2@2 ~ e2 d2@2 e2@4 d2@2",
  X: "e2@2 ~ e2 e2@2 ~ e2 d2@2 e2@2 d2@2 b1@2", Y: "g2 ~ g2 ~ f2 g2 f2 d2", Z: "g2 ~@3 g2 ~@3 f2@2 g2@2 f2@2 d2@2",
  AA: "g2 ~@3 g2 ~@3 f2@2 g2@2 f2 ~ d2@2", AB: "g2 ~@2 f2 ~@2 e2 ~@2 f2 ~@2 g2 ~ f2@2",
  AC: "[g2@2 g2@2 g2@2 g2@2 g2@2 g2@2 ~@2 f#2@17 ~]/2", AD: "[g#3 f#3 g#3 f#3!2 e3@2 f#3@2 e3@4 b2!3]/2",
  AE: "[e2 b1 e2 d2 c#2 e2 f#2 g2@2 e2 g2 a2@2 b1 d2 d#2]/2",
  AF: "[e2 b1 e2 d2 c#2 g1 g#1 a1@2 b1 c#2 d2@2 a1 c#2 d2]/2", AG: "[e2 b1 e2 d2 c#2 e2 f#2 a1@5 ~@4]/2",
  AH: "f#2!4 g2!4", AI: "[g2@2 g2@2 g2 ~ f#2@18 e2@2 ~@2 e2@2 ~@2]/2", AJ: "e2 b1 d2 b1 e2 ~ e2 ~",
  AK: "e2@2 g2@2 e2@2 b1 ~ g2@2 g2@2 g2@2 g2@2", AL: "[g2!2 ~ f#2@9 ~@4]/2",
})).s("gm_fretless_bass").gain(0.35)

// other · lead 1 square · "SQUAREWAVE"
const lead_1_square = note(`<
  ~@16 A@2 B C D@2 E C F@2 G H I@2 J K ~@2 L M N@2 ~@8 O@2 P K Q@2 R K S T U V W@2 X K ~@2 Y M Z@2 ~@36 AA AB AC AD ~
>`.pickRestart({
  A: "[~@6 e4 ~ d4 ~ g4@11 ~ e4@4 d4@3 ~@3]/2", B: "~@4 g4@4 e4 ~ e4@2 d4@2 e4@2", C: "e4 d4 ~@6",
  D: "[~@6 e4 ~ d4 ~ g4@10 e4@2 e4@2 e4@2 d4@3 ~@3]/2", E: "~@4 g4@2 g4@2 e4@2 g4@2 e4 ~ e4@2",
  F: "[~@6 g4 ~ g4 ~ a#4@9 ~ g4@2 g4@2 g4@2 f4@3 ~@3]/2", G: "~@2 a#4@2 a#4!2 g4!2", H: "g4 f4 ~@6",
  I: "[~@2 e4@2 e4@2 d4 ~ g4@11 ~ e4@4 d4@2 ~@6]/2", J: "~ g4@2 g4!2 d4 e4!2", K: "d4 ~@7", L: "~@8 e4!4 g4@2 e4 ~",
  M: "e4 ~@7", N: "[~@2 g3 a3 b3 d4 ~ e4@8 ~]/2", O: "[~@4 e4 ~ d4 ~ g4@11 ~ e4@4 d4@3 ~@5]/2",
  P: "~@2 g4@4 e4 ~ e4@2 d4@2 e4@2 e4@2", Q: "[~@4 e4 ~ d4 ~ g4@10 e4 ~ e4@2 e4@2 d4@3 ~@5]/2",
  R: "~@2 g4 ~ g4@2 e4@2 g4@2 e4 ~ e4@2 e4@2", S: "~ g4!3 a#4@4", T: "~@2 g4@2 g4@2 g4@2 f4@3 ~@5",
  U: "~ a#4@2 a#4!2 g4!3", V: "f4 ~@7", W: "[~@2 e4@2 e4@2 d4 ~ g4@10 e4 ~ e4@4 d4@2 ~@6]/2", X: "~ g4@2 g4!2 e4@2 e4",
  Y: "~@8 e4!4 g4@2 e4@2", Z: "[~@4 g3@2 a3@2 b3@2 d4@2 ~@2 e4@17 ~]/2", AA: "e4!4 g4@2 e4@2 e4@3 ~@5", AB: "~@14 b3 ~",
  AC: "b3 ~ b3 ~ b3@3 ~@5 a3 ~ a3 ~", AD: "a3 ~@3",
})).s("gm_lead_1_square").gain(0.4)

// chords · distortion guitar · "DISTORTION"
const distortion_guitar = note(`<
  A B@2 C@2 B@2 D@2 E@2 F@2 E@2 G@2 H@6 I@2 J@2 K L M L M N O P Q R@2 L S L T L S L T L M L M L M L M U@3 V L M L M N O
  P W X@2 Y Z AA AB AC AD AE AD AF AG AH AG AH AG AH AG AH AG AH AG AH AG AI@2 L S L T L S L T N AJ@7 ~
>`.pickRestart({
  A: "~@2 a3@3 g3 [e2,e3]@2 e2@2 [a2,d3]@2 ~@2 e2@2, ~@5 e2@2 ~, ~@3 [b2,e3]", // E D5 E5
  B: "[e2@2 a3@3 g3 [e2,e3]@2 e2@2 [a2,d3]@2 ~ d4 [e2,d4,g4]@4 a3@3 g3 [e2,e3]@2 e2@2 [a2,d3]@2 ~@2 e2@2, ~@5 e2@2 ~@6 e2@2 ~, ~@3 [b2,e3] ~@3 [b2,e3]]/2", // E D5 Em7 E D5 E5
  C: "[e2@2 a3@3 g3 [e2,e3]@2 e2@2 [a2,d3]@2 ~@2 [e2,d4,g4]@4 a3@3 g3 [e2,e3]@2 e2@2 [a2,d3]@2 ~@2 e2@2, ~@5 e2@2 ~@6 e2@2 ~, ~@3 [b2,e3] ~@3 [b2,e3]]/2", // E D5 Em7 E D5 E5
  D: "[e2@2 a3@3 g3 [e2,e3]@2 e2@2 [a2,d3]@2 ~@2 [e2,d4,g4]@4 a3@3 g3 [e2,e3,g4]@2 e2@2 d3@2 ~@2 [e2,g4]@2, ~@5 e2@2 ~@6 e2@2 ~, ~@3 [b2,e3] ~@3 e3]/2", // E D5 Em7 Em E5
  E: "[e2@2 a3@3 g3 [e2,e3,g4]@2 e2@2 d3@2 ~ d4 [e2,d4,g4]@4 a3@3 g3 [e2,e3,g4]@2 e2@2 d3@2 ~@2 [e2,g4]@2, ~@5 e2@2 ~@6 e2@2 ~, ~@3 e3 ~@3 e3]/2", // Em Em7 Em
  F: "[e2@2 a3@3 g3 [e2,e3,g4]@2 e2@2 d3@2 ~@2 [e2,d4,g4]@4 a3@3 g3 [e2,e3,g4]@2 e2@2 d3@2 ~@2 [e2,g4]@2, ~@5 e2@2 ~@6 e2@2 ~, ~@3 e3 ~@3 e3]/2", // Em Em7 Em
  G: "[e2@2 a3@3 g3 [e2,e3,g4]@2 e2@2 d3@2 ~@2 [e2,d4,g4]@4 a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~@2 e2@2, ~@5 e2@2 ~@6 e2@2 ~, ~@3 e3 ~@3 e3]/2", // Em Em7 E
  H: "[e2@2 a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~@2 e2@4 a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~@2 e2@2, ~@5 e2@2 ~@6 e2@2 ~, ~@3 e3 ~@3 e3]/2", // E
  I: "[e2@2 a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~@2 e2@4 c4@3 a#3 [g2,g3]@2 g2@2 f3@2 ~@2 g2@2, ~@5 e2@2 ~@6 g2@2 ~, ~@3 e3 ~@3 g3]/2", // E G
  J: "g2@2 c4@3 a#3 [g2,g3]@2 g2@2 f3@2 ~@2 g2@2, ~@5 g2@2 ~, ~@3 g3", K: "g2@2 b3 ~ g3 a#3 ~ g3 a3 ~ g3 b3 g3 ~ g3 ~",
  L: "a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~@2 e2@2 e2@2, ~@2 e2 ~, ~@5 e3@2 ~", // E
  M: "a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~@2 e2@4, ~@2 e2 ~, ~@5 e3@2 ~", N: "b3@2 b3!2 b3@11 ~, [d4,e4]@15 ~",
  O: "[a#3,c#4,e4]@8 [a3,c4,e4]@7 ~", P: "~@2 e4 [e4,g#4] [d4,f#4]@2 [e4,g#4]@5 ~@5, [e4,b4] ~@7, ~ [g#4,b4]@2 ~@13",
  Q: "b4 ~ e4 [e4,g#4] [g4,b4]@2 [e4,g#4]@5 ~@5, e3@5 ~@3, e4 ~@7, ~ [g#4,b4]@2 ~@13", // E G E G#m
  R: "[[b3,d4,e4]@11 ~ [b3,d4,e4] ~ [a3,b3,c#4,e4]@16 ~@2]/2", // E7 A
  S: "a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~ d4 [e2,d4,g4]@4, ~@2 e2 ~, ~@5 e3@2 ~", // E Em7
  T: "a3@3 g3 [e2,e3]@2 e2@2 d3@2 ~@2 [e2,d4,g4]@4, ~@2 e2 ~, ~@5 e3@2 ~", // E Em7
  U: "c4@3 a#3 [g2,g3]@2 g2@2 f3@2 ~@2 g2@2 g2@2, ~@2 g2 ~, ~@5 g3@2 ~", // G
  V: "c4@2 g3 b3@2 g3 a#3@2 g3 a3@2 g3 b3@2 g3 ~",
  W: "~@2 e4 [e4,g#4] [g4,b4]@2 [e4,g#4]@5 ~@5, [e4,b4] ~@7, ~ [g#4,b4]@2 ~@13", // E G E E5 G#m
  X: "[[b3,d4,e4]@11 ~ [b3,d4,e4] ~ [a3,b3,c#4,e4]@18]/2", // E7 A
  Y: "[e3,b3,e4,g#4] ~@3 [e3,e4,g#4] ~ [e3,a3,d4,f#4] ~ e3 ~ [e3,d4,f#4] ~ [e3,d4,f#4] ~ [e3,a3,d4,f#4] ~", // E D
  Z: "e3 ~ e3 ~ [e3,d4,f#4] ~ [a3,c#4]@4 [e3,c4]@2 [e3,c#4]@2 [e3,d4,f#4]@2, ~@3 e4@4 ~, ~@6 e3 ~@9", // D A C C#m D
  AA: "[e3,b3,e4,g#4] ~ e3 ~ [e3,e4,g#4] ~ [e3,a3,d4,f#4] ~ e3 ~ [e3,d4,f#4] ~ [e3,d4,f#4] ~ [e3,a3,d4,f#4] ~", // E D
  AB: "~@2 e3 ~ [e3,d4,f#4] ~ e3 ~ e3 ~ [e3,c4]@2 [e3,c#4]@2 [e3,d4,f#4]@2, ~@3 e4@4 ~, ~@3 [a3,c#4]@2 ~@3", // D C C#m D A
  AC: "[e3,b3,e4,g#4] ~ e3 ~ [e3,e4,g#4] ~ [e3,a3,d4,f#4,b4] ~ e3 ~ [e3,d4,f#4] ~ [d4,f#4] ~ [e3,a3,d4,f#4,b4] ~", // E Bm7 D Bm7
  AD: "~@2 e3 ~ [e3,d4,f#4] ~ e3 ~ [e3,b4]@2 [e3,c4]@2 [e3,c#4]@2 [e3,d4,f#4]@2, ~@3 e4@4 ~, ~@3 [a3,c#4]@2 ~@3", // D E5 C C#m D A
  AE: "[e3,b3,e4,g#4] ~ e3 ~ [e3,e4,g#4] ~ [e3,a3,d4,f#4,b4] ~ e3 ~ [e3,d4,f#4] ~ [e3,d4,f#4] ~ [e3,a3,d4,f#4,b4] ~", // E Bm7 D Bm7
  AF: "[e3,b3,e4,g#4] ~ [e4,g#4] ~ [e4,g#4] ~ [a3,d4,f#4,b4]@2 ~@2 [d4,f#4] ~ [d4,f#4] ~ [a3,d4,f#4,b4]@2", // E Bm7 D Bm7
  AG: "~@2 [d4,f#4] ~ [d4,f#4] ~ [a3,c#4,a4]@4 [c4,a4]@2 c#4@2 [d4,f#4]@2, ~@3 e4@4 ~", // D A F D
  AH: "[b3,e4,g#4] ~ [e4,g#4] ~ [e4,g#4] ~ [a3,d4,f#4,b4]@2 ~@2 [d4,f#4] ~ [d4,f#4] ~ [a3,d4,f#4,b4]@2", // E Bm7 D Bm7
  AI: "[[b3,e4,g#4] ~ [e4,g#4] ~ [e4,g#4] ~ [a3,d4,f#4,b4]@2 ~@2 [d4,f#4] ~ [d4,f#4] ~ [f#3,a3,d4,f#4]@10 c#3@3 d3@3 d#3@2]/2", // E Bm7 D
  AJ: "[[a3,b3,c#4,e4]@8 [b3,d4,e4]@13 ~ [a3,b3,c#4,e4]@16 ~@4 e4 [e4,g#4] [d4,f#4]@2 [e4,g#4]@5 ~@7 e4 [e4,g#4] [g4,b4]@2 [e4,g#4]@5 ~@5 [b3,d4,e4]@11 ~ [b3,d4,e4] ~ [a3,b3,c#4,e4]@26, ~@20 [e4,b4] ~@7 [e4,b4] ~@27, ~@41 [g#4,b4]@2 ~@14 [g#4,b4]@2 ~@53]/7", // A E7 A E D E G E …
})).s("gm_distortion_guitar").gain(0.3).pan(0)

// drums · kick
const kick = s("bd").struct(`<
  ~@3 A ~@4 B C@18 D E@3 F@6 ~@4 G E@3 F E@7 F E F H I E@3 F@3 E F J ~@2 K ~ L ~ M ~ N O@14 P Q E@3 F E@3 F@2 E R S T@2
  U ~@2
>`.pickRestart({
  A: "~@3 x", B: "x!3 ~@3 x ~@3 x ~ x ~@3", C: "~ x ~ x ~ x!2 ~", D: "~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~",
  E: "x ~ x ~ x!2 ~@2", F: "x ~ x ~ x!2 ~ x", G: "~@14 x!2", H: "x!8", I: "x ~@2 x ~@2 x ~@2 x ~@2 x ~ x ~",
  J: "x ~ x ~ x!4", K: "~@7 x", L: "~@5 x ~ x", M: "~@3 x ~@2 x!2", N: "~@5 x!2 ~", O: "x ~@3 x!2 ~@2",
  P: "x ~@3 x!2 ~ x", Q: "~@9 x ~@2 x ~@3", R: "x ~ x!2 ~@4", S: "~@2 x!2", T: "x!2 ~@2 x ~ x ~", U: "x!2 ~ x ~@4",
})).gain(0.52)

// drums · snare
const snare = s("sd").struct(`<
  A@7 B C@11 D C@7 E F@9 G H@3 I F@7 J F@3 J F@2 K L F@9 ~ H@7 M F@15 N F@10 O P F@2 Q ~@2
>`.pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~@2 x ~@3 x ~@2 x!4 ~ x ~", C: "~@3 x ~@3 x", D: "~@6 x ~@2 x!2 ~@3 x ~",
  E: "~ x ~@2 x ~ x!2 ~ x!2 ~ x!2 ~ x", F: "~ x ~ x", G: "~@3 x", H: "x!4", I: "x ~@3 x ~@2 x!4 ~ x ~ x!2",
  J: "~@4 x ~@2 x!2 ~@3 x ~@3", K: "~ x!3 ~@2 x!2 ~ x!3 ~ x!2 ~", L: "~@2 x ~ x!2 ~ x!2 ~ x!2 ~@4",
  M: "x ~@3 x ~@2 x!2 ~ x ~ x!3 ~", N: "~@8 x ~@2 x ~@2 x ~", O: "~@4 x ~@7 x ~@2 x", P: "x ~ x ~ x!3 ~@5 x ~@3",
  Q: "~ x ~@2",
})).gain(0.66)

// drums · open hat
const open_hat = s("oh").struct("<~@8 A B@18 C B@9 ~@5 B@14 D E B@9 ~ F@8 B@15 G B@10 H I B@2 H ~@2>".pickRestart({
  A: "~ x!7", B: "x!8", C: "x ~ x ~@2 x ~@2 x ~@2 x ~@2 x ~", D: "x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x",
  E: "x ~@2 x ~@2 x ~@2 x ~@2 x ~@3", F: "x!4", G: "~@11 x ~@4", H: "x!4 ~@4", I: "~@4 x!4",
})).gain(0.52)

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

// drums · ride
const ride = s("rd").struct("<~@8 A B@7 C ~@25 D@4 ~@46 D@8 ~@9>".pickRestart({
  A: "~ x ~ x ~ x!3", B: "x!2 ~ x ~ x!3", C: "x", D: "x ~ x ~ x!4",
})).gain(0.59)

stack(bass, lead_1_square, distortion_guitar, kick, snare, open_hat, crash, ride)