// Tonight I Celebrate My Love — Roberta Flack
// 62 bpm, 4/4, key Eb major. 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 67 bars on a 48-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(62/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 · epiano2 · "Digital Piano"
const epiano2 = note(`<
  ~ A B C D E F G@2 H@2 I J K@2 L M N O P Q R S T U V W X Y Z AA AB AC E F G@2 H@2 I J K@2 L M N O P Q R S T U AD AE X Y
  Z AA AB AC Z AA AB AC AF@2
>`.pickRestart({
  A: "[a3,bb3]@16 ~@3 bb3@5 ~@7 bb3@9 ~@2 bb3@6, [eb2,d4] g2, ~@16 a3@9 a3@23, ~@25 f4@15 f4@8", // Bbmaj7 Ebmaj7
  B: "~ bb4@12 ~@5 bb4@6 ~ g4@13 ~@7 bb2@3, [c4,g4]@13 d4@11 [ab3,c4]@13 ~@3 eb4@8, ~ ab2@24 ~@16 ab3@7, ~@5 eb4@3 bb2@6 g3@2", // C5 Ab
  C: "a3@15 ~@7 d4@2 ~@18 bb3@6, [eb2,f4] d4, [bb3,d4]@18 bb3@7 [g1,g3,f4]@23, ~@8 a3@5 ~@7 a3@4", // Ebsus2 Bb G7
  D: "[ab1,ab3,c4,g4]@8 ~@5 [g3,bb3,f4]@6 ~@5 [f2,ab3,bb3,eb4,g4]@12 ~ [bb1,ab3,c4,d4,g4]@11, gb4 ~@11 g1@6 ~@30", // Abmaj7 Gm7 Eb Gm
  E: "~@19 bb3@5 ~ a3@15 ~@5 d4@3, g3 g2, c4@11 ~@14 [bb3,d4]@20 ~@3, ~ [eb2,f4]@24 ~@15 a3@8", // Bb Ebsus2
  F: "~ [eb4,g4]@14 eb4@6 bb4@3 ~@3 [ab3,c4,eb4]@8 ~ [bb1,ab3,bb3,c4,eb4,g4]@12, ~ ab2@24 ~@23, ~ d4@12 ~@11 bb2@24", // Eb Ab Cm7
  G: "[~@22 ab1@3 f4@9 ~@14 [ab3,c4]@12 ~@9 ab1@3 ~@9 eb4@3 ~@9 g3@3, [eb2,g3,c4,f4]@24 ~ g1@20 g1@5 ~@16 g4@7 ~@11 eb4@12, ~@16 a3@8 ~ a3@7 ~@2 bb3@9 bb3@5 eb4@25 ~@5 ab3@7 ~@5 ab3@6, ~@19 bb3@5 ~ d4@23 [ab1,g4]@21 ~@3 bb1@24, ~@37 f4@12 ~@11 ab3@13 ~@2 g3@10 ~@11]/2", // Ab Cm Abmaj7
  H: "[bb3@16 ~@5 db2@3 ~@22 gb1@3 [ab3,c4,eb4]@12 ~@8 ab3@4 ab3@12 [ab1,ab3,b3,eb4,gb4]@11, [eb2,g3,f4]@24 [c2,eb3,g3,bb3]@25 [f1,bb3]@25 ~@22, ~@16 a3@9 ~@18 [gb3,db4,e4]@7 ~@11 ab3@8 ~@4 [bb1,g3,c4]@23, ~@18 bb3@6 ~@12 [d4,eb4,bb4]@14 ~@11 [c4,g4]@13 ~@22, ~@65 f4@9 ~@22]/2", // Ab Abm7 Eb Cm7 Bb5 Gb7 C7 Ebmaj7 …
  I: "[g3,bb3,d4,f4]@7 ~@12 a3@6 ~@20 db5@3, g1@25 c2@9 db4@3 gb4@4 bb4@7, ~@16 f4@9 ~@5 gb3@18, ~@17 [bb3,d4]@8 ~@2 e3@21, ~@2 bb3", // Gm7 Bb
  J: "~@21 eb4@3 ~ d4@11 [f3,b3,d4]@12, ~ f1@24 [bb1,g3,c4]@23, ~ [ab3,eb4]@18 ab3@6 ~@23, ~@16 g3@9 ~@23", // Bdim C7 Ab5
  K: "[~@21 db2@3 ~@24 [ab3,c4,eb4,g4]@12 ~@4 ab3@3 eb4@2 g3@2 ~ [ab3,d4]@16 ~@5 bb1@3, eb2@25 [c2,bb3]@23 f1@23 ~@20 f3@5, g3@15 ~ g3@8 [eb3,g3]@21 gb1@5 ~@22 [bb1,g3]@24, ~ f4@25 ~@10 [g4,bb4]@13 ~@40 ab3@7, ~@19 bb3@6 ~@11 d4@3 eb4@3 d4@7 ~@12 g3@5 ~@22 b3@8]/2", // Abmaj7 Abdim C7 Eb Gm
  L: "~ [d4,f4]@15 [g3,bb3,d4]@6 db2@3 e3@3 ~@16 gb4@4, ~ [eb2,a3]@24 [c2,eb4]@15 db4@8, ~@25 bb3@11 bb3@12, ~@29 e3@19, ~@2 gb3", // Dm Gm Ebdim Cm
  M: "~ ab3@15 ~@5 ab1@3 [g3,ab3,d4]@12 ~@9 bb1@3, [f1,c4]@8 bb1@7 ~, ~ [bb3,eb4,g4]@24 ~@17 c4@6, ~@16 g3@8 ~@12 g3@11 ~, ~@6 ab3@2 ~@5 ab3@3", // G F5 Eb
  N: "[g3,c4,f4]@16 g3@4 ~@2 db2@2 ~@13 [d4,eb4,g4,bb4]@11, eb2 [c2,eb3,bb3], bb3@20 bb3@4 ~ g3@23, ~@2 [c4,f4] ~@3", // Csus4 Ebmaj7 Cm7 F5
  O: "~@7 g3 ~@2 ab3@2 [ab1,ab3,b3,eb4,gb4]@4, [f1,bb3,c4,g4]@24 [bb1,g3,c4,d4]@13 ~@11, [ab3,eb4]@15 ab3@10 ~@23, ~@12 g3@6 eb4@7 ~@23", // Abm7 Fsus4 Gm Ab5
  P: "bb3@13 ~@2 bb3@9 ~ bb3@4 ~@7 eb4@11 ~, [g1,f3,g3,d4] c2, ~@13 a3@11 eb4@9 bb3@15, ~@29 e3@19", // G7
  Q: "ab3@13 ~@8 f1@4 [g3,ab3,d4]@11 ~ [f3,ab3,b3,d4]@10 ~, [bb3,g4]@25 ~@23, [f1,eb4]@19 eb4@6 ~@23, ~@13 g3@11 ~ bb1@23, ~@16 ab3@9 ~@23", // G Fdim Eb F7
  R: "g3@14 ~@7 eb2@3 ab3@16 ~@5 db2@3, [eb2,c4,f4] [db2,f3,c4,eb4], ~@16 g3@9 ~@15 g3@8, ~@18 bb3@6 ~@19 ab3@5", // F7 Dbmaj7
  S: "~@19 bb3@5 [bb3,ab4]@12 [eb2,bb3,e4,ab4]@12, [eb2,c4] [bb1,db4,f4], g3@15 ~ g3@8 ~@24, ~ f4@23 ~@24", // Bb7 Ebsus4 Cm Bbm
  T: "[ab2,ab3,c4,eb4,g4]@19 ~@6 g4@14 ~@9, ~@3 [bb1,ab3,c4,eb4]@2 ~", // Abmaj7 Ab
  U: "[g3,bb3,d4,f4]@15 ~@6 f4@3 ~ e3 ~@7 bb3@3 db4 ~@11, [g1,g2]@25 ~@2 e3@10 ~@11, ~@5 a3@3 [c2,eb4]@5 ~@3, ~@18 bb3@6 bb3@6 gb3@7 ~@11", // Gm7 G Cm
  V: "~@3 [g2,f3,g3,bb3,d4] [ab3,c4]@2 [bb1,g3,ab3,c4,d4]@2, [ab1,ab2,ab3,c4,eb4,g4] [f2,f3,eb4]", // Gm7 Ab Gm Abmaj7 F7
  W: "~@18 [b1,a3,b3,d4,gb4]@5 ~@14 [eb2,bb3,e4,ab4]@11, [eb2,g3,bb3,c4,f4] [bb1,f4], ~@24 [bb3,ab4]@13 ~@11, ~@8 db4@3 db4@5, ~@29 bb4@19", // Bm7 Ebsus4 Cm7 Bb5 Bb7
  X: "[ab1,d4,eb4,g4,bb4]@8 [c4,eb4,f4,bb4] ~@2 bb4 ~ d4 ~ ab2, ~@8 ab2@7 ~, ~@9 d4@3 bb4@2 ~@2, ~@30 eb4@11 ~ eb4@6", // Ebmaj7 Cm7
  Y: "[g3,bb3,d4]@4 ~@17 db2@3 [bb3,eb4]@3 ~@6 bb3@3 db4 ~@2 gb4 ~@8, g2@24 c2@13 ~@11, f3@2 ~@2 g3@21 ~@2 e3@10 ~@11, ~@5 bb3@7 d5@6 bb4@7 ~@5 gb3@7 ~@11, ~@9 bb4@2 f5@14 ~@23", // Gm Eb5
  Z: "~@21 f1@3 [g3,ab3]@11 ~ g3@3 ~ g3 b3@3 ~@4, [bb3,c4,eb4,g4]@25 ~@23, [f1,ab3]@18 ab3@6 ~@16 f3@3 ~@5, ~@15 g3@9 [f1,eb4]@16 g1@6 ~@2", // Abmaj7 Cm7 Fm F7
  AA: "[ab3,b3,eb4,gb4]@11 ~ eb4@3 ~@9 f4@12 [gb3,c4,f4]@6 ~@6, ab1@21 ~@3 [db2,ab3,b3,eb4,ab4]@16 ~@8, ~@11 [ab3,b3,gb4,ab4]@4 ~@21 d2@12", // Abm7 F Abm Abm7
  AB: "[eb2,g3,bb3,d4,f4]@24 [c2,e3,bb3,eb4]@15 c2@2 ~@4 c2@3", // Ebmaj7 C7
  AC: "f1@15 g1@3 ab1@6 [bb1,ab3,c4,d4]@12 ~@4 [gb3,c4,f4]@5 ~@3, [ab3,bb3,c4,eb4,g4]@24 ~@16 d2 ~@7", // Bb7 F Abmaj7
  AD: "~@18 [g2,f3,g3,bb3,d4]@6 [ab3,c4]@12 [bb1,g3,ab3,c4,d4]@11 ~, [ab1,ab2,ab3,c4,eb4,g4] [f2,f3,eb4]", // Gm7 Ab Gm Abmaj7 F7
  AE: "~@18 [b1,a3,b3,d4,gb4]@6 ~@13 [eb2,bb3,e4,ab4]@11, [eb2,g3,bb3,c4,f4] [bb1,f4], ~@24 [bb3,ab4]@13 ~@11, ~@8 db4@3 db4@5, ~@29 bb4@19", // Bm7 Ebsus4 Cm7 Bb5 Bb7
  AF: "[[eb2,g3,bb3,c4]@37 ~@11]/2", // Cm7
})).s("gm_epiano2").gain(0.22)

// chords · epiano2 · "Digital Piano" · soft notes
const epiano2_soft = note(`<
  ~ A B ~ C D E F G H I J K L M N O P ~ Q R ~@7 S T ~@2 U D E F G H I J K L M N O P ~ Q R ~@7 S T ~@2 U T ~@2 U V@2
>`.pickRestart({
  A: "f4@7 f4 ~@8", B: "~@5 c4", C: "~@13 d4@5 ~@6 c4@12 ~@12", D: "~@16 a3@6 f4@3 ~@18 bb3@5",
  E: "~@3 g4 ~@4, ~@13 d4@12 ~@23", F: "~@4 a3!2", G: "~@15 c4@10 ~@14 c4@9", H: "~@43 a3@5, ~@3 g4",
  I: "~@13 eb4@10 f2@2 d4@23", J: "~@17 e4@8 ~@23", K: "~@2 bb3@23 ~@23, ~ [c4,g4]@24 ~@23", L: "c4@25 ~@23",
  M: "~@5 d4, ~ c4", N: "~ bb3 ~@14 f4@9 ~@23", O: "~@2 c4 ~", P: "~@5 g3 ~@6",
  Q: "~@22 eb4@2 ~ e3 ~@22, f4 ~, ~@19 e4@6 ~@23", R: "c4@25 c4@11 ~@12",
  S: "~@9 d5@3 ~@10 eb4@2 ~@24, ~@6 d4@19 ~@23, ~@8 [f4,g4]@17 ~@23", T: "~@8 c4@5 ~@3", U: "~@2 g4 ~",
  V: "[f4@37 ~@11]/2",
})).s("gm_epiano2").gain(0.13)

// bass · acoustic bass
const bass = note(`<
  ~ A B C D E F G@2 H@2 I J K@2 L M N O P Q R S T U V W X Y Z AA AB AC E F G@2 H@2 I J K@2 L M N O P Q R S T U AD W X Y
  Z AA AB AC Z AA AB AC AE@2
>`.pickRestart({
  A: "eb2 g2", B: "~ ab2@23 bb2@21 bb2@3", C: "eb2@25 g1@23", D: "ab1@6 ~@6 g1@6 ~@6 f2@12 ~ bb1@11",
  E: "~ eb2@23 g2@24", F: "~ ab2@23 ~@12 bb1@12, ~ bb2",
  G: "[eb2@22 ab1@3 g1@20 ~@3 ab1@21 ab1@3 bb1@24, ~@45 g1@5 ~@46]/2",
  H: "[eb2@21 db2@3 ~@22 gb1@3 f1@22 f2@2 ~@12 ab1@11, ~@24 c2@26 ~@23 bb1@23]/2", I: "g1@25 c2@23",
  J: "~ f1@24 bb1@23", K: "[~@21 db2@4 ~@23 f1@23 ~ bb1@21 bb1@3, eb2@25 c2@25 ~@46, ~@45 gb1@5 ~@46]/2",
  L: "~ eb2@21 db2@3 c2@23", M: "f1@7 ab1 bb1@7 bb1", N: "eb2@11 db2 c2@12", O: "f1@2 bb1 ab1", P: "g1 c2",
  Q: "f1@21 f1@4 bb1@23", R: "eb2@7 eb2 db2@7 db2", S: "eb2@2 ~ eb2, ~ bb1", T: "ab2@19 ~@5 bb1@16 ~@8",
  U: "[g1,g2]@8 c2@5 ~@3", V: "~@3 g2 ~@2 bb1@2, [ab1,ab2] f2", W: "~@18 b1@5 ~@14 eb2@11, eb2 bb1",
  X: "ab1@8 ab2@7 ab2", Y: "~@21 db2@3 c2@13 ~@11, g2@25 ~@23", Z: "f1@21 f1@3 f1@16 g1@6 ~@2",
  AA: "ab1@7 ~@5 d2@4, ~@3 db2@2 ~", AB: "eb2@24 c2@14 ~ c2@2 ~@4 c2@3", AC: "f1@15 g1@3 ab1@6 bb1@11 ~@5 d2 ~@7",
  AD: "~@18 g2@6 ~@12 bb1@11 ~, [ab1,ab2] f2", AE: "[eb1@37 ~@11]/2",
})).s("gm_acoustic_bass").gain(0.2)

// other · string ensemble 2 · "Strings"
const string_ensemble_2 = note("<~@22 A@4 B@2 C@2 D E F ~@17 A@4 B@2 C@2 D E F G D E F H@2>".pickRestart({
  A: "[~@36 b4 ~ d5 e5 ~@2 b5 ~ e6 [f6,g6] a6 c7@19 bb6@5 ab6@12 ~ g6@33 f6@3 eb6@23 c7@12 bb6@13 ab6@12 g6@11 ~, ~@47 b6 ~@144]/4", // Fsus2
  B: "[g6@24 eb6@11 bb5@48 ab5@13]/2", C: "[g5@24 c6@23 f6@17 ~ g6@4 ab6@5 bb6@22]/2", D: "b6@23 bb5@24 ~",
  E: "d6@12 eb6@11 f6@12 ~ g6@12", F: "eb6@23 bb5@22 ~@3", G: "~@17 g6@4 ab6@5 bb6@22", H: "[[d6,f6]@37 ~@11]/2",
})).s("gm_string_ensemble_2").gain(0.15).pan(0.3)

// other · string ensemble 2 · "Strings" · soft notes
const string_ensemble_2_soft = note("<~@22 A ~@27 A ~@14 B@2>".pickRestart({
  A: "~@37 c5 ~@2 [f5,g5] a5 ~ [c6,d6] ~@4", B: "[[a5,bb5]@37 ~@11]/2",
})).s("gm_string_ensemble_2").gain(0.08).pan(0.3)

// drums · kick
const kick = s("bd").struct("<~@23 [x ~@6 x!2 ~@7]!27 ~ [x ~@6 x!2 ~@7]!14 x ~>").gain(0.29)

// drums · rim
const rim = s("rim").struct("<~@23 [~ x ~ x]!27 ~ [~ x ~ x]!14 ~@2>").gain(0.25)

// drums · hihat
const hihat = s("hh").struct("<[x!4] ~@22 [x!5 ~ x!2]!27 ~ [x!5 ~ x!2]!14 ~@2>").gain(0.29)

// drums · low tom
const low_tom = s("lt").struct("<~@22 [~@10 x!2] ~@27 [~@10 x!2] ~@16>").gain(0.25)

// drums · open hat
const open_hat = s("oh").struct("<~@23 [~@5 x ~@2]!27 ~ [~@5 x ~@2]!14 ~@2>").gain(0.25)

// drums · mid tom
const mid_tom = s("mt").struct("<~@22 [~@8 x!2 ~@2] ~@27 [~@8 x!2 ~@2] ~@16>").gain(0.29)

// drums · crash
const crash = s("cr").struct("<~@65 x ~>").gain(0.29)

// drums · high tom
const high_tom = s("ht").struct("<~@22 [~@6 x!2 ~@4] ~@27 [~@6 x!2 ~@4] ~@16>").gain(0.25)

stack(
  epiano2, epiano2_soft, bass, string_ensemble_2, string_ensemble_2_soft, kick, rim, hihat, low_tom, open_hat, mid_tom,
  crash, high_tom
)