// Diego, libre dans sa tete — Berger Michel
// 80 bpm, 4/4, key B major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 16 "** OK **" piano (copy of ch 2 "** OK **" epiano2)
// note: Full arrangement: all 65 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(80/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 · fretless bass · "** OK **"
const bass = note(`<
  A B C D E F G H I F C D E F J K L M N O P Q J R S B C D E F G H I F C D E F J K L M N O P Q J R S B C D E F G H I T U
  V W T J X Y
>`.pickRestart({
  A: "g#2 a#2 b2 g#2 a#2 b2 a#2 b2 g#2 a#2 b2 g#2 a#2 b2 a#2 b2", B: "g#2@7 ~ g#2@8", C: "a#2@7 ~ a#2@5 ~ a#2@2",
  D: "b2@7 ~ b2@5 ~ b2@2", E: "f#2@7 ~ f#2@5 ~ f#2@2", F: "g#2@7 ~ g#2@5 ~ g#2@2", G: "a2@7 ~ a2@5 ~ a2@2",
  H: "a#2@15 ~", I: "g2 d#2", J: "a2@7 ~ a2@3 ~ a2@4", K: "a#2@7 ~ a#2@8", L: "g2@8 d#2@5 ~ d#2@2",
  M: "g#2@7 ~ g#2@6 g#3@2", N: "a#2@7 ~ a#2@4 a#3 a#2 a#3 a#2", O: "b2@5 ~ b2 ~ b2@5 ~ b2@2",
  P: "f#2@6 f#3@2 f#2@5 ~ f#2@2", Q: "g#2@6 g#3@2 g#2@3 ~ g#2@2 ~ g#2", R: "a#2@7 ~ a#3@4 a#2@4",
  S: "g2@5 ~ g2@2 d#2@3 ~ d#2@4", T: "g#2@7 ~ g#2@6 ~ g#2", U: "a#2@7 ~ a#2@6 ~ a#2", V: "b2@7 ~ b2@6 ~ b2",
  W: "f#2@7 ~ f#2@6 ~ f#2", X: "a#2@7 ~ g2@4 d#2@4", Y: "g#2 ~",
})).s("gm_fretless_bass").gain(0.31).pan(0.3)

// chords · epiano2 · "** OK **"
const epiano2 = note(`<
  ~ A B C D E F G H A I@2 J K L@3 M N O P Q R S T A B C D E F G H A I@2 J K L@3 M U O V Q R S T A B C D E F G H W X Y@2
  Z AA AB AC
>`.pickRestart({
  A: "[b3,d#4,g#4]@3 ~ [b3,d#4,g#4]@3 ~ [b3,d#4,g#4]@3 ~ [b3,d#4,g#4]@3 ~", // G#m
  B: "[a#3,d#4,f#4]@3 ~ [a#3,d#4,f#4]@3 ~ [a#3,d#4,f#4]@3 ~ [a#3,d#4,f#4]@3 ~", // D#m
  C: "[b3,d#4,f#4]@3 ~ [b3,d#4,f#4]@3 ~ [b3,d#4,f#4]@3 ~ [b3,d#4,f#4]@3 ~", // B
  D: "[b3,c#4,f#4]@3 ~ [b3,c#4,f#4]@3 ~ [a#3,c#4,f#4]@3 ~ [a#3,c#4,f#4]@3 ~", // Bsus2 F#
  E: "[b3,e4,g#4]@3 ~ [b3,e4,g#4]@3 ~ [b3,e4,g#4]@3 ~ [b3,e4,g#4]@3 ~", // E
  F: "[c#4,e4,a4]@3 ~ [c#4,e4,a4]@3 ~ [c#4,e4,a4]@3 ~ [c#4,e4,a4]@3 ~", // A
  G: "[c#4,e4,g4,a#4]@3 ~ [c#4,e4,g4,a#4]@3 ~ [c#4,e4,g4,a#4]@3 ~ [c#4,e4,g4,a#4]@3 ~", // C#dim
  H: "[c#4,d#4,g4,b4]@3 ~ [c#4,d#4,g4,b4]@3 ~ [c#4,d#4,g4,a#4]@6 ~@2", // D#aug D#7
  I: "[[a#3,d#4,f#4]@3 ~ [a#3,d#4,f#4]@3 ~ [a#3,d#4,f#4]@3 ~@2 d#4 a#3 ~ [b3,f#4]@7 ~@3 f#4@2 d#4@2 b3@2, ~@12 f#4@3 d#4@9 b3@6 ~@2]/2", // D#m B5
  J: "[b3,c#4,f#4]@5 ~ [b3,c#4,f#4]@2 [a#3,c#4,f#4]@5 ~ [a#3,c#4,f#4]@2", // Bsus2 F#
  K: "[b3,e4,g#4]@5 ~ [b3,g#4]@2 [b3,g#4]@4 [b3,e4,g#4]@3 ~, ~@3 e4@3 ~@2", // E
  L: "[[c#4,e4,a4]@5 ~ [c#4,e4,a4]@2 [c#4,e4,a4]@4 ~ e4 ~@16 e4 ~ [c#4,d#4,b4]@5 ~ [c#4,d#4,g4,b4] ~ [c#4,d#4,g4,a#4]@6 ~@2, ~@12 a4@3 e4@2 ~@5 g4@6 g4@8 ~@12, ~@7 c#4@4 ~ c#4@4 ~@8, ~@4 a#4@3 ~@5]/3", // A G#m D#aug D#7
  M: "[b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~", // G#m
  N: "[a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4] ~, ~@7 f#4", // D#m D#5
  O: "[b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~", // B
  P: "[b3,c#4,f#4] ~ [b3,c#4,f#4] ~ [b3,c#4,f#4] ~ [b3,c#4,f#4]@2 [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~", // Bsus2 F#
  Q: "[b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~", // E
  R: "[c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~", // A
  S: "[c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~", // C#dim
  T: "[c#4,d#4,g4,b4] ~ [c#4,d#4,g4,b4] ~ [c#4,d#4,g4,b4] ~ [c#4,d#4,g4,b4] ~ [c#4,d#4,g4,a#4]@6 ~@2", // D#aug D#7
  U: "[a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~", // D#m
  V: "[b3,c#4,f#4] ~ [b3,c#4,f#4] ~ [b3,c#4,f#4] ~ [b3,f#4]@2 [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~, ~@6 c#4 ~@9", // Bsus2 B5 F#
  W: "~@5 b3 d#4 b3 ~@6 b3@2, [g#2,g#4]@6 ~@2 [g#2,g#4]@5 ~ g#2 ~, ~@2 b3@2 g#3@7 ~ d#3@4, ~@3 d#4@2 ~@5 d#4@4 ~@2", // G#
  X: "~@2 a#3 ~@12 a#3, a#2@7 ~, f#4@6 a#3@7 f#4@2 ~, ~@3 d#4@5 d#3@6 ~@2, ~@2 f#3@3 ~ f#3 d#4",
  Y: "[b3 ~@7 b2@4 ~ b2 [b3,d#4]@2 ~@2 c#4 b3 ~@3 b3 a#2@4 ~@2 a#2 ~, f#4@6 ~ f#4@3 ~@2 a#3@4, b2@3 b3@3 ~@2 c#3@3 ~@5, ~@2 d#4@10 ~@9 c#4@11, ~@4 f#3@8 f#3@6 ~@2 f#3@7 ~ f#3@4]/2", // B
  Z: "~@4 g#3@2 g#4@2 e3@2 e4@2 ~ b3 [b2,g#4] e4, b2@3 ~, g#4@5 ~@11, ~@2 b3@10 g#3@3 ~, ~@3 e4@3 ~@10", // E
  AA: "~@6 a3 e4, c#3@4 c#3@3 ~, a4@3 e4@2 a4@2 ~, ~ c#4@3 ~@4, ~@2 a3@3 ~@3",
  AB: "[c#3,a#3,c#4,e4,a#4]@7 ~ [c#3,b3,e4,b4]@4 [c#3,c#4,a#4]@3 ~", // A#dim C#m7 F#
  AC: "[b2,g#3,b3,d#4,g#4] ~ g#5 ~, ~@4 g#4@7 ~@5, ~@5 b4@6 ~@5, ~@6 d#5@5 ~@5, ~@7 f#5@5 ~@4", // G#m
})).s("gm_epiano2").gain(0.2).pan(0)

// chords · electric guitar jazz · "** OK **"
const electric_guitar_jazz = note(`<
  ~@9 A B C D E F G H I@2 J K L M@3 ~@8 A B C D E F G H I@2 J K L N@3 ~@8 A O C P E Q R S
>`.pickRestart({
  A: "[b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~ [b3,d#4,g#4] ~", // G#m
  B: "[a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~", // D#m
  C: "[b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4]@2", // B
  D: "[b3,c#4,f#4] ~ [b3,c#4,f#4] ~ [b3,c#4,f#4] ~ [b3,c#4,f#4] ~ [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~ [a#3,c#4,f#4] ~ [a#3,c#4,f#4]@2", // Bsus2 F#
  E: "[b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~ [b3,e4,g#4] ~", // E
  F: "[c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4]@2", // A
  G: "[c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~ [c#4,e4,g4,a#4] ~", // C#dim
  H: "[c#4,d#4,g4,b4]@5 ~ [g4,b4]@2 [c#4,g4,a#4]@6 ~@2", // D#aug G Gdim
  I: "[~@5 b3 d#4 b3 ~@2 b3@2 ~@2 b3@2 ~@10 f#4@4 d#4@2, g#4@7 ~ g#4@6 ~@2 f#4@8 a#4@6 ~@2, ~@3 d#4@3 ~@2, ~@11 a#3@5]/2",
  J: "[d#4,f#4]@5 b3 ~@6 d#4@2 b3@2, b3@4 ~@2 d#4@2 b4@5 ~@3, ~@7 b3@5 ~@4, ~@5 f#4@2 ~", // D#m
  K: "[b3,c#4,f#4]@5 ~ [b3,c#4,f#4] ~ [a#3,c#4]@6 f#4 ~, ~@2 f#4 ~", // Bsus2 A#m
  L: "~@6 e4@2 ~ f#4 ~@2 g#4@2 e4@2, g#4@6 ~@2 g#4@3 b3@3 ~@2, ~ b3@3 ~ e4 ~@2",
  M: "[a4@6 e4@2 ~ e4 ~ e4 a4@2 ~@2 [c#4,g4,a#4]@5 ~ [c#4,e4,g4,a#4]@7 ~ [c#4,a#4] ~ [c#4,d#4,b4]@5 ~ [c#4,d#4,g4,b4] ~ [c#4,d#4,g4,a#4]@6 ~@2, c#4@8 a4@2 c#4@3 ~ e4@6 ~@10 g4@6 ~@12, ~@15 e4 ~@8]/3", // Gdim C#dim F# G#m D#aug D#7
  N: "[a4@6 e4@2 ~ e4 ~ e4 a4@2 ~@2 [c#4,g4,a#4]@5 ~ [c#4,e4,g4,a#4]@7 ~ [c#4,e4,a#4] ~ [c#4,d#4,b4]@5 ~ [c#4,d#4,g4,b4] ~ [c#4,d#4,g4,a#4]@6 ~@2, c#4@8 a4@2 c#4@3 ~ e4@6 ~@10 g4@6 ~@12]/3", // Gdim C#dim A#dim G#m D#aug D#7
  O: "[a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4] ~ [a#3,d#4,f#4]@2", // D#m
  P: "[b3,c#4,f#4]@2 ~@5 f#4, ~@5 f#4@5 ~@6, ~@3 c#4@3 ~@2, ~@7 b3@7 ~@2, ~ a#3", // Bsus2
  Q: "[c#4,e4,f#4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~", // F#m7 A
  R: "[c#4,e4,a#4] ~ [c#4,e4,a#4] ~ [c#4,e4,a#4] ~ [c#4,e4,a#4] ~ [d#4,b4]@4 a#4@3 ~", S: "[b3,d#4,f#4,g#4]@5 ~@3",
})).s("gm_electric_guitar_jazz").gain(0.2)

// other · synth strings 2 · "** OK **"
const synth_strings_2 = note("<~@17 A B@2 C D E F G ~@16 A B@2 C D E F G ~@8 H I J K L M N O>".pickRestart({
  A: "~ g#3, g#2", B: "[~@3 b3, d#3 b2, ~ d#4@2 ~]/2", C: "~ f#3, f#2", D: "~ e3, e2", E: "~ a3, a2", F: "~ a#3, a#2",
  G: "g2@8 ~@4 d#2@3 ~, ~@8 d#3@7 ~", H: "~ g#2, g#3", I: "~@4 d#4@2 d#4 c#4, d#3@7 ~", J: "~ b2, b3",
  K: "~@8 a#3 a#2@7, f#3", L: "g#3@15 g#3", M: "a3", N: "a#3@8 b3@3 ~ a#3@3 ~", O: "g#3 ~",
})).s("gm_synth_strings_2").gain(0.36)

// other · lead 3 calliope · "** OK **"
const lead_3_calliope = note("<~@33 A B C D E F G H I J K L I M N O ~@16>".pickRestart({
  A: "g#5@2 b4 d#5@2 b4 d#5 b4 g#5 b4 d#5 b4 ~ b4 d#5 b4",
  B: "f#5@2 a#4 d#5@2 a#4 d#5 a#4 f#5 a#4 d#5 a#4 ~ a#4 d#5 a#4",
  C: "f#5@2 b4 d#5@2 b4 d#5 b4 f#5 b4 d#5 b4 ~ b4 d#5 b4",
  D: "[b4,f#5]@4 ~@2 [b4,c#5,f#5] ~ [a#4,c#5,f#5]@6 ~@2, c#5 ~@7", E: "g#5@2 b4 e5@2 b4 g#5 b4 e5@2 b4 g#5@2 b4 e5 b4",
  F: "a5@2 c#5 e5@2 c#5 a5 c#5 e5@2 c#5 a5@2 c#5 e5 c#5",
  G: "a#5@2 c#5 g5@2 c#5 e5 c#5 a#5@2 c#5 g5@2 [c#5,a#5] e5 c#5, e5 ~@15", // F#
  H: "[d#5,g5,b5]@5 ~ [d#5,g5,b5] ~ [d#5,a#5]@6 ~@2", I: "g#4 ~ g#4 ~ g#4 ~ g#4 ~ g#4 ~ g#4 ~ g#4 ~ g#4@2",
  J: "a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4@2", K: "b4 ~ b4 ~ b4 ~ b4 ~ b4 ~ b4 ~ b4 ~ b4@2",
  L: "c#5@5 ~ c#5@2 a#4@8", M: "a4 ~ a4 ~ a4 ~ a4 ~ a4 ~ a4 ~ a4 ~ a4@2",
  N: "a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~", O: "b4@4 a#4@3 ~",
})).s("gm_lead_3_calliope").gain(0.2)

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

// drums · snare
const snare = s("sd").struct(`<
  ~ A@3 B C@3 B D@8 C@2 D E C@2 D E A@3 B C@3 B D@8 C@2 D E C@2 D E A@3 B C@3 B C D@2 E C D@2 C
>`.pickRestart({
  A: "~ x", B: "~@2 x ~@2 x ~ x", C: "~ x ~@2", D: "~ x ~ x", E: "~@2 x ~@2 x ~@2",
})).gain(0.31).pan(0.6)

// drums · pedal hat
const pedal_hat = s("hh").struct(`<
  ~ A@3 B C D@2 E F@8 D@2 G D@3 G D A@3 B C D@2 E F@8 D@2 G D@3 G D A@3 B C D@2 E D H G D@2 H G H
>`.pickRestart({
  A: "x!2 ~ x", B: "x!2", C: "x ~@2 x", D: "x ~ x!2", E: "x ~@3 x ~@2 x", F: "x ~@4 x ~ x", G: "x ~@2 x ~@4", H: "x",
})).gain(0.31).pan(0.6)

// drums · open hat
const open_hat = s("oh").struct("<~@64 [~@7 x ~@8]>").gain(0.31).pan(0.6)

// drums · ride
const ride = s("rd").struct("<~@64 [~@5 x!2 ~@9]>").gain(0.31).pan(0.6)

stack(bass, epiano2, electric_guitar_jazz, synth_strings_2, lead_3_calliope, kick, snare, pedal_hat, open_hat, ride)