// Alexander's Ragtime Band (Victor Military Band) — Scott Joplin
// 228 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 99 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(228/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, A@4 for four bars: edit a riff to change every repeat.

// bass · acoustic bass · "ACOU BASS"
const bass = note("<~@33 A B C A D E D E A B A B F G C@2 A B C A D E D E A@2 D H I J C A ~@32 K L>".pickRestart({
  A: "f2@5 ~@3 c2@4 ~@4", B: "f2@4 ~@4 c2@3 ~@5", C: "c2@5 ~@3 g2@4 ~@4", D: "bb1@5 ~@3 f2@4 ~@4",
  E: "bb1@4 ~@4 f2@3 ~@5", F: "e2@5 ~@3 eb2@5 ~@3", G: "d2@5 ~@3 g2@5 ~@3", H: "b1@5 ~@3 f2@4 ~@4",
  I: "c2@5 ~@3 c2@4 ~@4", J: "c2@5 ~@3 f2@5 ~@3", K: "f2@5 ~@3 c2@6 ~@2", L: "f2 ~@3 c2@4 f2@6 ~@2",
})).s("gm_acoustic_bass").gain(0.2)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  ~ A B C D E F G H I J K@2 L M N O I J P Q R H F S K T U V W X C Q K@2 C Q Y Z F S K@2 I J AA M AB AC I J AD Q H AE E F
  K AF U AG W AH AD Q I J P AI E F AJ Z I J A B AK M N AC A B AD AL G H F S I AM AN AO AP AQ AR AI AS AT
>`.pickRestart({
  A: "~@2 [c4,d4,f4,a4] ~ c3@2 [c4,d4,f4,a4]@2, [f2,a3] ~", B: "f2@4 [c4,d4,f4,a4]@3 ~ c2@4 [c4,d4,f4,a4]@2 ~@2",
  C: "~@4 [bb3,c4,e4,g4]@3 ~@5 [bb3,c4,e4,g4]@3 ~, [c2,c3]@3 ~ g2@3 ~", D: "f3 c3 f2 ~",
  E: "bb1@3 ~ [d4,f4,g4,bb4]@2 ~@2 f2@4 [d4,f4,g4,bb4]@2 ~@2", F: "bb1@4 [d4,f4,g4,bb4]@4 f2@4 [d4,f4,g4,bb4]@3 ~",
  G: "~@4 [d4,f4,g4,bb4]@3 ~@5 [d4,f4,g4,bb4]@3 ~, [bb1,bb2]@3 ~ f2@3 ~", // Gm7 Bb
  H: "bb1@4 [d4,f4,g4,bb4]@3 ~ f2@4 [d4,f4,g4,bb4]@3 ~", I: "f2@2 [c4,d4,f4,a4] ~ c2@2 [c4,d4,f4,a4] ~",
  J: "f2@4 [c4,d4,f4,a4]@3 ~@7 f4@2, ~@8 c2@7 ~, ~@5 a3@3, ~@3 d4", // Dm7
  K: "~@4 [c4,d4,f4,a4]@2 ~@2 c3@4 [c4,d4,f4,a4]@3 ~, f2@3 ~@5", // Dm7
  L: "~@4 [a3,c4,e4,g4]@3 ~@5 [c4,eb4,gb4,a4]@3 ~, e2@3 ~ eb2@3 ~", // Am7 Cdim
  M: "~@4 [b3,d4,f4,g4]@2 ~@6 [b3,d4,f4,a4]@3 ~, d2@3 ~ g2@3 ~", // G7 Bm7b5
  N: "~@4 [g3,c4,e4]@2 ~@2 g2@4 [g3,c4,e4]@3 ~, c2@3 ~@5", O: "~@4 [bb3,c4,e4,g4]@2 ~@2 g2@7 ~, c2@3 ~@5",
  P: "~@4 [bb3,c4,e4,g4]@2 ~@2 g2@4 [bb3,c4,e4,g4]@3 ~, c2@3 ~@5", Q: "~@2 [c4,d4,f4,a4] ~ c3@4, f2@3 ~@5",
  R: "~@2 [d4,f4,g4,bb4] ~ f2@2 [d4,f4,g4,bb4]@2, [bb1,d3]@7 ~@9", S: "[bb1,d3]@2 [c2,eb3]@2 [d2,f3]@2 [bb1,d3] ~",
  T: "~@4 [c4,eb4,f4,a4]@3 ~@5 [c4,eb4,f4,a4]@3 ~, [f2,f3]@3 ~ c3@3 ~", U: "bb1@2 [bb3,d4,f4] ~ f2@2 [bb3,d4,f4] ~",
  V: "b1@3 ~ d2@4 f2@4 b2@3 ~", W: "c2@2 [a3,c4,f4] ~ c2@2 [a3,c4,f4] ~",
  X: "~@4 [a3,c4,f4]@3 ~@5 [c4,d4,f4,ab4]@3 ~, [c2,c3]@3 ~ [f2,f3]@3 ~", // F Dm7b5 C F
  Y: "~@4 [g3,bb3,d4,f4]@3 ~@5 [g3,bb3,d4,f4]@3 ~, [bb1,bb2]@3 ~ f2@3 ~", // Gm7 Bb
  Z: "bb1@4 [g3,bb3,d4,f4]@3 ~@5 [g3,bb3,d4,f4]@3 ~, ~@4 f2@3 ~", // Gm7
  AA: "~@4 [a3,c4,e4,g4]@3 ~@5 [a3,c4,eb4,gb4]@2 ~@2, e2@3 ~ [eb2,eb3]@3 ~", // Am7 Adim Eb
  AB: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~, c2@7 ~ g2@7 ~", AC: "c2@3 ~ e2@4 g2@4 c3@3 ~",
  AD: "c2@2 [bb3,c4,e4,g4] ~ g2@2 [bb3,c4,e4,g4] ~", AE: "bb1@2 [d4,f4,g4,bb4] ~@4 f4, ~@8 f2@7 ~, ~@5 g3@3, ~@3 d4",
  AF: "f2@3 ~ [c4,eb4,f4,a4]@3 ~ c2@4 [c4,eb4,f4,a4]@3 ~", AG: "b2@2 f2@2 b1@3 ~",
  AH: "~@4 [a3,c4,f4]@3 ~@5 [c4,d4,f4,ab4]@3 ~, c2@3 ~ f2@3 ~", AI: "f2@3 ~ a2@4 c3@4 f3@3 ~",
  AJ: "bb1@3 ~ [g3,bb3,d4,f4]@2 ~@2 f2@4 [g3,bb3,d4,f4]@2 ~@2", // Gm7
  AK: "~@4 [a3,c4,e4,g4]@3 ~@5 [c4,eb4,gb4,a4]@2 ~@2, e2@3 ~ [eb2,eb3]@3 ~", AL: "f3@2 c3@2 f2@3 ~",
  AM: "f2@2 [c4,eb4,f4,a4] ~ c2@2 [c4,eb4,f4,a4] ~", AN: "~@2 [bb3,d4,f4] ~@3 [bb3,d4,f4] ~, bb1@7 ~ f2@7 ~",
  AO: "~@4 [d4,f4,ab4,b4]@2 ~@2 f2@7 ~, b1@3 ~@5", AP: "~@2 [a3,c4,f4] ~@3 [a3,c4,f4] ~, c2@7 ~ c2@7 ~",
  AQ: "~@4 [a3,c4,f4]@3 ~@5 [c4,d4,f4,ab4]@3 ~, [c2,c3]@3 ~ f2@3 ~", // F Dm7b5 C
  AR: "c2@3 ~ [bb3,c4,e4,g4]@3 ~ g2@4 [bb3,c4,e4,g4]@2 ~@2", AS: "f2@3 ~ [d4,a4,c5]@2 ~@2 c3@3 ~ [d4,a4,c5]@3 ~",
  AT: "f2 ~@3 c3 ~@3 [f2,d4,a4,c5]@7 ~", // Dm7
})).s("gm_piano").gain(0.26)

// chords · piano · "A.PIANO 1"
const piano_2 = note(`<
  A B@2 C@3 D@3 E@2 F G H I J K L@5 M@4 N O P Q R S T B@2 C@3 D@3 E@2 F G U I J K L@5 M@4 N O P Q R S T B@2 C@3 D@3 E@2
  F G U I J K L@5 M@4 N O P Q R S T V W
>`.pickRestart({
  A: "~@11 ab4 [c4,a4]@2 ~ ab4", // F
  B: "[[c4,a4]@2 ~@9 ab4 [c4,a4]@2 ~@2 [c4,a4]@7 ~@4 ab4 [c4,a4]@2 ~ ab4, ~@15 ab4@2 ~@15]/2", // F
  C: "[[c4,a4]@4 g4@3 ~ e4@2 ~ c4@2 ~@2 f4@6 ~@6 db5 [f4,d5]@3 ~ [f4,d5]@9 ~@2 db5 [f4,d5]@3 db5, ~@31 db5@2 ~@15]/3", // F Dm
  D: "[[f4,d5]@10 ~@2 d5@3 db5 d5@4 ~ bb4@2 ~ f4@3 bb4@3 ~ [f4,d5]@11 ~@2 a4@2 ~ bb4, ~@11 db5@2 ~@35, ~@12 f4@8 ~@24 f4 ~@3]/3", // Dm
  E: "[[a4,c5] ~@2 c5 d5@2 ~@2 c5@4 d5@2 ~@2 c5 ~@3 d5@3 ~ c5@4 ~@4, ~@3 a4@3 ~ a4@7 ~ a4@3 ~ c5@2 ~@2 a4@2 ~@7]/2", // Am
  F: "f4@3 ~ a4@2 ~@2 f4@4 a4@2 ~ c4, ~@7 c4@2 ~@7", G: "f4 ~@3 a4 ~@2 c4 f4@6 ~@2, ~@3 f4@2 ~@11",
  H: "[c4,e4,g4]@2 ~@2 [c4,e4,g4]@4 ~@5 a4 ~@2, ~@6 [c4,gb4] ~", I: "[d4,f4,b4]@3 ~ g4@3 ~ a4@3 ~ b4@3 ~",
  J: "~ [f4,a4] ~@14, [e4,c5]@7 ~, ~ g4@11 ~@4", K: "bb4@3 a4 g4@6 ~ ab4 a4@2 ~ ab4",
  L: "[[c4,a4]@3 ~@7 ab4 ~ [c4,a4]@3 ~ [c4,a4]@9 ~@2 ab4 [c4,a4]@3 ~ [c4,a4]@3 ~ g4@2 ~@2 e4@3 c4 ~@3 [a3,f4]@8 ~@4 db5 [f4,d5]@3 ~ [f4,d5]@10 db5 ~ [f4,d5]@2 db5@2, ~@15 ab4@2 ~@14 ab4@2 ~@30 db5@2 ~@15]/5", // F Dm
  M: "[[f4,d5]@11 db5 [f4,d5]@3 ~ [f4,d5]@4 bb4@2 ~@2 f4@3 ~ bb4@2 ~ [f4,d5]@10 ~ a4 ~ bb4@2 ~@2 c5@2 ~@2 c5 ~@3 c5@3 ~ a4@2 ~@2, ~@15 db5@2 ~@30 b4@2 ~@15]/4", // Dm
  N: "g4@4 f4@4 a4@3 ~ g4@2 ~@2", O: "f4@4 f5@3 ~", P: "d5@3 ~ [ab4,f5]@5 ~@2 b4 c5@2 ~ b4", Q: "c5@2 ~@9 b4 c5@2 ~ b4",
  R: "c5@8 ~@3 d5@3 ~ db5", S: "[e4,d5]@6 ~ c5 a4@2 ~@2 g4@2 ~@2", T: "f4@3 ~@8 ab4 [c4,a4]@2 ~ ab4",
  U: "[c4,e4,g4]@2 ~@3 [c4,e4,g4]@4 ~@3 [c4,gb4,a4]@2 ~@2", V: "[c4,a4]@2 ~ f4 ~@3 c4 ~ d4 c4 ~ a3 g3 ~@2",
  W: "f3 ~@3 [f3,f4] ~@3", // F
})).s("gm_piano").gain(0.36)

stack(bass, piano, piano_2)