// 2,000 Man — Kiss
// 132 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 3 distortion guitar (copy of ch 1 distortion guitar)
// note: Full arrangement: all 164 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(132/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 · distortion guitar
const distortion_guitar = note(`<
  A B@2 C B@3 C B D@2 E F D@2 B G@3 H B@2 C B@3 C B D@2 E F D@2 B G@3 H B@2 C B@3 C B D@2 I F D@2 B G J K L K M K L K M
  D@2 N@2 O P G Q G R K L K M K L K M S@3 T B@2 C B@3 C B D@2 N@2 O P G Q G U@3 V W X@2 V W Y Z V W X@2 V W AA@5 AB AC@2
  AD V W X@2 V W Y AD V W X@2 V W AE AB AF AG AH V AI Z AJ AK@4 AL AK@3 AL AM@3
>`.pickRestart({
  A: "~@3 [g2,d3,g3]", B: "[a2,e3,a3] a2!2 [a2,e3,a3] a2!2 [a2,e3,a3] a2",
  C: "[e3,b3,e4] e3!2 [e3,b3,e4] e3!2 [e3,b3,e4] e3", D: "[d3,a3,d4] d3!2 [d3,a3,d4] d3!2 [d3,a3,d4] d3",
  E: "[a2,e3,a3] a2!2 [a2,e3,a3] a2!4, ~@3 [e3,a3,d4]", F: "a2!8, c#4, [e3,a3]@3 [e3,a3]@3 [e3,a3]@2",
  G: "[e3,b3,e4]@2 e2!6", H: "[e3,b3,e4] ~@7", I: "[a2,e3,a3] a2!2 [a2,e3,a3] a2!2 [d3,a3,d4]@2", J: "[e3,b3,e4]",
  K: "[a2,e3,a3]@2 [e3,a3,c#4]@2 [e3,a3,d4] [e3,c#4]@3, ~@5 a3@2 ~", // A5 A Dsus2 C#m
  L: "[e3,b3,e4] [d3,a3,d4]!2 [d3,a3,d4]@2 [a2,e3,a3]@3", M: "[e3,b3,e4] [d3,a3,d4]!2 [a2,e3,a3]@5",
  N: "[b2,f#3,b3] b2!2 [b2,f#3,b3] b2!2 [b2,f#3,b3] b2", // B5
  O: "[a2,e3,a3]@2 [e3,a3,c#4]@2 [e3,a3,d4] [e3,a3,c#4]@2 [d3,a3,d4]", // A5 A Dsus2 A D5
  P: "~@2 [d3,a3,d4]@2 ~@2 [d3,a3,d4]@2 ~@2 [e3,a3,c#4]@2 ~@2 [e3,b3,e4]!2", // D5 A E5
  Q: "[b2,f#3,b3]@2 [b2,f#3,b3]@4 [e2,b2,e3]@8 [e3,b3,e4]!2", R: "[b2,f#3,b3] [b2,f#3,b3]@2 [e2,b2,e3]@5",
  S: "e2!6 [e3,b3,e4]@2", T: "e2!6 [e3,b3,e4] ~", U: "[[b2,f#3,b3]!2 ~ [e2,b2,e3]@17 [d3,a3,d4] d3!2 [d3,a3,d4]]/3",
  V: "d3!2 [d3,a3,d4] d3 [d3,a3,d4] d3!2 [d3,a3,d4]", W: "d3!2 [d3,a3,d4] d3 [a2,e3,a3] a2!2 [a2,e3,a3]",
  X: "[a2!2 [d3,a3,d4]@2 a2!4 a2!4 [d3,a3,d4] d3!2 [d3,a3,d4], ~ c#4@2 ~, ~@4 [e3,a3]@3 [e3,a3]@3 [e3,a3]@2 ~@4]/2", // D5 A5
  Y: "a2!2 [a2,e3,a3] a2 [e3,b3,e4] e3!2 [e3,b3,e4]", Z: "e3!2 [e3,b3,e4] e3 [d3,a3,d4] d3!2 [d3,a3,d4]",
  AA: "[a2!2 [a2,e3,a3] a2 [e3,b3,e4]@32 e2!4]/5", AB: "e2!2 [e3,b3,e4]@2 e2!4",
  AC: "e2!2 [e3,b3,e4]@2 e2!2 [e3,b3,e4]@2", AD: "[d3,a3,d4]@2 [e3,b3,e4]@2 [d3,a3,d4] d3!2 [d3,a3,d4]",
  AE: "a2!2 [a2,e3,a3] a2 e2!4", AF: "e2!2 [e3,b3,e4]@2 [a2,e3,a3] a2!2 [a2,e3,a3]",
  AG: "a2!2 [a2,e3,a3] a2 [a2,e3,a3] a2!2 [a2,e3,a3]", AH: "a2!2 [a2,e3,a3] a2 [d3,a3,d4] d3!2 [d3,a3,d4]",
  AI: "d3!2 [d3,a3,d4] d3 [e3,b3,e4] e3!2 [e3,b3,e4]", AJ: "d3!2 [d3,a3,d4] d3 [e3,a3,c#4]@3 [e3,a3,c#4]",
  AK: "[e3,a3,d4]@3 [e3,a3,d4] [e3,a3,c#4]@3 [e3,a3,c#4]", AL: "[d3,a3,d4]@3 [e3,a3,d4] [e3,a3,c#4]@3 [e3,a3,c#4]",
  AM: "[[e3,a3,d4]@3 [e3,a3,d4] [a2,e3,a3]@16 [a2,e3,a3]@2 ~@2]/3", // Dsus2 A5
})).s("gm_distortion_guitar").gain(0.36).pan(0)

// bass · electric bass pick
const bass = note(`<
  ~@39 A@2 B A@3 B A C D E A C@2 A F G H I H J H I H J K@2 L@2 M N F O P Q H I H J H I H J R@3 S A@2 B A@3 B A K@2 L@2 M
  N F O P T@3 C U V W C X Y Z C U V W C X AA@5 AB AC@2 AD C U V W C X Y AD C U V W C X AE AB AF A W C AG Z AH AI@3 AJ AK
  AI@2 AJ AK AL@3
>`.pickRestart({
  A: "g#1 a1!3 g#1 a1!3", B: "d#2 e2!3 d#2 e2!3", C: "c#2 d2!3 c#2 d2!3", D: "c#2 d2!3 c#2 d2!2 c#2",
  E: "g#1 a1!3 g#1 a1 d2@2", F: "e2@2 e1!6", G: "e2", H: "a1!4 d2 a1!3", I: "e2 d2!4 a1!3", J: "e2 d2!2 a1!5",
  K: "d2!8", L: "b1!8", M: "a1!4 d2 a1!2 d2", N: "~ d2 ~ d2 ~ a1!3", O: "b1!3 e1!4 e2", P: "e2!2 e1!6", Q: "b1!3 e1!5",
  R: "e1!6 e2@2", S: "e1!6 e2 ~", T: "[b1!2 ~ e1@17 c#2 d2!3]/3", U: "c#2 d2!2 c#2 g#1 a1!3", V: "g#1 a1 d2@2 g#1 a1!3",
  W: "g#1 a1!3 c#2 d2!3", X: "c#2 d2!3 g#1 a1!3", Y: "g#1 a1!3 d#2 e2!3", Z: "d#2 e2!3 c#2 d2!3",
  AA: "[g#1 a1!3 e1@32 e1!4]/5", AB: "e1!2 e2@2 e1!4", AC: "e1!2 e2@2 e1!2 e2@2", AD: "d2@2 e2@2 c#2 d2!3",
  AE: "g#1 a1!3 e1!4", AF: "e1!2 e2@2 g#1 a1!3", AG: "c#2 d2!3 d#2 e2!3", AH: "c#2 d2!3 a1@3 a1", AI: "a2@3 a2 a1@3 a1",
  AJ: "a2@3 a2 a1@3 c#2", AK: "d2@2 c#2@2 a1@3 a1", AL: "[a2@3 a2 a1@16 a1@2 ~@2]/3",
})).s("gm_electric_bass_pick").gain(0.64)

// chords · distortion guitar
const distortion_guitar_2 = note("<~@68 A@2 ~@28 A@2 ~@51 B C D C D C D C D C E ~@2>".pickRestart({
  A: "[~@13 a3@3, a3 a4 a3 e4 a4 a3 e4 ~, ~ e4@2 e4@2 a4@2 a3@2 e4@2 a4@3 ~@2]/2", B: "~@5 e4 ~ e4, ~ a3, ~@3 a4",
  C: "~ d4 ~ d4 ~ c#4 ~ c#4, a3!2, ~ a4 ~ a4", D: "~ d4 a4 d4 ~ e4 ~ e4, a3!2, ~@3 a4", E: "~ d4 a4 d4 ~@4, a3 ~",
})).s("gm_distortion_guitar").gain(0.64)

// other · distortion guitar
const distortion_guitar_3 = note("<~@86 A@2 B@2 C D E F G@2 ~@49 H I J K L M N ~@12>".pickRestart({
  A: "[e4!2 a4 [d4,e4]@2 e4@10 ~]/2", B: "[e4!2 a4 [d4,e4]@2 e4@11]/2", C: "e4!2 a4 e4 ~ a4 e4!2",
  D: "a4 e4 ~ a4 e4!2 a4 e4", E: "a4!2 e4 a4!2 e4 a4!2", F: "~@7 a4, c#4 d4 d#4 e4, ~ a4@2 a4@2 a4@2 ~", G: "d4/2",
  H: "~@4 e4!2 ~ e4, ~@3 a4", I: "~ a4 e4!2 ~ e4!2 a4, e4 ~ a4 ~", J: "e4!2 a4 e4 a4!2 ~ a4, ~@3 d5",
  K: "~ d5 a4!2 ~ a4 ~ d5, a4 ~ d5 a4", L: "a4!2 ~ a4 b4!2 ~ b4, ~ d5 ~ e5", M: "~ e5 ~ e5 a4!2 ~ a4, b4!2 ~ d5",
  N: "~ d5 ~ d5 ~@4, a4!2 ~@2",
})).s("gm_distortion_guitar").gain(0.64)

// other · lead 2 sawtooth
const lead_2_sawtooth = note("<~@19 A B C D E F@2 D G H@2 I J K@4 ~@128>".pickRestart({
  A: "~@2 c#4 d4", B: "e4@2 e4!2 ~ e4 ~ e4", C: "~@2 e4@2 ~@2 d4@2 d4@2 c#4@5 ~", D: "b3 b3@2 c#4@2 d4@2 ~",
  E: "c#4@2 ~@2 c#4!2 d4@2", F: "[e4!2 ~@2 e4!2 ~ e4@2 e4 e4@2 d4!2 c#4@2]/2", G: "c#4@2 ~ a3 d4@2 e4@2",
  H: "[f#4@2 ~@2 f#4 f#4@2 g4@4 f#4@3 d4@2]/2", I: "e4 ~@3", J: "~@2 d4 e4",
  K: "[f#4@2 ~@2 f#4 f#4@2 g4@4 f#4@2 d4@2 e4@4 ~ d4 c#4@2 b3@3 ~@6]/4",
})).s("gm_lead_2_sawtooth").gain(0.41)

// drums · kick
const kick = s("bd").struct(`<
  ~@39 A@17 B C B C B C B C A@4 D E B C B C B C B C B C B C F@4 A@12 D E B C B G ~ H A@15 I@3 J@2 K@2 F A@14 L@2 A@17 ~
  H
>`.pickRestart({
  A: "x!2", B: "x ~@3 x!2 ~@2", C: "x!2 ~ x ~ x ~@2", D: "x ~@3 x!2 ~ x", E: "~ x ~ x ~ x ~@2", F: "x!3 ~",
  G: "x!2 ~ x ~@4", H: "~ x", I: "x!2 ~@2 x ~@3", J: "x!2 ~@2 x!2 ~ x", K: "x!2 ~@2 x!2 ~@2", L: "x ~ x!2",
})).gain(0.64)

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

// drums · low tom
const low_tom = s("lt").struct("<~ A@37 B ~@28 C ~@29 C ~@53 D E@9 F ~ G>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2", C: "~@14 x!2", D: "~@7 x", E: "~@3 x ~@3 x", F: "~@3 x ~@4", G: "~@6 x!2 ~@8",
})).gain(0.64)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@39 A B@6 C ~@17 A B@2 C ~@2 A D A E ~@8 F G@3 A B@6 C A B@2 C ~@2 A D A H I ~@38 J K L B@3 M@2 N ~@12
>`.pickRestart({
  A: "~ x!7", B: "x!8", C: "x!7 ~", D: "~ x!2 ~ x!3 ~", E: "~ x!2 ~ x!2 ~@2", F: "~ x!5 ~@2", G: "x!6 ~@2",
  H: "~ x!2 ~@3 x ~", I: "x!2 ~@2", J: "~@5 x!3", K: "x!2 ~@2 x!4", L: "x!2 ~@3 x!3", M: "x!4 ~ x!3", N: "x!3 ~@5",
})).gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct("<~@67 [~@7 x] ~@29 [~@7 x] ~@66>").gain(0.64)

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

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

stack(
  distortion_guitar, bass, distortion_guitar_2, distortion_guitar_3, lead_2_sawtooth, kick, snare, low_tom, hihat,
  mid_tom, crash, ride
)