// 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: edit a riff to change every repeat.

// chords · piano · "A.PIANO 2"
const piano = note(`<
  ~ A B C D E F C G H ~@11 I J K L M N O P C Q ~@12 I R S T U V W@2 X Y Z AA X Y AB AC@2 ~@13 AD AE AF AG AF AH ~@2 AD
  AI AF AJ AD AK AL AM AN AO AP AQ AR AS AT AU AV AW AX AY AZ BA@2 BB
>`.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: "[a3,d4,f#4] ~@2 [f#4,g4]@3 f#4@2, a4@3 d3@2 ~@3, d3 ~@5 [a3,d4]@8 ~@2", // D Gmaj7 D5
  F: "[a2,e3,a3,c#4]@2 ~@4 f#4@6 d4@3 ~, e4@3 [a2,e3,a3,c#4]@4 ~", // A
  G: "[g2,d3,b3] ~@5 [g2,d3,f#3,g3,b3]@6 e3@3 ~, g3@3 ~@5", H: "[d3,a3,d4,f#4]", I: "[d3,a3,d4,f#4]@15 ~",
  J: "d4@2 ~@3 f#4 e4@2, [g3,b3]@7 ~, g4@3 g4@4 ~, ~@2 d4@5 ~", K: "a3@10 ~@2 a3@3 ~, [d4,f#4]@15 ~, d3@8 ~@2 d3@5 ~",
  L: "d4 ~ e4 ~@2 f#4 e4@2, [g3,b3]@3 ~, g4@3 g4@3 ~@2, ~ d4@5 ~@2", M: "a3@10 d3@2 a3@3 ~, [d4,f#4]@15 ~, d3 ~",
  N: "d4@2 ~@2 e4 ~@5 f#4@2 e4@3 ~, b3@3 ~, [g3,g4]@3 g4@3 ~@2, ~ d4@5 ~@2", // G
  O: "[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
  P: "[a2,e3,a3,c#4]@2 ~@4 f#4@5 ~ d4@3 ~, e4@6 [a2,e3,a3,c#4]@9 ~", // A
  Q: "[g2,b3]@2 ~@4 [g2,d3,f#3,g3,b3]@6 e3@3 ~, g3@5 ~@11, d3 ~@15", // G Gmaj7
  R: "g4@3 ~@2 f#4 e4@2, [b3,d4]@15 ~, g3@11 ~@5, ~@3 g4@4 ~", S: "[d3,a3]@9 ~ d3@2 a3@3 ~, [d4,f#4]",
  T: "d4@2 ~@3 f#4 e4@2, b3@7 ~, g3@11 ~@5, g4@3 g4@4 ~, ~@4 d4@11 ~", U: "[d3,a3]@10 d3 ~ a3@3 ~, [d4,f#4]@15 ~",
  V: "d4@2 ~@3 f#4 e4 ~, b3@7 ~, g3@5 ~@3, g4@3 g4@4 ~, ~@4 d4@11 ~", W: "[[d3,a3,d4,f#4]@31 ~]/2",
  X: "a4@3 g4@3 f#4@2", Y: "e4@6 f#4@6 d4@3 ~", Z: "d4@5 ~ c#4@6 b3@3 ~", AA: "g3@6 f#3@5 ~ e3@2 ~@2",
  AB: "d4@5 ~ c#4@6 b3@4", AC: "[a3@25 ~@7]/2", AD: "~@3 g4@2 f#4 e4@2", AE: "d4@13 ~@3", AF: "~@2 d4 g4@2 f#4 e4@2",
  AG: "d4@11 ~@5", AH: "d4", AI: "d4@15 ~", AJ: "d4@7 ~",
  AK: "[d3,a3,f#4] ~@5 [f#4,g4]@6 f#4@4, a4@6 d3@3 ~@7, d4@2 ~ [a3,d4]@4 ~", // D Gmaj7 D5
  AL: "[e3,a3]@2 ~@4 f#4@6 d4@3 ~, e4@5 ~@11, [a2,c#4] ~@5 [a2,e3,a3,c#4]@8 ~@2", // A5 A
  AM: "[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
  AN: "[g2,d3,b3] ~@5 [d3,f#3,g3,b3]@6 e3@2 ~@2, g3@3 g2 ~@4", // G Gmaj7
  AO: "[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
  AP: "[a3,c#4]@2 ~@4 f#4@5 ~ d4@3 ~, e4@3 ~@5, [a2,e3] ~@5 [a2,e3,a3,c#4]@8 ~@2", // A A5 A
  AQ: "[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
  AR: "[g2,d3,b3] ~@5 [d3,g3,b3]@6 e3@2 ~@2, g3@6 f#3@5 ~@5, ~@6 g2@3 ~@7", // G
  AS: "[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
  AT: "[a2,e3,a3,c#4]@2 ~@4 f#4@5 ~ d4@3 ~, e4@3 [a2,e3,a3,c#4]@4 ~", // A
  AU: "[b2,f#3,b3] ~@5 [b2,b3,c#4]@6 b3@3 ~, d4@3 [f#3,d4]@4 ~", // B5 Bsus2 D
  AV: "[g2,d3,b3] ~@2 [g2,d3,f#3,g3,b3]@3 e3 ~, g3@3 ~@5", // G Gmaj7
  AW: "[a3,d4,f#4] ~@2 [f#4,g4]@3 f#4@2, a4@6 d3@3 ~@7, d3 ~@5 [a3,d4]@8 ~@2", // D Gmaj7 D5
  AX: "[a2,e3,a3,c#4]@2 ~@4 f#4@6 d4@3 ~, e4@6 [a2,e3,a3,c#4]@9 ~", // A
  AY: "[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
  AZ: "[d3,b3]@2 ~@4 [d3,f#3,g3,b3]@6 e3@3 ~, g3@5 ~@11, g2 ~@5 g2@4 ~@6", BA: "[[d3,a3,d4,f#4]@29 ~@3]/2",
  BB: "[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 E F C G H I J K H L J M N O P K Q R Q R E S T F U V H W X K Y W X K Z AA AB AC E AD A S A AE AF AG AH AI AJ
  G AK AL AM AN AO H W X K Y W X K AP O AQ AR AS AT AS AU AS AU AV AW AX AT AX AT AS AU AY F C D AY AZ BA BB AY AZ C BC
  AY AZ C D BD@2 BE
>`.pickRestart({
  A: "d2@3 ~@3 d2@4 e2@2 f#2@4", B: "a1@2 ~@4 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@3 ~@3 d2@4 e2@2 f#2@3 ~", F: "a1@3 ~@3 a1@4 c#2@2 d2@3 ~", G: "g1@5 ~ f#1@5 ~ e1@3 ~",
  H: "d2@2 ~@4 d2@9 ~", I: "a1@3 ~@3 a1@9 ~", J: "b1@2 ~@4 b1@9 ~", K: "g1@3 ~@3 g1@4 a1@2 b1@3 ~",
  L: "a1@2 ~@4 a1@9 ~", M: "g1@2 ~@4 g1@3 ~ a1@2 b1@3 ~", N: "d2@3 ~@3 d2@10", O: "f#1@3 ~@3 f#1@5 ~ a1@2 a#1@2",
  P: "b1@3 ~@3 b1@9 ~", Q: "d2@4 ~@2 d2@4 e2@2 f#2@3 ~", R: "g2@2 ~ g2@2 f#2 e2@2", S: "g2@3 ~@3 g2@4 f#2@2 e2@3 ~",
  T: "d2@3 ~@3 d2@4 e2 ~ f#2@3 ~", U: "b1@3 ~@3 b1@4 c#2@2 d2@3 ~", V: "g1@6 f#1@6 f1@3 ~",
  W: "a1@3 ~@3 a1@5 ~ a1@2 a#1 ~", X: "b1@3 ~@3 b1@7 ~ b1 ~", Y: "d2@3 ~@3 d2@9 ~",
  Z: "d2@2 ~@4 d2@5 ~ e1@2 f1@2, ~@12 f1 ~@3", AA: "f#1@2 ~@4 f#1@5 ~ a1@2 a#1@2", AB: "b1@3 ~@3 b1@5 ~ b1@2 a1 ~",
  AC: "g1@3 ~@3 g1@2 g2@2 f#2@2 e2@3 ~", AD: "g2@4 ~@2 g2@4 f#2@2 e2@3 ~", AE: "g2@3 ~@3 g2@4 f#2@2 e2@4",
  AF: "d2@4 ~@2 d2 ~ d2@3 ~ a1@4", AG: "d2@4 ~@2 d2 ~ d2@5 ~@3", AH: "e1@4 ~@2 e1 ~ e1@2 f#1 ~ g1@3 ~",
  AI: "a1@4 ~@2 a1 ~ d2@2 c#2@2 a1@3 ~", AJ: "g1@4 ~@2 g1@3 ~ a1 ~ b1@3 ~", AK: "e1@4 ~@2 e1@4 ~@2 e1 ~ f1 ~",
  AL: "f#1@4 ~@2 f#1@3 ~ f#1 ~ a1@2 a#1@2", AM: "b1@4 ~@2 b1@5 ~ g1@2 g#1 ~", AN: "a1@5 ~ a1 ~ a1@7 ~",
  AO: "a1@2 ~ a1 a2@2 a1 a2", AP: "d2@3 ~@3 d2@5 ~ e1@2 f1@2", AQ: "b1@3 ~@3 b1@4 ~@2 b1@2 a1@2", AR: "g1@3 ~@13",
  AS: "d2@2 ~ d2@2 e2 f#2@2", AT: "g2@2 ~ d2 g2 f#2 e2@2", AU: "g2@4 ~@2 d2@2 g2@2 f#2@2 e2@3 ~",
  AV: "d2@4 ~@2 d2 ~ d2@8", AW: "~@2 a1 ~ a1 ~ a1 ~ a1 ~ a1@2 b1@2 c#2 c2", AX: "d2@4 ~@2 d2@4 e2 ~ f#2@4",
  AY: "d2@3 ~@3 d2@3 ~ a1@2 d2@3 ~", AZ: "a1@3 ~@3 a1@4 c#2 ~ d2@4", BA: "b1@3 ~@3 b1@4 c#2 ~ d2@4",
  BB: "g1@3 f#1@3 e1@2", BC: "g1@6 f#1@6 e1@3 ~", BD: "[d2@31 ~]/2", BE: "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@2 Q@2 R S T U V W X W X Y ~@19
>`.pickRestart({
  A: "[~@16 f#4@13 ~@3 c#4@14 ~@2 d4@15 ~, ~@14 a3@14 ~@2 f#3@14 ~@3 [f#3,b3]@17, ~@14 d3@9 ~@7 f#2@16 ~ b2@13 ~@4, ~@15 d4@13 ~@3 a3@14 ~@19]/4", // 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]@7 ~ b3@6 ~@2, b2@11 ~@4 [g2,d3,g3]@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@14 ~@2, ~@14 a3@14 ~@3 [f#3,a3]@14 ~ f#3@16 ~@2, ~@14 d3@9 ~@7 f#2@16 b2@9 ~@9, ~@15 d4@14 ~@18 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 ~@6 [b3,g4]@15 ~, f#4@15 ~@17, d3@7 ~@3 a3@5 ~ g3@10 ~@6, ~@12 d4@19 ~]/2", // D5 Em
  R: "[d3,a3]@8 d3 ~@3 d4@3 ~, f#4@15 ~, d4@10 a3@5 ~", S: "[b3,d4,g4]@15 ~, g3@3 ~@5", T: "[d3,a3,d4,f#4]@13 ~@3",
  U: "~@2 [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] ~ [a2,a3,c#4,e4] ~", // A
  V: "[d3,a3]@8 d3@2 ~@2 d4@3 ~, f#4@15 ~, d4@10 a3@5 ~, c3 ~@15", W: "[b3,d4,g4]@15 ~, g3@7 ~@9",
  X: "[a3,d4]@8 d3@2 ~@2 d4@3 ~, f#4@15 ~, d3@7 ~@3 a3@5 ~", Y: "[b3,d4,g4]@5 ~@3, g3@5 ~@11",
})).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)