// The Ballad of Dorothy Parker — Prince
// 103 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 94 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(103/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
const bass = note(`<
  ~@5 A B C B C B C D A B C B C B C D A B C B C B C D A B C B C B C D A B C B C B C D E F G H I J K L A B C B C B C D A
  B C B C B C D M@3 N O P Q R A B C B C B C D A B C B C B C D S
>`.pickRestart({
  A: "e1@3 c2@3 a1@2 b1 e1 g1@2 e1@3 ~", B: "e1@3 c2@3 a1@2 b1@2 e1@3 ~@3", C: "e1@3 c2@3 a1@2 b1 e1 g1@2 e1@2 ~@2",
  D: "e1@2 ~ e1@2 ~@3 b1@2 e1@2 ~@4", E: "g1@2 ~ g1 ~@4 g1 ~ g1 ~@2 g1 ~@2", F: "g1@2 ~ g1 ~@4 g1 ~ g1@2 ~ g1 ~@2",
  G: "g1@2 ~ g1 ~@4 g1 ~ g1@2 ~ g1@2 ~", H: "g1@2 ~ g1 ~@6 g1 ~@2 g1@2 ~", I: "g1@2 ~ g1 ~@4 g1 ~@2 g1@2 g1 ~@2",
  J: "g1@2 ~ g1 ~@4 g1 ~@2 g1 ~ g1 ~@2", K: "e1@2 ~ e1 ~@12", L: "e1 ~@2 e1 ~@12", M: "g1!3 ~@3 g1 ~@3 g1 ~@3 g1 ~",
  N: "g1!3 ~@3 g1 ~@2 g1 ~@4 g1 ~", O: "a1!2 a1@2 ~@2 a1 ~@3 a1 ~@3 a1 ~", P: "a1!3 ~@3 a1 ~@3 a1 ~@3 a1 ~",
  Q: "a1 a1@2 ~@3 a1 ~@3 a1 ~@3 a1 ~", R: "a1!3 ~@3 a1 ~@3 a1 ~@2 a1 ~@2", S: "e1@3 ~@13",
})).s("gm_fretless_bass").gain(0.46)

// chords · celesta
const celesta = note(`<
  ~ A B C@2 D E F G H I J@2 D E F G H I J@2 D E F G H I J@2 D E F G H I J@2 D E F G H I J@2 K L M N O P Q R S@2 T U V ~
  W X D E F G H I J@2 Y Z AA@2 AB@2 AC AD D E F G H I J@2 D E F G H I J@2 AE
>`.pickRestart({
  A: "[a3,e4]@7 ~", B: "[f3,a3,b3,e4]@15 ~", C: "[[g3,b3,d4,e4]@31 ~]/2", D: "[a3,c4,e4,g4]@15 ~", E: "[g#3,c4,d4]@7 ~",
  F: "[b3,d4,g4]@7 ~", G: "[f#3,a3]@7 ~", H: "[f3,a3,b3,e4]@7 ~", I: "b3@7 ~", J: "[[g3,b3]@31 ~]/2",
  K: "[g3,b3]@2 ~ [g3,b3] ~@4 [g3,b3] ~ [g3,b3] ~@2 [g3,b3] ~@2", // G
  L: "[g3,b3]@2 ~ [g3,b3] ~@4 [g3,b3] ~ [g3,b3] ~@2 [g3,c4] ~@2", // G C5
  M: "[g3,b3] ~@2 [g3,b3] ~@4 [g3,b3] ~ [g3,b3] ~@2 [g3,b3] ~@2", // G
  N: "[g3,b3] ~@2 [g3,b3] ~@4 [g3,b3] ~ [g3,b3] ~@2 [g3,a3,c4]@2 ~", // G Am7
  O: "[g3,b3]@2 ~ [g3,b3] ~@4 [g3,b3] ~ [g3,b3] ~@2 [g3,a3,c4] ~@2", // G Am7
  P: "[g3,b3]@2 ~ [g3,b3] ~@4 [g3,b3] ~ [g3,b3] ~@2 [g3,a3,b3,c4] ~@2", Q: "[g3,b3,e4]@2 ~ [g3,b3,e4] ~@12",
  R: "[e3,b3,e4] ~@2 [e3,b3,e4]@2 ~@11", S: "[[g4,a4,d5]@29 ~@3]/2", T: "[g4,a4] ~@15, e4 ~@7",
  U: "~@7 [e4,g4] g5 c6@2 g5 e5 ~ c5 ~, ~@8 b4@2 ~@3 b4@2 ~", V: "~@3 [f#4,g4]@13",
  W: "[d4,f#4,b4]@2 ~ [c4,e4]@3 ~@2 [b3,d4,f#4,g4]@2 ~ [a3,c4,e4,f4]@3 ~@2, g4 ~ [f#4,a4]@3 ~@11", // Bm C Gmaj7 Fmaj7 F#m
  X: "[g3,b3,d4,e4]@15 ~", Y: "[b3,d4,g4]@7 ~ [c4,e4,a4]@3 ~ [d4,f#4,b4]@3 ~",
  Z: "[b3,d4,g4]@6 ~@2 [c4,e4,a4]@3 ~ [d4,f#4,b4]@2 ~@2", AA: "[b3,d4,g4]@6 ~@2 [c4,e4,a4]@3 ~ [d4,f#4,b4]@3 ~",
  AB: "[[d4,g4,b4]@2 ~ [c#4,e4,a4]@3 ~@2 [b3,d4,g4]@2 ~ [a3,c#4]@4 b3@8 ~@3 [a3,c#4]!2 c#4@2 [a3,c#4] ~, ~@11 e4@11 ~@6 a3 ~@3]/2", // G A G A
  AC: "[a3,c4,e4]@6 ~@2 [b3,d4,f#4]@7 ~", AD: "[b3,d#4,g4]", AE: "[g3,b3,d4]@9 ~@7",
})).s("gm_celesta").gain(0.31)

// chords · celesta · soft notes
const celesta_soft = note(`<
  ~ A ~@6 B ~ C D@2 ~@3 B ~ C D@2 ~@3 B ~ C D@2 ~@3 B ~ C D@2 ~@3 B ~ C D@2 ~@9 E ~ F@3 ~@5 B ~ C D@2 ~@4 G@2 ~@5 B ~ C
  D@2 ~@3 B ~ C D@2 H
>`.pickRestart({
  A: "[f#3,c#4]@7 ~", B: "[c#4,e4]@7 ~", C: "[f#3,d#4]@7 ~", D: "[e4@31 ~]/2", E: "~@15 a#4",
  F: "[~@10 b5 ~@8 d4@14 ~@15, ~@5 b4@6 ~@5]/3", G: "[~@3 g#4@2 ~@10 d4@8 ~@9]/2", H: "e4 ~",
})).s("gm_celesta").gain(0.2)

// other · harpsichord
const harpsichord = note(`<
  ~@5 A B C D E D F D A B C D E D F D A B C D E D F D A B C D E D F D A B C D E D F D G@5 H I@2 A B C D E D F D A B J D
  E D F D K@4 L@2 M@2 A B J D E D F D A B C D E D F D N
>`.pickRestart({
  A: "e1@2 ~ e1@2 ~@2 c3 d3 ~ g3 ~@5", B: "e1@2 ~ e1@2 ~@11", C: "e1@2 ~ e1 ~@3 c3 d3 ~ g3 ~@5", D: "e1@2 ~ e1 ~@12",
  E: "e1@2 ~ e1 ~@4 d3 e3@6 ~", F: "e1@2 ~ e1 ~@4 d3 ~@2 e3@5", G: "g1@2 ~ g1 ~@12", H: "g1 ~@2 g1 ~@12",
  I: "e1 ~@2 e1 ~@12", J: "e1 ~@2 e1 ~@3 c3 d3 ~ g3 ~@5", K: "g1@2 ~ g1 ~@4 g1 ~@7", L: "a1@2 ~ a1 ~@4 a1 ~@7",
  M: "a1@2 ~ a1 ~@12", N: "e1@5 ~@11",
})).s("gm_harpsichord").gain(0.41)

// other · harpsichord · soft notes
const harpsichord_soft = note(`<
  ~@5 A ~ B ~ C ~ D ~ A ~ B ~ C ~ D ~ A ~ B ~ C ~ D ~ A ~ B ~ C ~ D ~ A ~ B ~ C ~ D ~@9 A ~ B ~ C ~ D ~ A ~ B ~ C ~ D
  ~@9 A ~ B ~ C ~ D ~ A ~ B ~ C ~ D ~@2
>`.pickRestart({
  A: "~@9 e3 ~ e3@4 ~", B: "~@9 e3 ~ e3@5", C: "~@7 c3 ~@2 g3 ~@5", D: "~@7 c3 ~ [e3,g3] ~@6",
})).s("gm_harpsichord").gain(0.26)

// 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 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 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 A B A B A B A B C
>`.pickRestart({
  A: "x ~@2 x ~@4 x ~ x ~@2 x ~@2", B: "x ~@2 x ~@4 x ~ x ~@3 x ~", C: "x",
})).gain(0.46)

// drums · rim
const rim = s("rim").struct(`<
  ~@2 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A
  ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
>`.pickRestart({
  A: "~@2 x!3 ~@3",
})).gain(0.36)

// drums · snare
const snare = s("sd").struct("<A B@3 C B@15 D B@7 E B@13 D B@4 ~@2 B@2 ~@2 B@7 D B@23 D B@8 F>".pickRestart({
  A: "~@11 x!5", B: "~ x ~ x", C: "~@4 x ~@7 x!4", D: "~@4 x ~@6 x!5", E: "~@4 x ~@7 x!3 ~", F: "x",
})).gain(0.46)

// drums · low tom
const low_tom = s("lt").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 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 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 A B A B A B A B ~
>`.pickRestart({
  A: "x", B: "x ~@2 x ~@12",
})).gain(0.2)

// drums · low tom · soft notes
const low_tom_soft = s("lt").struct(`<
  ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
  A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@2
>`.pickRestart({
  A: "~@3 x ~@12",
})).gain(0.1)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@5 A B A B A B A B ~@8 A B A B A B A B C D C D C D C D 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 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 ~
>`.pickRestart({
  A: "x!4 ~@2 x!4 ~@2 x ~ x ~", B: "x ~ x!2 ~ x ~@2 x!2 ~ x ~ x ~@2", C: "~@6 x!2", D: "x ~@2 x ~@7 x ~@4",
})).gain(0.2)

// drums · high tom
const high_tom = s("ht").struct(`<
  ~@2 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A
  ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
>`.pickRestart({
  A: "~@9 x ~ x ~@4",
})).gain(0.41)

// drums · crash
const crash = s("cr").struct("<~ x ~@3 x ~@87 x>").gain(0.2)

// drums · tambourine
const tambourine = s("tb").struct("<~ [x!8]!92 ~>").gain(0.1)

stack(
  bass, celesta, celesta_soft, harpsichord, harpsichord_soft, kick, rim, snare, low_tom, low_tom_soft, hihat, high_tom,
  crash, tambourine
)