// Fumo negli occhi — Celentano
// 112 bpm, 4/4, key D minor. 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 102 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(112/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 · "FUMO NERO"
const bass = note(`<
  ~@5 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B C D C D C D C D A B A B A B A B E B A B A B A B A
  B A B A B A B C D C D C D C D F@4 G H F@2 A B A B A B A I A B A B A B A B J
>`.pickRestart({
  A: "d1@2 d1@2 d2@2 a1 c2 ~ c2 a1@2 c2@2 d2@2", B: "d1@2 d1@2 d2@2 a1 c2 ~ c2 b1@2 a1@2 f1@2",
  C: "e1@2 e1@2 e2@2 b1 d2 ~ d2 b1@2 d2@2 e2@2", D: "e1@2 e1@2 e2@2 b1 d2 ~ d2 db2@2 b1@2 g1@2",
  E: "d1@2 ~ d1@3 d1@3 c2 a1@2 c2@2 d2@2", F: "d1 ~ d1@13 ~", G: "a1 ~ a1@13 ~", H: "f1 ~ f1@13 ~",
  I: "d1 ~ e1 ~ f1@2 ~ f1 g1@2 ab1@2 a1 d1@3", J: "d1@15 ~",
})).s("gm_electric_bass_finger").gain(0.53)

// chords · piano
const piano = note(`<
  ~@5 A B C B A B C B A B C B A B C B A B C B A B C B A B C B A B C B ~@8 A B C B A B C B ~ B C B A B C B A B C B A B C
  B ~@8 D E F G H I F J ~@12 A B C B A
>`.pickRestart({
  A: "[d4,e4,f4,a4]@15 ~", B: "[c4,d4,e4,g4]@15 ~", C: "[bb3,c4,d4,f4]@15 ~", D: "~@3 [a3,c4,e4,f4]@12 d2, d2@15 ~",
  E: "~@3 [c4,d4,f4,g4]@11 d3 a2", F: "~@3 [a3,c4,e4,f4]@12 d3, d2@15 ~", G: "~@3 [c4,d4,f4,g4]@11 d3 a2, d2@15 ~",
  H: "~@3 [a3,c4,e4,f4]@12 d3, a1@15 ~", I: "~@3 [c4,d4,f4,g4]@12 d3, d2@15 ~",
  J: "~@3 [c4,d4,f4,g4]@12 ~, d2@15 ~, ~@2 a2@13 ~", // Csus4
})).s("gm_piano").gain(0.32).pan(0.4)

// chords · electric guitar jazz · "E.GUITAR"
const electric_guitar_jazz = note(`<
  ~@4 A B@2 C D E@2 C F ~@4 G H I H G J G H G J G H ~@8 K L M N K L M O B@2 C P E@2 C Q ~@4 G H I H ~@8 K L M N K L M N
  ~@8 R S T U V W X Y V W X Y V W X Y ~
>`.pickRestart({
  A: "~@14 e4 f4", B: "[e4 f4 [d4,e4] c4 d4@7 ~ d4 e4 f4 g4@5 e4@4 c4@4 a3@4]/2", C: "c4 d4@11 ~@2 a3 ~",
  D: "c4@4 bb3@3 ~ a3@5 ~ e4 f4", E: "[e4@2 d4 c4 d4@7 ~ d4 e4 f4 g4@5 e4@4 c4@4 a3@4]/2",
  F: "c4@4 bb3 c4 bb3@2 a3@7 ~", G: "~@10 f4 ~ f4 e4 a3 ~", H: "d4@7 ~", I: "~@10 f4 ~ f4@2 a3 ~", J: "c4 d4@13 ~@2",
  K: "ab3@7 ~@5 a3@2 b3@2", L: "c4@7 ~@5 b3@2 a3@2", M: "ab3@3 ~ f3@3 ~", N: "e3@7 ~@9", O: "e3@6 ~@8 e4 f4",
  P: "c4@4 bb3@3 ~ a3@5 ~ e4@2", Q: "c4@4 bb3@4 a3@7 ~", R: "~@6 f4 ~ [c4,f4] [b3,e4] ~ [g3,c4] ~ [g3,c4] ~@2",
  S: "~@4 c4 ~ [c4,f4] ~ [c4,f4] [b3,e4] ~ [g3,c4] ~ [g3,c4] ~@2", // F5 E5 C5
  T: "~@6 [c4,f4] ~ [c4,f4] [b3,e4] ~ [g3,c4] ~ [g3,c4] ~@2", // F5 E5 C5
  U: "~@4 f4 ~ f4 ~ [c4,f4] [b3,e4] ~ [g3,c4] ~ [g3,c4] ~@2", // F5 E5 C5
  V: "[d4,a4] ~@2 [d4,a4] ~ [d4,a4] ~ [d4,a4]@2 a4 ~ d4 [f4,a4] ~ [f4,a4] ~", // D5 F
  W: "[c4,g4]@3 [c4,g4] ~ [c4,g4] ~ [c4,g4]@2 g4 ~@2 [c4,g4] ~ [c4,e4] ~", // C5 C
  X: "d4@3 [d4,f4] ~ [d4,f4] ~ [d4,f4]@2 f4 ~@2 [d4,f4] ~ [d4,f4] ~", // Dm
  Y: "[c4,g4]@2 c4 [c4,g4] ~ [c4,g4] ~ [c4,g4]@2 g4 ~ c4 [c4,g4]@2 c4 ~", // C5
})).s("gm_electric_guitar_jazz").gain(0.29).pan(0.7)

// other · electric guitar muted · "P.GUITAR"
const electric_guitar_muted = note("<~@29 A@3 B A@4 ~@24 A@3 B A@4 ~@33>".pickRestart({
  A: "d4@2 ~ d4 ~ d4 ~ d4 ~ d4 c4!2 d4!2 c4 ~", B: "d4@2 ~ d4 ~ d4 ~ d4 ~ d4 f4 e4 f4 e4 d4 ~",
})).s("gm_electric_guitar_muted").gain(0.43).pan(0.3)

// other · shakuhachi
const shakuhachi = note("<~@37 A B A B A B A B ~@24 A B A B A B A B ~@25>".pickRestart({
  A: "~@2 ab4 a4 b4 ab4 ~ c5 ~ c5 b4@2 a4@2 ab4@2", B: "~@2 e4 f4 ab4 f4 ~ a4 ~ a4 ab4@2 f4 [f4,ab4] e4@2",
})).s("gm_shakuhachi").gain(0.32).pan(0.3)

// chords · rock organ · "ORGAN"
const rock_organ = note("<A B@4 C@4 D@4 ~@16 C@8 ~@8 C@4 E@5 ~@7 C@8 ~@16 C@16 ~>".pickRestart({
  A: "~@12 d3 [e3,f3,g3,a3] [b3,c4,d4,e4,f4,g4,a4,b4] [c5,d5,e5,f5,g5,a5,b5,c6,d6]", // Fmaj7 Bm7b5 Cmaj7
  B: "[[d5,f5,a5] [c5,e5,g5] [bb4,d5,f5] [c5,e5,g5], [d6,a6], [e6,f6,g6] ~@63]/4", // Dm C Bb C D5 Em
  C: "[[d5,f5] [c5,e5,g5] [bb4,d5,f5] [c5,e5,g5], a5]/4", // Dm C Bb C
  D: "[[d5,f5]@16 [c5,e5,g5]@16 [bb4,d5,f5]@16 [c5,e5,g5]@13 g5 [f4,g4,a4,b4,c5,d5,e5,f5] ~, a5@61 ~@3]/4", // Dm C Bb C Fmaj7
  E: "[[d5,f5]@8 [c5,e5,g5]@8 [bb4,d5,f5]@8 [c5,e5,g5]@8 [d5,e5,f5]@3 ~@5, a5@7 ~]/5", // Dm C Bb C Dm
})).s("gm_rock_organ").gain(0.15)

// chords · string ensemble 2 · "PAD"
const string_ensemble_2 = note(`<
  ~@29 A B C D A B C D E F G H E F G H ~@16 A B C D A B C D E F G H E F G H I@4 J@2 K@2 L@8 ~@9
>`.pickRestart({
  A: "[d4,f4,a4]", B: "[c4,e4,g4]", C: "[bb3,d4,f4]", D: "[a3,c4,e4]", E: "ab4@6 a4 b4", F: "c5@6 b4 a4", G: "ab4 f4",
  H: "e4", I: "[[c4,d4,g4] [e4,f4,c5], a3]/4", J: "[c4,d4,g4,d5]/2", K: "[e4,f4,c5,g5]/2", L: "g5/2",
})).s("gm_string_ensemble_2").gain(0.19).pan(0.6)

// chords · pad sweep · "SYNTH"
const pad_sweep = note("<~@37 A@8 ~@24 A@8 ~@25>".pickRestart({
  A: "[~@3 ab4@7 ~ a4@7 ~ ab4@11 ~@2, ~ e5@4 f5@4 e5@6 ~, ~@5 b4@15 ~ c5@15 ~ b4@23 ~@4]/4",
})).s("gm_pad_sweep").gain(0.17).pan(0.6)

// drums · kick
const kick = s("bd").struct("<~ A@27 B A@15 C A@8 D A@6 B A@15 C A@7 E A@7 B A@8 F>".pickRestart({
  A: "x ~ x ~@4 x ~@2 x ~@5", B: "x!2 ~@2 x ~@3", C: "x!2 ~@6", D: "~@3 x ~@2 x ~@9", E: "~@2 x!2 ~@12", F: "x",
})).gain(0.48)

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

// drums · low tom
const low_tom = s("lt").struct("<~@84 [~@14 x!2] ~@17>").gain(0.48)

// drums · hihat
const hihat = s("hh").struct(`<
  ~ A B@11 A B@7 A B@6 C A B@6 D ~@8 A B@7 E B@6 C A B@6 D ~@8 A B@3 A B@2 F A B@2 G A B@2 H A B@2 I A B@2 G ~
>`.pickRestart({
  A: "~ x!7", B: "x!8", C: "x!4 ~ x ~ x", D: "x ~ x ~ x ~ x ~ x ~ x ~@2 x ~@2", E: "~@2 x ~ x!4", F: "~@9 x ~@6",
  G: "x!5 ~ x ~", H: "x ~ x ~ x ~ x ~@2 x ~@3 x ~@2", I: "x ~ x ~ x ~ x ~ x ~@2 x ~@4",
})).gain(0.42)

// drums · mid tom
const mid_tom = s("mt").struct("<~@28 [~@14 x!2] ~@31 [~@14 x!2] ~@23 [~@12 x!2 ~@2] ~@17>").gain(0.48)

// drums · open hat
const open_hat = s("oh").struct("<~@28 A ~@7 B ~@16 C ~@6 A ~@7 B ~@15 D ~@3 E ~@3 A ~@3 E ~@5>".pickRestart({
  A: "~ x", B: "~@3 x", C: "~@3 x ~@12", D: "~@2 x!2 ~@4", E: "~@5 x ~@2",
})).gain(0.48)

// drums · high tom
const high_tom = s("ht").struct("<~@28 [~@3 x] ~@31 [~@3 x] ~@41>").gain(0.54)

// drums · crash
const crash = s("cr").struct(`<
  ~ A ~@11 A ~@7 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 B ~@7 A ~@7 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A
>`.pickRestart({
  A: "x", B: "~@3 x ~@4",
})).gain(0.42)

// drums · ride bell
const ride_bell = s("rd").struct("<~@37 A@3 B A@3 C ~@24 A@3 B A@3 C ~@25>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~ x ~@2", C: "~ x ~ x ~@4",
})).gain(0.42)

// drums · tambourine
const tambourine = s("tb").struct("<~ [x!16]!100 x>").gain(0.18)

stack(
  bass, piano, electric_guitar_jazz, electric_guitar_muted, shakuhachi, rock_organ, string_ensemble_2, pad_sweep, kick,
  snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash, ride_bell, tambourine
)