// Contrapunctus I — J.S. Bach
// 120 bpm, 2/2, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Transcription provider: pdmx. https://musescore.com/score/890716; license: https://creativecommons.org/publicdomain/mark/1.0/
// note: Full arrangement: all 78 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 · [...]/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.

// other · french horn · "Horn in F"
const french_horn = note(`<
  A B C D E F G H I J K L M N O ~@7 A B C D P Q R S T U V W X@2 Y Z AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ
  AR AS AT AU AV AW AX AY AZ BA AF BB BC BD BE BF BG BH BI BJ BK BL BM
>`.pickRestart({
  A: "d4 a4", B: "f4 d4", C: "c#4@2 d4 e4", D: "f4@4 f4 g4 f4 e4", E: "d4 e4 f4 g4", F: "a4@2 a3 b3 c4 a3 f4@2",
  G: "f4 b3 e4@2 e4 f4 e4 d4", H: "e4 f#4 g4@2", I: "g4 f4 e4@2", J: "d4@3 e4 f4@3 d4", K: "g4@3 g4 f4 e4 d4 c#4",
  L: "d4 g4@2 c4", M: "f4@3 e4 f4@3 g#3", N: "e4@6 d4 c4", O: "d4 f4 e4 d4 c4@2 ~@2", P: "d4@2 g4@2 g4 e4 f4@2",
  Q: "e4@2 a4@2 a4 f#4 g4@2", R: "f#4@3 d5 g#4@4", S: "a4@2 ~ a3 c4@2 a3@2", T: "d4 f4 e4 d4", U: "c4 a4@2 d4",
  V: "e4@2 a4@2 a4 g4 f4 e4", W: "d4", X: "[d4!2 g4@2 g4!2 c4@3 a3 a#3@2 a3@4]/2", Y: "a3 f3 g3@2 c4@4",
  Z: "c4 a3 b3@2 e4@4", AA: "e4 c#4 d4@2 g4@4", AB: "g4 a4 a#4@2 a4@4", AC: "a4@4 a4 f4 g4@2", AD: "a4@3 a#4 a4@2 g4@2",
  AE: "g4@2 f4 d4 a4@3 g4", AF: "f#4 d4 g4@2 g4 e4 f4@2", AG: "f4 d4 g4@2 g4 e4 a4@2", AH: "a4 f4 a#4@2 a#4 g4 a4@2",
  AI: "a4 f4 g4@4 f4 d4", AJ: "a4 d5", AK: "d5 c#5 b4 c#5 d5 a4 e5@2", AL: "e5 a4 d5@2 ~ f4 a#4@2",
  AM: "a#4 e4 a4@2 a4 g4 f4 e4", AN: "d4 a4 d5 b4 g4 e4 c5@2", AO: "c5 a#4 a4@2", AP: "g4@3 f4 e4@4",
  AQ: "e4@2 d4 c#4 d4@2 g4@2", AR: "g4@3 f4 e4@3 e4", AS: "a4@6 g4 a#4", AT: "a4@4 a4 g4 f4 e4", AU: "d4@3 e4",
  AV: "a3 ~@2 d#4", AW: "d4@2 ~ f#4", AX: "g4 f#4 g4@2 ~@2 a#4@2", AY: "a#4 a4 f5 d5 b4@2 e5 c5",
  AZ: "a4@2 d5 a4 a#4@3 g4", BA: "a4@3 f4 e4@3 g4", BB: "f4 d5 c5@5 c5", BC: "a#4 a4 g#4@2 a4@3 e4",
  BD: "a4@2 g4@2 g4@3 c5", BE: "a4 g4!2 ~", BF: "~@2 a4 ~", BG: "~ b4", BH: "a4@4 a4@3 g4",
  BI: "f#4 g4 a4@2 a4 g4 c5@2", BJ: "c5 f#4 g4 a#4 d#4@4", BK: "d4 a3 a#3 c4", BL: "d4@2 g3@2 g3 a#4 a4 g4",
  BM: "g4 f4 e4 g4 f4@4",
})).s("gm_french_horn").gain(0.4)

// other · trombone
const trombone = note(`<
  ~@12 A B C D E F G H I J K L M N O P Q R S T U V ~@5 W X Y Z AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ AR AS
  AT AU AV AW AX AY AZ BA BB BC BD A BE BF BG BH
>`.pickRestart({
  A: "a3 d4", B: "c4 a3", C: "g#3@2 a3 b3", D: "c4@4 c4 d4 c4 a#3", E: "a3@4 a3 f3 g3@2", F: "c4@4 c4 a3 b3@2",
  G: "e4@4 e4 c#4 d4@2", H: "g4@4 g4 e4 f4@2", I: "e4@3 a4 d4@3 e4", J: "c#4@2 d4 a3 b3@3 c#4", K: "d4 a3@3",
  L: "a3 a#3", M: "~ e3 a3@2 a3 a#3 a3 g3", N: "a3 b3 c4@2", O: "c4 a3 a#3@2 a3@2 d4@2", P: "d4 b3 c4@2 b3@2 e4@2",
  Q: "e4 a3 d4@2 d4!2 c4 b3", R: "c4 d4 e4@2 e4!2 d4 c4", S: "b3@2 c4 g#3", T: "a3 g3 f#3 e3 f#3@2 g3@2",
  U: "g3!2 f3 e3 f3 e3 d3 c3", V: "d3 ~@3", W: "e3 a3", X: "f3 d3", Y: "c#3@2 d3 e3", Z: "f3@4 f3 g3 f3 e3",
  AA: "d3@6 a3 f3", AB: "a#3@3 g3 c4@3 a3", AC: "d4 g3 c4 f3", AD: "a#3 e3 a3@2", AE: "e3@2 a3@2 a3 g#3 f#3 g#3",
  AF: "a3@3 g3 f3 e3 d3 c#3", AG: "d3@2 f3 d3 a#3@2 g3 e3", AH: "a3@3 f4 b3@2 c#4@2", AI: "d4@2 b3 g3 c4@2 a3 f3",
  AJ: "a#3 d4 g4@2 g4 e4 f4@2", AK: "f4!2 e4 d4 c#4@4", AL: "d4 c4 a#3 a3 g3 a3 a#3 c4", AM: "d4 a3 d4@2 d4 b3 c#4@2",
  AN: "c#4 e4 a3 c#4 d4@2 a#3 g3", AO: "e3@2 f3 g3", AP: "a3@2 b3 c#4", AQ: "d4 ~@2 f#3", AR: "g3 a3 a#3@2 ~@2 c4@2",
  AS: "d4@4 ~ g3@2 f3", AT: "e3 ~@3", AU: "~@2 f3 d3 g3@3 c#3", AV: "f3@3 d3 a3@4", AW: "d3@2 d4@4 a3 f3",
  AX: "a#3@4 a#3 g#3 a3@2", AY: "d4@4 d4 b3 c4@2", AZ: "f4@4 f4 d4 d#4@2", BA: "d4@2 e4 ~", BB: "~@2 f4 ~", BC: "~ f4",
  BD: "f4@2 e4 d4 e4@2 ~@2", BE: "a#3 g3", BF: "f#3@2 g3 a3", BG: "a#3@4 a#3 d4 c4 a#3", BH: "a3",
})).s("gm_trombone").gain(0.4)

// bass · tuba
const bass = note(`<
  ~@8 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 AJ AK AL AM AN AO ~@6 A B C D AP AA
  AQ AH@2 AR AJ AS AT AU AV AW AX AY AZ@5
>`.pickRestart({
  A: "d2 a2", B: "f2 d2", C: "c#2@2 d2 e2", D: "f2@4 f2 g2 f2 e2", E: "d2 ~", F: "~@2 a1 b1 c2 a1 f2@2",
  G: "f2 b1 e2@2 e2 f2 e2 d2", H: "e2 g2 f#2 a2 g2@4", I: "d2@6 e2 d2", J: "e2@2 f2 e2 f#2@2 g2 f#2",
  K: "g#2@2 a2 g#2 a2@2 a#2 a2", L: "b2@2 c3 b2 c#3@2 d3 g#2", M: "a2@4 a2 f2 g2@2", N: "g2 e2 f2@2 f2 d2 e2@2",
  O: "d2@4 d2 b1 c#2@2", P: "d2@3 c2 a#1@4", Q: "a2@3 g2 f2 g2 f2 e2", R: "d2 f2 e2 d2 a2@3 f2", S: "a#2@3 g2 d3@3 f2",
  T: "a2@3 a2 e2@2 ~@2", U: "~ e2", V: "a2 f2", W: "f2!2 e2 d2 c2 d2 c2 b1", X: "a1 d2", Y: "c#2 a1", Z: "f#1@2 g1 a1",
  AA: "a#1@4 a#1 c2 a#1 a1", AB: "g1@4 g1 e1 f1@2", AC: "a#1@4 a#1 g1 a1@2", AD: "d2@4 d2 b1 c2@2",
  AE: "f2@4 f2 d2 e2@2", AF: "a1@3 g2 f2 e2 d2 c#2", AG: "d2@3 f1 a#1@4", AH: "a1", AI: "a1@3 a#1 a1 g1 a1@2",
  AJ: "a#1@3 g1 d2@4", AK: "d2 e2@2 f2", AL: "f2@3 d2 e2@3 c#2", AM: "d2@3 b1 c#2 a1 d2@2", AN: "d2 c2 b1 a1 b1@4",
  AO: "a1 ~@3", AP: "d2@4 d2 d#2 d2 c2", AQ: "g1@3 g1", AR: "a1@3 a1", AS: "d2 a#1 c2@2 f2@4", AT: "f2 d2 e2@2 a2@4",
  AU: "a2 f2 g2@2 c3@4", AV: "c3 a2 a#2@4 ~@2", AW: "~@2 a2 ~", AX: "~ g#2", AY: "a2@3 a1", AZ: "d2",
})).s("gm_tuba").gain(0.45)

stack(french_horn, trombone, bass)