// Spirit in the Sky — Norman Greenbaum
// 125 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 99 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(125/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 · "Overdrive"
const overdriven_guitar = note(`<
  A@5 B@2 C@2 D E F G H@2 I@2 J@2 F K L@2 M N B@2 C@2 B@2 C@2 D E F G H@2 I@2 J@2 F K L@2 M N B@2 C@2 B@2 C@2 O P O Q O
  P O R S@2 T@2 B@2 C@2 D E F G H@2 I@2 J@2 F K L@2 M N U@3 V@3 W X W Y
>`.pickRestart({
  A: "[~@8 a3@3 a3@2 a3@2 ~@3 a3@2 d4@2 ~@2 a3@3 a3@2 a3@2 ~@3 a3@2 c4@2 ~ a4, ~@7 a4@9 ~ a4@5 ~ a4@9 ~ a4@5 ~@2, ~@15 a3@3 ~@4 c4@2 ~@7 a3@3 ~@4 d4@2]/5",
  B: "[[a3,a4]@3 [a3,a4]@2 [a3,a4]@2 [a3,a4]@2 a4 a3@2 d4 a4 c4 a4]/2", // A
  C: "[[a3,a4]@3 [a3,a4]@2 [a3,a4]@2 [a3,a4]@2 a4 a3@2 c4 a4 d4 a4]/2", D: "a3 e4 [c#4,e4]@2",
  E: "e4@5 [c#4,e4]@2 [c#4,e4]", F: "[c#4,e4] [e4,a4]", G: "[d4,f#4]@5 [d4,f#4]@2 [d4,f#4]",
  H: "[[d4,f#4]@4 [d4,f#4]@3 [c#4,e4]@4 [c#4,e4]@2 [c#4,e4]@2 [c#4,e4]]/2", // D C#m
  I: "[[e4,g#4]@3 [e4,g#4]@4 [e4,g#4]@5 c#4@4]/2", J: "[[e4,a4]@3 [e4,a4]@4 [e4,a4]@5 c#4@4]/2",
  K: "[d4,f#4]@3 [d4,f#4]@5", L: "[[d4,f#4]@3 [d4,f#4]@4 [e4,a4]@4 [e4,a4]@5]/2", M: "[e4,g#4]@3 [e4,g#4]@5",
  N: "[a3,c#4]@3 [a3,c#4]@2 [a3,c#4]@2 [a3,c#4]", O: "[a4,c#5,e5,a5]@6 ~ [a4,c#5,e5,a5]",
  P: "[g4,b4,d5,g5]@6 ~ [g4,b4,d5,g5]", Q: "[e5,e6] [d5,d6]@2 [c5,c6]@2 [a4,a5]@2 [g4,g5]",
  R: "[c5,c6] [b4,b5] [c5,c6]@2 [d5,d6] [c5,c6] [d5,d6]@2, e5 f#5", // C B C D C D
  S: "[c#4@3 a3@2 a3@2 ~@3 a3@2 d4@2 ~ a4, a4@8 ~ a4@5 ~@2, ~@7 a3@3 ~@4 c4@2]/2",
  T: "[a3@3 a3@2 a3@2 ~@3 a3@2 c4@2 ~ a4, ~@7 a3@3 ~@4 d4@2, ~@9 a4@5 ~@2]/2",
  U: "[c#5@2 c#5@2 c#5@2 c#5@4 c#5@2 c#5@2 c#5@4 c#5@2 b4@2 c#5@2 a4@2 a4@2 f#4 e4 ~@4 c#5@2 c#5@2 c#5@2 [e4,a4]@8, [e4,a4]@6 [e4,a4]@8 [e4,a4]@10 c#4@7 a4@3 ~@14, ~@4 [c#4,e4] ~]/3", // A5 C#m
  V: "[b4!2 c#5 a4@2 a4 ~@3 d5!2 d5@2 d5!2 c#5@2 b4 a4 c#5@2 c#5!3, [d4,f#4]@3 d4@5 [d4,f#4]@3 [d4,f#4]@4 e4@4 [e4,a4]@5, ~@3 f#4@3 f#4@2 ~@16, ~@7 a4@2 ~@6 a4@3 ~@6]/3", // D A5
  W: "e5!3 e5@2 b4@2 c#5, [e4,g#4]@3 [e4,g#4]@5", X: "[a3,c#4]@3 [a3,c#4]@2 [a3,c#4]@2 [a3,c#4], a4", Y: "[c#4,e4,a4]",
})).s("gm_overdriven_guitar").gain(0.5)

// bass · synth bass 1
const bass = note(`<
  ~ A B A C D E D F A@3 G@2 A H I A@3 G@2 J H A D E D F D E D F A@3 G@2 A H I A@3 G@2 J H A D E D F D E D F K L K M K N
  K O A B A C D E D F A@3 G@2 A H I A@3 G@2 J H A@4 G@2 A H A H P
>`.pickRestart({
  A: "a2!4", B: "a2!2 d3 c3", C: "a2!2 c3 d3", D: "a1!4", E: "a1!2 d2 c2", F: "a1!2 c2 d2", G: "d2!4", H: "e2!4",
  I: "e2!2 a2!2", J: "g#2 a2!3", K: "a2@2 a3 a2 a2@2 a3 a2", L: "g2@2 g3 g2 g2@2 g3 g2", M: "c2 c3 c2 c3",
  N: "g#2@2 g3 g2 g2@2 g3 g2", O: "c2 c3 d2 d3", P: "a2 a1 a2 a1 ~@4",
})).s("gm_synth_bass_1").gain(0.35)

// other · electric guitar jazz · "Jazz Electric"
const electric_guitar_jazz = note(`<
  ~@9 A B C D E F G@2 H@3 I@3 J K L@2 M@2 L@2 M@2 N B O@2 E F G@2 H@3 I@3 J K L@2 M@2 L@2 M@2 P Q P R P Q P S T@2 ~@6 N
  B O@2 E F G@2 H@3 I@3 J K U@3 V@3 W X W Y
>`.pickRestart({
  A: "~@2 c#5 b4 a4@2 a4!2", B: "c#5 b4 a4 c#5@5", C: "~@2 c#5!2 c#5@2 c#5!2", D: "b4!2 c#5 a4@5",
  E: "~@2 d5!3 d5@2 c#5", F: "c#5 b4 a4@6", G: "[b4!2 c#5 e5@2 e5!2 e5@2 e5 b4 c#5 a4!2 f#4 e4]/2",
  H: "[c#5@2 c#5@2 c#5@2 c#5@4 c#5@2 c#5@2 c#5@4 c#5@2 b4@2 c#5@2 a4@2 a4@2 f#4 e4 ~ a4@3 c#5@2 c#5@2 c#5@2 b4!2 ~ c#5@5]/3",
  I: "[b4!2 c#5 a4@2 a4 f#4 a4@2 d5!2 d5@2 d5!2 c#5@2 b4 a4 c#5@2 c#5!3]/3", J: "e5!3 e5@2 b4@2 c#5", K: "a4",
  L: "[[a3,a4]@3 [a3,a4]@2 [a3,a4]@2 [a3,a4]@2 a4 a3@2 d4 a4 c4 a4]/2", // A
  M: "[[a3,a4]@3 [a3,a4]@2 [a3,a4]@2 [a3,a4]@2 a4 a3@2 c4 a4 d4 a4]/2", N: "~ c#5!2 b4 a4@2 ~ a4",
  O: "[c#5!5 c#5@2 b4@2 a4@7]/2", P: "[a4,c#5,e5,a5]@6 ~ [a4,c#5,e5,a5]", Q: "[g4,b4,d5,g5]@6 ~ [g4,b4,d5,g5]",
  R: "[e5,e6] [d5,d6]@2 [c5,c6]@2 [a4,a5]@2 [g4,g5]", S: "[c5,c6] [b4,b5] [c5,c6]@2 [d5,d6] [c5,c6] [d5,d6]@2, e5 f#5",
  T: "[c#4@3 a3@2 a3@2 ~@3 a3@2 d4@2 ~ a4, a4@8 ~ a4@5 ~@2, ~@7 a3@3 ~@4 c4@2]/2",
  U: "[c#5@2 c#5@2 c#5@2 c#5@4 c#5@2 c#5@2 c#5@4 c#5@2 b4@2 c#5@2 a4@2 a4@2 f#4 e4 ~@4 c#5@2 c#5@2 c#5@2 [e4,a4]@8, [e4,a4]@6 [e4,a4]@8 [e4,a4]@10 c#4@7 a4@3 ~@14, ~@4 [c#4,e4] ~]/3", // A5 C#m
  V: "[b4!2 c#5 a4@2 a4 ~@3 d5!2 d5@2 d5!2 c#5@2 b4 a4 c#5@2 c#5!3, [d4,f#4]@3 d4@5 [d4,f#4]@3 [d4,f#4]@4 e4@4 [e4,a4]@5, ~@3 f#4@3 f#4@2 ~@16, ~@7 a4@2 ~@6 a4@3 ~@6]/3", // D A5
  W: "e5!3 e5@2 b4@2 c#5, [e4,g#4]@3 [e4,g#4]@5", X: "[a3,c#4]@3 [a3,c#4]@2 [a3,c#4]@2 [a3,c#4], a4", Y: "[c#4,e4,a4]",
})).s("gm_electric_guitar_jazz").gain(0.31).pan(0.2)

// other · brass section · "Brass1"
const brass_section = note("<~@16 A B C@2 D@2 ~@18 A ~ E@2 D@2 ~@34 A ~ E@2 D@2 ~@4 F@2 G@2 ~@5>".pickRestart({
  A: "~@4 a4!2 f#4 e4", B: "c#5 ~@7", C: "[~@8 c#5@2 c#5@2 f#4 e4 ~ a4@7 ~@10]/2", D: "[~@5 a4 f#4 a4@4 ~@5]/2",
  E: "[~@8 a4@2 a4@2 f#4 e4 ~ a4@7 ~@10]/2", F: "[~@8 a4@2 a4@2 f#4 e4 ~ a4@5 ~@12]/2", G: "[~@5 a4 f#4 a4@3 ~@6]/2",
})).s("gm_brass_section").gain(0.4).pan(0.2)

// drums · kick
const kick = s("bd").struct(`<
  A B C D@2 E F G H E F A H I D B A@2 E@2 C E A@2 J I@2 A@2 D B H K F I H D I@2 F@2 C E L@2 I E I M G B F L I E I C L A
  D L C F H@3 C I@2 C E G I A B D H F H L N I D G L I L H O L G F A@2 B F H A C
>`.pickRestart({
  A: "x!2 ~ x ~ x ~ x", B: "x ~@2 x ~@4", C: "x ~@2 x ~ x ~ x", D: "x!2 ~ x ~@4", E: "x ~@2 x!2 ~@2 x",
  F: "x ~@2 x ~@3 x", G: "x!2 ~ x ~@3 x", H: "x ~@2 x ~ x ~@2", I: "x ~@2 x!2 ~@3", J: "x ~ x ~@3 x ~@3 x ~@3 x!2",
  K: "x!2 ~ x!3 ~@2", L: "x!2 ~ x ~ x ~@2", M: "x ~@2 x!3 ~@2", N: "x ~@2 x!3 ~ x", O: "x ~@5 x ~@3 x ~@3 x!2",
})).gain(0.35)

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

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

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@16 [~@13 x ~@2] ~@31 [~@7 x] ~@9 [~@3 x] ~@39 [~@13 x ~@2]>").gain(0.35)

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

stack(overdriven_guitar, bass, electric_guitar_jazz, brass_section, kick, snare, hihat, open_hat, mid_tom, crash)