// You Turn Me On I'm a Radio — Joni Mitchell
// 120 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: ch 2 "Adlib Violin" named as a string part, played on violin (its choir aahs patch is not one)
// note: Full arrangement: all 75 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(120/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 · "Adlib Piano"
const piano = note(`<
  A B C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC AD AE AF AG AH AI@2 AJ AK AL AM O AN AO AP AQ AR AS AT I
  AU AV AW I AU AV AW I AU AV AX A B C D E F G H A B C D A AY@2
>`.pickRestart({
  A: "[f#3,a3,d4]!2", B: "[f#3,a3,c#4]@3 [a3,c#4] [f#3,a3,c#4]@4", C: "[g3,b3,d4]@3 [b3,d4] [b3,d4]@3 f#4, ~ g3",
  D: "[g3,e4]@4 b3 a3 f#3 d3", E: "[f#3,b3] [f#3,a3]@3 [f#3,a3,d4]@4", F: "[f#3,a3,c#4]@4 b3 a3 f#3 d3, ~@2 f#3 ~",
  G: "[d3,g3,b3]@4 [d3,g3,b3]@3 f#4", H: "[c#4,e4] [b3,d4] [g3,b3] b3 g3 b3 d4!2, g3 d4 ~ a3",
  I: "f#4 a4!2 [d4,f#4] a4@2 f#4 a4, [a3,d4]@3 ~ d4@4", J: "b4@2 a4 f#4 a4 b4@2 ~, c#4@4 [c#4,f#4]@3 ~, f#4@3 ~@5",
  K: "f#4 e4 d4 [g3,b3,d4]!2 a3 b3 f#4, b3@3 ~@5, d4 ~@3", L: "[c#4,e4] [b3,d4]@2 [g3,b3,d4] ~ a3 b3 [g3,b3,d4]",
  M: "[b3,d4,f#4] [f#3,b3,d4] [b3,d4,f#4] [f#3,a3,d4]!2 [d3,f#3] [d3,f#3,a3] a3", // Bm D
  N: "f#4 e4 d4 ~@3 a3!2, a3@4 ~ [g3,b3]@3, d4@2 ~ e4@3 ~@2", // G
  O: "f#4 e4 f#4 [f#3,a3,d4]!2 [g3,b3,d4] a3!2, [b3,d4]@3 ~@5", // D G Bm
  P: "f#4 e4 f#4 [f#3,a3,d4]!2 d4!3, [b3,d4]@3 ~@2 [g3,b3]@3", // D Bm G
  Q: "[g3,b3]@4 b3 ~ b3 [a3,e4], ~@2 [f#3,a3] ~, ~@5 d4@2 ~", R: "[g3,b3,d4]@2 ~ [b3,e4] [g3,b3,d4] b3 a3!2",
  S: "g3 a3 b3 d4 b3 e4 d4@2, e3 ~", T: "[f#3,d4]@2 [f#3,d4]@2 [f#3,d4] d4 d4@2, ~@5 [g3,b3]@2 ~",
  U: "a3!2 ~@4 d4!2, f#3 ~ f#3@2", V: "f#4@2 a4@4 [d4,f#4,a4]@2 [d4,f#4]@2 b4 ~ a4@2 d4@2, [a3,d4]@6 ~@2 a4 ~@7",
  W: "[g3,d4,e4]@3 [g3,d4,f#4] g3@3 a3", X: "f#4@2 a4@2 f#4@2 [d4,f#4,b4]@2 a4@2 f#4@2 e4 ~ d4@2, [a3,d4]@3 ~@5",
  Y: "d4@2 d4 [g3,d4,e4]!2 a3 b3 d4, g3@3 ~@5", // Em7
  Z: "f#4@2 e4@2 [b3,d4,f#4]@2 [f#3,a3,d4]@2 d4@2 d4!2 a3@2 a3@2, [b3,d4] ~ [f#3,a3] [d3,f#3]", // Bm D Bm F#m D
  AA: "[d4,f#4] d4 d4@2 ~@2 a3!2, a3@4 ~ [g3,b3]@3, ~@2 f#4 ~@5", // D G
  AB: "f#4@2 e4@2 f#4@2 [f#3,a3,d4]@2 [f#3,a3,d4]@2 d4!2 a3@2 a3@2, [b3,d4]@3 ~@2 [f#3,b3]@3", // D Bm B5
  AC: "f#4!2 d4 [a3,d4,f#4]!2 d4 d4@2, b3@3 ~@5, d4 ~@3", AD: "b3@2 d4!2 e4 d4@2 d4, g3 a3",
  AE: "e4 d4 b3@2 b3 a3!3, g3", AF: "~@3 g3 b3@2 d4 b3 e4@4 ~@2 a3@2, ~@2 g3@2 g3@3 ~, ~@3 d4",
  AG: "e4 d4@4 f#3!3, a3 ~", AH: "f#3 g3@2 ~@4 g3",
  AI: "[f#4@2 ~ a4@2 ~ a4@2 a4@2 b4@2 ~@6 f#4@2 e4@2 [g3,d4,f#4]@2 [g3,d4,f#4]@2 ~@2 a3@2 a3@2, [a3,d4]@4 [d4,f#4]@4 [g3,d4]@3 ~@5, ~@6 a4@3 ~@7]/2", // Gmaj7 D5 D G5
  AJ: "f#4 a4 f#4 [d4,f#4,b4] [d4,f#4,a4] e4 d4!2, [a3,d4]@3 ~@5", // Bm D D5
  AK: "e4@2 d4@2 d4@2 [g3,d4,f#4]@2 [g3,d4]@4 a3@2 b3 d4, g3@3 ~ f#4 ~@2 g3", // Gmaj7 G5
  AL: "f#4@2 f#4@2 f#4@2 ~@2 d4@2 ~ d4 [f#3,a3]@2 a3@2, [b3,d4]!2 ~@2, ~@3 [f#3,a3]@2 [f#3,a3] ~@2", // F#m Bm F#m
  AM: "[d4,f#4] d4 [d4,f#4]@2 ~@2 a3!2, a3@4 ~ [g3,b3]@3", // D G
  AN: "f#4 e4 f#4 [f#3,a3,d4]!2 [g3,b3,d4] d4@2, [b3,d4]@3 ~@5", AO: "~ b3 d4!2 [f#3,a3,b3] d4 b3 ~",
  AP: "~@4 b3 ~ d4 g4 b4 ~ a4 g4@4 g4", AQ: "g4@4 a4@2 ~@4 b3 d4!2 b3 e4@2, ~@3 g3",
  AR: "~ d4@2 a3@2 a3@2 ~ [g3,b3]@4 ~@4, g3@7 a3@2 ~@7", // G
  AS: "b3@2 d4!2 d4@2 d4 b3 d4@2 d4@2 b3@2 d4@2, ~@3 g3 a3@2 ~@2",
  AT: "e4@2 d4@2 d4@2 b3@2 d4@4 ~@2 d4!2, g3, b3@3 ~ b3@4", AU: "b4@2 a4 f#4 a4 b4 ~@2, c#4@2 [c#4,f#4] ~, f#4@3 ~@5",
  AV: "f4 e4 d4 [g3,b3,d4]!2 a3 b3 f#4, b3@3 ~@5, d4 ~@3", AW: "[c#4,e4] [b3,d4]@3 d4 ~ [f#3,b3,d4] d4",
  AX: "[c#4,e4] [b3,d4]@3 d4@2 ~@2", AY: "[[f#3,a3,d4]@7 ~]/2",
})).s("gm_piano").gain(0.26)

// other · piano · "Adlib Piano"
const piano_2 = note(`<
  A B C D A E C F G@2 H I J K L@2 M N@2 O P Q R Q R J K L@2 M N@2 O S Q R Q R T K L@2 M N@5 G@2 H I G@2 H I G@2 H I A B
  C D A E C F A B C D A U@2
>`.pickRestart({
  A: "d3@3 d3 d3@3 d3, d2", B: "~@3 c#3 c#3@3 a2, d2", C: "~@3 b2 b2@3 d3, d2", D: "[a2,e3]@3 d3 a2@2 a2 b2",
  E: "~@3 c#3 c#3@4, d2", F: "e3 f#3!2 d3!2 ~ e3@2, a2", G: "d2@3 d2 d2@3 d2", H: "[b2,g3]@3 g2 g2@3 g2",
  I: "[a2,g3]@3 [a2,e3] [a2,e3]@3 a2", J: "[d2,d3]@3 [d2,d3] [d2,d3]@4", K: "[d2,d3]@3 d3!2 d3@3", L: "[d2,d3]@6 a2 d3",
  M: "g2@3 g2 d3 g2 f#3 d3", N: "g2@3 g2 g2@3 g2", O: "~ d3@2 d3 d2@2 a2@2, d2 d3", P: "d2@3 a2!2 d3@3",
  Q: "d2@4 d2 ~ d2@2 d2@6 d2@2", R: "[a2,e3]@3 a2 a2@3 a2", S: "d2@3 d2!2 d3@3", T: "[d2,d3]@6 [d2,d3]@2 [d2,d3]@7 ~",
  U: "[[d2,d3]@7 ~]/2", // D
})).s("gm_piano").gain(0.26)

stack(piano, piano_2)