// Back Home Again — John Denver
// 100 bpm, 4/4, key E major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 119 bars on a 16-step grid, each part at one level. 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 · "back home"
const piano = note(`<
  A@2 B@2 C D@2 E F@3 G@2 H@2 I@4 J K L M N@2 O@2 P Q R@2 S@2 T@2 U V W@2 X Y@2 Z AA AB@2 AC@2 K L M N@2 O@2 P Q AD@2
  AE@2 T@2 U V W@2 X Y@2 Z AA AB@2 AF AG AH@2 AI@2 AJ AK@2 AL AM@3 AN AO AP@2 J AQ L AR N@2 O@2 P AS AD@2 S@2 T@2 U V
  W@2 X Y@2 Z AA AT@3
>`.pickRestart({
  A: "~ c4 [e4,g4] c4 ~ c4 [e4,g4] c4, c2 g2", // Em
  B: "[~ c4 [e4,g4] c4 ~ [c4,e4] [d4,f4] ~ c2 g2 e3 [g2,e4,g4] c2 g2 e3 [g2,d4,f4], c2 g2 ~@2, ~@7 [e4,g4]@4 ~ [e4,g4]@3 ~]/2", // Em C Dm C G7 Em
  C: "[c2,f4] g2 e3 g2 d2 f3 e2 g3, [g3,a#3]@3 ~, ~ e4@5 ~@2", // F5 Gm
  D: "[f2 c3 f3 [c3,g4] [f2,c4,f4] c3 f3 c3 f2 c3 ~ c3 f2 c3 f3 [c3,g3], [a3,c4]@4 ~ [a3,c4]@2 a3@7 ~@2, f4@3 ~@4 f3@3 f3@4 ~@2]/2", // C5 F5 C5 Am
  E: "[g2,b3,g4] [d3,b3,g4] f3 d3 g2 d3 f3 [d3,a#3,f#4], ~@2 [b3,g4]@5 ~", // G Daug Em
  F: "[[g2,a3,f4]@2 d3@2 f3@2 d3@2 g2@2 [d3,g3,b3]@2 [f3,b3,d4]@2 d3@2 c2@2 g2@2 e3@2 g2@2 c2@2 g2@2 e3@2 g2@2 c2@4 [g1,g2,b3]@4 [a1,a2,c4]@4 ~@2 e4 f4, ~ g3@3 ~@3 [b3,d4]@2 [c4,e4]@9 ~@4 [b1,b2,d4]@2]/3", // Dm G Bdim G Am Bm C Bm
  G: "[[c2,c4,e4,g4] g2 e3 [g2,g4] c2 g2 [e3,g4] g2 c2 [g2,e4] e3 g2 d2 f3 e2 g3, ~ [c4,e4,g4]@2 [c4,e4]@4 [g3,a#3,f4]@2 [g3,a#3]@5 ~@2, ~@2 a4 ~@2 d4@2 ~]/2", // C G Em C Gm7 Gm
  H: "[f2 c3 f3 [c3,g4] f2 c3 [f3,a3,c4] c3 f2 c3 ~ c3 f2 c3 f3 [c3,g3], [a3,c4]@4 [c4,f4]@2 ~ a3@7 ~@2, f4@3 ~@4 f3@3 f3@4 ~@2]/2", // C5 F C5 Am F5
  I: "[[g2,b3,g4]@2 d3@2 f3@2 d3@2 g2@2 d3@2 [f3,a#3,f#4]@2 d3@2 g2@2 d3@2 f3@2 d3@2 [g2,a3,f4]@2 ~@2 f3 ~ d3@2 c2@2 [g2,c4]@2 e3@2 g2@2 c2@2 g2@2 e3@2 g2@2 c2@4 [g2,b3]@4 [a1,a2,c4]@4 ~@2 g4!2, ~@2 [b3,g4]@4 [b3,g4]@6 ~@2 [a3,f4]@10 ~@2 d3@2 ~ d4@5 ~@2 c4@16 ~@12, ~@27 [g3,e4]@2 f3@3 g3@20 ~@8 [b1,b2,d4]@4]/4", // G F#maj7 Dm C5 G Am Em Dm …
  J: "c2 g2 e3 [g2,c4,e4,g4] c2 g2 e3 [g2,c4,e4,g4], [c4,e4,g4]@3 ~ [c4,e4,a4]@3 ~", // C Am
  K: "[c2,f4] g2 e3 g2 d2 f3 e2 [g3,e4], a#3, g3@7 ~, ~ e4@3 ~ d4@2 ~", // F5 C
  L: "f2 c3 f3 c3 [f2,b3,g4] ~@2 c3, [a3,c4,f4]@4 ~ c3 f3 ~, ~@11 a3@5, ~@11 f4@2 c4@3", // G7 F
  M: "f2 c3 ~ c3 f2 c3 f3 [c3,g4], a3@3 ~, f3 f3@2 ~", // C5
  N: "[[g2,b3,g4] d3 f3 d3 g2 d3 [f3,a#3,f#4] d3 g2 d3 f3 d3 g2 [d3,a3,b3,f4] [f3,g3,b3,e4] [d3,f3,b3,d4], ~ [b3,g4]@2 [b3,g4]@3 ~ [a3,f4]@6 ~@3]/2", // G F#maj7 Bm7b5 Em Bdim Em Dm
  O: "[c2@2 g2@2 e3@2 g2@2 c2@2 g2@2 e3@2 g2@2 c2@4 [g2,b3]@4 [a1,a2,c4]@4 ~@2 e4 f4, [g3,c4,e4]@5 ~@2 [b1,b2,d4]]/2", // G Am C Bm
  P: "c2 g2 e3 g2 c2 g2 e3 [g2,g4], [c4,e4], g4@5 a4@2 ~", Q: "[c2,f4] g2 e3 g2 d2 f3 e2 g3, a#3, g3@7 ~, ~ e4@7",
  R: "[[f2,a3,c4,f4]@2 c3@2 f3@2 c3@2 f2@2 c3@2 [f3,c4]@2 c3@2 f2@2 c3@2 ~@2 c3@2 f2@2 c3@2 ~ [b3,g4]!3, ~ [a3,c4,g4]@2 [a3,c4,f4]@3 ~ a3@7 ~@2, ~@7 f3@3 f3@4 f3 c3]/2", // F F5 Em Am7 F
  S: "[g2 d3 f3 d3 [g2,b3,g4] d3 f3 d3 g2 d3 f3 [d3,a3,f4] g2 d3 ~ d3, [b3,g4]@4 ~ [a#3,f#4]@2 [a3,f4]@4 ~ [g3,e4]@2 [f3,b3]@2]/2", // G Dm Em D#m Dm C Fdim
  T: "[c2 g2 e3 g2 c2 g2 e3 g2 c2@2 [c2,c3,e4]@2 [d2,d3,f4]@2 [e2,e3,g4]@2, [g3,c4]@5 a#3@3]/2", // C Dm Em C5
  U: "f2 c3 f3 [c3,c4,f4,a4] f2 c3 f3 [c3,c4,f4,a4], [c4,f4,a4]@3 ~ [c4,f4,a4]@3 ~", // F
  V: "[g2,b3,d4,g4] d3 f3 d3 g2 d3 f3 [d3,f4], ~ [b3,d4,g4]@2 [b3,d4]@5, ~@3 g4@4 ~", // G Dm G Bm
  W: "[c2 g2 e3 g2 c2 g2 e3 g2 c2@2 [c2,c3,e4]@2 [d2,d3,f4]@2 [e2,e3,g4]@2, [g3,c4,e4]@5 a#3@3]/2", // C Dm Em C
  X: "f2 c3 [f3,c4,f4,a4] c3 f2 c3 f3 c3, ~@3 [c4,f4,a4]@5", // F
  Y: "[[g2,b3,d4,g4] d3 f3 d3 g2 d3 f3 d3 c2 g2 e3 [g2,g4] d2 f3 e2 g3, ~ [b3,d4,g4]@2 [b3,d4,g4]@4 [g3,c4,e4]@2 [g3,c4]@3 ~@4, ~@9 e4@2 ~ [c4,e4]@2 [a#3,d4]@2]/2", // G C C5 C A#
  Z: "f2 c3 f3 c3 f2 c3 f3 [c3,e4], [a3,c4]@4 [c4,f4,a4]@3 ~", // C Am F
  AA: "g2 d3 [f3,b3,d4,g4] [d3,g4] g2 d3 f3 [d3,g3], [b3,d4,g4]@2 ~ b3@3 ~@2, ~@3 d4@2 ~@3, ~@2 a4 ~", // G7 G5 G
  AB: "[[g2,a3,f4] d3 f3 d3 g2 d3 [f3,b3] d3 c2 g2 e3 g2 c2 g2 e3 g2, ~ [a3,f4]@3 [g3,e4]@2 ~ [g3,c4]@9]/2", // Dm Fdim Dm C C5
  AC: "[c2@2 [g2,b3]@2 [a1,a2,c4]@2 [b1,b2,d4]@2 c2 g2 e3 [g2,c4,e4,g4] c2 g2 e3 [g2,c4,e4,g4], ~@6 g4@5 ~@5, ~@8 [c4,e4]@3 ~ [c4,e4,a4]@3 ~]/2", // G Am Bm C Am
  AD: "[[f2,a3,c4,f4]@2 c3@2 f3@2 c3@2 f2@2 c3@2 [f3,c4]@2 c3@2 f2@2 c3@2 ~@2 c3@2 f2@2 c3@2 f3@2 [b3,g4]!2, ~ [a3,c4,g4]@2 [a3,c4,f4]@3 ~ a3@7 ~@2, ~@7 f3@3 f3@4 ~ c3]/2", // F F5 Em Am7 F
  AE: "[g2 d3 f3 d3 [g2,b3,g4] d3 f3 d3 g2 d3 f3 [d3,a3,f4] g2 d3 ~ d3, b3@4 ~ [a#3,f#4]@2 [a3,f4]@4 ~ [g3,e4]@2 [f3,b3]@2, g4!2 ~@6]/2", // G Dm D#m Dm C Fdim
  AF: "c2@2 [c2,c3,e4]@2 [d2,d3,f4]@2 g4 c4, ~ a#3@3, ~@3 [e2,e3]", // C Dm E
  AG: "f2 c3 a3 [c3,c4,a4,c5] f2 c3 a3 [c3,g4,b4], [c4,a4,c5]@3 ~ [c4,a4,c5]@3 ~", // F Cmaj7 F
  AH: "[[g2,d4,f4,b4]@2 d3@2 g3@2 d3@2 g2@2 d3@2 [g3,a4]@2 d3@2 ~@2 c4@2 e4@2 c4@2 [c4,a4]@3 ~@2 [a#3,e4]@3, ~@2 [d4,f4,b4]@4 [d4,f4]@8 [c4,e4]@4 ~@9 [a#3,g4]@3 ~@2, ~@3 b4@3 ~ g4@5 ~@2 e2@2, ~@16 c2@4 c2@4 [d2,e4]@5 ~@3]/2", // G7 Gsus2 F A#dim Bdim Dm C D# …
  AI: "[f2 c3 f3 c3 f2 c3 f3 c3 d2 a2 f3 a2 d2 a2 f3 a2, [a3,c4]@6 ~ d4@2 [d4,f4]@2 [d4,f4,a4]@2 [f4,a4,c5]@3]/2", // Am Dm F
  AJ: "g2 d3 f3 [d3,c5] g2 d3 f3 [d3,a4], ~ [d4,f4]@3 [d4,f4]@4, ~ b4@2 ~ b4@3 ~", // D7 D5 Dm
  AK: "[c2 g2 e3 g2 c2 g2 e3 g2 c2@2 [c2,c3,e4]@2 [d2,d3,f4]@2 g4 c4, e4 [c4,e4,g4]@4 a#3@3, ~@7 [e2,e3]]/2", // C Dm C E
  AL: "[f2,c4,a4,c5] c3 a3 c3 f2 [c3,c5] a3 c3, ~ [c4,a4]@7, ~ c5@4 ~ d5@2", // F C F
  AM: "[[g2,c5] d3 g3 d3 g2 d3 g3 d3 [c4,e4] c4 e4 [c4,a4] [d2,e4,g4]@2 [c4,e4] ~ f2 c3 f3 c3 f2 c3 f3 [c3,e4], [d4,f4]@4 c2!2 ~ e2 ~@4, ~ b4@6 g4@4 ~@4 [a3,c4]@7 ~@2]/3", // C5 C F Em7 C Dm Am
  AN: "d4 e4 a2@2 f3@2 a2@2 d2@2 a2@2 f3@2 [a2,d4,f4,a4]@2, d2 [a3,d4,f4]@5 ~@2", // Dm
  AO: "[f2,c4,a4,c5] c3 a3 c3 [f2,c4,a4,c5] c3 a3 c3, ~ [c4,a4,c5]@3 ~ [c4,a4,c5]@3", // F
  AP: "[[g2,a4]@2 [d3,b3]@2 f3@2 d3@2 [g2,f4]@2 [d3,a3]@2 f3@2 d3@2 e4@2 g3@2 [g2,e4]@4 [a1,a2,c4]@3 ~@2 g4@2 ~, ~@2 g4@18 ~@7 g4@2 ~@3, ~ d4 ~ f4 g2 ~@2 [b1,b2,d4]]/2", // Gsus2 G G7 D5 C Am Bm
  AQ: "[c2,f4] g2 e3 g2 d2 f3 e2 [g3,e4], a#3, g3@7 ~, ~ e4@3 ~@4", // F5 C
  AR: "f2 c3 ~ c3 f2 c3 [f3,g4] [c3,g4], a3@3 ~, f3 f3@2 ~", // Fsus2 C5
  AS: "[c2,f4] g2 e3 g2 d2 f3 e2 [g3,e4], a#3, g3@7 ~, ~ e4@6 ~", // F5 C
  AT: "[[g2,a3,f4] d3 f3 d3 g2 d3 [f3,b3] d3 c2 g2 e3 g2 c2 g2 e3 g2 c2 g2 e3 g2 ~@4, ~ [a3,f4]@3 [g3,e4]@2 ~ [g3,c4]@17]/3", // Dm Fdim Dm C C5
})).s("gm_piano").gain(0.26)

stack(piano)