// The Spider — Kansas
// 105 bpm, 16/16, key G minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (11/16 at bar 1, 12/16 at bar 4, 10/16 at bar 5, 12/16 at bar 5, ...) are rendered on a constant 16/16 grid of one bar per cycle
// note: ch 1 "Hammond Organ" named as an organ, played on drawbar organ (its piano patch is not one)
// note: Full arrangement: all 48 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(105/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 · drawbar organ · "Hammond Organ"
const drawbar_organ = note(`<
  A B C D E F G H I J K L M N@4 O P Q R S T U V@2 W B X Y Z AA AB AC AD AE@2 AF AG AH AG AI AG AJ AK AL AM AN
>`.pickRestart({
  A: "~@10 c2 g2 bb2 [eb2,f4,bb4] ab2 c3, ~@5 [g4,c5] ~@2", // Ebsus2 C5
  B: "gb2 bb2 d3 [ab2,c4,f4] c3 eb3 c3 ab2 [d3,d4,gb4] bb2 gb2 c3 ab2 eb2 [bb2,d4,g4] gb2, [db4,gb4]@2 ~@3 [g4,c5]@2 ~@4 [eb4,ab4]@2 ~@3", // Fm D Gm Gb5 C5 Ab5
  C: "c2 g2 bb2 [eb2,f4,bb4] ab2 c3 gb2 bb2 d3 [ab2,c4,f4] c3 eb3 c3 ab2 [d3,d4,gb4] bb2, [g4,c5]@2 ~@4 [db4,gb4]@2 ~@3 [g4,c5]@2 ~@3", // Ebsus2 Fm D C5 Gb5 C5
  D: "gb2 c3 ab2 eb2 [bb2,d4,g4] g2 [c3,c5] [bb2,bb4] [g2,g4] [db3,db5] [g2,g4] [f2,f4] [bb2,bb4] [ab2,ab4] [f2,f4] [g2,g4], ~ [eb4,ab4]@2 ~@13", // Gm C Bb G Db G F Bb …
  E: "[eb2,eb4] [c2,c4] [d2,d4] [eb2,eb4] [f2,f4] [g2,g4] [ab2,ab4] [a2,a4] [bb2,bb4] [eb3,eb5] [bb2,bb4] [eb3,eb5] [c3,c5] [bb2,bb4] [g2,g4] [db3,db5]", // Eb C D Eb F G Ab A …
  F: "[g2,g4] [f2,f4] [bb2,bb4] [ab2,ab4] [f2,f4] [g2,g4] [eb2,eb4] [c2,c4] [d2,d4] [eb2,eb4] [f2,f4] [g2,g4] [ab2,ab4] [a2,a4] [bb2,bb4] [eb3,eb5]", // G F Bb Ab F G Eb C …
  G: "[bb2,bb4] [eb3,eb5] c5 bb4 g4 db5 g4 f4 bb4 ab4 f4 g4 eb4 c4 d4 eb4, ~@2 c2@2 ~ eb2@2 ~ d2@2 ~ f2@2 ~ bb2@2", // Bb Eb
  H: "f4 g4 ab4 a4 bb4 eb5 bb4 eb5 [c2,c5]@2 [bb4,eb5] eb4 g4 [bb4,db5] ab4 gb4, ~ g2@2 ~ eb2@2 d2@2 ~@2 eb2@2 ~ b1@2 ~", // C Eb5 Bbm
  I: "[ab4,db5] f4 db4 [gb4,db5] f4 g4 ab4 b4 d5 eb5 c5 f4 c5 f5!2 f4, db2@2 ~ gb2@6 ~ f2@2 ab2@2 bb2@2", // Db5 Gb5
  J: "c5 f5 f4 db5 f5 f4 [eb3,c5] [f3,f5] [c3,g4,c5,e5]@2 [c5,f5] g4 ab4 [c5,eb5] bb4 ab4, ~ c3@2 db3@3 ~@4 f2@2 ~ db2@2 ~", // Cm F C F5 Cm
  K: "[bb4,eb5] g4 eb4 [ab4,eb5] g4 ab4 bb4 db5 eb5 f5 d5 g4 d5 g5!2 g4, eb2@2 ~ ab2@6 ~ g2@2 b2@2 c3@2", // Eb5 Ab5
  L: "d5 g5 g4 eb5 g5 g4 [f3,d5] [g3,g5] [a4,d5,gb5] ~ [b4,g5] d5 c5 a4 eb5 d5, ~ d3@2 eb3@3 ~@2 d3@2 g2@2 ~ g2@2 ~", // Dm G D Em
  M: "a4 f5 eb5 a4 g5 f5 d5 eb5 c5 d5 a4 d5 c5 a4 eb5 d5, g2@2 ~ g2@2 ~ g2@2 f2@2 g2@2 ~ g2@2 ~",
  N: "[a4 f5 eb5 a4 g5 f5 f4 bb4 d5 f4 bb4 eb5 f4 bb4 d5 c5 bb4 d5 [f2,f4,a4,c5]@2 [f2,f4,a4,c5]@2 a4 d5 c5 a4 eb5 d5 a4 f5 eb5 a4 g5 f5 d5 eb5 c5 d5 a4 d5 c5 a4 eb5 d5 a4 f5 eb5 a4 g5 f5 f4 bb4 d5 f4 bb4 eb5 f4 bb4 d5 c5 bb4 d5 [bb2,f4,a4,c5]@2, g2@2 ~ g2@2 ~ f2@2 ~ f2@2 ~ f2@2 ~ f2@2 ~@5 g2@2 ~ g2@2 ~ g2@2 ~ g2@2 ~ g2@2 f2@2 g2@2 ~ g2@2 ~ g2@2 ~ a2@2 ~ bb2@2 ~ bb2@2 ~ bb2@2 ~ bb2@2 ~@3]/4", // F
  O: "[bb2,f4,a4,c5]@2 f4 bb4 d5 f4 bb4 eb5 f4 bb4 d5 c5 bb4 [bb2,d5] [bb2,f4,a4,c5]@2, ~@4 bb2@2 ~ bb2@2 ~ bb2@2 ~@4", // F Bb F
  P: "[bb2,f4,a4,c5]@2 g4 c5 eb5 g4 c5 d5 g4 c5 eb5 g4 c5 f5 g5 d5, ~@2 c2@2 ~ d2@3 eb2@2 ~ f2@3 g2@2", // F
  Q: "c5 g4 f4 ab4 c5 eb5 d5 c5 g4 b4 eb5 d5 f5 ab5 d5 f5, ~@2 f2@2 ~ ab2@3 g2@8",
  R: "g5 bb5 c6 d6 eb6 f6 eb6 c6 bb5 d6 c6 ab5 g5 c6 gb5 a5, ~@2 f2@2 ~ g2@3 ab2@2 bb2@2 c3@2 d3@2",
  S: "c6 a5 gb5 a5 c6 b5 [g2,b4,g5]@5 [d4,d5] [eb4,g5] [c4,c5] [d4,d5] [g4,g5], d3!3 ~@5", // G D Eb C D G
  T: "[ab4,ab5] [g4,g5] [eb4,d5] [g4,g5] [d4,d5] [g4,g5] [c4,c5] [bb3,bb4] [d4,d5] [a3,a4] [d4,d5] [g3,g4] [a3,a4] [bb3,bb4] [c4,c5] [g3,g4]", // Ab G Ebmaj7 G D G C Bb …
  U: "[eb3,eb4] [g3,g4] [d3,d4] [g3,g4] [c3,c4] [bb2,bb3] [d3,d4] [a2,a3]@2 [g2,g3]@4 ~ c2 g2, ~@7 [g4,c5]", // Eb G D G C Bb D A …
  V: "[bb2 [eb2,f4,bb4] ab2 c3 gb2 bb2 d3 [ab2,c4,f4] c3 eb3 c3 ab2 [d3,d4,gb4] bb2 gb2 c3 ab2 eb2 [bb2,d4,g4] gb2 c2 g2 bb2 [eb2,f4,bb4] ab2 c3 gb2 bb2 d3 [ab2,c4,f4] c3 [c2,c4], ~@4 [db4,gb4]@2 ~@3 [g4,c5]@2 ~@4 [eb4,ab4]@2 ~@3 [g4,c5]@2 ~@4 [db4,gb4]@2 ~@4]/2", // Ebsus2 Fm D Gm Ebsus2 Fm C Gb5 …
  W: "[d2,d4] [eb2,eb4] [f2,f4] [g2,g4] [ab2,ab4] [a2,a4] [bb2,bb4] [eb3,eb5] [bb2,bb4] [eb3,eb5] c2 g2 bb2 [eb2,f4,bb4] ab2 c3, ~@5 [g4,c5] ~@2", // D Eb F G Ab A Bb Eb …
  X: "c2 g2 bb2 [eb2,f4,bb4] ab2 c3 gb2 bb2 d3 [ab2,c4,f4] c3 [c2,c4] [d2,d4] [eb2,eb4] [f2,f4] [g2,g4], [g4,c5] ~@2 [db4,gb4] ~@4", // Ebsus2 Fm C D Eb F G C5 …
  Y: "[ab2,ab4] [a2,a4] [bb2,bb4] [eb3,eb5] [bb2,bb4] [eb3,eb5] [c3,c5]@2 a4 f4 e4 bb4 f4 e4 c5 ab4, ~@8 a2@2 ~ a2@2 ~ ab2@2", // Ab A Bb Eb Bb Eb C
  Z: "eb4 d5 ab4 eb4 ab2 g2 f2 eb2 [g2,g5] [d2,d5] [g2,c5] [a2,a4] [bb2,bb4] [c3,g4] gb4 a4, ~ ab2@2 ~ [ab4,c5,eb5]@2 [ab4,c5,f5]@2 ~@6 d3@2", // G D C5 A Bb C5 Ab Fm
  AA: "d5 a4 gb4 a4 c5 b4 [g2,g4]@2 ~@7 g5, d3!3 ~@5", // G
  AB: "ab5 bb5 c6 g5 eb5 g5 d5 g5 c5 bb4 d5 a4 d5 g4 a4 bb4, ~ g3 ab3 bb3 c4 d4 g3 ~",
  AC: "c5 g4 eb4 g4 d4 g4 c4 bb3 d4 a3 d4 g3 ab3 bb3 c5 bb4, g2 ab2 bb2 c3 d3 g2 ~ [c2,c3]", // C
  AD: "g4 db5 g4 f4 bb4 ab4 f4 g4 eb4 c4 d4 eb4 f4 g4 ab4 a4, ~ [c2,c3]@2 ~ [c2,c3]@2 ~ [c2,c3]@2 ~ [c2,c3]@2 ~ [c2,c3]@2 ~", // C
  AE: "[bb4 eb5 bb4 eb5 c5 bb4 g4 db5 g4 f4 bb4 ab4 f4 g4 eb4 c4 d4 eb4 f4 g4 ab4 a4 bb4 eb5 bb4 eb5 c5 bb4 g4 db5 g4 f4, [c2,c3]@2 ~ [c2,c3]@2 ~ eb2@2 ~ eb2@2 ~ eb2@2 ~ eb2@2 ~ eb2@2 ~ eb2@2 ~ eb2@2 ~ f2@2 ~ f2@2]/2", // C
  AF: "bb4 ab4 f4 g4 eb4 c4 d4 eb4 f4 g4 ab4 a4 bb4 eb5 bb4 eb5, ~ f2@2 ~ f2@2 ~ f2@2 ~ f2@2 ~ f2@2 ~",
  AG: "~ [d5,g5] [c5,f5] ~ [d5,g5] [c5,f5] ~ [d5,g5] [c5,f5] ~ [d5,g5] [c5,f5] d5 eb5 c5 d5, [g2,d3]@2 ~ [g2,d3]@2 ~ [g2,d3]@2 ~ [g2,d3]@2 ~ [f2,c3]@2 [f2,c3]@2", // G5 F5 G5 F5 G5 F5 G5 F5 …
  AH: "bb4 f4 g4 bb4 c5 a4 f4 bb4 a4 bb4 f4 d4 e4 g4 f4 bb3, [bb1,bb2]@13 ~@3", // Bb
  AI: "c5 c4 d4 e4 gb4 g4 a4 b4 c5 d5 e5 f5 g5 d5 c5 g4, [c2,c3]@13 ~@3", // C
  AJ: "a4 gb4 a4 c5 e5 d5 c5 b4 c5 g4 a4 b4!2 g4 a4@2, [d2,d3]@13 ~@3", // D
  AK: "g4 [ab4,bb4] c5 [d5,eb5] [f5,g5] [a5,b5] [c6,d6,e6] [f6,g6] [g2,d3,g3]@3 ~@5, [eb2,bb2,eb3]@3 ~ [f2,c3,f3]@3 ~ [g6,c7]@6 ~@2", // Absus2 Ebmaj7 Fsus2 Asus2 C Fsus2 G5 Eb5 …
  AL: "[g2,d3]@13 ~@3", AM: "[gb2,db3]@3 ~ [f2,c3]@3 ~ [e2,b2]@3 ~ [eb2,bb2]@3 ~", AN: "[d2,a2]@13 ~@3",
})).s("gm_drawbar_organ").gain(0.31)

stack(drawbar_organ)