// The Tears Of A Clown — Robinson
// 131 bpm, 4/4, key C# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: Full arrangement: all 95 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(131/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 · acoustic bass
const bass = note(`<
  ~@5 A@8 B@8 C D E D E D E D E F G H@2 ~@3 A@8 B@8 I D E D E D E J E F G K@2 ~@3 A@8 L ~ A@8 M@7 N
>`.pickRestart({
  A: "[~@7 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1]/8",
  B: "[~ db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1]/8",
  C: "~@2 db2@2 eb2@2 gb2@4 eb2@2 db2@2 ab1 ~", D: "db2@5 ~ db2 ~ gb2@4 ~@2 gb2@2", E: "b1@2 gb2 gb1@2 db2!3",
  F: "ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1@2", G: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1@2",
  H: "[bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ gb1@10 gb2@8]/2", I: "~ db2 eb2 gb2@2 eb2 db2 ab1",
  J: "db2@5 ~ db2@2 gb2@5 ~ gb2@2", K: "[bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1@2 gb1@10 gb2@8]/2",
  L: "~ db2 eb2 gb2@2 eb2 db2@2",
  M: "[~ db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 db2@2 eb2 f2 gb2@2 ab1 bb1 b1@2 db2 eb2 gb2@2 eb2 db2 bb1]/7",
  N: "db2 ~@15",
})).s("gm_acoustic_bass").gain(0.4)

// chords · harpsichord
const harpsichord = note(`<
  ~@2 A B A C@2 D@2 E@2 F@2 G@4 F@8 H@2 F@2 I J K L M A B N C@2 O@4 F@4 P@2 Q@2 P@4 R@2 S@2 R@2 T J U L V A W X C@2 Y@4
  T Z AA A C@2 AB AC@7 AD@5 AE
>`.pickRestart({
  A: "f4@2 ~@2 gb4@2 ~@2 ab4@2 ~@4 ab4 bb4", B: "b4 ~ bb4 ~ ab4 ~ gb4 ~ f4 ~@7",
  C: "[b4 ~ bb4 ~ ab4 ~ gb4 ~ f4 ~@5 [db4,f4,ab4]@9 ~ [db4,gb4,bb4]@7 ~]/2", // Db Gb
  D: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@6 [db4,f4,ab4]@8 ~@2 [db4,gb4,bb4]@7 ~]/2", // B Gb Db Gb
  E: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@6 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@6 ~@2]/2", // B Gb Db Gb
  F: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@7 ~]/2", // B Gb Db Gb
  G: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@7 ~@3 [db4,gb4]@4 [db4,gb4]@4 [b3,eb4,gb4]@7 ~ [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@7 ~, ~@28 bb4@7 ~@29]/4", // B Gb Db Gb5 B Gb Db Gb
  H: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@8 ~@2 [db4,gb4,bb4]@7 ~]/2", // B Gb Db Gb
  I: "[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@7 ~", J: "[c4,eb4,ab4]@3 ~ [c4,eb4,ab4]@2 ~ [c4,eb4,ab4]!2 ~ [c4,eb4,ab4]@4 ~@2",
  K: "[c4,eb4,a4]@3 ~ [eb4,a4]@2 ~ [c4,eb4,a4]!2 ~ [c4,eb4,a4]@3 ~@3, ~@4 c4 ~@11", // Adim Ebdim Adim
  L: "[bb3,db4,f4,bb4]@3 ~ [bb3,db4,f4,bb4]@2 ~ [bb3,db4,f4]!2 ~ [bb3,db4,f4,bb4]@3 ~@3, ~@7 bb4@2 ~@7", // Bbm
  M: "[db4,f4,bb4]@13 ~@3", N: "f4 ~@3 gb4 ~@3 ab4 ~@5 ab4 bb4",
  O: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@5 ~ [db4,f4,ab4]@4 [bb3,db4,gb4]@2 [db4,gb4,bb4]@3 ~ ab4@4 gb4@4 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@7 ~, ~@15 [b3,eb4]@4 ~@13]/4", // B Gb Db Gb Db Gb B
  P: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@5 ~ [db4,f4,ab4]@3 ~ [db4,gb4,bb4] ~ [db4,gb4,bb4]@5 ~]/2", // B Gb Db Gb
  Q: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 ~@2]/2", // B Gb Db Gb
  R: "[[b3,eb4,gb4]@7 ~ [db4,gb4,bb4]@6 [db4,f4,ab4]@8 ~@2 [db4,gb4,bb4]@7 ~]/2", // B Gb Db Gb
  S: "[[b3,eb4,gb4]@7 ~ [db4,gb4,bb4]@6 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@7 ~]/2", // B Gb Db Gb
  T: "[b3,eb4,gb4]@7 ~ [db4,gb4,bb4]@7 ~", U: "[c4,eb4,a4]@3 ~ [c4,eb4,a4]@2 ~ [c4,eb4,a4]!2 ~ [c4,eb4,a4]@3 ~@3",
  V: "[db4,f4,bb4]@7 ~", W: "b4 ~ bb4 ~ ab4 ~ gb4 ~ f4@2 ~@6", X: "f4 ~@3 gb4@2 ~@2 ab4@2 ~@4 ab4 bb4",
  Y: "[[b3,eb4,gb4]@6 ~@2 [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@5 ~ [db4,f4,ab4]@3 ~ [db4,gb4,bb4] ~ [db4,gb4,bb4]@4 [b3,eb4,gb4]@9 ~ [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@7 ~]/4", // B Gb Db Gb B Gb Db Gb
  Z: "[db4,f4,ab4]@7 ~ [db4,gb4,bb4]@2 [db4,gb4,bb4]@4 ~@2", AA: "[b3,eb4,gb4]@3 ~ [db4,gb4,bb4] [db4,gb4,bb4]@2 ~",
  AB: "[b3,eb4,gb4]@3 ~ [db4,gb4,bb4] [db4,gb4,bb4]@2 [db4,f4,ab4]", // B Gb Db
  AC: "[~@4 [db4,f4,ab4]@3 ~ [db4,gb4,bb4] ~ [db4,gb4,bb4]@4 [b3,eb4,gb4]@9 ~ [db4,gb4,bb4] ~ [db4,gb4,bb4]@4 [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@5 ~ [b3,eb4,gb4]@9 ~ [db4,gb4,bb4] ~ [db4,gb4,bb4]@3 ~ [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@4 ~@2 [b3,eb4,gb4]@6 ~@4 [db4,gb4,bb4] ~ [db4,gb4,bb4]@3 ~ [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@4 ~@2 [b3,eb4,gb4]@2]/7", // Db Gb B Gb Db Gb B Gb …
  AD: "[~@8 [db4,gb4,bb4] ~ [db4,gb4,bb4]@3 ~ [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@4 ~@2 [b3,eb4,gb4]@6 ~@4 [db4,gb4,bb4] ~ [db4,gb4,bb4]@3 ~ [db4,f4,ab4]@7 ~@3 [db4,gb4,bb4]@4 ~@2 [b3,eb4,gb4]@7 ~@3 [db4,gb4,bb4] ~ [db4,gb4,bb4]@5 ~]/5", // Gb Db Gb B Gb Db Gb B …
  AE: "[db4,f4,ab4] ~@7", // Db
})).s("gm_harpsichord").gain(0.4)

// chords · acoustic guitar nylon
const acoustic_guitar_nylon = note(`<
  ~@6 A B A B A B A B A B A B A B A C ~@8 D E F G ~@4 A B A B A B A B A B A B A B A B ~@8 D E F G ~@4 A B A B A B A B
  ~@2 A B A B A B A B A B A B A B H
>`.pickRestart({
  A: "~@4 [db5,f5,ab5] ~@7 [db5,gb5,bb5] ~@3", B: "~@4 [b4,eb5,gb5] ~@7 [db5,gb5,bb5] ~@3",
  C: "~@4 [b4,eb5,gb5] ~@7 [db4,bb4,gb5] ~@3", // B Gb
  D: "[c5,eb5,ab5]@3 ~ [c5,eb5,ab5]@2 ~ [c5,eb5,ab5]!2 ~ [c5,eb5,ab5]@4 ~@2", // Ab
  E: "[c5,eb5,a5]@3 ~ [c5,eb5,a5]@2 ~ [c5,eb5,a5]!2 ~ [c5,eb5,a5]@3 ~@3", // Adim
  F: "[bb4,db5,f5,bb5]@3 ~ [bb4,db5,f5,bb5]@2 ~ [bb4,db5,f5,bb5] [bb4,db5,f5] ~ [bb4,db5,f5,bb5]@3 ~@3", // Bbm
  G: "[f5,bb5,db6] ~", H: "[db5,f5,ab5] ~@15",
})).s("gm_acoustic_guitar_nylon").gain(0.4)

// other · baritone sax
const baritone_sax = note("<~@2 A B A C@8 D@8 ~@13 A E A C@8 D@8 ~@13 A E A C@8 ~ A C@8 F@8>".pickRestart({
  A: "db3 ~ ab2 ~ eb3 ~ ab2 ~ f3 ~ ab2 ~ db3 ~ ab2 ~", B: "db3 eb3 f3 gb3 db4 ab3 f3 eb3 db3 ~@3 db2@2 ab2 ~",
  C: "[db3 eb3 f3 gb3 db4 ab3 f3 eb3 db3 ~@5 db2@6 ~@10 b1@6 ~@10 db2@6 ~@10 b1@6 ~@10 db2@6 ~@10 b1@6 ~@10 db2@6 ~@10 b1@2]/8",
  D: "[~@7 db2@3 ~@5 b1@3 ~@5 db2@3 ~@5 b1@3 ~@5 db2@3 ~@5 b1@3 ~@5 db2@3 ~@5 b1]/8",
  E: "db3 eb3 f3 gb3 db4 ab3 f3 eb3 db3 ~@3 db2 ~ ab2 ~",
  F: "[~@14 db2@6 ~@10 b1@6 ~@10 db2@6 ~@10 b1@6 ~@10 db2@6 ~@10 b1@6 ~@10 db2@5 ~@13]/8",
})).s("gm_baritone_sax").gain(0.45)

// chords · oboe
const oboe = note("<~@2 A B A B ~@28 A B A B ~@28 A B A B ~@8 A B ~@15>".pickRestart({
  A: "[db4,f5] ~@3 [ab4,gb5] ~@3 [db5,ab5] ~@3 ab4 ~ ab5 bb5", // Db Ab7 Db5
  B: "[db4,b5] ~ [ab4,bb5] ~ [db5,ab5] ~ [ab4,gb5] ~ [db4,f5] ~@7", // Db7 Absus2 Db5 Ab7 Db
})).s("gm_oboe").gain(0.45).pan(0.7)

// other · flute
const flute = note("<~@2 A B A B ~@28 A B A B ~@28 A B A B ~@8 A C@8 D@7 E>".pickRestart({
  A: "f5 ~@3 gb5 ~@3 ab5 ~@5 ab5 bb5", B: "b5 ~ bb5 ~ ab5 ~ gb5 ~ f5 ~@7",
  C: "[b5 ~ bb5 ~ ab5 ~ gb5 ~ f5 ~@5 db6@4 eb6@2 f6@2 gb6@4 db6@2 bb5@2 b5@4 db6@2 eb6@2 gb6@4 eb6@2 db6@2 db6@4 eb6@2 f6@2 gb6@4 db6@2 bb5@2 b5@4 db6@2 eb6@2 gb6@4 eb6@2 db6@2 db6@4 eb6@2 f6@2 gb6@4 db6@2 bb5@2 b5@4 db6@2 eb6@2 gb6@4 eb6@2 db6@2 db6@4 eb6@2 f6@2 gb6@4 db6@2 bb5@2 b5@2]/8",
  D: "[~ db6 eb6 gb6@2 eb6 db6 db6@2 eb6 f6 gb6@2 db6 bb5 b5@2 db6 eb6 gb6@2 eb6 db6 db6@2 eb6 f6 gb6@2 db6 bb5 b5@2 db6 eb6 gb6@2 eb6 db6 db6@2 eb6 f6 gb6@2 db6 bb5 b5@2 db6 eb6 gb6@2 eb6 db6 bb5]/7",
  E: "db6 ~@15",
})).s("gm_flute").gain(0.4).pan(0.3)

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

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

// drums · low tom
const low_tom = s("lt").struct("<~@21 A ~ B ~ C ~ C ~ D ~@9 E ~@15 F ~@3 F ~ G ~@15 H ~@3 B ~ B ~@9 B ~>".pickRestart({
  A: "~@12 x!4", B: "~@7 x", C: "~@4 x!2 ~@2", D: "~@12 x ~ x!2", E: "~@14 x!2", F: "~@8 x ~ x ~ x!3 ~", G: "~@5 x!3",
  H: "~@12 x!3 ~",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct("<[x!2] [x!4] ~@93>").gain(0.3)

// drums · mid tom
const mid_tom = s("mt").struct("<~@5 A ~@16 B C B D B D B E ~@23 F B ~ B G B ~ B ~@16 H ~@5 H ~@9 I ~>".pickRestart({
  A: "~@5 x!2 ~", B: "~@3 x ~@3 x", C: "~@11 x!2 ~@3", D: "~@12 x!3 ~", E: "~@4 x!2 ~@2", F: "~@10 x ~ x!3 ~",
  G: "~@11 x!2 ~ x ~", H: "~@5 x ~@2", I: "~@13 x ~@2",
})).gain(0.4)

// drums · high tom
const high_tom = s("ht").struct("<~@21 A B C B ~ B ~ B ~@25 B ~ B C B ~ B ~@32 D ~>".pickRestart({
  A: "~@8 x!3 ~@5", B: "~@3 x!2 ~@6 x!2 ~@3", C: "~ x", D: "~@5 x!2 ~",
})).gain(0.4)

// drums · crash
const crash = s("cr").struct("<~@5 A ~@16 B@8 C ~@2 C ~@3 A ~@16 B@8 C ~@2 C ~@3 A ~@9 A ~@14 C>".pickRestart({
  A: "~@7 x", B: "x!2", C: "x",
})).gain(0.3)

// drums · tambourine
const tambourine = s("tb").struct("<~@2 [x!16]!92 ~>").gain(0.25)

stack(
  bass, harpsichord, acoustic_guitar_nylon, baritone_sax, oboe, flute, kick, snare, low_tom, hihat, mid_tom, high_tom,
  crash, tambourine
)