// I'm On Fire — Bruce Springsteen
// 170 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 108 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(170/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.

// other · overdriven guitar · "ElecGuitar"
const overdriven_guitar = note(`<
  A B@4 C@4 B@4 D@4 ~@24 B@4 E@4 B@4 F@4 ~@27 B@4 G@3 ~ B@4 G@3 ~ B@4 G@3 ~
>`.pickRestart({
  A: "~@15 e4", B: "[f#4@53 ~@7 e4@3 ~]/4", C: "[f#4@4 ~@2 g#4@47 ~@11]/4", D: "[b4@4 ~@2 g#4@47 ~@11]/4",
  E: "[f#4@4 ~@2 g#4@53 ~@5]/4", F: "[b4@59 ~@5]/4", G: "[f#4@4 ~@2 g#4@31 ~@11]/3",
})).s("gm_overdriven_guitar").gain(0.27)

// chords · acoustic guitar nylon · "AcousticGt"
const acoustic_guitar_nylon = note(`<
  ~ A@4 B@4 A@4 C@4 D E F G H I J@2 K L M@2 D E F G H I J@2 K L M@2 N@4 O@4 N@4 P@4 Q@2 R S@4 D E F G H I J@2 K L M@2 K
  L M@2 K L M@2 N@4 O@4 N@4 O@4 N@4 O@4
>`.pickRestart({
  A: "[[g#3,b3,e4]@53 ~@11]/4", B: "[[b3,e4]@4 ~@2 [b3,e4]@47 ~@11]/4", C: "[[e4,g#4]@4 ~@2 [b3,e4]@47 ~@11]/4",
  D: "[e4,g#4]@5 ~@3", E: "[e4,g#4] ~", F: "[b3,e4]@8 ~@6 [g#3,b3] ~", G: "[b3,e4]@5 ~@3 [g#3,b3]@5 ~@3",
  H: "[a3,c#4,e4]@5 ~@3", I: "[a3,c#4]@5 ~@3", J: "[[b3,e4]@27 ~@5]/2", K: "a3@5 ~@3 [a3,c#4]@5 ~@3",
  L: "[b3,d#4]@8 ~@4 e4@3 ~", M: "[[g#3,b3]@27 ~@5]/2", N: "[[b3,e4]@53 ~@11]/4", O: "[[b3,e4]@4 ~@2 [b3,e4]@53 ~@5]/4",
  P: "[[e4,g#4]@59 ~@5]/4", Q: "[a3,c#4]@11 ~@5", R: "[b3,e4]@5 ~@11", S: "[g#3 ~@11 [g#3,b3]@47 ~@5]/4",
})).s("gm_acoustic_guitar_nylon").gain(0.33).pan(0.9)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~ A B A C D E D F A B A C D F D F G H G I J K L M J N A B G H G I J K L M J N A B D E D F A O A C D E D F A O A C P K
  Q R S T R G H G I J K L M J N A B J N A B J N A B D E D F A O A C D E D F A O A C D E D F A O A C
>`.pickRestart({
  A: "e2@3 ~ b2@3 ~ e3@3 ~ b2 ~ e3 ~", B: "e2@3 ~ b2@3 ~ b2@3 ~ e3@3 ~", C: "e2@3 ~ b2@3 ~ b2@3 ~ e2@3 ~",
  D: "c#2@3 ~ g#2@3 ~ c#3@3 ~ g#2 ~ c#3 ~", E: "c#2@3 ~ g#2@3 ~ g#2@3 ~ c#3 ~ g#2 ~",
  F: "c#2@3 ~ g#2@3 ~ g#2@3 ~ c#3@3 ~", G: "e2@8 ~@4 b2@3 ~", H: "e3@5 ~@3 b2@3 ~ e3@3 ~", I: "e3@8 ~@4 e2@3 ~",
  J: "a2@5 ~@3 e3@3 ~ a2 ~ e3 ~", K: "a2@5 ~@3 e3@3 ~ a2@3 ~", L: "c#3@5 ~@3 g#3@3 ~ c#3 ~ g#3 ~",
  M: "c#3@5 ~@3 g#3@3 ~ c#3@3 ~", N: "b2@8 ~@4 b2@3 ~", O: "e2@3 ~ b2@3 ~ b2@3 ~ e3 ~ b2 ~",
  P: "a2@5 ~@3 e3@3 ~ e3@3 ~", Q: "e2@5 ~@3 b2@3 ~ e2@3 ~", R: "c#2@5 ~@3 g#2@3 ~ c#3@3 ~",
  S: "c#2@5 ~@3 g#2@3 ~ c#3 ~ g#2 ~", T: "c#2@5 ~@3 g#2@5 ~@3",
})).s("gm_electric_bass_finger").gain(0.17)

// chords · acoustic guitar nylon · "Nylon-stGt"
const acoustic_guitar_nylon_2 = note(`<
  ~ A@4 B@4 A@4 B@4 A@4 C@2 D@2 E F G@2 A@4 C@2 D@2 E F G@2 H@4 I@4 H@4 I@4 J@2 K H@4 A@4 C@2 D@2 E F G@2 L M G@2 L M
  G@2 H@4 I@4 H@4 I@4 H@4 I@4
>`.pickRestart({
  A: "[[e4,g#4,b4]@29 ~@3]/4", B: "[[c#4,e4,g#4,b4]@29 ~@3]/4", C: "[[c#4,e4,a4]@13 ~@3]/2",
  D: "[[c#4,e4,g#4,b4]@13 ~@3]/2", E: "[a3,c#4,e4]", F: "[b3,d#4,f#4]", G: "[[b3,e4,g#4]@27 ~@5]/2",
  H: "[[c#4,e4,g#4,b4]@59 ~@5]/4", I: "[[e4,g#4,b4]@59 ~@5]/4", J: "[[c#4,e4,a4]@27 ~@5]/2", K: "[e4,g#4,b4]@11 ~@5",
  L: "[a3,c#4,e4]@11 ~@5", M: "[b3,d#4,f#4]@11 ~@5",
})).s("gm_acoustic_guitar_nylon").gain(0.24).pan(0.9)

// chords · drawbar organ · "Organ"
const drawbar_organ = note(`<
  ~@17 A@4 B@4 C D E@2 A@4 F@2 G@2 H D E@2 I@4 J@4 K@8 F@2 L@5 A@4 M@4 C D E@2 N O E@2 N O E@2 P@4 Q@4 P@4 Q@4 R@4 S@4
>`.pickRestart({
  A: "[e4,g#4,b4]/4", B: "[[c#4,a4]@32 [c#4,g#4,b4]@31 ~, e4@63 ~]/4", C: "[a3,c#4,e4]", D: "[b3,d#4,f#4]",
  E: "[[b3,e4,g#4]@31 ~]/2", F: "[c#4,e4,a4]/2", G: "[e4@16 e4@15 ~, [c#4,g#4,b4]@31 ~]/2", H: "[a3,e4]",
  I: "[[c#4,e4,g#4,b4]@63 ~]/4", J: "[b4@48 b4@15 ~, [e4,g#4]@63 ~]/4", K: "[[e4,g#4,b4]@123 ~@5, c#4 ~]/8",
  L: "[~@16 c#4@63 ~, [e4,g#4,b4]@79 ~]/5", M: "[a4@31 ~ [g#4,b4]@31 ~, [c#4,e4]@63 ~]/4", N: "[a3,c#4] ~@15, e4",
  O: "[b3,d#4] ~@15, f#4", P: "[c#4,e4,g#4,b4]/4", Q: "[[e4,g#4,b4]@63 ~]/4", R: "[[c#4,e4,g#4,b4]@59 ~@5]/4",
  S: "[[e4,g#4,b4]@59 ~@5]/4", // E
})).s("gm_drawbar_organ").gain(0.1)

// drums · kick
const kick = s("bd").struct("<~ x!107>").gain(0.22)

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

// drums · hihat
const hihat = s("hh").struct("<~ [x!8]!106 [x!7 ~]>").gain(0.22)

// drums · crash
const crash = s("cr").struct(`<
  ~ A ~@7 A ~@7 A ~@3 A ~ A ~@5 A ~@3 A ~ A ~@5 A ~@7 A ~@7 A ~@6 A ~@3 A ~ A ~@13 A ~@7 A ~@7 A ~@7
>`.pickRestart({
  A: "x",
})).gain(0.22)

stack(overdriven_guitar, acoustic_guitar_nylon, bass, acoustic_guitar_nylon_2, drawbar_organ, kick, snare, hihat, crash)