// Contrapunctus I. III. (from Art of Fugue BWV 1080) — J.S. Bach
// 120 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Transcription provider: pdmx. https://musescore.com/score/757736; license: https://creativecommons.org/publicdomain/zero/1.0/
// note: Full arrangement: all 79 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 · "Hoorn in F"
const french_horn = note(`<
  A B C D E F@2 G@2 H I J K L M ~@7 A B C D N O P Q R S T U@8 V@2 W@4 X@4 Y@2 Z@3 AA AB AC AD AE AF@2 AG AH AI@2 AJ AK
  AL AM AN AO AP@2 AQ AR@3
>`.pickRestart({
  A: "d4 a4", B: "f4 d4", C: "c#4@2 d4 e4", D: "f4@5 g4 f4 e4", E: "d4 e4 f4 g4",
  F: "[a4@2 a3 b3 c4 a3 f4@3 b3 e4@3 f4 e4 d4]/2", G: "[e4 f#4 g4@3 f4 e4@2]/2", H: "d4@3 e4 f4@3 d4",
  I: "g4@3 g4 f4 e4 d4 c#4", J: "d4 g4@2 c4", K: "f4@3 e4 f4@3 g#3", L: "e4@6 d4 c4", M: "d4 f4 e4 d4 c4@2 ~@2",
  N: "d4@2 g4@3 e4 f4@2", O: "e4@2 a4@3 f#4 g4@2", P: "f#4 d5 g#4@2", Q: "a4@2 ~ a3 c4@2 a3@2", R: "d4 f4 e4 d4",
  S: "c4 a4@2 d4", T: "e4@2 a4@3 g4 f4 e4",
  U: "[d4@9 d4 g4@3 g4 c4@3 a3 a#3@2 a3@5 f3 g3@2 c4@5 a3 b3@2 e4@5 c#4 d4@2 g4@5 a4 a#4@2 a4@9 f4 g4@2]/8",
  V: "[a4@3 a#4 a4@2 g4@4 f4 d4 a4@3 g4]/2",
  W: "[f#4 d4 g4@2 g4 e4 f4@3 d4 g4@3 e4 a4@3 f4 a#4@3 g4 a4@3 f4 g4@4 f4 d4]/4",
  X: "[a4@4 d5@5 c#5 b4 c#5 d5 a4 e5@3 a4 d5@2 ~ f4 a#4@3 e4 a4@2 a4 g4 f4 e4]/4",
  Y: "[d4 a4 d5 b4 g4 e4 c5@4 a#4@2 a4@4]/2", Z: "[g4@3 f4 e4@6 d4 c#4 d4@2 g4@5 f4 e4@3 e4]/3", AA: "a4@6 g4 a#4",
  AB: "a4@5 g4 f4 e4", AC: "d4@3 e4", AD: "a3 ~@2 d#4", AE: "d4@2 ~ f#4",
  AF: "[g4 f#4 g4@2 ~@2 a#4@3 a4 f5 d5 b4@2 e5 c#5]/2", AG: "a4@2 d5 a4 a#4@3 g4", AH: "a4@3 f4 e4@3 g4",
  AI: "[f#4 d4 g4@3 e4 f4@3 d5 c5@5 c5]/2", AJ: "a#4 a4 g#4@2 a4@3 e4", AK: "a4@2 g4@5 c5", AL: "a4 g4@2 ~",
  AM: "~@2 a4 ~", AN: "~ b4", AO: "a4@7 g4", AP: "[f#4 g4 a4@3 g4 c5@3 f#4 g4 a#4 d#4@4]/2", AQ: "d4 a3 a#3 c4",
  AR: "[d4@2 g3@3 a#4 a4 g4@2 f#4 e4 g4 f#4@12]/3",
})).s("gm_french_horn").gain(0.3)

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

// bass · tuba · "B♭ Tuba (G-sleutel)"
const bass = note(`<
  ~@8 A B C D E F@2 G H I J K L@2 M N O P Q R S T@2 U V W X Y Z AA AB AC AD AE@2 AF@3 AG@2 AH ~@6 A B C D AI AJ AK AL@3
  AM@5 AN AO AP AQ@6
>`.pickRestart({
  A: "d3 a3", B: "f3 d3", C: "c#3@2 d3 e3", D: "f3@5 g3 f3 e3", E: "d3 ~",
  F: "[~@2 a2 b2 c3 a2 f3@3 b2 e3@3 f3 e3 d3]/2", G: "e3 g3 f#3 a3 g3@4", H: "d3@6 e3 d3", I: "e3@2 f3 e3 f#3@2 g3 f#3",
  J: "g#3@2 a3 g#3 a3@2 a#3 a3", K: "b3@2 c4 b3 c#4@2 d4 g#3", L: "[a3@4 a3 f3 g3@3 e3 f3@3 d3 e3@2]/2",
  M: "d3@5 b2 c#3@2", N: "d3@3 c3 a#2@4", O: "a2@3 g2 f2 g2 f2 e2", P: "d2 f2 e2 d2 a2@3 f2", Q: "a#2@3 g2 d3@3 f3",
  R: "a3@3 a2 e2@2 ~@2", S: "~ e3", T: "[a3@4 f3@5 f3 e3 d3 c3 d3 c3 b2]/2", U: "a2 d3", V: "c#3 a2", W: "f#2@2 g2 a2",
  X: "a#2@5 c3 a#2 a2", Y: "g2@5 e2 f2@2", Z: "a#2@5 g2 a2@2", AA: "d3@5 b2 c3@2", AB: "f3@5 d3 e3@2",
  AC: "a2@3 g3 f3 e3 d3 c#3", AD: "d3@3 f2 a#2@4", AE: "[a2@11 a#2 a2 g2 a2@2]/2",
  AF: "[a#2@3 g2 d3@6 e3@4 f3@5 d3 e3@3 c#3]/3", AG: "[d3@3 b2 c#3 a2 d3@3 c3 b2 a2 b2@4]/2", AH: "a2 ~@3",
  AI: "d3@5 d#3 d3 c3", AJ: "a#2@4 a#2 c3 a#2 a2", AK: "g2@6 g2 ~", AL: "[a2@11 a2]/3",
  AM: "[a#2@3 g2 d3@5 a#2 c3@2 f3@5 d3 e3@2 a3@5 f3 g3@2 c4@5 a3 a#3@4 ~@2]/5", AN: "~@2 a3 ~", AO: "~ g#3",
  AP: "a3@3 a2", AQ: "d3/6",
})).s("gm_tuba").gain(0.3)

stack(french_horn, tuba, bass)