// Turn on the Night — Kiss
// 137 bpm, 4/4, key G# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 2 distortion guitar (copy of ch 4 distortion guitar); ch 8 overdriven guitar (copy of ch 7 electric guitar clean); ch 11 distortion guitar (copy of ch 7 electric guitar clean)
// note: Full arrangement: all 97 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(137/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · [...]/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 · pad poly
const pad_poly = note(`<
  A B A C@2 D E F ~@8 G@2 H@2 G@2 E F A B A C@2 D E F ~@8 G@2 H@2 G@2 E F A B A C@2 D E F A B A C@2 D E F ~@8 G@2 H@2
  G@2 E F A B A C@2 D E F A B A C@2 D E F ~
>`.pickRestart({
  A: "~@2 [eb4,ab4,c5]@3 [eb4,g4,bb4]@3", B: "[f4,ab4,db5]@3 [eb4,g4,bb4]@5",
  C: "[[db4,f4,ab4]@3 [eb4,ab4,c5]@3 [eb4,g4,bb4]@3 ~ [eb4,ab4,c5]@3 [eb4,g4,bb4]@3]/2", // Db Ab Eb Ab Eb
  D: "[f4,ab4,db5]@3 [eb4,g4,bb4]@2 ~ [eb4,g4,bb4] ~", E: "[eb4,g4,bb4] [db4,f4,ab4] ~ [db4,f4,ab4]@5",
  F: "[eb4,ab4,c5] [eb4,g4,bb4] ~ [eb4,g4,bb4]@5", // Ab Eb
  G: "[[f4,ab4]@3 [eb4,bb4]@3 [f4,ab4]@3 [g4,bb4]@3 [ab4,bb4,c5]@2 [eb4,g4,bb4] ~]/2", // Fm Eb5 Fm Gm Ab Eb
  H: "[[eb4,g4,bb4] [db4,f4,ab4] ~ [db4,f4,ab4]@13]/2", // Eb Db
})).s("gm_pad_poly").gain(0.46)

// bass · electric bass pick
const bass = note(`<
  A@2 B C A@2 D E A@2 F G A@2 F G H I J K H I J L A@2 B C A@2 D E A@2 F G A@2 F G H I J K H I J L A@2 B C A@2 D E A@2 B
  C A@2 D E A@2 F G A@2 F G H I J K H I J L A@2 B C A@2 D E A@2 B C A@2 D E ~
>`.pickRestart({
  A: "ab1!8", B: "f2!2 f1!6", C: "db2!3 f2!3 eb1!2", D: "db2!8", E: "eb2!8", F: "f1!8", G: "eb1!6 eb2!2",
  H: "f1!3 eb1!3 f1!2", I: "f1 g1!3 ab1@2 eb2 ~", J: "eb2 db2 ~ db2@2 db2!3", K: "db2!5 c2 bb1 ab1",
  L: "f2 eb2 ~ eb2@2 eb2!3",
})).s("gm_electric_bass_pick").gain(0.46)

// chords · distortion guitar
const distortion_guitar = note(`<
  A B C D A B E F G H G I G H G J K@2 E L M@2 E F A B C D A B E F G H G N G H G O K@2 E L K@2 E P A B C D A B E F A B C
  D A B E F G H G N G H G Q K@2 E L K@2 E P A B C D A B E F A B C D A B E F ~
>`.pickRestart({
  A: "ab2!2 [ab2,eb3,ab3]@3 [eb3,bb3,eb4]@3", B: "[db3,ab3,db4]@3 [eb3,bb3,eb4]@3 [eb3,bb3,eb4]@2",
  C: "f3!2 [f3,c4,f4]@3 [eb3,bb3,eb4]@3", D: "[db3,ab3,db4]@3 [f3,c4,f4]@2 [eb3,bb3,eb4] [eb3,bb3,eb4]@2",
  E: "[eb3,bb3,eb4] [db3,ab3,db4] ~ [db3,ab3,db4]@5", F: "[f3,c4,f4] [eb3,bb3,eb4] ~ [eb3,bb3,eb4]@5",
  G: "~@2 [ab2,eb3,ab3] ~@2 [ab2,eb3,ab3] ~@2", H: "[ab2,eb3,ab3] ~@2 [ab2,eb3,ab3] ~@2 [ab2,eb3,ab3] ~",
  I: "[ab2,eb3,ab3] ~@2 [bb2,eb3]@3 [eb3,bb3,eb4] ~", // Ab5 Eb5
  J: "[ab2,eb3,ab3]@2 ~@4 [bb2,eb3]@4 [bb3,eb4] [db4,f4] [bb3,eb4]@2 ~@2", // Ab5 Eb5 Db Eb5
  K: "[[f3,c4,f4]@3 [eb3,bb3,eb4]@3 [f3,c4,f4]@3 [g3,eb4]@3 [ab3,eb4]@2 [eb3,bb3,eb4] ~]/2", // F5 Eb5 F5 Cm Ab5 Eb5
  L: "~@2 bb3 c4 bb3 c4 bb3 c4 bb3 ~ db3@2 c3@2 bb2@2",
  M: "[[f2,c3,f3]@3 [eb2,bb2,eb3]@3 [f2,c3,f3]@3 [g2,eb3]@3 [ab2,eb3]@2 [eb3,bb3,eb4] ~]/2", // F5 Eb5 F5 Cm Ab5 Eb5
  N: "[ab2,eb3,ab3] ~@2 [eb2,bb2,eb3]@3 [eb3,bb3,eb4] ~", // Ab5 Eb5
  O: "[ab2,eb3,ab3]@2 ~@4 [bb2,eb3]@4 [ab3,eb4] [bb3,f4] [ab3,eb4]@2 ~@2", P: "[f3,c4,f4] [eb3,eb4] ~ [eb3,eb4]@5",
  Q: "[ab2,eb3,ab3]@2 ~@4 [bb2,eb3]@4 [ab3,eb4] bb3 [ab3,eb4]@2 ~@2", // Ab5 Eb5 Ab5
})).s("gm_distortion_guitar").gain(0.41).pan(1)

// other · lead 2 sawtooth
const lead_2_sawtooth = note(`<
  ~@23 A@2 ~@2 A@2 ~@18 A@2 ~@2 A@2 ~@2 A@2 ~@2 A@2 ~@18 A@2 ~@2 A@2 ~@2 A@2 ~@2 A@2 ~@4
>`.pickRestart({
  A: "[~@2 ab4@2 c5@2 bb4 c5@3 ~@6]/2",
})).s("gm_lead_2_sawtooth").gain(0.51)

// other · electric guitar clean
const electric_guitar_clean = note("<~@64 A B C D E@2 F G ~@25>".pickRestart({
  A: "c5 db5 c5 ab4 db5 ab4 c5 db5 c5 ab4 db5 ab4 c5@4", B: "c5 db5 c5 ab4 db5 ab4 db5 c5@5 ~@4",
  C: "~@2 f5@3 f5@3 f5@4 f3@2 ab3@2", D: "c4@4 bb3 ab3 f3 eb3@6 ~@3",
  E: "[eb4 f4 ab4 f4 bb4 f4@3 c5 bb4 ab4 f4 ab4@2 db5@6 c5@2 bb4@2 ab4@4 ~@3 ab4]/2",
  F: "c5 ab4 db5 ab4 eb5 ab4 f5@9 eb5", G: "ab5 eb5 bb5 eb5 c6 eb5 db6 c6@5 ~@4",
})).s("gm_electric_guitar_clean").gain(0.51)

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

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

// drums · hihat
const hihat = s("hh").struct("<A@16 B@2 C A@4 D A@16 B@2 A@5 D A@24 B@2 C A@4 D A@16 ~>".pickRestart({
  A: "x!8", B: "x!4", C: "x ~ x!6", D: "x!4 ~@4",
})).gain(0.46)

// drums · mid tom
const mid_tom = s("mt").struct("<~@23 [~@11 x!5] ~@23 [~@11 x!5] ~@31 [~@11 x!5] ~@17>").gain(0.46)

// drums · open hat
const open_hat = s("oh").struct("<~@7 A ~@23 A ~@23 A ~@7 A ~@23 A ~@7 A ~>".pickRestart({
  A: "~ x",
})).gain(0.51)

// drums · high tom
const high_tom = s("ht").struct("<~@23 [~@6 x!5 ~@5] ~@23 [~@6 x!5 ~@5] ~@31 [~@6 x!5 ~@5] ~@17>").gain(0.46)

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

stack(
  pad_poly, bass, distortion_guitar, lead_2_sawtooth, electric_guitar_clean, kick, snare, hihat, mid_tom, open_hat,
  high_tom, crash
)