// (Theme From) The Monkees — The Monkees
// 155 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 96 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(155/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · [...]/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 · "Piano R2"
const piano = note(`<
  A B C@2 D E F G H@2 I@2 J K L M N O P@2 Q E R@2 S T I@2 J K L M U V W@2 X Y Z ~@4 AA ~@3 H@2 AB@2 AC K AD AE H@2 AB@2
  AC K AD AE H@2 AB@2 AC K AF ~@26
>`.pickRestart({
  A: "~@7 c4", B: "c4@11 ~@5", C: "[~@10 c4@3 ~ [c4,f4]@10 ~@8]/2", D: "~@2 c4 ~ c4 ~ c4 ~ c4@5 ~@3",
  E: "[d4,f#4]@3 ~ [d4,f#4]@8 ~@4", F: "~@8 [d4,f#4] ~ [d4,f#4]@3 ~ [d4,f4]@2", G: "[d4,f4]@11 ~@5",
  H: "[~@4 [f4,a4]@3 ~ [f4,a4] ~ [f4,a4] ~ [f4,a4] ~ [g4,c5]@5 ~ [g4,c5]@2 [g4,a#4]@5 ~@5]/2", // F C5 Gm
  I: "[[f4,a4]@3 ~ [f4,a4]@3 ~ [g4,b4]@3 ~ [g4,b4] ~ [g4,c5]@5 ~ [g4,c5] ~ [g4,a#4]@5 ~@5]/2", // F G C5 Gm
  J: "[f4,a4]@3 ~ [f4,a4]@3 ~ [g4,b4]@4 ~@2 [g4,c5]@2", K: "~@2 [e4,g4] ~ e4 ~ [g4,a#4]@5 ~@5",
  L: "[f4,a4]@3 ~ [f4,a4]@3 ~ [g4,b4]@4 ~@4", // F G
  M: "~@2 [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~", N: "c4@5 ~@3 c4 ~@5 c4@2",
  O: "~ c4@2 ~@5", P: "[c4@3 ~@7 c4@3 ~ [c4,f4]@10 ~@6 c4 ~]/2", Q: "c4@3 ~ c4@3 ~ c4@5 ~@3",
  R: "[~@8 [d4,f#4] ~ [d4,f#4]@3 ~ [d4,f4]@13 ~@5]/2", S: "~@4 [f4,a4]@3 ~ [f4,a4] ~ [f4,a4] ~ [f4,a4] ~ [g4,c5]@2",
  T: "~@4 [g4,c5]@2 [g4,a#4]@5 ~@5", U: "[c4,e4] ~ [a4,c5] ~ [a4,c5]@3 ~ [a4,c5] ~ b4 ~ a4 ~ [g4,c5]@2",
  V: "~ [g4,c5]@4 ~@3", // C5
  W: "[[f4,a4] ~ [f4,a4] ~ [f4,a4] ~ [f4,a4] ~ [f4,b4] ~ [f4,b4]@3 ~ [g4,c5]@6 [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~]/2", // F Fdim C5
  X: "[f4,a4]@3 ~ [f4,a4]@3 ~ f4@3 ~ f4 ~ g4@2", Y: "~@2 [e4,g4]@5 ~@9", Z: "[f4,a4]@3 ~ [f4,a4]@3 ~ f4@3 ~@5",
  AA: "~@8 c4@5 ~@3", AB: "[[f4,a4]@3 ~ [f4,a4]@3 ~ [g4,b4] ~@3 [g4,b4] ~ [g4,c5]@5 ~ [g4,c5] ~ [g4,a#4]@5 ~@5]/2",
  AC: "[f4,a4]@3 ~ [f4,a4]@3 ~ g4@3 ~ g4 ~ g4@2", AD: "[f4,a4]@3 ~ [f4,a4]@3 ~@9",
  AE: "~@4 [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~", AF: "[f4,a4]@3 ~@13",
})).s("gm_piano").gain(0.31)

// chords · piano · "Piano R2" · soft notes
const piano_soft = note("<~@69 A B C@2 D@2 E F G B C@2 D@2 E F G B C@2 D@2 E F G B A>".pickRestart({
  A: "~@4 [f4,a4]@3 ~@9", B: "~@4 [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~ [c#4,e4] ~",
  C: "[~@4 [f4,a4]@3 ~ [f4,a4] ~ [f4,a4] ~ [f4,a4] ~ [g4,c5]@5 ~ [g4,c5]@2 [g4,a#4]@5 ~@5]/2", // F C5 Gm
  D: "[[f4,a4]@3 ~ [f4,a4]@3 ~ [g4,b4] ~@3 [g4,b4] ~ [g4,c5]@5 ~ [g4,c5] ~ [g4,a#4]@5 ~@5]/2", // F G C5 Gm
  E: "[f4,a4]@3 ~ [f4,a4]@3 ~ g4@3 ~ g4 ~ g4@2", F: "~@2 [e4,g4] ~ e4 ~ [g4,a#4]@5 ~@5", G: "[f4,a4]@3 ~ [f4,a4]@3 ~@9",
})).s("gm_piano").gain(0.1)

// other · piano · "Piano L1"
const piano_2 = note(`<
  ~ A B C@2 D E F G H I H I H I J A@3 C@2 D E F G H I H I H I K L H I H I H I M A B C@2 D E F G H I H I H I J N H I H I
  H I J N H I H I H O ~@26
>`.pickRestart({
  A: "a3@5 ~@3 e3@5 ~@3", B: "a3@5 ~@3 c3@5 ~@3", C: "f3@5 ~@3 c3@5 ~@3", D: "d3@5 ~@3 a2@5 ~@3",
  E: "d3@5 ~@3 a2@3 ~ d3@3 ~", F: "g3@3 ~ g2@3 ~ d3@3 ~ g3@3 ~", G: "g3@5 ~@3 g3@5 ~@3",
  H: "c3@3 ~ c3@3 ~ c3@3 ~ c3@3 ~", I: "f2@3 ~ f2@3 ~ g2@3 ~ g2@3 ~", J: "a2@11 ~@5", K: "a2@5 ~@3 e2@3 ~ a2@3 ~",
  L: "a2@5 ~@3 a2@5 ~@3", M: "a2@3 ~ a2@3 ~@9", N: "g2@5 ~@3 g2@5 ~@3", O: "f2@3 ~ f2@3 ~ g2@3 ~@5",
})).s("gm_piano").gain(0.36)

// other · piano · "Piano L1" · soft notes
const piano_soft_2 = note("<~@69 A B C D E D E D E B C D E D E D E B C D E D E D E B C>".pickRestart({
  A: "~@12 g2@3 ~", B: "a2@11 ~@5", C: "g2@5 ~@3 g2@5 ~@3", D: "c3@3 ~ c3@3 ~ c3@3 ~ c3@3 ~",
  E: "f2@3 ~ f2@3 ~ g2@3 ~ g2@3 ~",
})).s("gm_piano").gain(0.1)

stack(piano, piano_soft, piano_2, piano_soft_2)