// War Machine — Kiss
// 115 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 7 "lead" distortion guitar (copy of ch 6 "lead" distortion guitar)
// note: Full arrangement: all 115 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(115/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 · distortion guitar
const distortion_guitar = note(`<
  A@2 B@2 A@2 B@2 C@2 D@2 E F G H E F I@2 E F G H E F J K A@2 B@2 C@2 D@2 E F G H E F I@2 E F G H E F J K A@2 B@2 A@2
  B@2 A@2 B@2 A@2 B@2 L@2 M@2 N@2 O P Q@4 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 R@3
>`.pickRestart({
  A: "[e2 b2@2 e2 a2@2 e2 b2@2 e2 b2 e2 g2@2 a2@2]/2", B: "[e2 b2@2 e2 g2@2 e2 a2@2 e2 a2 e2 g2@2 a2@2]/2",
  C: "[e2 b2@2 e2 a2@2 e2 b2@2 e2 b2 e2 [g2,d3,g3,d4]@2 [d3,a3,d4]@2]/2", D: "[[e2,b2,e3]@6 [e2,b2,e3] g2]/2",
  E: "[a2,e3,a3]!2 g2 [a2,e3,a3] ~@4", F: "~@2 [a2,e3,a3]@2 ~@2 g2 ~ [a2,e3,a3]@4 g2@4",
  G: "[e2,b2,e3]!2 g2 [e2,b2,e3] ~@4", H: "~@2 [e2,b2,e3]@2 ~@2 e2 ~ [e2,b2,e3]@4 g2@4",
  I: "[[b2,f#3]!2 [a2,f#3] [b2,f#3]@2 [b2,f#3] [a2,f#3] [b2,f#3]@2 ~@3 [e2,b2,e3]@2 g2@2]/2", // B5 D B5 D B5 E5
  J: "[b2,f#3,b3] [a2,e3,a3]", K: "[g2,d3,g3] [f#2,c#3,f#3]", L: "e2/2", M: "[a2,e3,a3]/2", N: "[g2,d3,g3]/2",
  O: "[f2,c3,f3]", P: "[e2,b2,e3]",
  Q: "[[e3,b3,e4]@3 [a2,e3,a3]@3 [f3,c4,f4]@3 [a#2,f3,a#3]@3 [f#3,c#4,f#4]@3 [b2,f#3,b3]@17]/4", R: "e2/3",
})).s("gm_distortion_guitar").gain(0.64).pan(0.9)

// other · pad bowed · "Rythem"
const pad_bowed = note(`<
  A@2 B@2 A@2 B@2 C@2 D@2 E F G H E F I@2 E F G H E F J K A@2 B@2 C@2 D@2 E F G H E F I@2 E F G H E F J K A@2 B@2 A@2
  B@2 A@2 B@2 A@2 B@2 L@2 M@2 N@2 O P Q@4 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 R@3
>`.pickRestart({
  A: "[e1 b1@2 e1 a1@2 e1 b1@2 e1 b1 e1 g1@2 a1@2]/2", B: "[e1 b1@2 e1 g1@2 e1 a1@2 e1 a1 e1 g1@2 a1@2]/2",
  C: "[e1 b1@2 e1 a1@2 e1 b1@2 e1 b1 e1 [g1,d2,g2,d3]@2 [d2,a2,d3]@2]/2", D: "[[e1,b1,e2]@6 [e1,b1,e2] g1]/2",
  E: "[a1,e2,a2]!2 g1 [a1,e2,a2] ~@4", F: "~@2 [a1,e2,a2]@2 ~@2 g1 ~ [a1,e2,a2]@4 g1@4",
  G: "[e1,b1,e2]!2 g1 [e1,b1,e2] ~@4", H: "~@2 [e1,b1,e2]@2 ~@2 e1 ~ [e1,b1,e2]@4 g1@4",
  I: "[[b1,f#2]!2 [a1,f#2] [b1,f#2]@2 [b1,f#2] [a1,f#2] [b1,f#2]@2 ~@3 [e1,b1,e2]@2 g1@2]/2", // B5 D B5 D B5 E5
  J: "[b1,f#2,b2] [a1,e2,a2]", K: "[g1,d2,g2] [f#1,c#2,f#2]", L: "e1/2", M: "[a1,e2,a2]/2", N: "[g1,d2,g2]/2",
  O: "[f1,c2,f2]", P: "[e1,b1,e2]",
  Q: "[[e2,b2,e3]@3 [a1,e2,a2]@3 [f2,c3,f3]@3 [a#1,f2,a#2]@3 [f#2,c#3,f#3]@3 [b1,f#2,b2]@17]/4", R: "e1/3",
})).s("gm_pad_bowed").gain(0.42).pan(0.1)

// bass · electric bass finger
const bass = note(`<
  A@2 B@2 A@2 B@2 C@2 D@2 E F G H E F I@2 E F G H E F J K A@2 B@2 C@2 D@2 E F G H E F I@2 E F G H E F J K A@2 B@2 L@2
  B@2 L@2 B@2 L@2 B@2 M@2 N@2 O@2 P Q R@4 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 S@2 ~@13
>`.pickRestart({
  A: "[e1 b1@2 e1 a1@2 e1 b1@2 e1 b1 e1 g1@2 a1@2]/2", B: "[e1 b1@2 e1 g1@2 e1 a1@2 e1 a1 e1 g1@2 a1@2]/2",
  C: "[e1 b1@2 e1 a1@2 e1 b1@2 e1 b1 e1 g1@2 d2@2]/2", D: "[e1@6 e1 g1]/2", E: "a1!2 g1 a1 ~@4",
  F: "~ a1 ~@2 a1@2 g1@2", G: "e1!2 g1 e1 ~@4", H: "~ e1 ~@2 e1@2 g1@2", I: "[b1!2 a1 b1@2 b1 a1 b1@3 ~@2 e1@2 g1@2]/2",
  J: "b1!4 a1!4", K: "g1!4 f#1!4", L: "[e1 b1@2 e1 a1@2 e1 b1@2 e1 b1 e1 f#1@2 g#1@2]/2", M: "e1/2", N: "a1/2",
  O: "g1/2", P: "f1", Q: "e1", R: "[e2@3 a1@3 f2@3 a#1@3 f2@3 b1@17]/4", S: "[e1 b1@2 e1 a1@2 e1 b1@2 ~@7]/2",
})).s("gm_electric_bass_finger").gain(0.64)

// bass · fretless bass
const bass_2 = note(`<
  ~@8 A@2 B@2 C D E F C D G@2 C D E F C D H I J@2 K@2 A@2 B@2 C D E F C D G@2 C D E F C D H I J@2 K@2 J@2 K@2 J@2 K@2
  J@2 K@2 L@2 M@2 N@2 O P Q@4 ~@8 J@2 K@2 J@2 K@2 J@2 K@2 J@2 K@2 J@2 K@2 J@2 K@2 L@2 ~
>`.pickRestart({
  A: "[e1 b1@2 e1 a1@2 e1 b1@2 e1 b1 e1 g1@2 d2@2]/2", B: "[e1@6 e1 g1]/2", C: "a1!2 g1 a1 ~@4",
  D: "~ a1 ~@2 a1@2 g1@2", E: "e1!2 g1 e1 ~@4", F: "~ e1 ~@2 e1@2 g1@2", G: "[b1!2 a1 b1@2 b1 a1 b1@3 ~@2 e1@2 g1@2]/2",
  H: "b1!4 a1!4", I: "g1!4 f#1!4", J: "[e1 b1@2 e1 a1@2 e1 b1@2 e1 b1 e1 g1@2 a1@2]/2",
  K: "[e1 b1@2 e1 g1@2 e1 a1@2 e1 a1 e1 g1@2 a1@2]/2", L: "e1/2", M: "a1/2", N: "g1/2", O: "f1", P: "e1",
  Q: "[e2@3 a1@3 f2@3 a#1@3 f2@3 b1@17]/4",
})).s("gm_fretless_bass").gain(0.72)

// other · distortion guitar · "lead"
const distortion_guitar_2 = note("<~@60 A@2 B@2 C D E F@2 G H I H J K L M@4 ~@27 N@2 O P@2 ~@3>".pickRestart({
  A: "[e2@11 ~@5]/2", B: "[~ [g4,g5]@3 [a4,a5]@3 [a#4,e5,a#5]@4 [a4,a5]@4 ~]/2",
  C: "g5@6 g5 e5 d5 b4 a#4 a4 g4 e4 d4 b3", D: "a#3 a3!2 a3@13", E: "b5@8 b5!2 ~ b5!3 ~ b5",
  F: "[b5!2 ~ b5!3 ~ b5!3 ~ b5 e5@12 e5 ~ e5 ~@2 e5 d5 [b4,e5]]/2", // E5
  G: "~@3 [d5,e5] b4 e5 ~ e5 d5 [b4,e5] ~@2 e5 [b4,d5] e5 ~", H: "g5@6 g5 e5 d5 c#5 b4 a#4 a4 g4 e4 d4",
  I: "a4@4 b4!9 a#4 a4@2", J: "a4 b4 ~ a4 b4 a4 ~ b4 a4 b4 ~ a4 b4 a4 ~ b4", K: "g5@3 e5 d5 ~ g5@3 e5 d5 ~ a5@3 g5",
  L: "e5 c6@7 d6@8", M: "[e4@3 f4@3 f#4@3 g4@3 g#4@3 a4@17]/4", N: "[b2 a4, a2]/2",
  O: "d5 b4 d5 b4 d5 b4 d5 b4 d5 b4 d5 b4 d5 b4 d5 b4", P: "[d5 b4 d5 b4 d5 b4 d5 d5@17 ~@8]/2",
})).s("gm_distortion_guitar").gain(0.57)

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

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

// drums · low tom
const low_tom = s("lt").struct("<~@11 A ~@7 B ~@7 C ~@23 C ~@7 C ~@3 D ~@11 C ~@19 E ~@7 E ~@7 E ~@3>".pickRestart({
  A: "x!2 ~@6", B: "~@11 x!2 ~ x ~", C: "~@4 x!4", D: "~@5 x ~@2", E: "x!7 ~",
})).gain(0.72)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@19 A ~@7 B ~@23 C ~@7 D ~@15 B ~@19 E ~@7 E ~@7 E ~@3>".pickRestart({
  A: "~@5 x ~@2", B: "~@4 x!4", C: "x!4 ~@4", D: "x!8", E: "x!6 ~@2",
})).gain(0.72)

// drums · high tom
const high_tom = s("ht").struct("<~@59 [x!4 ~@4] ~@55>").gain(0.8)

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

stack(
  distortion_guitar, pad_bowed, bass, bass_2, distortion_guitar_2, kick, snare, low_tom, hihat, mid_tom, high_tom, crash
)