// Tom's Diner (reprise) — Suzanne Vega
// 94 bpm, 8/8, key C 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 89 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(94/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 · synth bass 2 · "Synth Bass"
const bass = note(`<
  A B A B C B A B A B D E F G H I J D K A E F L M N I A O A E P L H I Q R@2 C S F L T I J A U A V A K A K A K A B ~@10 A
  K D E W L H I J A X A K A K A K A K A K Y ~
>`.pickRestart({
  A: "bb1@2 c2@2 ~@7 c1@2 ~@7 c1@4", B: "ab1@10 ~ ab1@4 bb1@2 ~ c2@2 ~@4", C: "bb1@2 c2@2 ~@7 c1@4 ~@5 c1@4",
  D: "bb1@2 c2@2 ~@7 c1@3 ~@6 c1@4", E: "ab1@10 ~ ab1@4 bb1@3 c2@3 d2 ~@2", F: "eb2@11 eb1@9 ~ eb1@2 ~, ~@10 eb2 ~",
  G: "db1@5 ~@5 db1@2, ~@11 db2@13", H: "c1@11 c2@9 c2@4", I: "g1@10 ~ g1@2 ~@11", J: "g1@10 ~ g1@2 ~@7 g1@2 ~ g1",
  K: "ab1@10 ~ ab1@4 bb1@2 ~ c2@2 ~ d2@2 ~", L: "db1@10 ~ db2@9 db1@4", M: "c1@11 c2@13", N: "g1@10 ~ g1@3 ~@10",
  O: "ab1@10 ~ ab1@4 bb1@3 c2@3 d2@3, ~@18 bb1 ~@5", P: "eb2@10 eb1@9 ~ eb2 eb1@2 ~", Q: "g1@10 ~ g1@2 ~@7 g1 ~@2 g1",
  R: "[bb1@2 c2@2 ~@7 c1@2 ~@7 c1 ~@3 ab1@10 ~ ab1@4 bb1@2 ~ c2@2 ~ d2@2 ~, ~@23 c1@2 ~@23]/2",
  S: "ab1@10 ~ ab1@4 bb1@3 ~ bb1 ~ d2 ~@2, ~@9 c2 ~@2", T: "c1@11 c2@8 c2@5",
  U: "ab1@10 ~ ab1@4 ~@3 c2@2 ~ d2@3, ~@4 bb1 ~", V: "ab1@10 ~ ab1@4 bb1@3 c2@2 ~ d2@2 ~",
  W: "eb2@11 eb1@5 ~@4 eb2 eb1@2 ~", X: "~ bb1 ~@9 ab1@4 bb1@2 ~ c2@2 ~ d2@2 ~, ab1@5 ~@7", Y: "bb1 c2 ~@10",
})).s("gm_synth_bass_2").gain(0.64)

// chords · epiano2 · "Elec Piano"
const epiano2 = note(`<
  ~@4 A B A B A C D E F G H I J A K D L M N O P@2 Q R S@3 T U V W X@2 Y Z AA@2 AB@3 ~@23 AC AD@2 AE AF AG AH@2 AI AJ AK
  AL AM AN AO AP AQ AR AS AT AU ~
>`.pickRestart({
  A: "[bb3,d4,eb4,g4]@23 ~", B: "[c4,eb4,g4,bb4]@11 ~", C: "[c4,eb4,g4,bb4]@14 d4 ~@3 d4@2 eb4 c4 ~@2",
  D: "~ [bb3,d4,eb4,g4]@3", E: "~@14 d4@4 d4@2 eb4 [b3,c4] ~@2, [c4,eb4,g4,bb4]@19 ~@5", F: "[bb3,d4,g4]@11 ~",
  G: "c4@11 db4@13, [ab3,f4]", H: "~@3 d4 c4@4, g4@8 g4@15 ~, ~@5 eb4@7 ~@12", I: "~@11 b3@13, [d4,f4]",
  J: "[g3,b3,f4]@11 g4@2 ~@6 g3@4 ~, d4@5 ~@7", K: "~@14 d4@4 d4@2 ~ c4 ~@2, [c4,eb4,g4,bb4]@10 eb4 ~",
  L: "~@14 d4@4 ~@3 eb4@3, [c4,g4,bb4], eb4@7 ~, ~@3 d4", M: "bb3@11 bb3@9 ~ bb3@3, [d4,g4]@5 [d4,g4]",
  N: "c4@11 ~@8 ab3@4 ~, f4, ab3 ~@10 db4@13", O: "eb4 ~@8 d4@3 c4@12, g4@3 g4@5, ~@5 eb4@6 ~@13",
  P: "[~@11 b3@9 g3 ~@3 f4@11 g4@8 ~@5, [d4,f4]@20 ~@3 g3@19 ~@6, ~@24 b3@17 ~@7, ~@12 d4@5 ~@7]/2", // Dm
  Q: "~@9 eb4 ~@2 eb4@3 d4 ~@2 d4@2 eb4 [c4,d4] ~@2", // Csus2
  R: "~@6 c4@2 d4 eb4@2 ~ g4@3 eb4 ~@2 d4@3 c4 ~ d4, ~@11 f4@2 ~@11",
  S: "[~@6 f4@6 ~@8 g4@3 ~ bb4@2 c5@2 ~@11 bb4@2 ab4 ~@2 eb5 d5@2 ~@10 bb4@6 g4@9, ~@12 g4@8 ~@3 f4@3 ~@22 f5@10 ~@14, ~@17 bb4@6 ~@15 c5@2 ~@7 c5@2 ~@4 d5@19]/3",
  T: "~@5 c5@10 ~@4 ab4@4 bb4, ~ bb4@14 db5@6 ~@3",
  U: "g4@5 bb4@3 ~ f4@6 f4@5 ~ c4@3, ~@2 c5 ~@3, ~@9 gb4 ~@10 eb4@2 ~@2",
  V: "~@15 g3@8 ~, d4@23 ~, ~@5 b3@19, ~@9 f3@8 ~@7", W: "~@15 [g3,b3,d4]@5 eb4 ~@3",
  X: "[~@6 [f3,bb3,d4]@4 ~@2 [f3,d4] ~@2 [f3,bb3,d4] ~@2 [f3,bb3,d4] ~ [g3,eb4] ~@2 [ab3,c4]@2 ~@10 [ab3,gb4] f4@3 eb4 ~@2 [eb3,c4]@3 f3@2 ~, ~@12 bb3@2 ~@31 d4 ~@2]/2", // Bb Dm Bb Cm Ab Ab7 Cm
  Y: "[g3,eb4]@3 [bb3,g4] ~@2 [eb3,c4]@3 [f3,d4] ~ [g3,eb4]@4 [bb3,g4]@3 [eb3,c4]@3 [g3,d4]@2 ~", // Cm Eb Cm Dm Cm Eb Cm G5
  Z: "[ab3,eb4]@3 [c4,g4]@2 ~ [eb3,c4]@3 [g3,d4] ~ eb4@4 g4@3 f4@2 eb4 c4@3, ~@10 ab3@4 ~ c4 ~@2 gb4 ~@5", // Ab5 C5 Cm G5
  AA: "[bb3@2 ~ [bb3,bb4]@7 ~ [bb3,bb4]@3 ~ [bb3,bb4] ~@2 [bb3,bb4] ~ [c4,c5] ~@6 gb4@7 ~ f4@7 [f4,ab4]@2 bb4 ~@3, ~@23 [db4,db5]@13 ~@12, ~@27 ab4@14 ~@7]/2", // Bb C Fm Db
  AB: "[g4@2 eb4 c4 ~ c5 bb4 ~ g4 eb5 ~@2 c5@2 bb4 g4 ~ f4@3 eb4 c4 ~ [b3,d4]@30 ~@19, ~@11 d5@2 ~@4 gb4 ~@5 db4 ~@48]/3", // Bm
  AC: "~@21 eb4@2 ~, ~@3 bb4, ~@5 g4", AD: "[bb3,d4,g4]/2", AE: "~@11 [bb3,eb4]@13", AF: "[ab3,c4,f4]",
  AG: "~@9 d4@3 ~ g4@11, g4@3 ~ c4@4, ~@5 eb4@8 ~@11", AH: "[~@11 b3@36 ~, [d4,f4]@47 ~]/2", AI: "[d4,g4]",
  AJ: "[c4,bb4]@18 ~@2 g4@3 ~, eb4@7 ~, ~@18 [c4,bb4]@5 ~", AK: "[d4,eb4]", AL: "[c4,eb4,g4]@23 ~",
  AM: "~@20 eb4@3 ~, d4@23 ~, ~@18 [bb3,g4]@5 ~", AN: "~@14 g4@4 ~@3 d4@3, eb4@5 eb4, ~@3 g4",
  AO: "~@11 bb3@9 ~@4, d4@5 ~", AP: "~@11 eb4@9 [ab3,eb4]@4, c4",
  AQ: "bb3@4 ~ g4@5 [bb3,eb4,g4]@2, eb4@3 ~, d4@11 ~@13, ~@9 bb3@11 ~@4", AR: "~@21 c4@2 ~, c4@5 eb4, ~@3 g4", AS: "d4",
  AT: "~@7 g4@2 g4@2 ~, c4@11 ~", AU: "g4@5 ~@7",
})).s("gm_epiano2").gain(0.56).pan(0.4)

// chords · epiano2 · "Elec Piano" · soft notes
const epiano2_soft = note(`<
  ~@16 A ~@5 B ~@2 C ~@12 D ~@2 E ~@26 F@2 ~@2 G ~@2 H I J ~ K L M N O P H Q@2 ~
>`.pickRestart({
  A: "~@11 d4@2 ~@11", B: "~@11 ab3@2 ~@11", C: "~@10 d4@7 ~@7", D: "~@19 gb4 ~@4", E: "~@23 bb3", F: "eb4/2",
  G: "~@10 g4@3 ~@11", H: "[bb3,eb4]", I: "~@21 eb4@2 ~", J: "[bb3,g4]", K: "eb4@5 ~, bb3@3 ~", L: "c4@14 c4@2 ~ c4@7",
  M: "eb4@5 [bb3,d4,eb4], g4", N: "ab3@5 ~", O: "~@19 eb4 ~@4, ~@11 d4@12 ~", P: "~@14 g4@3 ab3@7, eb4@5 ~, ab3@17 ~@7",
  Q: "[ab3@17 ~@7 [bb3,eb4]@19 ~@5, eb4@20 eb4@3 ~@25, ~@17 ab3@4 d4@21 ~@6]/2", // Eb5
})).s("gm_epiano2").gain(0.32).pan(0.4)

// drums · kick
const kick = s("bd").struct(`<
  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 C 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 D@2 E
  D A B F 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 ~
>`.pickRestart({
  A: "x ~@8 x ~ x ~@8 x!2 ~@2", B: "x ~@8 x ~ x ~@8 x ~@3", C: "x ~@8 x ~ x ~@12", D: "x ~@10 x ~@12",
  E: "x ~@10 x ~@11 x", F: "x ~@8 x ~ x ~@8 x!2 ~ x",
})).gain(0.72)

// drums · snare
const snare = s("sd").struct("<A B@15 C B@8 D B@22 A B@7 ~@4 B@28 ~>".pickRestart({
  A: "~@6 x ~@11 x!2 ~@4", B: "~ x ~ x", C: "~@6 x ~@11 x ~@2 x!2 ~", D: "~ x!2 ~",
})).gain(0.8)

// drums · hihat
const hihat = s("hh").struct("<~@58 A ~ A ~ A ~ A ~ A ~ B ~@20>".pickRestart({
  A: "~ x ~@2", B: "~@2 x!2 ~@8",
})).gain(0.64)

// drums · low tom
const low_tom = s("lt").struct("<~@16 A ~@41 B ~ B ~@3 B ~@24>".pickRestart({
  A: "~@16 x ~@2 x ~@4", B: "x",
})).gain(0.72)

// drums · mid tom
const mid_tom = s("mt").struct("<~@16 A ~@40 B C D E@2 F G ~@25>".pickRestart({
  A: "~@4 x!3 ~", B: "~ x ~@18 x ~@2 x", C: "x ~@4 x", D: "~@6 x ~@3 x!2", E: "x ~@22 x", F: "~@23 x",
  G: "~@7 x ~@3 x ~@8 x ~@2 x",
})).gain(0.8)

// drums · open hat
const open_hat = s("oh").struct("<~@58 A ~ A ~ A ~ A ~ A ~ A ~@20>".pickRestart({
  A: "~ x ~@6",
})).gain(0.64)

// drums · high tom
const high_tom = s("ht").struct("<~@16 A ~@39 B C D E F G H I ~@25>".pickRestart({
  A: "~@13 x ~@10", B: "~@12 x ~@2 x ~ x ~ x ~ x ~ x", C: "~ x ~@9 x ~@2 x ~@2 x ~@6", D: "~@14 x ~@2 x!2 ~@5",
  E: "~@2 x ~@2 x!2 ~ x ~@3 x ~ x ~@2 x!2 ~ x ~@3", F: "~@14 x ~@2 x ~@2 x ~@3", G: "~@11 x ~@2 x ~@2 x ~@2 x ~@3",
  H: "~@14 x ~@2 x ~@5 x", I: "~@2 x ~@2 x ~@5 x ~@2 x ~@2 x ~@6",
})).gain(0.8)

// drums · crash
const crash = s("cr").struct("<~@4 A ~@3 A ~@8 A ~@7 A@2 ~@16 A@2 ~@15 A ~@3 A ~@3 A ~@20>".pickRestart({
  A: "x",
})).gain(0.8)

// drums · ride
const ride = s("rd").struct("<A@16 B C A@7 D A@30 ~@12 A@20 ~>".pickRestart({
  A: "x ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x", B: "x ~ x!2 ~ x!2 ~ x!2 ~@14",
  C: "~@2 x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x", D: "x ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~@11",
})).gain(0.48)

// drums · triangle
const triangle = s("triangles:35").struct("<~@56 [x ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~ x]!32 ~>").gain(2.79)

stack(bass, epiano2, epiano2_soft, kick, snare, hihat, low_tom, mid_tom, open_hat, high_tom, crash, ride, triangle)