// Take Me — Kiss
// 138 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 8 "lead" overdriven guitar (copy of ch 5 "lead" tremolo strings)
// note: Full arrangement: all 95 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): Paul.
setcpm(138/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.

// bass · electric bass pick · "Gene"
const bass = note(`<
  A B C D E@2 C D E@2 C D F@2 G H I J G H K L M N O P M Q K L C D E@2 C D E@2 C D F@2 G H I J G H K L M N O P M Q K L C
  D R@2 G S T@2 C D C D C D E@2 M N O P M Q K L M N O P M Q K U K U K V@2
>`.pickRestart({
  A: "c2 ~ c2@2 a1@2 c2 ~ c2@3 ~ a1@4", B: "d2 ~ d2@2 b1@2 d2 ~ d2@4 e1 ~ e1@2",
  C: "g1@2 g#1@2 e2@4 g1 ~ e1@2 g1@2 g#1@2", D: "e2@4 ~@2 a1@4 ~@2 e1 ~ e1@2",
  E: "[g1@2 g#1@2 e2@4 g1 ~ e1@2 ~@2 d2@6 a1@6 ~@2 e1 ~ e1@2]/2",
  F: "[g1@2 g#1@2 e2@4 g1 ~ e1@2 ~@2 d2@6 a1@6 b1!2 b1@4]/2", G: "b1!4", H: "b1@4 b1@4 b2@2 b1@2 ~@2 c2 ~",
  I: "c2@2 a1@2 c2 ~ c2@3 ~ a1@4 c2 ~", J: "c2@2 a1@2 c2 ~ c2@4 b1!2 b1@4", K: "c2@2 a1@2 c2 ~ c2@3 ~ a1@4 d2 ~",
  L: "d2@2 b1@2 d2 ~ d2@4 ~@2 e1 ~ e1@2", M: "g1 g#1 e2@2 e2 d2@3", N: "d2@4 a1@4 g1@2 f#1@2 e1 ~ e1@2",
  O: "g1 g#1 e2@2 e2 c2@3", P: "d2@4 e2@4 ~@4 e1 ~ e1@2", Q: "d2@4 a1@4 g1@2 f#1@2 ~@2 c2 ~",
  R: "[g1@2 g#1@2 e2@4 g1 ~ e1@2 ~@2 d2@6 a1@6 ~@2 b1@4]/2", S: "b1@2 b1@2 b1 c2@3",
  T: "[c2@4 c2@4 c2@2 a1@8 d2@8 ~@2 e1 ~ e1@2]/2", U: "d2@2 b1@2 d2 ~ d2@4 ~@4 c2 ~",
  V: "[d2@2 b1@2 d2 ~ d2@4 ~@2 [e1,e2]@8 ~@12]/2", // E
})).s("gm_electric_bass_pick").gain(0.51)

// chords · distortion guitar · "Paul"
const distortion_guitar = note("<~@29 A B C D ~@25 E ~ E F@5 ~@29>".pickRestart({
  A: "~@7 e2", B: "g2 g#2 e3@2 g2 e2 ~ g#2", C: "e3@2 ~@5 e2", D: "g2 g#2 e3@2 g2 e2 ~@2", E: "~@4 g2 ~@3",
  F: "[~@6 [b2,f#3,b3]@6 ~ [b2,b3]@8 [c3,g3,c4]@6 ~@2 [a2,e3,a3]@4 a3@4 ~@3]/5", // B5 B C5 A5
})).s("gm_distortion_guitar").gain(0.41).pan(0.3)

// chords · distortion guitar · "Ace"
const distortion_guitar_2 = note(`<
  A B C D E@2 C D F@2 C D G@4 H I@3 J K L M N O L P J Q C D E@2 C D F@2 C D G@4 H I@3 J K L M N O L P J K R S T@2 U V W
  X Y Z Y AA AB AC AD@2 L M N O L P J K L M N O L P J AE J AE J AF@2
>`.pickRestart({
  A: "[c3,g3,c4] ~ [c3,g3,c4]@2 [a2,e3,a3]@2 [c3,g3,c4] ~ [c3,g3,c4]@4 [a2,e3,a3]@4", // C5 A5 C5 A5
  B: "[d3,a3,d4] ~ [d3,a3,d4]@2 [b2,f#3,b3]@2 [d3,a3,d4] ~ [d3,a3,d4]@4 [e3,b3,e4]@4", // D5 B5 D5 E5
  C: "[f#3,c#4] ~ [g3,d4] ~ [f#3,c#4] ~ [g3,d4] ~", D: "[f#3,c#4]@2 ~@4 [a2,e3,a3]@5 ~ [e3,b3,e4]@4",
  E: "[[f#3,c#4] ~ [g3,d4] ~ [f#3,c#4] ~ [g3,d4] [d3,a3,d4]@3 [a2,e3,a3]@4 [e3,b3,e4]@2]/2", // F#5 G5 F#5 G5 D5 A5 E5
  F: "[[f#3,c#4] ~ [g3,d4] ~ [f#3,c#4] ~ [g3,d4] [d3,a3,d4]@3 [a2,e3,a3]@2 ~@2 [e3,b3,e4]@2]/2", // F#5 G5 F#5 G5 D5 A5 E5
  G: "[[f#3,c#4]@2 ~@2 [g3,d4]@2 ~@2 [f#3,c#4]@2 ~@2 [g3,d4]@2 [d3,a3,d4]@6 [a2,e3,a3]@4 ~@2 [b2,f#3,b3]!2 [b2,f#3,b3]@14 [b2,f#3,b3]@2 ~@2 [b2,f#3,b3]@14 ~@2 [c3,g3,c4] ~]/4", // F#5 G5 F#5 G5 D5 A5 B5 C5
  H: "[c3,g3,c4]@2 [a2,e3,a3]@2 [c3,g3,c4] ~ [c3,g3,c4]@4 [a2,e3,a3]@4 [c3,g3,c4] ~", // C5 A5 C5 A5 C5
  I: "[[c3,g3,c4]@2 [a2,e3,a3]@2 [c3,g3,c4] ~ [c3,g3,c4]@4 [b2,f#3,b3]!2 [b2,f#3,b3]@14 [b2,f#3,b3]@2 ~@2 [b2,f#3,b3]@14 ~@2 [c3,g3,c4] ~]/3", // C5 A5 C5 B5 C5
  J: "[c3,g3,c4]@2 [a2,e3,a3]@2 [c3,g3,c4] ~ [c3,g3,c4]@4 [a2,e3,a3]@4 [d3,a3,d4] ~", // C5 A5 C5 A5 D5
  K: "[d3,a3,d4]@2 [b2,f#3,b3]@2 [d3,a3,d4] ~ [d3,a3,d4]@4 ~@2 e2 ~ e2@2", L: "g2@2 g#2@2 e3@4 e2 ~ [d3,a3,d4]@6",
  M: "[d3,a3,d4]@4 [a2,e3,a3]@4 g2@2 f#2@2 e2 ~ e2@2", N: "g2@2 g#2@2 e3@4 e2 ~ [c3,g3,c4]@6",
  O: "[d3,a3,d4]@4 [e3,b3,e4]@4 ~@4 e2 ~ e2@2", P: "[d3,a3,d4]@4 [a2,e3,a3]@4 g2@2 f#2@2 ~@2 [c3,g3,c4] ~",
  Q: "[d3,a3,d4]@2 [b2,f#3,b3]@2 [d3,a3,d4] ~ [d3,a3,d4]@4 ~@2 [e3,b3,e4]@4", R: "g2@2 g#2@2 e3@4 e2 ~ e2@2 g2@2 g#2@2",
  S: "e3@4 ~@2 [a2,e3,a3]@6 e2 ~ e2@2", T: "[g2@2 g#2@2 e3@4 e2 ~ e2@2 ~@2 [d3,a3]@6 [a2,e3]@8 d5 b4 a4 b4]/2",
  U: "a4 f#4 e4 f#4 e4 d4 b3 d4 b3 a3 f#3 a3 f#3 e3 d3 b2", V: "b2 b3@3 ~ e4@3",
  W: "e4@4 e4@2 [d4,e4] c4 a3 ~ g3@4 a3@2", X: "c4 d4@3 ~@2 e2!2", Y: "g2 g#2 e3@2 g2 e2 g2 g#2",
  Z: "e3@2 ~ [a2,e3,a3]@3 e2!2", AA: "e3@2 ~ [a2,e3,a3]@3 e4!2", AB: "g4 g#4 e5@2 g4 e4 g4 g#4",
  AC: "e5@2 ~ [a2,e3,a3]@3 [e2,e4]!2", // A5 E
  AD: "[[g2,g4]@2 [g#2,g#4]@2 [e3,e5]@4 g2@2 e2@2 ~@2 [d3,a3,d4]@6 [a2,e3,a3]@6 ~@2 e2 ~ e2@2]/2", // G G# E D5 A5
  AE: "[d3,a3,d4]@2 [b2,f#3,b3]@2 [d3,a3,d4] ~ [d3,a3,d4]@4 ~@4 [c3,g3,c4] ~", // D5 B5 D5 C5
  AF: "[[d3,a3,d4]@2 [b2,f#3,b3]@2 [d3,a3,d4] ~ [d3,a3,d4]@4 ~@2 [e3,b3,e4]@8 ~@12]/2", // D5 B5 D5 E5
})).s("gm_distortion_guitar").gain(0.64).pan(0.8)

// other · tremolo strings · "lead"
const tremolo_strings = note("<~@61 A B C D E ~@3 F G H I ~@22>".pickRestart({
  A: "~@12 d5 b4 a4 b4", B: "a4 f#4 e4 f#4 e4 d4 b3 d4 b3 a3 f#3 a3 f#3 e3 d3 b2", C: "b2 b3@3 ~ e4@3",
  D: "e4@4 e4@2 [d4,e4] c4 a3 ~ g3@4 a3@2", E: "c4 d4@3 ~@4", F: "~@6 e4!2", G: "g4 g#4 e5@2 g4 e4 g4 g#4",
  H: "e5@2 ~@4 e4!2", I: "g4 g#4 e5@2 ~@4",
})).s("gm_tremolo_strings").gain(0.51)

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

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

// drums · clap
const clap = s("cp").struct("<~@93 [~@3 x] ~>").gain(0.51)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@13 A ~@2 B ~@24 A ~@2 B ~@19 B ~@8 C ~@21>".pickRestart({
  A: "~ x ~@2", B: "~@5 x ~@2", C: "~@6 x!6 ~@4",
})).gain(0.51)

// drums · open hat
const open_hat = s("oh").struct("<~@13 A B C B@3 D B E ~@19 A B C B@3 D B E ~@11 A B C B E ~@29>".pickRestart({
  A: "~@6 x!2", B: "x!8", C: "~ x ~ x!5", D: "x!3 ~@4 x", E: "x!6 ~@2",
})).gain(0.51)

// drums · high tom
const high_tom = s("ht").struct("<~@8 [~@10 x!3 ~@3] ~@23 [~@11 x!2 ~@3] ~@39 [~@14 x!2] [x!6 ~@10] ~@21>").gain(0.51)

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

// drums · ride bell
const ride_bell = s("rd").struct("<~@93 [~@3 x] ~>").gain(0.51)

stack(
  bass, distortion_guitar, distortion_guitar_2, tremolo_strings, kick, snare, clap, hihat, mid_tom, open_hat, high_tom,
  crash, ride_bell
)