// Il problema piu importante — Celentano
// 152 bpm, 3/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 129 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(152/3)

// 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 · electric guitar clean
const electric_guitar_clean = note(`<
  ~ A B C B D B E F G H I@2 J H K L M@2 N@2 A B C B D B E O J H I@2 G H P@2 M@2 N@2 A B C B D B Q R S T U V S T U V S T
  W X Y Z AA AB J H I@2 J H AC@2 M@2 N@2 A B C B D B Q R S T U V S T U V S T W X Y Z AA AB J H I@2 J H AD@2 M@2 N@2 A B
  C B D B Q AE A B C B D B Q AE
>`.pickRestart({
  A: "~@3 f3@2 [a3,c4]@3 ~ f3@2 [a3,c4]@2 ~ f3@2, f2@15 ~", B: "~@3 f3@2 [bb3,d4]@3 ~ f3@2 [bb3,d4]@3 f3@2, bb2@15 ~",
  C: "~@3 f3@2 [a3,c4]@2 ~@2 f3@2 [a3,c4]@3 f3@2, f2@15 ~", D: "~@3 f3@2 [a3,c4]@3 ~ f3@2 [a3,c4]@3 f3@2, f2",
  E: "~@3 f3@2 [a3,c4]@3 ~ f3@2 [a3,c4]@3 f3 ~, f2@15 ~", F: "[f2,f3,c4]@5 [g2,g3]@5 ~ [ab2,ab3]@5, a3@3 ~@13",
  G: "~@5 [g3,c4,e4]@7 ~@2 [g3,c4,e4]@2, a2@7 ~", H: "~@5 [c4,e4]@4 ~@2 [c4,e4]@5, a2@3 ~, ~@5 g3@2 ~@2 g3@7",
  I: "[~@5 a3@3 ~@3 a3@3 ~@2 [a3,d4,f4]@3 ~@2 a3@4 ~@2 a3@5, d3@6 ~ d3@7 ~@2, ~@5 [d4,f4]@8 ~@8 [d4,f4]@11]/2", // Dm
  J: "~@5 [c4,e4]@7 ~@2 [g3,c4,e4]@2, a2@7 ~, ~@5 g3@4 ~@7", K: "~@5 a3@3 ~@3 a3@3 d3@2, d3@3 ~, ~@5 [d4,f4]@8 ~@3",
  L: "d3@5 f3@5 ~ d3@3 ~@2, [a3,d4,f4]@7 ~", // Dm
  M: "[~@5 [bb3,d4]@4 ~@10 f3@2 [bb3,d4]@3 ~ f3@2 [bb3,d4]@5, bb2@7 ~ bb2@8, ~@3 f3@13 ~@16, ~@11 [bb3,d4]@9 ~@12]/2", // Bb
  N: "[~@5 [c4,e4]@4 ~@12 [g3,c4,e4]@4 ~@2 [g3,c4,e4]@2 ~@3, c3@7 ~ c3@7 ~, ~@3 g3@6 ~@2 [g3,c4,e4]@7 ~@14]/2", // C
  O: "[f2,f3,c4]@5 [g2,g3]@5 ~ [ab2,ab3]@4 ~, a3@3 ~@13", // F5 G Ab
  P: "[~@5 a3@3 ~@3 a3@3 ~@7 f3@5 ~ d3@4 ~, d3@6 ~ d3@4 ~@5, ~@5 [d4,f4]@8 ~@3 [a3,d4,f4]@16]/2", // Dm
  Q: "~@3 a3@2 [c4,f4]@3 ~ a3@2 ~@3 a3@2, f2@11 [c4,f4]@5", R: "~@5 [a3,c4,f4]@5 ~ gb2@4 ~, f2@7 ~@9",
  S: "~@5 [bb3,d4,f4]@6 ~@3 [bb3,d4,f4]@2, g2@13 ~@3, ~@5 g3@3 ~@3 g3@5", // Bb
  T: "~@5 bb3@5 ~ [g3,bb3]@5, c3@11 ~@5, ~@5 [c4,e4]@10 ~, ~@5 g3@3 ~@8", // Gm C
  U: "~@5 a3@3 ~@3 a3@2 ~ [c4,f4]@2, f2@7 ~, ~@5 [c4,f4]@8 ~@3", V: "~@5 [a3,c4,f4]@4 ~@2 [a3,c4,f4]@2 ~@3, f2@7 ~",
  W: "~@3 g3@2 [c4,e4]@3 ~ g3@2 [c4,e4]@3 g3@2, a2@13 ~@3", // C
  X: "~@3 a3 ~ [d4,f4]@4 ~@2 [d4,f4]@4 ~, d3@7 ~, ~@9 a3@5 ~@2", Y: "~@5 [g3,c4,e4]@5 ~ [g3,c4,e4]@3 ~@2, c3@7 ~",
  Z: "[f3,b3,d4]@5 [f3,b3,d4]@6 g2@3 ~@2, g2@9 ~@7", AA: "[c3,g3,bb3,e4]@4 ~ [c3,g3,bb3,e4]@4 ~@2 [c3,g3,bb3,e4]@2 ~@3",
  AB: "~@5 [c4,e4,bb4]@3 ~@8", // C7
  AC: "[~@5 a3@3 ~@3 a3@3 ~@7 f3@5 ~ d3@4 ~, d3@12 ~@2 d3@7 ~@11, ~@5 [d4,f4]@8 ~@3 [a3,d4,f4]@15 ~]/2", // Dm
  AD: "[~@5 a3@3 ~@3 a3@3 ~@7 f3@5 ~ d3@4 ~, d3@12 ~@2 d3@7 ~@11, ~@5 [d4,f4]@8 ~@3 [a3,d4,f4]@16]/2", // Dm
  AE: "~@5 [a3,c4]@4 ~@2 [a3,c4]@2 ~@3, f2@13 ~@3, ~@5 f4@6 ~@5", // Am
})).s("gm_electric_guitar_clean").gain(0.28).pan(0.3)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~ A B A C D E F G ~@2 H@2 ~@8 A B A C D I F G ~@2 H@2 ~@8 A B A C D I F J K L M N K L M N K L O N ~@6 H@2 ~@8 A B P C
  D E F J K Q M N K L M N K L O N ~@6 H@2 ~@8 P B A C D E F R P B A C D E F S
>`.pickRestart({
  A: "~@3 a3@2 [c4,f4]@4 ~@2 f4@3 c4 ~, ~@9 a3@4 ~@3, ~@11 c4@2 ~@3", // F5
  B: "~@3 bb3@2 [d4,f4]@4 ~@2 [d4,f4]@4 ~, ~@9 bb3@6 ~", C: "~@3 bb3@2 [d4,f4]@4 ~@2 [d4,f4]@3 ~@2, ~@9 bb3@6 ~",
  D: "~@3 a3@2 [c4,f4]@4 a3@2 [c4,f4]@3 ~@2", E: "~@3 bb3@2 [d4,f4]@4 bb3@2 [d4,f4]@3 bb3@2",
  F: "~@5 a3@3 ~@3 a3@5, ~@3 f3@4 ~@2 f3@6 ~", G: "f3@5 g3@5 ~ ab3@4 ~, a3 ~@3",
  H: "[~@16 c5@3 ~@2 c5@9 ~@2, ~@14 a4@4 ~ a4@11 ~@2]/2", I: "~@3 bb3@2 [d4,f4]@4 bb3@2 [d4,f4]@3 bb3 ~",
  J: "f3@5 g3@5 ~ ab3@5, a3 ~@3", K: "~@5 [g3,bb3]@7 ~@2 [g3,bb3] ~", L: "~@5 [e3,c4]@5 ~ [e3,c4]@2 ~@3",
  M: "~@5 [f3,a3]@6 ~@3 [f3,a3] ~", N: "~@5 [f3,a3]@4 ~@2 [f3,a3]@2 ~@3", O: "~@5 [e3,a3]@6 ~@3 [e3,a3] ~",
  P: "~@3 a3@2 [c4,f4]@4 ~@2 f4@3 c4@2, ~@9 a3@4 ~@3, ~@11 c4@2 ~@3", Q: "~@5 [e3,c4]@4 ~@2 [e3,c4]@2 ~@3",
  R: "bb3@4 ~ bb3@4 ~@2 [bb3,d4]@3 ~@2, d4 ~", S: "~@5 [f3,c4]@6 f2@3 ~@2, f2@7 ~@9",
})).s("gm_acoustic_guitar_steel").gain(0.43).pan(0.6)

// bass · acoustic bass
const bass = note(`<
  A B C D C E F G H I J K L I J K M N O P Q B C D C E F G H I J K L I J K M N O P Q B C D C E F R S T U V W T U V W T U
  X Y Z AA AB AC I J K L I J K M N O P Q B C D C E F R S T U V W T U V W T U X Y Z AA AB AC I J K L I J K M N O P Q B C
  D C E F R AD B C D C E F R AE
>`.pickRestart({
  A: "a2@5 c3@5 ~ a2@5", B: "f1@11 ~@3 f1 ~", C: "bb1@11 ~@3 bb1 ~", D: "f1@5 ~@3", E: "f1@12 ~@2 f1 ~",
  F: "bb1@8 ~@3 bb1@5", G: "f1@5 f1@4 ~@2 f1@4 ~", H: "f1@4 ~ g1@5 ~ ab1@3 ~@2", I: "a1@13 ~ e1@2", J: "a1@9 ~@2 a1@5",
  K: "d2@9 ~@2 a1@5", L: "d2@8 ~@3 d2@4 ~", M: "d2@5 f2@5 ~ d2@4 ~", N: "bb1@13 ~ f1 ~", O: "bb1@15 ~", P: "c2@13 ~@3",
  Q: "c2@5 d2@5 ~ e2@4 ~", R: "f1@10 ~ c2@4 ~", S: "f1@11 gb1@5", T: "g1@9 ~@2 g1@5", U: "c2@8 ~@3 c2@5",
  V: "f1@13 ~ c2 ~", W: "f1@10 ~ f1@4 ~", X: "a1@10 ~ a1@5", Y: "d2@9 ~@2 d2@4 ~", Z: "c2@8 ~@3 c2@4 ~",
  AA: "g1@9 ~@2 g1@2 ~@3", AB: "c2@5 c2@4 ~@2 c2@3 ~@2", AC: "c2@5 ~@11", AD: "bb1@9 ~@2 bb1@4 ~",
  AE: "f1@7 ~@4 f1@3 ~@2",
})).s("gm_acoustic_bass").gain(0.52)

// chords · piano
const piano = note(`<
  A B C D E F@2 G H I@2 J K I@2 J L M N O P Q R S T U R V W I@2 J X I@2 J Y M N O P Q R Z T U R AA AB AC AD AE AF AC AD
  AE AF AC AD AG AH AI AJ AK AL I@2 J X I@2 J AM M N O P AN R Z T U R AA AB AC AD AE AF AC AD AE AF AC AD AG AH AI AJ AK
  AL I@2 J X I@2 J AM M N O P Q R Z T U R AA AO Q R Z T U R AA AP
>`.pickRestart({
  A: "ab5 a5@5 c6@5 a5@5", B: "f5@13 ~@3", C: "f5@3 ~ c6 c6@2 ~@4 c6@2 ~@3", D: "c6@9 ~@2 c6@2 ~@3",
  E: "c6@5 ~ f5@4 ~ c6@3 ~@2, b5 ~@10 b5 ~@4", F: "b5 c6@5 f5@4 ~ c6@3 ~@2, ~@11 b5 ~@4", G: "f5@4 ~ f5@4 ~@2 f5@4 ~",
  H: "f5@5 g5@4 ~@2 ab5@4 ~",
  I: "[~@5 [c5,e5]@3 ~ a4@2 c5@2 ~ a4@2 ~@5 [c5,e5]@3 ~ a4@2 [c5,e5]@3 a4@2, a2@14 c5@5 ~ a3@12, ~@4 a3@12 a2@15 ~, ~@11 e5@8 ~@13]/2", // C
  J: "~@5 [d5,f5]@3 ~ a4@2 d5@2 ~ a4@2, d3@15 ~, ~@4 a4@2 ~@5 f5@5", // Dm
  K: "~@5 [d5,f5]@3 ~ a4@2 [d5,f5]@3 a4@2, d3@15 ~, ~@2 a4 ~@5", L: "[d2,d3]@5 [f2,f3]@5 ~ [d2,d3]@5",
  M: "~@5 [f4,bb4]@3 ~ d4@2 [f4,bb4]@3 d4 ~, bb2@7 ~, ~@2 d4 ~@5", // Bb5
  N: "~@5 [f4,bb4]@3 ~ d4@2 [f4,bb4]@3 d4 ~, bb2@15 ~, ~@2 d4 ~@5", // Bb5
  O: "~@5 [g4,c5]@3 ~ e4@2 ~@3 e4@2, c3@15 ~, ~@4 e4@2 ~@5 [g4,c5]@5", // C5
  P: "~@4 e4 [g4,c5]@3 ~ e4@2 [g4,c5]@3 e4 ~, c3@15 ~", Q: "~@5 [a4,c5]@3 ~ f4@2 [a4,c5]@3 f4@2, f2@15 ~, ~@2 f4 ~@5",
  R: "~@5 [bb4,d5]@3 ~ f4@2 [bb4,d5]@3 f4 ~, bb2@15 ~, ~@2 f4 ~@5", // Bb
  S: "~@5 a4@2 c5@2 f4@2 [a4,c5]@3 f4 ~, f2@15 ~, ~@4 f4@3 ~@9", // Am
  T: "~@4 f4 [bb4,d5]@3 ~ f4@2 bb4@3 f4 ~, bb2@15 ~, ~@11 d5 ~@4", // Bb
  U: "~@5 [a4,c5]@3 ~ f4@2 [a4,c5]@3 f4 ~, f2, ~@2 f4 ~@5", // Am
  V: "~@5 [c4,f4]@3 ~ a3@2 [c4,f4]@2 ~ [a3,c4] ~, f2@3 ~, ~@2 a3 ~@4 f4", // F5 Am
  W: "f5@4 ~ g5@4 ~@2 [c4,ab5]@5, c4 ~@7, f3 ~@3 [f3,c4]@5 ~@2 f3@3 ~@2", // Fm F5
  X: "~@5 [d5,f5]@3 ~ a4@2 [d5,f5]@3 a4 ~, d3@15 ~, ~@2 a4 ~@5", Y: "d2@5 f2@5 ~ d2@4 ~, [a3,d4,f4]@3 ~",
  Z: "~@5 [a4,c5]@3 ~ f4@2 [a4,c5]@3 f4 ~, f2@15 ~, ~@4 f4@3 ~@9", // Am
  AA: "~@5 [a4,c5]@3 ~ f4@2 [a4,c5]@3 f4 ~, f2@13 ~@3, ~@2 f4 ~@5", AB: "~@5 [f4,a4,c5]@5 ~ gb2@4 ~, f2@5 ~@3",
  AC: "~@5 [g4,bb4]@4 d4@2 ~@3 d4@2, g2@11 ~@5, ~@4 d4@2 ~@5 [g4,bb4]@5", // Gm
  AD: "~@5 [g4,bb4]@3 ~ e4@2 [g4,bb4]@3 e4@2, c3@13 ~@3, ~@2 e4 ~@5", // Gm
  AE: "~@5 [a4,c5]@5 ~ f4@2 ~ f4@2, f2@7 ~, ~@5 f4@3 ~@3 [a4,c5]@5", // Am
  AF: "~@5 [a4,c5]@5 ~ [f4,a4,c5]@3 ~@2, f2@7 ~, ~@5 f4@3 ~@8", // Am F
  AG: "~@5 [e4,a4]@3 ~ c4@2 [e4,a4]@3 c4@2, a2@11 ~@5, ~@2 c4 ~@5", // A5
  AH: "~@5 [f4,a4]@3 ~ d4@2 [f4,a4]@3 d4 ~, d3, ~@2 d4 ~@5", AI: "~@5 [e4,g4]@3 ~ c4@2 [e4,g4]@3 c4 ~, c3, ~@2 c4 ~@5",
  AJ: "~@5 [b3,d4,f4]@4 ~@2 [g2,b3,d4,f4]@4 ~, g2@5 ~@3", AK: "[c3,g3,bb3]@4 ~ [c3,g3,bb3]@4 ~@2 [c3,g3,bb3]@3 ~@2",
  AL: "~@5 [c2,c3,g3,bb3,c4,e4]@4 ~@7", AM: "d2@5 f2@5 ~ d2@5, [a3,d4,f4]@3 ~",
  AN: "~@5 [a4,c5]@3 ~ f4@2 [a4,c5]@3 f4 ~, f2@15 ~, ~@2 f4 ~@5", // Am
  AO: "~@5 [bb3,d4]@3 ~ f3@2 [bb3,d4]@3 f3 ~, bb2@7 ~, ~@2 f3 ~@5", AP: "~@4 a3 [a3,c4]@4 ~@2 [a3,c4]@3 ~@2, f2@7 ~",
})).s("gm_piano").gain(0.43).pan(0.7)

// other · tenor sax
const tenor_sax = note(`<
  ~@9 A B C@2 A B D E ~@4 F ~@2 G H I J ~ A B C@2 A B D E ~@4 F ~@2 G H I J ~@3 K L ~@2 K L ~@8 A B C@2 A B D E ~@4 F
  ~@2 G H I J ~@3 K L ~@2 K L ~@8 A B C@2 A B D E ~@4 F ~@2 G H I J ~ F ~@2 G H I J ~
>`.pickRestart({
  A: "c4@3 ~ c4@2 c4@2 ~ c4 ~ c4@2 ~ c4 ~", B: "c4@4 ~@2 c4@5 g3@5", C: "[a3@3 ~]/2", D: "a3@10 ~ g3@4 ~",
  E: "a3@10 ~ g3@3 ~@2", F: "c4@3 bb3@2 ~ a3@10", G: "~@5 d4@5 ~ d4@5", H: "c4@15 ~", I: "d4@5 ~ d4@5 d4@5", J: "c4",
  K: "f4@4 ~ f4@4 ~@2 f4@5", L: "f4@4 ~ f4@9 ~@2",
})).s("gm_tenor_sax").gain(0.46)

// drums · kick
const kick = s("bd").struct("<~ A@15 B A@19 B A@26 C B A@7 B A@26 C B A@7 B A@19 B>".pickRestart({
  A: "x ~@6 x", B: "x", C: "x ~@4 x ~@5 x ~@4",
})).gain(0.66)

// drums · snare
const snare = s("sd").struct(`<
  ~ A@6 B C A@7 ~ A@10 B C A@7 ~ A@10 B C A@14 D E A@7 ~ A@10 B C A@14 D E A@7 ~ A@20
>`.pickRestart({
  A: "~@5 x ~@5 x ~@4", B: "~@5 x ~@5 x ~@3 x", C: "~@2 x ~ x!2 ~@3 x ~ x!2 ~ x ~", D: "x ~@4 x ~@5 x ~@4",
  E: "~@5 x ~@6 x ~ x ~",
})).gain(0.59)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@7 A B ~@18 A B ~@18 A B ~@34 A B ~@44>".pickRestart({
  A: "~@2 x ~@2 x ~@2", B: "x ~@6 x ~@8",
})).gain(0.37)

// drums · low tom
const low_tom = s("lt").struct("<~@7 A ~@19 A ~@19 A ~@16 B ~@18 A ~@16 B ~@28>".pickRestart({
  A: "~@4 x ~@4 x ~@4 x ~", B: "~@11 x ~@4",
})).gain(0.44)

// drums · pedal hat
const pedal_hat = s("hh").struct("<~@16 A ~@19 A ~@27 A ~@7 A ~@27 A ~@7 A ~@20>".pickRestart({
  A: "~@11 x ~@4",
})).gain(0.66)

// drums · open hat
const open_hat = s("oh").struct("<~@63 [x ~@4 x ~@5 x ~@4] ~@35 [x ~@4 x ~@5 x ~@4] ~@29>").gain(0.52)

// drums · crash
const crash = s("cr").struct("<~@9 A ~@6 A ~@12 A ~@6 A ~@12 A ~@14 B A ~@6 A ~@12 A ~@14 B A ~@6 A ~@20>".pickRestart({
  A: "x", B: "~@5 x ~@10",
})).gain(0.44)

// drums · ride
const ride = s("rd").struct("<~ A@15 ~ A@19 ~ A@26 ~@2 A@7 ~ A@26 ~@2 A@7 ~ A@20>".pickRestart({
  A: "x ~@4 x ~@5 x ~@4",
})).gain(0.52)

stack(
  electric_guitar_clean, acoustic_guitar_steel, bass, piano, tenor_sax, kick, snare, snare_soft, low_tom, pedal_hat,
  open_hat, crash, ride
)