// Passionate Kisses — Carpenter
// 145 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 105 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(145/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, A@4 for four bars: edit a riff to change every repeat.

// chords · piano · "A.PIANO 2"
const piano = note(`<
  ~ A B C D A B C E F ~@11 F G H I J K L B C M ~@12 F N O P Q R S@2 T U V W T U V X@2 ~@13 Y Z AA AB AA AC ~@2 Y AC AA
  AD Y AE AF AG AH AI B AJ AK AL B AM AN L AF AO AP AQ@2 AR
>`.pickRestart({
  A: "[d3,a3,d4,f#4] ~@2 [f#4,g4]@3 f#4@2, a4@3 [a3,d4]@4 ~, ~@3 d3@2 ~@3", // D Gmaj7 D5
  B: "[a2,e3,a3,c#4] ~@5 f#4@5 ~ d4@3 ~, e4@6 [a2,e3,a3,c#4]@9 ~", // A
  C: "[b2,f#3,b3]@2 ~@4 [b3,c#4]@6 b3@3 ~, d4@3 [b2,f#3,d4]@4 ~", // B5 Bsus2 Bm
  D: "[g2,d3,b3] ~@5 f#3@5 ~ e3@2 ~@2, g3@3 [g2,d3,g3,b3]@4 ~", // G
  E: "[g2,d3,b3] ~@5 [g2,d3,f#3,g3,b3]@6 e3@3 ~, g3@3 ~@5", F: "[d3,a3,d4,f#4]@15 ~",
  G: "d4@2 ~@3 f#4 e4@2, [g3,b3]@7 ~, g4@3 g4@4 ~, ~@2 d4@5 ~", H: "a3@10 ~@2 a3@3 ~, [d4,f#4]@15 ~, d3@8 ~@2 d3@5 ~",
  I: "d4 ~ e4 ~@2 f#4 e4@2, [g3,b3]@3 ~, g4@3 g4@3 ~@2, ~ d4@5 ~@2", J: "a3@10 d3@2 a3@3 ~, [d4,f#4]@15 ~, d3 ~",
  K: "d4@2 ~@2 e4 ~@5 f#4@2 e4@3 ~, b3@3 ~, [g3,g4]@3 g4@3 ~@2, ~ d4@5 ~@2", // G
  L: "[d3,a3,d4,f#4] ~@2 [f#4,g4]@3 f#4@2, a4@3 [a3,d4]@4 ~, ~@6 d3@3 ~@7", // D Gmaj7 D5
  M: "[g2,b3]@2 ~@4 [g2,d3,f#3,g3,b3]@6 e3@3 ~, g3@5 ~@11, d3 ~@15", // G Gmaj7
  N: "g4@3 ~@2 f#4 e4@2, [b3,d4]@15 ~, g3@11 ~@5, ~@3 g4@4 ~", O: "[d3,a3]@9 ~ d3@2 a3@3 ~, [d4,f#4]",
  P: "d4@2 ~@3 f#4 e4@2, b3@7 ~, g3@11 ~@5, g4@3 g4@4 ~, ~@4 d4@11 ~", Q: "[d3,a3]@10 d3 ~ a3@3 ~, [d4,f#4]@15 ~",
  R: "d4@2 ~@3 f#4 e4 ~, b3@7 ~, g3@5 ~@3, g4@3 g4@4 ~, ~@4 d4@11 ~", S: "[[d3,a3,d4,f#4]@31 ~]/2",
  T: "a4@3 g4@3 f#4@2", U: "e4@6 f#4@6 d4@3 ~", V: "d4@5 ~ c#4@6 b3@3 ~", W: "g3@6 f#3@5 ~ e3@2 ~@2",
  X: "[a3@25 ~@7]/2", Y: "~@3 g4@2 f#4 e4@2", Z: "d4@13 ~@3", AA: "~@2 d4 g4@2 f#4 e4@2", AB: "d4@11 ~@5", AC: "d4",
  AD: "d4@15 ~", AE: "[d3,a3,f#4] ~@5 [f#4,g4]@6 f#4@4, a4@6 d3@3 ~@7, d4@2 ~ [a3,d4]@4 ~",
  AF: "[a2,e3,a3,c#4]@2 ~@4 f#4@6 d4@3 ~, e4@3 [a2,e3,a3,c#4]@4 ~", // A
  AG: "[f#3,b3] ~@2 [b3,c#4]@3 b3@2, d4@3 b2@2 ~@3, b2 ~@5 [f#3,d4]@8 ~@2", // B5 Bsus2 D
  AH: "[g2,d3,b3] ~@5 [d3,f#3,g3,b3]@6 e3@2 ~@2, g3@3 g2 ~@4", // G Gmaj7
  AI: "[d3,a3,d4,f#4] ~@5 [f#4,g4]@6 f#4@4, a4@3 [a3,d4]@4 ~, ~@6 d3@3 ~@7", // D Gmaj7 D5
  AJ: "[b2,f#3,b3]@2 ~@4 [b3,c#4]@6 b3@3 ~, d4@3 [f#3,d4]@4 ~, ~@6 b2@3 ~@7", // B5 Bsus2 D
  AK: "[g2,d3,b3] ~@5 [d3,g3,b3]@6 e3@2 ~@2, g3@6 f#3@5 ~@5, ~@6 g2@3 ~@7", // G
  AL: "[d3,e3,d4] ~@5 [f#4,g4]@6 f#4@4, a4@6 d3@3 ~@7, [a3,f#4] ~@2 [a3,d4]@4 ~", // Dsus2 Gmaj7 D D5
  AM: "[b2,f#3,b3] ~@5 [b2,b3,c#4]@6 b3@3 ~, d4@3 [f#3,d4]@4 ~", // B5 Bsus2 D
  AN: "[g2,d3,b3] ~@2 [g2,d3,f#3,g3,b3]@3 e3 ~, g3@3 ~@5", // G Gmaj7
  AO: "[b2,f#3,b3] ~@2 [b3,c#4]@3 b3@2, d4@5 ~ [f#3,d4]@8 ~@2, ~@3 b2@2 ~@3", // B5 Bsus2 D
  AP: "[d3,b3]@2 ~@4 [d3,f#3,g3,b3]@6 e3@3 ~, g3@5 ~@11, g2 ~@5 g2@4 ~@6", AQ: "[[d3,a3,d4,f#4]@29 ~@3]/2",
  AR: "[d3,a3,d4,f#4]@3 ~@13", // D
})).s("gm_piano").gain(0.59)

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  ~ A B C D A B C D E F G H E I G H J K G H L M L M L M L B N O E P Q H E P Q H R S T U V M L W L M X Y Z AA AB D AC AD
  AE AF AG E P Q H E P Q H AH K T AI L AJ L AJ L AJ AK AL L AJ L AJ L AJ AM B C D AM B C D AM B C D AM B C D AN@2 AO
>`.pickRestart({
  A: "d2@3 ~@3 d2@4 e2@2 f#2@4", B: "a1@3 ~@3 a1@4 c#2@2 d2@3 ~", C: "b1@3 ~@3 b1@4 c#2 ~ d2@3 ~",
  D: "g1@6 f#1@5 ~ e1@4", E: "d2@2 ~@4 d2@9 ~", F: "a1@3 ~@3 a1@9 ~", G: "b1@2 ~@4 b1@9 ~",
  H: "g1@3 ~@3 g1@4 a1@2 b1@3 ~", I: "a1@2 ~@4 a1@9 ~", J: "d2@3 ~@3 d2@9 ~", K: "f#1@3 ~@3 f#1@5 ~ a1@2 a#1@2",
  L: "d2@2 ~ d2@2 e2 f#2@2", M: "g2@2 ~ g2@2 f#2 e2@2", N: "b1@3 ~@3 b1@4 c#2@2 d2@3 ~", O: "g1@6 f#1@6 f1@3 ~",
  P: "a1@3 ~@3 a1@5 ~ a1@2 a#1 ~", Q: "b1@3 ~@3 b1@7 ~ b1 ~", R: "d2@2 ~@4 d2@5 ~ e1@2 f1@2, ~@12 f1 ~@3",
  S: "f#1@2 ~@4 f#1@5 ~ a1@2 a#1@2", T: "b1@3 ~@3 b1@5 ~ b1@2 a1 ~", U: "g1@3 ~@3 g1@2 g2@2 f#2@2 e2@3 ~",
  V: "d2@3 ~@3 d2@4 e2@2 f#2@3 ~", W: "g2@3 ~@3 g2@4 f#2@2 e2@3 ~", X: "d2@4 ~@2 d2 ~ d2@3 ~ a1@4",
  Y: "d2@4 ~@2 d2 ~ d2@5 ~@3", Z: "e1@4 ~@2 e1 ~ e1@2 f#1 ~ g1@3 ~", AA: "a1@4 ~@2 a1 ~ d2@2 c#2@2 a1@3 ~",
  AB: "g1@4 ~@2 g1@3 ~ a1 ~ b1@3 ~", AC: "e1@4 ~@2 e1@4 ~@2 e1 ~ f1 ~", AD: "f#1@4 ~@2 f#1@3 ~ f#1 ~ a1@2 a#1@2",
  AE: "b1@4 ~@2 b1@5 ~ g1@2 g#1 ~", AF: "a1@5 ~ a1 ~ a1@7 ~", AG: "a1@2 ~ a1 a2@2 a1 a2",
  AH: "d2@3 ~@3 d2@5 ~ e1@2 f1@2", AI: "g1@3 ~@13", AJ: "g2@2 ~ d2 g2 f#2 e2@2", AK: "d2@4 ~@2 d2 ~ d2@8",
  AL: "~@2 a1 ~ a1 ~ a1 ~ a1 ~ a1@2 b1@2 c#2 c2", AM: "d2@3 ~@3 d2@3 ~ a1@2 d2@3 ~", AN: "[d2@31 ~]/2", AO: "d2 ~@3",
})).s("gm_electric_bass_finger").gain(0.64)

// chords · piano · "A.PIANO 2"
const piano_2 = note(`<
  ~@16 A@4 B ~@18 C D E@2 ~@8 F G H I J K L M@2 ~@7 N@4 O P@4 Q R S T U V Q R Q W ~@19
>`.pickRestart({
  A: "[~@16 f#4@13 ~@3 c#4@14 ~@2 d4@15 ~, ~@14 a3@14 ~@3 [f#3,a3]@14 ~@2 [f#3,b3]@17, ~@14 d3@9 ~@7 f#2@16 ~ b2@13 ~@4, ~@15 d4@13 ~@36]/4", // F#m B5
  B: "~@10 g2@2 g3@2 b3 ~, ~@2 g2@6 d4@7 ~, ~@2 g3@3 ~@3, ~@6 b3@5 ~@5",
  C: "[a3,d4]@6 d3@2 ~@4 f#4@3 ~, f#4@10 d4@5 ~, d3@5 ~@3 a3@7 ~", // D5
  D: "[f#2,f#3]@6 ~@6 c#4@3 ~, c#4@10 a3@5 ~, a3@8 f#3@7 ~, ~@3 f#2@5", // F#
  E: "[[f#3,b3,d4]@14 ~@2 [g3,b3]@13 ~@3, b2@11 ~@4 [g2,d3]@13 ~@4]/2", F: "[e2,e3,g3,b3] ~@5 [e2,e3,g3,b3]@9 ~",
  G: "[a2,e3,a3,c#4] ~@2 [e3,a3,c#4]@4 ~, ~@3 a2@2 ~@3", H: "[g2,d3,g3,b3]@2 ~@4 [g2,d3,g3,b3]@9 ~, f#2 ~@15",
  I: "~@4 b3@3 ~, ~ g2@3 ~@4, ~@4 d3@11 ~, ~@6 g3@9 ~", J: "[e2,e3,g3,b3] ~@2 [e2,e3,g3,b3]@4 ~",
  K: "[f#2,f#3,a3,c#4] ~@2 [f#2,f#3,a3,c#4]@4 ~", L: "[b2,f#3,b3,d4] ~@2 [b2,f#3,b3,d4]@4 ~",
  M: "[e3@18 ~@6 c#4@7 ~, [a3,c#4]@10 e3@5 ~, a2@16 ~@2 a2@13 ~, ~@11 a3@4 ~]/2", // A
  N: "[~@16 f#4@13 ~ e2 ~ c#4@14 ~@2 d4@15 ~, ~@14 a3@14 ~@3 [f#3,a3]@14 ~ f#3@16 ~@2, ~@14 d3@9 ~@7 f#2@16 ~ b2@9 ~@8, ~@15 d4@13 ~@19 b3@15 ~@2]/4", // F#m
  O: "[g2,d3,g3,b3] ~@7", P: "[[a3,d4]@8 d3@2 ~@6 [b3,g4]@15 ~, f#4@15 ~@17, d3@6 ~@4 a3@5 ~ g3@9 ~@7, ~@12 d4@19 ~]/2",
  Q: "[a3,d4]@8 d3@2 ~@2 d4@3 ~, f#4@15 ~, d3@7 ~@3 a3@5 ~", R: "[b3,d4,g4]@15 ~, g3@3 ~@5", S: "[d3,a3,d4,f#4]@13 ~@3",
  T: "~@2 [c#4,e4] a3 [a2,a3,c#4,e4] ~ [a2,a3,c#4,e4] ~ [a2,a3,c#4,e4] ~ [a2,a3,c#4,e4] ~ [a2,a3,c#4,e4] ~ [a2,a3,c#4,e4] ~", // C#m A
  U: "[d3,a3]@8 d3@2 ~@2 d4@3 ~, f#4@15 ~, d4@10 a3@5 ~, c3 ~@15", V: "[b3,d4,g4]@15 ~, g3@7 ~@9",
  W: "[b3,d4,g4]@5 ~@3, g3@5 ~@11", // G
})).s("gm_piano").gain(0.59)

// drums · kick
const kick = s("bd").struct(`<
  ~ A@3 B A@3 B@19 A@3 B@21 A@3 B A@3 B@13 C B@14 A@3 B A@3 B A@3 B A@3 B C ~ C
>`.pickRestart({
  A: "x ~@2 x ~ x ~@2", B: "x ~@2 x!2 ~@3", C: "x",
})).gain(0.66)

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

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

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@50 [~@11 x!2 ~@3] ~@54>").gain(0.66)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~ A@3 B A@3 B ~@3 A ~@3 A ~@10 A@3 B ~@20 A@3 B A@3 B ~@27 A@3 B A@3 B A@3 B A@3 B ~@3
>`.pickRestart({
  A: "~@7 x", B: "~@3 x ~@3 x",
})).gain(0.52)

// drums · high tom
const high_tom = s("ht").struct("<~@50 [~ x] ~@54>").gain(0.66)

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

stack(piano, bass, piano_2, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash)