// Harden My Heart — Quarterflash
// 120 bpm, 4/4, key B minor. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 82 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(120/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 · "Elec Gtr 2"
const overdriven_guitar = note(`<
  A B@2 C D B@2 C E@2 ~@6 F ~@3 G@2 ~@3 H@2 ~@2 I J K@2 ~@7 F L@2 M@3 N O P Q@2 ~@2 R S@3 T@2 U@2 I V@3 W@2 U@2 I V@3
  W@2 U@2 I S@3 ~
>`.pickRestart({
  A: "~@18 d4 ~ a4 ~ c#5 ~", B: "[[a4,b4]@12 ~@6 f#4@2 ~ [b4,e5]@15 ~@6 d5 ~ e5 ~ f#5 ~]/2", C: "e5@2 ~",
  D: "f#5@16 ~@2 d4 ~ a4 ~ c#5 ~", E: "[f#5@7 ~@5]/2", F: "f#4@2 ~ e4@2 ~ d4@2 ~ c#4@2 ~",
  G: "[~@21 d5@2 ~ b5@16 ~@8, ~@23 g5@2 ~@23]/2", H: "[~@21 a3@8 ~ b3@2 ~ b3@11 ~@4]/2", I: "d4@2 ~ e4@2 ~",
  J: "f#4@2 ~ a4@2 ~ a4@4 ~@2", K: "[b4@2 ~ b4@37 ~@8]/2",
  L: "[[b4,d5]@4 ~@2 b4@6 ~@3 a4@5 ~ f#4@5 ~ e4@2 ~ e4@2 ~ d4@9 ~@3 e4@2 ~]/2", // Bm
  M: "[f#4@2 ~ d4@5 ~ a4@5 ~ a4@5 ~ b4@19 ~@5 d5@2 ~ b5@14 ~@10, ~@47 g5@2 ~@23]/3",
  N: "f#4@2 ~ f#4@2 ~ f#4@2 ~ f#4@2 ~", O: "f#4 ~ d4 ~ b3 ~ d4@10 ~@2 f#4@4 ~@2", P: "e4 ~@2",
  Q: "[~@21 a4@8 ~ f#4@3 f#4@11 ~@4]/2", R: "b3@2 ~ e4@2 ~",
  S: "[f#4@4 ~@2 a4@4 ~@2 a4@2 ~ b4@2 ~ c#5@2 ~ b4@5 ~ b4@17 ~ e3@2 ~ c#4@8 ~@16, ~@47 a3@2 ~@23]/3",
  T: "[~@21 a3@8 ~ b3@2 ~ b3@5 ~@10]/2", U: "[c#4@2 ~ c#4@5 ~ d4@7 ~@2 d4@2 ~ c#4@11 ~@7 c#4@2 ~ c#4@2 ~ b3@2 ~]/2",
  V: "[f#4@4 ~@2 a4@4 ~@2 a4@2 ~ b4@2 ~ c#5@2 ~ b4@5 ~ b4@17 ~ e3@2 ~ c#4@8 ~@4 f#4@4 ~@2 a4@2 ~ a4@2 ~, ~@47 a3@2 ~@23]/3",
  W: "[b3@2 ~ b3@2 ~ b3@4 ~@2 b3@8 ~ d4@7 ~@2 b3@2 ~ b3@5 ~ d4@2 ~ d4@2 ~ d4@2 ~]/2",
})).s("gm_overdriven_guitar").gain(0.31).pan(0.8)

// chords · electric guitar muted · "MutedGtr"
const electric_guitar_muted = note(`<
  ~ A@2 B C A@2 B C ~@7 D E@2 F@2 G H I J K@2 L@2 M N O@2 ~@7 D E@2 F@2 G H I J K@2 L@2 M N P Q K@2 L@2 M N P Q K@2 L@2
  M N P Q K@2 L@2 M N P Q ~
>`.pickRestart({
  A: "[[d4,f#4]@4 ~@3 [d4,a4]@5 ~@4]/2", B: "[a4,c#5]@2 ~", C: "[g4,b4]@2 ~ [e4,a4]@2 ~",
  D: "d4@2 ~ c#4@2 ~ b3@2 ~ a3@2 ~", E: "[[d4,a4]@4 ~@5 [d4,a4]@5 ~@7 [a3,c#4]@5 ~@7 [a3,c#4]@9 ~@6]/2",
  F: "[[a3,d4]@2 ~@7 [c#4,e4]@5 ~ [c#4,e4]@5 ~ [d4,a4]@19 ~@8]/2", G: "[d5,g5] ~@2",
  H: "[a3,d4]@2 ~ [a3,d4]@2 ~ [a3,c#4]@2 ~ [a3,c#4]@2 ~", I: "~@3 [a3,b3]@5 ~@4", J: "[a3,c#4] ~@2",
  K: "[f#3@2 ~@4 f#3@4 ~@2 f#3@6 ~@3 a3@7 ~@2 f#3@2 ~ f#3@5 ~@10]/2", L: "[e3@6 ~@3 e3@7 ~@2 e3@14 ~@16]/2",
  M: "[a3,b3]@2 ~ [a3,c#4]@2 ~", N: "[a3,d4]@2 ~@4 [c#4,e4] ~@5", O: "[~@3 [b3,d4,f#4]@37 ~@8]/2",
  P: "~@3 [b3,d4,f#4]@17 ~@4", Q: "[e3,a3] ~@2",
})).s("gm_electric_guitar_muted").gain(0.35).pan(0.1)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~ A B C D A B C D A@2 C@2 A@2 C@2 B C E B@2 E B C A@2 C@2 D F B@2 A@2 C@2 A@2 C@2 B C E B@2 E B C A@2 C@2 D F B G A@2
  C@2 D F B G A@2 C@2 D F B G A@2 C@2 D F B G ~
>`.pickRestart({
  A: "b1@3 ~ b1 ~ b1@3 ~ b1 ~ b1@3 ~ b1 ~ b1@3 ~ b1 ~", B: "g1@3 ~ g1 ~ g1@3 ~ g1 ~ g1@3 ~ g1 ~ g1@3 ~ g1 ~",
  C: "a1@3 ~ a1 ~ a1@3 ~ a1 ~ a1@3 ~ a1 ~ a1@3 ~ a1 ~", D: "g1@3 ~ g1 ~ g1@3 ~ g1 ~ a1@3 ~ a1 ~ a1@3 ~ a1 ~",
  E: "b1@3 ~ b1 ~ b1@3 ~ b1 ~ a1@3 ~ a1 ~ a1@3 ~ a1 ~", F: "b1@3 ~ b1 ~ b1@3 ~ b1 ~ a1@3 ~ a1 ~ a1@3 ~ b1 ~",
  G: "b1@3 ~ a1 ~ a1@3 ~ a1 ~ a1@3 ~ a1 ~ a1@3 ~ a1 ~",
})).s("gm_electric_bass_finger").gain(0.27)

// chords · lead 2 sawtooth · "Saw Wave"
const lead_2_sawtooth = note(`<
  ~@5 A B C D E@2 F@2 E@2 G@2 B C H I@2 H J C K@2 F@2 L H M@2 E@2 F@2 E@2 N@2 B C H I@2 H J C E@2 F@2 L H O C E@2 F@2 L
  H P C E@2 F@2 L H P C E@2 F@2 L Q P R ~
>`.pickRestart({
  A: "[b3,d4,f#4,a4]", B: "[g3,b3,d4]", C: "[a3,c#4,e4]", D: "[g3,b3,d4]@12 [a3,c#4] ~@11, ~@3 e4@2 ~",
  E: "[b3,d4,f#4]/2", F: "[a3,c#4,e4]/2", G: "[a3@5 a3!3, [c#4,e4]]/2", H: "[b3,d4,f#4,a4] [a3,c#4,e4]",
  I: "[[g3,b3,d4]@5 ~]/2", J: "[b3,d4,g4]", K: "[[b3,d4,f#4]@5 ~]/2", L: "[g3,b3,d4] [a3,c#4,e4]",
  M: "[[g3,b3,d4,f#4]@5 ~]/2", N: "[[a3,c#4,e4]@5 ~]/2", O: "[b3,d4,f#4], g3@2 ~", P: "[g3,b3,d4,f#4]",
  Q: "[b3,d4,f#4] [a3,c#4,e4]", R: "[a3,c#4] ~@23, e4 ~",
})).s("gm_lead_2_sawtooth").gain(0.21).pan(0.9)

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

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

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

// drums · crash
const crash = s("cr").struct(`<
  ~ A ~@3 A ~@3 A ~@7 A ~@4 A ~@2 A ~@7 A ~@7 A ~@4 A ~@2 A ~@7 A ~@7 A ~@7 A ~@8
>`.pickRestart({
  A: "x",
})).gain(0.41)

// drums · tambourine
const tambourine = s("tb").struct("<~@5 [~ x ~ x]!4 ~@16 [~ x ~ x]!8 ~@16 [~ x ~ x]!32 ~>").gain(0.41)

stack(overdriven_guitar, electric_guitar_muted, bass, lead_2_sawtooth, kick, snare, hihat, crash, tambourine)