// Per colpa di chi — Zucchero
// 131 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 102 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(131/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.

// bass · electric bass finger · "PICKBASS"
const bass = note(`<
  ~@4 A B C@2 A B C@2 A B C@2 D E F@2 A B G@2 H B I J A B C@2 A B C@2 A B C@2 D E F@2 A B G@2 H B I J K L M N L@2 O P Q
  ~ R B C@2 A B C@2 D E F@2 A B G@2 H B I J K L M N L@2 O P S L M N L@2 O P Q T U ~
>`.pickRestart({
  A: "e2 ~ e2@2 g2 ~ g2@2 a2@2 ~ a2 g2 ~ e2@2, ~@14 f2 ~", B: "~@2 e2@2 g2 ~ g2@2 a2@2 ~ a2 g2 ~ g2!2",
  C: "[e2 ~ e2@2 g2 ~ g2@2 a2@2 ~@2 g2@2 e2@4 e2@2 g2 ~ g2@2 a2@2 c#2@2 d2 ~ d#2@2, ~@11 a2@2 ~@19]/2",
  D: "a2@2 a2@2 c#3 ~ c#3@2 d3 ~ d3@2 d#3@2 e3@2", E: "a2 ~ a2 ~ c#3 ~ c#3@2 d3 ~ d3@2 d#3@2 e3@2",
  F: "b2 ~ b2 ~ d#3 ~ d#3@2 e3 ~ e3@2 f3@2 f#3 ~",
  G: "[e2 ~ e2@2 g2 ~ g2@2 a2@2 ~@2 g2@2 e2@4 e2@2 g2 ~ g2@2 d2@3 ~ a1@4, ~@11 a2@2 ~@19]/2",
  H: "e2@3 ~ g2 ~ g2@2 a2@2 ~ a2 g2 ~ e2@2, ~@14 f2 ~", I: "e2 ~ e2@2 g2 ~ g2@2 a2@2 ~@2 g2@2 e2@2, ~@11 a2@2 ~@3",
  J: "c3@3 ~ d3@3 ~ a2@2 c#2@2 d2 ~ d#2@2", K: "e2 ~ e2 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~",
  L: "e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~", M: "e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1!2 g1@2 g#1@2",
  N: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ [a1,a#1] b1 e1 ~", O: "e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1@2",
  P: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ [a1,a#1] b1 ~@2", Q: "e1 ~@7",
  R: "~@2 e2@2 g2 ~ g2@2 a2@2 ~ a2 g2 ~ e2@2, ~@14 f2 ~", S: "~@2 e2 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~ e1 ~", T: "~@12 d2@3 ~",
  U: "e2@3 ~@13",
})).s("gm_electric_bass_finger").gain(0.6)

// chords · piano · "HONKYTONKY"
const piano = note(`<
  A B C D A B C D A B C D A B C D E F G H I J C K I L C M A B C D A B C D A B C N E F G H I O C K I P@2 M Q R S T U R V
  W X Y A B C D A B Z AA E F G H I O C K I P@2 M Q R S T U R V W Q R S T U R V W X ~ AB AC
>`.pickRestart({
  A: "[e3,g#3]@2 [b3,e4] b3 g#3 e4 ~ g#3 [a2,a3]@2 e4 c#4 ~ e4 c#4 a3, ~@3 b3 ~@2 a3 ~", // E E5 A
  B: "[e3,g#3]@2 [b3,e4] b3 g#3 e4 ~ g#3 [a2,a3]@2 e4 c#4 a3 e4 c#4 a3, ~@3 b3 ~ g3 a2 g3", // E E5 A
  C: "[e3,g#3]@2 [b3,e4] b3 g#3 e4 ~ g#3 [a2,a3]@2 e4 c#4 a3 e4 c#4 a3, ~@2 e3 b3 ~ g3 a2 g3", // E E5 A
  D: "g#3@2 e4 b3 g#3 e4 ~ g#3 [a2,a3]@2 e4 c#4 ~ e4 ~ a3, ~@3 b3 ~ g3 [a2,a3] g3", // A
  E: "a3 c#4 e4 a3 c#4 e4 a3 d4 e4 a3 d4 [e4,a5] a3 ~ [e4,a5] ~, ~@2 a5@2 ~ a5@2 ~ a5@2 ~@3 d4@2 ~", // A5
  F: "a3 c#4 [e4,a5] a3 c#4 [e4,a5] a3 d4 [e4,a5] a3 d4 [e4,a5] a3 ~ e4@2, ~@14 a5 ~", // A5
  G: "b3 d#4 [f#4,b5] b3 d#4 [f#4,b5] b3 e4 [f#4,b5] b3 e4 [f#4,b5] b3 ~ f#4@2, ~@13 e4@2 ~, ~@14 b5 ~", // B5
  H: "b3 d#4 [f#4,b5] b3 d#4 [f#4,b5] ~ e4 [f#4,b5] ~@2 [f#4,b5] b3 e4 [f#4,b5] ~, ~@6 b3@2 ~ b3@2 ~@5, ~@5 e4 ~@2", // B5
  I: "[e3,g#3,e5]@2 [b3,e4] b3 g#3 e4 ~ g#3 [a2,a3,c#5]@2 e4 c#4 ~ e4 c#4 a3, ~@4 d5@2 b3@2 ~@3 b4@3 ~@2, ~@6 a3 ~", // E E5 A
  J: "[e3,g#3]@2 [b3,e4,b4] b3 [g#3,g4] [e4,g#4] ~ g#3 [a2,a3]@2 ~ c#4 a3 ~ c#4 a3, a4 ~@5 b3@2 ~@2 [g3,e4]@3 e4@2 ~, ~@7 e4@3 ~@2 a2@2 g3@2", // E E5 G#maj7 E A C
  K: "g#3@2 e4 b3 g#3 e4 ~ g#3 [a3,d4,f#4]@3 ~ [a3,c#4,e4]@4, ~@3 b3 ~@4", // D A
  L: "[e3,g#3]@2 [b3,e4,b4] b3 [g#3,g4] [e4,g#4] ~ g#3 [a2,a3]@2 ~ c#4 a3 ~ c#4 a3, a4 ~@5 b3@2 ~@2 [g3,e4]@3 e4@3, ~@7 e4@3 ~@2 a2@2 g3@2", // E E5 G#maj7 E A C
  M: "[g3,c4,e4]@3 ~ [a3,d4,f#4]@3 ~ [a3,c#4,e4]@8", // C D A
  N: "g#3@2 [e4,a#5,d#6,a#6] [b3,b5,d#6,e6,b6] [g#3,b5,e6,b6] [e4,b5,e6,b6] [b5,e6,b6] [g#3,b5,e6,b6] [b5,e6,b6]!2 [e4,b5,e6,b6] [c#4,b5,e6,b6] [b5,e6,b6] e4 [b5,e6,b6] a3, ~@3 b3 [a2,a3] g3 [a2,a3] g3", // D# Emaj7 E E5 E E5 C#m7 E5 …
  O: "[e3,g#3]@2 [b3,e4,b4] b3 [g#3,g4] [e4,g#4] ~ g#3 [a2,a3]@2 ~ c#4 a3 e4 c#4 a3, a4 ~@5 b3@2 ~@2 [g3,e4]@3 ~ g3@2, ~@7 e4@3 ~@2 a2@2 ~@2", // E E5 G#maj7 E A C
  P: "[[e3,g#3]@2 [b3,e4,b4] b3 [g#3,g4] [e4,g#4] ~ g#3 [a2,a3]@2 ~ c#4 a3 ~ c#4 a3 [e3,g#3]@2 [b3,e4] b3 g#3 e4 ~ g#3 [a2,a3]@2 e4 c#4 a3 e4 c#4 a3, a4 ~@5 b3@2 ~@2 [g3,e4]@3 e4@5 ~@4 b3@2 ~@6 g3@2, ~@7 e4@3 ~@2 a2@2 g3@2 ~@4 e3@2 ~@4 g3@2 a2@2 ~@2]/2", // E E5 G#maj7 E A E E5 A …
  Q: "[e2,e3,g#3,b3,e4]@15 ~", R: "[e2,f#3,a3,d4]@15 ~",
  S: "[e2,f#3,a3,d4]@3 [f#3,a3,d4] e2 ~ [f#3,a3,d4]@2 ~ [f#3,a3,d4]@2 e2 [f#3,a3,d4]@2 e2 ~, ~@4 e2 ~@3", // D
  T: "[e3,a3,c#4]@2 ~ [e3,a3,c#4] ~@2 [e3,a3,c#4]@2 ~ [e3,a3,c#4]@2 ~ [e3,a3,c#4]@2 ~@2", U: "[e3,g#3,b3,e4]@15 ~",
  V: "[e2,f#3,a3,d4]@3 [f#3,a3,d4] e2 ~ [f#3,a3,d4]@2 ~ [f#3,a3,d4]@2 ~ [f#3,a3,d4]@2 e2 ~, ~@8 e2@2 ~ e2@2 ~@3", // D
  W: "[e3,a3,c#4]@3 [e3,a3,c#4] ~@2 [e3,a3,c#4]@2 ~ [e3,a3,c#4]@2 ~ [e3,a3,c#4]@2 ~@2", X: "[e3,g#3,b3,e4] ~@7",
  Y: "~@3 [d3,f#3,a3,d4]", // D
  Z: "[e3,g#3]@2 [b3,e4] b3 g#3 e4 ~ g#3 [a2,a3]@2 e4 c#4 a3 e4 c#4 [a3,e4,a#4], ~@2 e3 b3 ~ g3 a2 g3", // E E5 A
  AA: "[e4,b4] ~ [e4,b4] b3 [g#3,e4,b4] e4 [e4,b4] g#3 [a2,a3]@2 e4 c#4 [f6,g6,a6,b6] e4 [a5,b5,c6] [a3,e5,f5,g5], g#3@2 ~@4 b3@2 [e4,b4] ~ [g3,b4]@2 [a2,a3]@2 g3@2", // E5 E E5 A G7 Am A7 E5 …
  AB: "~@4 [e4,g#4,a#5] g#4!2 ~ [e4,g#4,b5] [e4,g#4] [e4,g#4,b5] [e4,b5] [g#4,b5] [e4,g#4,d5,b5] g#4 [e4,g#4,b5], ~@4 [d5,e6]@5 ~ d5@2 ~@4, ~@2 e5 ~@5, ~@5 [e4,b5]@3 ~@8", // A#m7b5 E E5 G#m E7 E Dsus2 E5
  AC: "[d5,b5] [e4,g#4,d5,b5] [e4,g#4] [e4,g#4,d5,b5] [d5,b5] [e4,g#4,d5,b5] [e4,g#4] [e4,g#4,d5,b5] [d5,b5] [e4,g#4,d5,b5] g#4 [e4,g#4,d5,b5] [d5,b5] [e4,g#4,d5,b5] [e4,g#4] [e4,g#4,d5,b5]", // G E7 E E7 G E7 E E7 …
})).s("gm_piano").gain(0.48).pan(0.7)

// chords · piano · "HONKYTONKY" · soft notes
const piano_soft = note(`<
  A B ~ C A B ~ C A B ~ C A B ~ C ~ D ~@2 A B ~ E A B ~@2 A B ~ C A B ~ C A B ~ C ~ D ~@2 A B ~ E A B ~@12 A B ~ C A B ~
  F ~ D ~@2 A B ~ E A B ~@20 G@2
>`.pickRestart({
  A: "~@2 e3 ~@2 g3 a2 g3", B: "~@2 e3 ~@5", C: "e3@2 b3 ~ e3@2 ~@8 c#4 ~", D: "~@13 d4 ~@2", E: "e3@2 b3 ~ e3@2 ~@10",
  F: "e3@2 b3 ~ e3@2 ~@7 [d6,e6] c#4 ~", G: "[~@8 e6 ~@3 d5 ~ e4 d5 ~@5 e6 ~ e6@3 e4 e6 e6@4, ~@10 e6@11 ~@11]/2",
})).s("gm_piano").gain(0.28).pan(0.7)

// chords · rock organ · "ORGAN"
const rock_organ = note(`<
  ~@20 A@3 B C@3 D ~@6 E F G ~@8 H@2 B C@3 D I J@2 K L M N O P ~@3 Q@2 R ~@8 H@2 B C@3 D ~@17 S T ~
>`.pickRestart({
  A: "[e6@28 [a5,a#5] g5 a5@8 g5@4 e5 ~@5, d#6 ~@47]/3", B: "~@4 [d5,e5,g5] ~ d5 ~ [d5,f#5]@4 [c#5,e5]@3 ~, ~@8 a5@7 ~",
  C: "[~@4 g5@2 a5 ~@2 b5@2 ~ b5@22 a#5 g5 a5@2 g5@2 e5@2 g5 ~ a5@2 g5 ~, ~@9 a#5 ~@2 a#5 ~@35]/3",
  D: "[c5,e5,g5] [d5,f#5,a5] [e5,a5,c#6]@2", E: "~@13 b5 d6 ~",
  F: "[b5,e6,g6]@3 ~ [b5,e6,g6]@3 ~ a#5 [g5,a5] e5 [e5,a5] ~ g5 e5@2, d#6 ~@15", // Em Gsus2 A5
  G: "d5 [a4,b4,c5] [f4,g4] [d4,e4] ~@12", H: "[~@12 [a5,a#5] g5 a5@8 g5@4 e5 ~@5]/2", I: "[g#5,b5]@15 ~",
  J: "[[a5,d6]@31 ~]/2", K: "[a5,c#6]@15 ~", L: "[g#5,b5]@15 ~, a5 ~@15", M: "[a5,d6]", N: "[a5,d6]@15 ~",
  O: "[a5,c#6]@13 ~@3", P: "[e5,g#5,b5,e6]@3 [e5,f5,g5,a5] [b4,c5,d5] [g4,a4] f4 ~@9",
  Q: "[~@12 [e6,g6]@11 ~ [a5,a#5] g5 e5 a5@2 g5 e5@2, ~@12 [d#6,f#6] ~@19]/2", R: "~ [c5,d5] [f4,g4,a4,b4] e4 ~@12",
  S: "~@12 [d5,f#5,a5,d6]@3 ~", T: "[e5,g#5,b5,e6] ~@7",
})).s("gm_rock_organ").gain(0.24).pan(0.8)

// other · brass section · "BRASS"
const brass_section = note(`<
  ~@52 A B C D E F G D ~ H I ~@4 J K ~@13 A B C D E F G D A B C D E F G L ~ M N ~
>`.pickRestart({
  A: "[g#4,g#5]@2 ~ [g#4,g#5] ~@12", B: "[f#4,f#5]@3 [f#4,f#5] ~@10 [f#4,f#5] ~",
  C: "[e4,e5]@3 [e4,e5] ~@2 [e4,e5] ~@5 [e4,e5] ~@3", // E
  D: "[e4,e5]@2 ~ [e4,e5] ~@2 [e4,e5] ~@2 [b3,b4] [c#4,c#5] ~ e4@2 [c#4,c#5] ~, ~@12 e5 ~@3", // E B C#
  E: "~ g#5@2 [g#4,g#5] ~@10 [g#4,g#5] ~, g#4 ~@7", F: "[f#4,f#5]@3 [f#4,f#5] ~@10 f#5 ~",
  G: "[e4,e5]@3 [e4,e5] ~@2 [e4,e5] ~@7 [e4,e5] ~", H: "~@13 d6@3, ~@3 [f#4,a4,d5]", I: "[g#4,b4,e5,e6] ~@7, a#4 ~@15",
  J: "~@6 [f#4,d5,f#5] [g4,d#5,g5]", K: "[g#4,e5,g#5] ~@7", L: "[e4,e5]@2 ~ [e4,e5] ~@2 [e4,e5] ~@9",
  M: "~@12 [d5,d6]@3 ~", N: "[e5,e6] ~@7",
})).s("gm_brass_section").gain(0.45)

// other · distortion guitar · "DISTORTED"
const distortion_guitar = note("<~@60 A@2 B ~@35 A@2 C ~>".pickRestart({
  A: "[d5@2 b4 a4 d5 b4 a4 g4 b4 a4 g4 e4 a4 g4 e4 a4@2 g4 e4 g4 e4 d4 e4 d4 b3 d4 b3 a3 g3@4]/2", B: "e3@3 ~@13",
  C: "e3 ~@15",
})).s("gm_distortion_guitar").gain(0.33).pan(0.3)

// other · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note("<~@3 A B@3 C ~@15 D ~@3 E B@3 C ~@15 D ~@3 F ~@25 D ~@3 F ~@20>".pickRestart({
  A: "~@7 g3", B: "g#3 g3 g#3 e4 ~ e4@2 g3", C: "g#3@2 g3@2 g#3@2 e4@2 ~@2 e4@3 ~@3", D: "~@2 [d3,a3] [a2,e3]",
  E: "[c3,g3]@2 [d3,a3]@2 [a2,e3]@3 g3", F: "[c3,g3]@4 [d3,a3]@4 [a2,e3]@7 ~",
})).s("gm_overdriven_guitar").gain(0.39).pan(0.8)

// drums · kick
const kick = s("bd").struct("<~@4 A@56 ~ B A@36 ~ B C ~>".pickRestart({
  A: "x!4", B: "~@3 x", C: "x",
})).gain(0.8)

// drums · snare
const snare = s("sd").struct("<~@4 A@23 B A@23 B A@8 ~@2 A@19 B A@16 ~@4>".pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@7 x ~ x!2",
})).gain(0.8)

// drums · hihat
const hihat = s("hh").struct("<~@4 [x!4]!56 ~@2 [x!4]!36 ~@4>").gain(0.72)

// drums · open hat
const open_hat = s("oh").struct("<~@4 [~ x ~ x ~ x ~ x]!56 ~@2 [~ x ~ x ~ x ~ x]!36 ~@4>").gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct("<~@89 [~@3 x] ~@12>").gain(0.8)

// drums · high tom
const high_tom = s("ht").struct("<~@89 [~@13 x!2 ~] ~@12>").gain(0.8)

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

// drums · tambourine
const tambourine = s("tb").struct("<~@4 A@55 B ~@2 A@27 B A@7 B ~@4>".pickRestart({
  A: "x!16", B: "x!15 ~",
})).gain(0.56)

stack(
  bass, piano, piano_soft, rock_organ, brass_section, distortion_guitar, overdriven_guitar, kick, snare, hihat,
  open_hat, mid_tom, high_tom, crash, tambourine
)