// Per altri motivi — Battisti
// 97.2 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 84 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(97.2/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
const piano = note(`<
  A B A B A C A C D@2 E F G H E F D@2 A B A B I H E F G H E F I H A C A C A C A J@2 K L M N O P@4 Q@4 R S T U R S T V R
  S T W X S T U R S Y U R Z AA AB AA AB AC@4
>`.pickRestart({
  A: "[g4,c5] [c5,g5]", B: "[g4,c5] [a4,e5]", C: "[g4,c5]@8 e5@5 d5 c5@2, ~ a4",
  D: "[[f4,a4,c5,f5]@8 [g4,b4,e5]@2 d5 c5@2 b4 ~@2 [c4,e4]@8 [c4,e4,a4,b4]@8, ~@11 [d4,g4]@5 ~@16, ~@7 a4@5 ~@4]/2", // F Em C Am G5
  E: "[c4,f4,a4] [c4,f4,a4,b4]", F: "[c4,e4,a4] [c4,e4,g4]", G: "[f4,a4,c5,f5]@8 [g4,b4,e5]@3 d5@2 c5 b4@2",
  H: "[c4,e4,a4] [c4,e4,a4,b4]", I: "[f4,a4,c5,f5]@8 [g4,b4,e5]@3 d5@2 c5 [d4,g4,b4]@2",
  J: "[[g4,c5] a4 [e3,a3,c4] [e3,b3,d4], ~ e5@3]/2", K: "[g3,b3,e4] [f3,a3,c4]", L: "[f3,a3,d4] [g3,b3,d4]",
  M: "[b3,d4,g4]@4 [c4,e4,a4] a3 [a3,c4] [c4,e4]", N: "[e4,a4,c5] [e4,b4,d5]", O: "[e4,g#4,e5] [f4,a4,c5]",
  P: "[[f4,a4,d5]@8 [d4,g4,b4]@16 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2, ~@3 [a3,c4]@2 [b3,d4]@2 [c4,e4]]/4", // Dm G Am Bm C
  Q: "[g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 g4@3 a4@3 d5@2 [f4,a4,c5,f5]@8, [b3,d4] [c4,e4]@2 [d4,f#4]@2 [b3,e4]@2 ~]/4", // F Bm C D E5
  R: "[g4,b4,e5]@3 d5@2 c5 [d4,g4,b4]@2 [c4,e4,a4]@8", S: "[c4,e4,a4,b4] [c4,f4,a4]", T: "[c4,f4,a4,b4] [c4,e4,a4]",
  U: "[c4,e4,g4] [f4,a4,c5,f5]", V: "[c4,e4,g4]@3 [g4,c5,e5] [f4,a4,c5,f5]@4", W: "[c4,e4,g4] [c4,f4,a4]",
  X: "[g4,b4,e5]@3 d5 c5 b4@3 [c4,e4,a4]@8, ~ [d4,g4] ~@2", Y: "[c4,f4,b4] [c4,e4,a4]", Z: "[c4,e4,a4,b4] [g4,c5]",
  AA: "[c5,g5] [g4,c5]", AB: "e5@5 d5 c5@2 [g4,c5]@8, a4 ~", AC: "[[c5,g5] [g4,c5]@2 [g4,c5]@2 [g4,c5]@2 ~]/4",
})).s("gm_piano").gain(0.48)

// chords · acoustic guitar steel · "Chit" · C5
const acoustic_guitar_steel = note("<[[g3,c4]!16]!82 [[g3,c4]!8 [g3,c4]@2 ~@6] ~>")
  .s("gm_acoustic_guitar_steel").gain(0.1)

// bass · electric bass finger · "Basso"
const bass = note(`<
  A B A B A B A B C D E F C D E F G D H I H J K L M N O P Q R O S T U V W V W V X Y Z AA AB AC AD AE AF AG AH AI AJ AK
  AL AM AN AO AP AM AQ AR AS AT AU AV AW AT AX AY AZ BA BB BC BD BE BF BG BH BI BJ BK@4
>`.pickRestart({
  A: "f3 d3", B: "a#2 d3", C: "f2@8 ~@2 g2@4 ~ g2", D: "a2@8 ~@2 a2 g2 ~@4", E: "f2@8 ~@2 f2!2 ~@4",
  F: "a2@8 ~@2 c2!2 ~@4", G: "f2@4 ~ g2 ~@2", H: "f2@8 d2@4 ~@3 a2", I: "a#2@8 d2@7 d2", J: "a#2 d2",
  K: "f2@7 f2 ~ g2 g2@2 ~@3 g2", L: "a2@4 ~@4 a2 g2!2 g2@2 ~@2 g2", M: "f2@7 f2 f2@6 f2@2", N: "a2@4 ~@3 a2 c3@6 e2@2",
  O: "f2@7 f2 g2@6 g2@2", P: "a2@7 a2 g2@6 b2 c3", Q: "f2@7 f2!3 f2@2 ~@2 f2@2", R: "a2@5 ~@2 a2 c3@6 c2 e2",
  S: "a2@5 ~@2 a2 g2@6 e2@2", T: "f2@5 ~@2 f2 d2@6 a2@2", U: "a#2@5 ~@2 c3 d2@4 c2 d2 e2@2", V: "f2@5 ~@2 c3 d2@6 a2@2",
  W: "a#2@5 ~@2 d2 d2@4 c2 d2 e2@2", X: "a#2@5 ~@2 d2 d2@6 d2 e2", Y: "a2@2 ~ g#2", Z: "e2@3 e2@3 e2@2 ~@4 f2@4",
  AA: "d2@3 d2@3 d2@2 ~@4 g2@4", AB: "g2@3 g2@3 g2@2 ~@4 a1@4", AC: "a2@3 a2@3 a2@2 ~@4 g#2@4",
  AD: "e2@3 e2@3 e2@2 f2@4 f2@4", AE: "d2@3 d2@3 d2@2 g2@8", AF: "g1@7 g2 f2@7 f2", AG: "f2@3 f1@3 f2@2 g2@7 g2",
  AH: "g2@3 g1@3 g2@2 a2@7 a2", AI: "b2@3 b1@3 b2@2 b2@7 c3", AJ: "c3@4 c3@2 c2@2 d2@7 d2", AK: "d2@6 d2@2 e2@7 e2",
  AL: "e2@2 e2@2 e2@2 e2@2 f2@7 f2", AM: "g2@6 g2@2 a2@7 a2", AN: "g2@6 b2 c3 f2@7 f2", AO: "f2@6 f2!2 a2@6 a2@2",
  AP: "c3@3 g2@3 c2@2 f2@7 f2", AQ: "g2@2 g2@2 ~@2 b2 c3 f2@7 f2", AR: "f2@6 f2 g2 a2@4 ~@2 a2@2",
  AS: "c3@2 ~ c2 f2@2 ~ f2", AT: "g2@4 ~@3 g2 a2@6 a2@2", AU: "g2@4 ~@2 g2 a2 f2@7 f2", AV: "f2@6 f2!2 a2@4 ~@3 a2",
  AW: "c3 g2 f2 g2@2 c2 e2@2 f2@4 ~@2 f2!2", AX: "g2@4 ~@2 b2 c3 f2@7 f2", AY: "f2@4 f2@2 f2@2 a2@4 ~@3 a2",
  AZ: "c3@3 g2 c3 g2 e2 c2 f2@4 ~@2 f2!2", BA: "g2@4 ~@3 g2 a2@4 ~@2 a2@2", BB: "g2@4 ~@2 b2 c3 f2@4 ~@3 f2",
  BC: "d2@2 ~ f2 a2@2 ~ b2", BD: "c3 g2 e2 g2@3 c2 e2 f2@4 ~@3 f2", BE: "g2@4 ~@3 g2 a2@4 ~@3 a2",
  BF: "g2@4 ~@2 b2 c3 f2@4 ~@2 f2@2", BG: "d2@4 ~@3 a2 a#2@4 ~@3 c3", BH: "d3@2 d2@4 e2@2 f2@4 ~@3 f2",
  BI: "d2@4 ~@2 a2@2 a#2@5 ~@2 c3", BJ: "d3@4 d2@2 e2@2 f2@4 ~@3 c3",
  BK: "[d2@4 ~@3 a2 a#2@15 a2 a#2@15 a2 a#2@16 ~@8]/4",
})).s("gm_electric_bass_finger").gain(0.64)

// chords · piano · "Coro" · Em
const piano_2 = note(`<
  ~@8
  [~@2 e5!2 f5@2 ~@10]
  ~@7
  [~@2 e5!2 f5@2 ~@10]
  ~@48
  [~@10 [e5,g5]!2 f5@2 ~@2, ~@12 a5 ~@3]
  ~@18
>`).s("gm_piano").gain(0.24)

// chords · piano · "Coro" · soft notes · Em
const piano_soft = note(`<
  ~@8
  [~@6 e5!2 f5@2 ~@6]
  ~@7
  [~@6 e5!2 f5@2 ~@6]
  ~@48
  [~@14 [e5,g5]!2]
  [f5 ~@7, a5 ~@15]
  ~@17
>`).s("gm_piano").gain(0.08)

// drums · kick
const kick = s("bd").struct(`<
  ~@4 A@4 ~@10 B@4 C B@2 D C B@2 D C B@22 E B@3 F B@3 F B@3 F B@7 F B@6 G ~@3
>`.pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "x!2 ~ x", D: "~@4 x ~@7 x!3 ~", E: "~ x!3", F: "~@4 x!3 ~ x ~@3 x ~@3", G: "~ x ~@2",
})).gain(0.64)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@4 [~@11 x!2 ~@3]!2 [~@10 x!3 ~@3]!2 ~@10 [~@3 x ~@7 x ~@4]!62 [~@3 x ~@12] ~@3>")
  .gain(0.64)

// drums · china
const china = s("cr").struct("<~@22 A ~@3 A ~@3 A ~@22 B ~@3 B ~@3 B ~@3 B ~@7 B ~@10>".pickRestart({
  A: "x", B: "~ x",
})).gain(0.64)

// drums · ride
const ride = s("rd").struct("<A@40 B C@6 D E@5 F A@26 G ~@3>".pickRestart({
  A: "x!8", B: "x ~@2 x ~@2 x ~@9", C: "x ~@2 x ~@2 x ~@5 x ~@3", D: "x!5 ~ x ~", E: "x!4", F: "x ~ x ~ x!4",
  G: "x!5 ~@3",
})).gain(0.64)

stack(piano, acoustic_guitar_steel, bass, piano_2, piano_soft, kick, snare, mid_tom, china, ride)