// Disperato erotico stomp — Dalla Lucio
// 149 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 213 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(149/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.

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  ~@28 A B A C D E A F A E A F A E A G D E A F A E A F A E A H A E A F D E A I D E A H A E A F A E A F A E A I A E A H A
  E A F A E A F D E A I D E A H A E A F D E A F D E A I A E A H D E A F A E A F D E A I A E A H A E A F D E A H A E A F
  A E A F A E A I D E A H J K L M A E A F A E A I D E A H A E A F A E A F D E A F D E A F A E A F A E N ~ D E A F A E A
  F A E A F A E A F O
>`.pickRestart({
  A: "c2@3 ~ c2@2 ~@16 c2@2", B: "g1@3 ~ g1@2 ~@16 b1@2", C: "g1@3 ~ g2@2 f2@3 ~@2 d#2@7 d2@3 ~@3", D: "c2 ~ c2 ~@8 c2",
  E: "g1 ~ g1 ~@8 b1", F: "g1 ~ g1 ~@9", G: "g1@5 ~ d2@4 ~@2 e2@4 ~@2 d2@3 ~@3", H: "g1@2 ~@4 g1@4 ~@2 a1@4 ~@2 b1@5 ~",
  I: "g1@2 ~@2 g1@2 ~@3 g1!2 ~ a1@6 b1@4 ~@2", J: "c2@3 ~ c2@2 ~@10 g1@2 a1@4 c2 ~",
  K: "d2@3 ~ d2@2 ~@10 g1 ~ d2@4 g1 ~", L: "e2@3 ~ e2@3 ~@5 d2@3 ~@3 e2@3 ~@3", M: "d2@3 ~@3 a1@5 ~ g1@6 a1@4 ~@2",
  N: "c2 ~@7", O: "c2@5 ~@19",
})).s("gm_electric_bass_finger").gain(0.53)

// chords · epiano2 · "E.PIANO"
const epiano2 = note(`<
  A B C@6 D E F G ~@3 H I J K J L M N O K P K Q R S R S R S R T U V W X R Y R Z AA AB AA AB ~@2 AC AD AE AF AG AH AI AJ
  AK AL AA AB AA AB AM AN AA AN AO AP AQ AP AA AN AM AR AS AT AU AV AM AN AA AW AO AP AQ AP AA AX AM AR AA AB AA AB AY
  AZ BA BB BC BD BE BF BG BH BI BJ AA AB AA AB AM BK BL BM BN BO BP BQ@2 BR BS BT AA AB AA AB BU BV BW BV BW BV BU BX BY
  BV AI BV AI BV BZ CA AI BV R CB AA AB AA AB AM BK BL BM BN BO BP BQ@2 BR BS BT AA AB AA AB AM BK BL BM BN BO BP CC@2
  BR BS BT AA AB AA AB AM BV CD BV AI CE CF CG BC CH CI ~ AA AB AA AB AA AB AA AB AA AB AA AB AA AB AA AB CI
>`.pickRestart({
  A: "g5", B: "f5", C: "[~@24 f5@24 g5@31 ~@5 f5@3 e5@3 d5@3 e5@6 c5@3 g4@42, e5 ~@5, ~@6 g4@43 ~@95]/6",
  D: "~ c5, g5, ~@6 c4@17 ~", E: "~ f4@3, f5, f3@19 ~@5", F: "~ e4, [c3,e5], ~ c4@3",
  G: "~@12 d4@11 ~, [g3,d5], ~@6 b3@17 ~", H: "~@4 g4@2 f4@2 ~@4 d#4@2 ~@4 d4@3 ~@3, ~@4 f#4 ~@19",
  I: "~@2 [d4,e4,g4] ~@3 [c4,d4,e4,g4] ~, c3", J: "~@6 [b3,d4,g4]@2 ~@10 [b3,d4,g4]@3 ~@3, g2",
  K: "~@3 [c4,d4,e4,g4] ~@5 [c4,d4,e4,g4] ~@2, c3", // C
  L: "~@6 [d4,e4,g4]@2 ~@2 e4 ~ c5@4 e4 ~ [c4,d4,e4,g4]@2 ~@2 e4 ~, c3, ~@3 [c4,c5]@2 ~@4 c5@2 ~", // Em7 C
  M: "[g4,c5] ~ g4@2 e4 ~ [b3,d4,g4]@2 [g4,c5] ~ e4 ~ [g4,c5] ~ [g4,c5]@2 e4 ~ [b3,d4,g4]@2 [g4,c5] ~ e4 ~, g2, ~@2 c5 ~@3 c5 ~@11 c5 ~@5", // C5 G C5 G C5
  N: "[g4,c5] ~ [g4,c5] ~ e4 ~ [c4,d4,e4,g4]@2 [g4,c5]@2 e4 ~ [g4,c5] ~ [g4,c5] ~ e4 ~ [c4,d4,e4,g4,c5]@2 g4@2 e4 ~, c3, ~@6 [a#4,c5] ~@11 f#4 ~@5", // C5 C C5 C A#sus2
  O: "~@2 g4 f4 ~@2 d#4 ~@2 d4 ~@2, g2, ~@4 f#4 ~@19", P: "~@3 [b3,d4,g4] ~@5 [c4,d4,e4,g4] ~@2, g2@23 ~",
  Q: "~@6 [b3,d4] ~@11 [b3,d4,g4]@2 ~@4, g2@7 ~, ~@3 g4 ~@8", R: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~",
  S: "~@6 [g3,b3,d4,f4]@2 ~@10 [g3,b3,d4,f4]@3 ~@3", T: "~@2 [g3,b3,d4,f4] ~@3 [g3,b3,d4,f4] ~",
  U: "~@3 e4@2 ~ [g4,c5]@4 e4 [g4,c5]@5 e4 ~ [g4,c5]@4 e4 ~", // C5
  V: "[g4,c5]@4 [d4,e4] ~ [g4,c5]@4 e4 ~ [g4,c5]@4 d4 ~ [g4,c5]@4 e4@2", // C5 Dsus2 C5
  W: "[g4,c5] ~ [g4,c5]@2 e4 ~ [g4,c5] ~ [g4,c5]@2 e4 ~ [g4,c5] ~ [g4,c5]@2 e4 ~ [g4,a#4,c5] ~ [g4,c5]@2 e4 ~", // C5 C7 C5
  X: "~@4 [f#4,a4] ~ f4@3 ~@2 [f4,g4] d#4@3 ~@3 d4@3 ~@3, ~@2 g4 ~@9", Y: "~@6 [g3,b3,d4,f4]@2 ~ [g3,b3,d4,f4]@2 ~",
  Z: "a#3 b3@3 g3 ~ a3@3 ~@3 [g3,b3]@4 d3@2 g3@3 ~@3, [a3,d4]@4 ~ e3@3 ~@16", AA: "~@2 [e4,g4] ~@3 [e4,g4] ~",
  AB: "~@2 [d4,g4] ~@3 [d4,g4] ~", AC: "~@6 [c4,d4,e4,g4]@3 ~@9 [c4,d4,e4,g4]@2 ~@4",
  AD: "~@6 [b3,d4,g4]@4 ~@9 [b3,d4]@4 ~, ~@9 g4@2 ~", // G Bm
  AE: "~@4 c4 ~ [d4,e4,g4]@4 c4 ~ [d4,e4,g4]@4 c4 ~ [d4,e4,g4]@4 c4 ~", // Em7
  AF: "~@4 b3@2 [d4,g4]@4 b3 ~ [d4,g4]@4 ~@2 [d4,g4]@4 b3 ~", // G5
  AG: "~@4 c4 ~ [d4,e4,g4]@4 c4 ~ [d4,e4,g4]@4 c4@2 [d4,e4,g4]@4 c4 ~", AH: "~@6 [d4,g4]@2 ~@10 [b3,d4,g4]@3 ~@3",
  AI: "~@2 [c4,d4,e4,g4] ~@3 [c4,d4,e4,g4] ~", AJ: "~@2 [b3,d4,g4] ~@3 [b3,d4,g4] ~",
  AK: "~@6 [c4,d4,e4,g4]@3 ~@9 d#4 e4@3 c4 ~, ~@6 [d4,g4] ~", // C G5
  AL: "~@6 [g3,b3,d4]@2 ~@4 a#3 b3@3 g3 ~ e3@3 ~@3, ~@4 d4 ~@3", AM: "~@2 [c4,e4] ~@3 [c4,e4] ~",
  AN: "~@2 [d4,f4] ~@3 [d4,f4] ~", AO: "~@4 c4 ~ [e4,g4]@4 ~@9 [e4,g4]@3 ~@2",
  AP: "~@4 c4@2 [d4,f4]@2 ~@10 [d4,f4]@3 ~@3", AQ: "~@6 [e4,g4]@3 ~@10 [c4,e4,g4]@2 ~@3, ~@5 c4@2 ~@17",
  AR: "~@6 [b3,d4]@3 ~@3 a#3 b3@3 ~ g3 ~@6, ~@6 a#3 ~@5 d4@4 ~@8", // Bm
  AS: "~@4 c5@2 [e5,g5] ~ [e5,g5] ~ c5@2 [e5,g5] ~ [e5,g5] ~ c5@2 [e5,g5] ~ g5@2 c5 ~, ~@20 e5 ~@3", // Em
  AT: "[d5,g5] ~ [d5,g5]@2 b4@2 [d5,g5] ~ [d5,g5] ~ b4 ~ [d5,g5] ~ [d5,g5] ~ b4@2 [d5,g5] ~ g5@2 b4 ~, ~@20 d5 ~@3", // G5
  AU: "~@10 d#5 e5@2 ~ c5 ~ [d5,e5] ~@7, ~@5 [d5,g5]@2 ~@5", AV: "~@4 d#5 e5 c5 ~@2 a4 ~@3 c5@2 ~@9, ~@2 d5 ~@9",
  AW: "~@6 [d4,f4]@3 ~@9 [d4,f4]@2 ~@4", AX: "~@6 [d4,f4]@3 ~@10 [d4,f4]@3 ~@2", AY: "~@4 c3 ~ [d4,e4,g4]@4 c4 ~@12 g3",
  AZ: "[b3,d4,g4]@3 ~ g3 ~ [b3,d4,g4]@3 ~ g3 ~ [b3,d4,g4]@3 ~ g3 ~ [b3,d4,g4]@3 g3 ~@2", // G
  BA: "[d4,e4,g4]@4 c4 ~@11 c3 ~ d#4 e4@3 c4 ~, ~@9 [d4,g4]@2 ~", // Em7 G5
  BB: "~@4 g3 ~@2 b3@2 ~ g4@2 ~@6 [b3,d4,g4]@3 ~ [d4,e4,g4]@2, ~@3 a#3 ~@8", BC: "~@3 [c4,e4,g4] ~@5 [c4,e4,g4] ~@2",
  BD: "~@6 [b3,d4,f4]@2 ~@8 [b3,d4,f4] ~ d#5 e5@3 ~ c5, ~@6 d5 ~", BE: "~@3 [c4,e4] ~@5 [c4,e4] ~@2",
  BF: "~@6 [b3,d4]@3 ~@9 [b3,d4]@2 ~@4", BG: "[d#5,g5]@3 ~ e5@2 [e4,c5] ~@11 c4 e4 ~@4, ~@3 c4 ~@8",
  BH: "~@3 b3 ~@5 b3 ~@2, ~@6 d4 ~@11 d4 ~@5", BI: "~@6 [c4,e4] ~@5 [d5,d#5]@2 e5@2 c5 ~ a4 [c4,e4] g4 ~ c5 ~",
  BJ: "~@6 [b3,d4] ~@4 f4 g4 f4@2 d#4@2 e4 ~ c4@2 ~@3, ~@10 [f#4,c5]@3 ~@11", // Bm F#dim
  BK: "~@4 g3 ~ [d4,f4]@3 ~@9 [d4,f4]@3 ~@3", BL: "~@4 c3 ~ [c4,e4,g4]@3 ~ c3 ~ [c4,e4,g4]@3 ~ c3 ~ [c4,e4,g4]@4 c3 ~",
  BM: "~ g2 ~@2 g2 ~ [b3,d4,f4]@3 ~@7 g2 ~ [b3,d4,f4]@3 ~@3", // Bdim
  BN: "~@4 c3 ~ [d4,g4]@3 ~ c3 ~ [d4,e4,g4]@4 c3 ~ [d4,e4,g4]@4 c3 ~, ~@5 e4@3 ~@16", // G5 Em7
  BO: "g2@2 ~@2 g2 ~ [b3,d4,f4]@3 ~ g2 ~ [b3,d4,f4]@3 ~ g2 ~ [b3,d4,f4]@3 g2@2 ~", // Bdim
  BP: "c3@2 ~@2 c3 ~ [c4,d4,e4,g4]@3 ~@9 [c4,d4,e4,g4]@3 ~@3", // C
  BQ: "[~@4 g2 ~ [b3,d4,f4]@4 g2 ~ [b3,d4,f4]@4 g2 ~ [b3,d4]@3 ~ d#4 e4@2 ~@3 c3 ~ [c4,e4]@3 ~@7 c3 ~ [g3,c4,e4]@3 ~@3, ~@18 f4@4 d4@2 ~@6 d4 ~@17]/2", // Bdim Bm C
  BR: "~@4 g2 ~ [g3,b3,d4]@3 ~@7 g2 ~ [g3,b3,d4]@3 ~@3", // G
  BS: "~@4 c3 ~ [c4,e4]@3 ~@7 c3 ~ [g3,c4,e4]@3 ~@3, ~@6 g3 ~@17", // C
  BT: "~@4 g2 ~ d#4 e4@3 c4 ~ [a3,d4]@4 g3 ~ e4@3 ~@3, ~@3 [d4,g4]@2 ~ b3 ~@5", BU: "~@2 [c4,e4] ~@3 [g3,c4,e4] ~",
  BV: "~@2 [b3,d4,f4] ~@3 [b3,d4,f4] ~", BW: "~@6 [c4,e4,g4]@3 ~@9 [c4,e4,g4]@4 ~@2",
  BX: "~@6 [g3,b3,d4]@4 ~@6 c4@2 [d4,e4,g4]@4 c4 ~", BY: "~@7 [d4,g4]@2 ~@10 [c4,d4,e4,g4]@3 ~@2, ~@2 [c4,e4] ~@5",
  BZ: "~@4 c3 ~ [d4,e4,g4]@4 c3 ~ [d4,e4,g4]@3 ~ c3 ~ [d4,e4,g4]@4 c3 ~", // Em7
  CA: "~@4 c3 ~ [b3,d4,f4]@4 c3 ~ [b3,d4,f4]@3 ~@3 [b3,d4,f4]@4 ~@2", // Bdim
  CB: "~@6 d#4 [d4,e4]@3 c4 ~ a3@3 ~ g3 ~ [a3,d4]@4 ~@2, ~@6 g4@3 ~@9 b3@2 ~@4", // Dsus2 D5
  CC: "[~@4 g2 ~ [b3,d4,f4]@4 g2 ~ [b3,d4,f4]@4 g2 ~ [b3,d4]@3 ~ d#4 e4@2 ~@3 c3 ~ [c4,e4]@3 ~@7 c3 ~@2 g3@3 ~@2, ~@18 f4@4 d4@2 ~@6 d4 ~@11 [c4,e4]@3 ~@3]/2", // Bdim Bm C
  CD: "~@2 [g3,c4,e4,g4] ~@3 [g3,c4,e4,g4] ~", CE: "~@4 g3 ~ [b3,d4,f4]@4 ~ g3 [b3,d4,f4]@3 ~ g3 ~ [b3,d4,f4]@4 g3 ~",
  CF: "~@6 [c4,d4,e4,g4]@2 ~@10 [c4,d4,e4,g4]@3 ~@3", // C
  CG: "~@4 e4@2 [g4,c5]@4 e4 ~ [g4,c5]@4 e4 ~ [g4,c5]@4 e4 ~, ~@18 f#4 ~@5", CH: "~@3 [b3,d4,f4] ~@5 [b3,d4,f4] ~@2",
  CI: "[g3,c4,e4] ~@7", // C
})).s("gm_epiano2").gain(0.54)

// chords · electric guitar muted · "MUTED GTR"
const electric_guitar_muted = note(`<
  ~@12 A B C B A B A B A B A B A D C B A D A B A D A B A B C B A B A B A B C B A B A B A D A B A D A B A B A B A B A B A
  D A B A D A B A B A B A B A B A B A B A B A B A B C B A B A B A B A B A D A B A B A B A D A B A D A B A B A B A B A B
  A B A B A B C B A B A B A B A B A D C B A D C B A D A B A D C B A D A B A D C B A B C B A D A B A B A B A D A B A D A
  B A D A B A D ~@2 A B A B A B A B A B A B A B A B ~
>`.pickRestart({
  A: "~@6 [g3,c4,e4]@3 ~ [g3,c4,e4]@2 ~@6 [g3,c4,e4]@3 ~@3", B: "~@6 [b3,d4,g4]@3 ~ [b3,d4,g4]@2 ~@6 [b3,d4,g4]@2 ~@4",
  C: "~@6 [g3,c4,e4]@3 ~ [g3,c4,e4]@2 ~@6 [g3,c4,e4]@2 ~@4", D: "~@6 [b3,d4,g4]@3 ~ [b3,d4,g4]@2 ~@6 [b3,d4,g4]@3 ~@3",
})).s("gm_electric_guitar_muted").gain(0.35)

// chords · trumpet
const trumpet = note(`<
  ~@44 A B C B D ~@11 A B C B D ~@27 A B C B D ~@11 E F E G H ~@11 A B C B D ~@19 A B C B D ~@11 A B C B D ~@11 A B C B
  D ~@11 A B C B A B C B A B C B A B C B D
>`.pickRestart({
  A: "[c4,e4,c5]@3 ~@9 [c4,e4,c5]@3 ~ [e4,e5]@2 ~@3 [c4,e4,c5]@2 ~, ~@5 g4 ~@2", // C E C
  B: "[d4,f4,d5]@3 ~@9 [d4,f4,d5]@3 ~ [f4,a4,a5]@2 ~@3 [e4,g4,g5]@2 ~", // Dm F Em
  C: "[c4,e4,c5]@2 ~@10 [c4,e4,c5]@3 ~ [e4,e5]@2 ~@4 e4@2, ~@15 g4@2 ~@4 [c4,c5]@3", D: "[c4,e4,c5] ~@11",
  E: "[c4,c5,e5]@2 ~@10 [c4,c5,e5]@4 [e4,e5,g5]@2 ~@3 [c4,c5,e5]@2 ~", // C Em C
  F: "[d4,d5,f5]@3 ~@9 [d4,d5,f5]@3 ~ [a4,f5,a5]@2 ~@3 [g4,e5,g5]@2 ~", // Dm C
  G: "[d4,d5,f5]@3 ~@9 [d4,d5,f5]@3 ~ [a4,f5,a5]@2 ~@3 [g4,d5,g5]@2 ~", H: "[c4,c5,e5] ~@7",
})).s("gm_trumpet").gain(0.57)

// chords · trumpet · soft notes
const trumpet_soft = note(`<
  ~@44 A B A C D ~@11 A B A C D ~@27 A B A C D ~@27 A B A C D ~@19 A B A C D ~@11 A B A C D ~@11 A B A C D ~@11 A B A C
  A B A C A B A C A B A C D
>`.pickRestart({
  A: "c3@3 ~@9 c3@3 ~ e3@2 ~@3 c3@3", B: "d3@3 ~@9 d3@3 a3@2 ~@4 g3@3", C: "d3@3 ~@9 d3@3 ~ f3@2 ~@3 e3@2 ~",
  D: "c3 ~@7",
})).s("gm_trumpet").gain(0.13)

// drums · kick
const kick = s("bd").struct(`<
  ~@28 A@15 B A@4 C@15 A C@11 B C@3 A C@15 A C@15 A C@15 A C@23 A C@15 A C@12 A@4 C@10 A ~ A@17
>`.pickRestart({
  A: "x", B: "x ~@2 x", C: "x ~@10 x",
})).gain(0.69)

// drums · snare
const snare = s("sd").struct("<~@27 A@48 B A@118 ~@2 C A@2 D A@3 D A@3 D A@3 E F>".pickRestart({
  A: "~ x", B: "~ x ~ x ~@2", C: "x!2", D: "~@6 x ~@4 x", E: "~@3 x ~@8 x ~@9 x ~", F: "x",
})).gain(0.69)

// drums · hihat
const hihat = s("hh").struct("<~@11 [~ x] ~@16 [x ~ x!2 ~ x!2 ~ x!2 ~ x]!166 ~@2 [x ~ x!2 ~ x!2 ~ x!2 ~ x]!16 ~>")
  .gain(0.69)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<[x!2]!11 x [x!4]!16 ~@185>").gain(0.28)

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

// drums · high tom
const high_tom = s("ht").struct("<~@200 x ~@5 [~ x] ~@5 x>").gain(0.55)

// drums · crash
const crash = s("cr").struct("<~@27 A ~@166 B ~@9 B ~@3 B ~@4>".pickRestart({
  A: "~@3 x", B: "x",
})).gain(0.62)

// drums · claves
const claves = s("clave:2").struct("<~@12 [x!2 ~ x ~@2]!16 ~@185>").gain(2.03)

stack(
  bass, epiano2, electric_guitar_muted, trumpet, trumpet_soft, kick, snare, hihat, hihat_soft, open_hat, high_tom,
  crash, claves
)