// ER — Television Theme Songs
// 100 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (3/4 at bar 1, 4/4 at bar 16) are rendered on a constant 4/4 grid of one bar per cycle
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 35 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(100/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 · piano · "untitled"
const piano = note("<~ A B@4 ~ C@2 ~@2 D@4 ~@20>".pickRestart({
  A: "~@14 e5!2",
  B: "[b4 b4@2 c#5@2 ~@5 f#5!2 b4 b4@2 c#5@2 ~@5 [e4,e5]!2 [b3,b4] [b3,b4]@2 [c#4,c#5]@2 [a3,a4]@2 ~@3 [f#4,f#5]!2 [b3,b4] [b3,b4]@2 [c#4,c#5]@2 [a3,a4]@2 ~@21, ~@6 [g1,g2]@3 [a1,a2]@4 ~@3]/4", // E B C# A F# B C# A …
  C: "[~@2 [b4,b5] [c#5,c#6] ~@4 [c#5,c#6]@3 ~@5, ~@8 [d5,d6]@7 d3@7 ~@10, ~@6 [d2,e5,e6]@5 ~@5, ~@13 g2@9 ~@10, ~@7 a2@4 ~@5]/2", // B C# D Dsus2
  D: "[~@6 b3@4 ~ c#4 ~@4 e4@2 [g#3,c#4,e4]@7 ~@7, [f#3,d#4]@24 [e3,a3]@23 ~@17, b3@3 d#3@8 ~@5, ~@2 f#4@3 b3 c#4@3 ~@7, ~@3 g#3@6 ~@7]/4", // C#m D#m A5
})).s("gm_piano").gain(0.26)

// chords · synth strings 1
const synth_strings_1 = note("<A@5 B@6 C@3 D@2 E F@2 ~@16>".pickRestart({
  A: "[~ [b1,b2,b3,e4,f#4,a4]@13 [g1,g2,g3,b3,d4,g4]@3 [a1,a2,a3,c#4,e4]@3, ~ b4@19]/5", // Bsus4 G A
  B: "[[b1,b2,f#3]@3 g3@2 [e3,a3] [b1,b2,f#3]@3 g3@2 [e3,a3], b3, d3@5 ~ d3@5 ~, ~ [g1,g2] ~ [g1,g2]]/6", // B5 A5 B5 A5 G
  C: "[[b1,b2,d#3,f#3,b3]@12 [g#1,g#2,d#3,g#3,b3]@11 ~ [a1,a2,e3,a3,c#4]@11 ~ [c#2,c#3,e3,g#3,c#4]@12]/3", // B G#m A C#m
  D: "[b1,b2,f#3,b3]/2", E: "[g1,g2,g3,b3]", F: "[[a1,a2,e3,a3,b3]@15 [b1,b2,b3]@2 [b1,b2,b3] [b1,b2,b3]@2 ~@12]/2",
})).s("gm_synth_strings_1").gain(0.35)

// bass · acoustic bass
const bass = note("<~@2 A B@2 C@3 D@3 E@3 F G H I@2 ~@16>".pickRestart({
  A: "~@6 b2@2 b1@3 ~@5", B: "[~@2 b2@2 b1@3 ~ g2@12 a1@12]/2", C: "[~@6 a1 b1@11 a1 b1@11 a1 g1@11 a1 g1@5]/3",
  D: "[b1@5 ~ a1 b1@11 a1 b1@11 a1 g1@11 a1 g1@5]/3",
  E: "[b1 b1@2 b1@2 b1@7 g#1 g#1@2 g#1@2 g#1@7 a1 a1@2 a1@2 a1@7 c#2 c#2@2 c#2@2 c#2@7]/3", F: "b1 b1@2 b1@11 b1@2",
  G: "b1@3 b1 b1@3 b1", H: "g2", I: "[a2@15 b1@2 b1 b1@2 ~@12]/2",
})).s("gm_acoustic_bass").gain(0.6)

// other · overdriven guitar · B
const overdriven_guitar = note(`<
  ~@16
  [[b3,b4,b5] ~ [b3,b4,b5]!2 ~ [b3,b4,b5] ~ [b3,b4,b5]!2 ~ [b3,b4,b5] ~ [b3,b4,b5] ~ [b3,b4,b5]!2]
  [~ [b3,b4,b5] ~ [b3,b4,b5]!2 ~ [b3,b4,b5] ~ [b3,b4,b5] ~ [b3,b4,b5]!2 ~ [b3,b4,b5] ~ [b3,b4,b5]]
  [~ [b3,b4,b5]!2 ~@13]
  ~@16
>`).s("gm_overdriven_guitar").gain(0.35)

// other · overdriven guitar · soft notes · B
const overdriven_guitar_soft = note("<~@16 [~ [b3,b4,b5] ~@11 [b3,b4,b5] ~@2] [~@9 [b3,b4,b5] ~@6] ~@17>")
  .s("gm_overdriven_guitar").gain(0.23)

// drums · kick
const kick = s("bd").struct("<[~@4 x!3 ~@9] ~@13 x!2 ~ [~@15 x] [~ x!2 ~@13] ~@16>").gain(0.63)

// drums · snare
const snare = s("sd").struct("<~@17 [~@12 x!3 ~] ~@17>").gain(0.63)

// drums · low tom
const low_tom = s("lt").struct("<~@5 A B C A B C A B C ~@21>".pickRestart({
  A: "~@4 x!3 ~ x ~@7", B: "x!3 ~ x ~@7 x!3 ~", C: "x ~@7 x!3 ~ x ~@3",
})).gain(0.63)

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

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

// drums · open hat
const open_hat = s("oh").struct("<A B C D ~ E F B E F B E F B G@4 ~@17>".pickRestart({
  A: "~@11 x ~@3 x", B: "~@7 x ~@3 x ~@4", C: "~@2 x ~@3 x ~@6 x ~@2", D: "~ x ~@14", E: "~@3 x ~@3 x ~@7 x",
  F: "~@3 x ~@7 x ~@3 x", G: "~@5 x ~@5 x ~@4",
})).gain(0.63)

// drums · high tom
const high_tom = s("ht").struct("<~@14 [~@3 x ~@2 x ~@5 x ~@3]!4 ~@17>").gain(0.63)

// drums · splash
const splash = s("cr").struct("<~@5 x ~@29>").gain(0.63)

// drums · triangle
const triangle = s("triangles:35").struct("<~@3 [~@4 x ~ x ~@2 x ~ x ~ x ~ x] [x ~ x ~@2 x ~ x ~ x ~ x!2 ~ x ~] ~@30>")
  .gain(5.52)

// drums · shaker
const shaker = s("sh").struct("<~@3 [~@2 x!2] [x!4] [x!16]!9 ~@21>").gain(0.63)

stack(
  piano, synth_strings_1, bass, overdriven_guitar, overdriven_guitar_soft, kick, snare, low_tom, hihat, mid_tom,
  open_hat, high_tom, splash, triangle, shaker
)