// The Sage — Emerson, Lake & Palmer
// 99.4 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: bank select 127 on channels 2, 8 is ignored: the parts fit General MIDI, not the Roland MT-32 map it names
// note: duplicate parts dropped: ch 3 "JAZZ GTR" electric guitar jazz (copy of ch 4 "CLEAN GTR" electric guitar clean); ch 5 "JAZZ GTR" electric guitar jazz (copy of ch 6 "CLEAN GTR" electric guitar clean)
// note: Full arrangement: all 152 bars on a 32-step grid, each part at one level. Source detail keeps the original performance.
setcpm(99.4/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 · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note(`<
  ~@51 A B A C A B@2 D A E F@2 G H I J K L M N O P O Q O R S@2 G H I J T U M N V@2 W X Y Z X Y AA AB@3 AC AD@2 AE AF@2
  AG AH@2 AI AJ AK AI AL AM AN AO AP@2 AQ AR@2 AS AT@3 AU AV AW AX AY AZ BA AZ BB BC BD BC BE BC BF S@2 BG BH BI J BJ BK
  BL BM@3
>`.pickRestart({
  A: "~@2 c4 b3 e4 b3 c4 e3, a2, ~ e3@4 ~@3", B: "~@2 c4 b3 e4 b3 c4 e3, a2, ~ f3@4 ~@3",
  C: "~@3 e4@29, a2, ~ f3@31, ~ [b3,c4]@15", D: "~@4 f3@3 ~ f3@5 ~@3 f3@11 ~@5, a2@21 ~@11, ~ c4@2 ~",
  E: "~@2 c4 b3 e4 b3 c4@2, a2, ~ f3@4 ~@3", F: "[~@4 b3@4 d#4@4 f#4@4 c5@4 ~ b4@4 a4@4 e5@34 ~, a2@3 ~@5]/2",
  G: "~@9 d4@4 e4@4 f4@4 e4@4 d3@4 a2@3, ~ d3@24 ~@7, ~@5 a3@16 ~@11",
  H: "~@9 g#3@4 e4@4 b3@4 g#3@4 b3@4 e4@3, ~ e2@31, ~@5 e3@16 ~@11",
  I: "~@9 c4@4 b3@4 ~@8 c4@4 b3@3, ~ a2@16 a2@15, ~@5 e3@8 ~@8 f3@8 ~@3",
  J: "~@9 c4@4 b3@4 e4@15, ~ a2@16 ~@15, ~@5 e3@8 ~@19", K: "~@17 f4@15",
  L: "~@9 e4@7, ~ e2@31, ~@5 b2@12 b3@15, ~@9 e3@16 ~@7, ~@13 g#3@16 ~@3",
  M: "~@9 c4@4 f4@4 c4@4 b3@4 ~@4 b3@3, ~ f3@24 f3@7, ~@5 b3@8 ~@19",
  N: "~@17 e4@15, ~ a2@31, ~@5 e3@24 ~@3, ~@9 c4@16 ~@7, ~@13 b3@16 ~@3",
  O: "~@9 c4@4 b3@4 e4@4 b3@4 c4@4 e3@3, ~ a2@31, ~@5 e3@16 ~@11",
  P: "~@9 c4@4 b3@4 e4@4 b3@4 c4@4 e3@3, ~ a2@31, ~@5 f3@16 ~@11",
  Q: "~@3 e4@6 ~@8 e4@15, ~ [a2,f3]@31, ~ b3@15, ~@3 c4@29", R: "~@9 c4@4 b3@4 e4@15, ~ a2@31, ~@5 f3@16 ~@11",
  S: "[~@5 b3@4 d#4@4 f#4@4 c5@4 b4@4 a4@4 e5@34 ~, ~ a2@24 ~@39]/2", T: "~@17 e4@15",
  U: "~@9 e4@7, ~ e2@31, ~@5 b2@24 ~@3, ~@9 e3@8 b3@15, ~@13 g#3@16 ~@3",
  V: "[~ b4@12 f#4@4 g#4@2 a4@5 ~ e4@24 [d#3,d#4,f#4]@6 ~@2 [e3,e4,g4]@6 ~]/2", // D#m Em
  W: "~ [c#3,c#4,e4]@6 ~@2 [d#3,d#4,f#4]@23", // C#m D#m
  X: "~@3 b3@3 e4@3 ~@2 b3@3 e4@3 ~@2 b3@3 e4@3 ~@2 c4@3 b3@2, ~ b2@8 b2@8 b2@8 c3@7",
  Y: "~@3 c4@3 b3@3 ~@2 c4@3 b3@3 ~@2 a3@3 d4@3 ~@2 a3@3 d4@2, ~ c3@8 c3@8 a2@8 a2@7",
  Z: "~@3 a3@3 d4@3 b2@16 ~@7, ~ a2@8 ~@23",
  AA: "~@3 a3@3 d4@3 [b2,b3,e4]@7 ~ [e3,e4,g#4]@6 ~@2 [f#3,f#4,b4]@6 ~, ~ a2@8 ~@23", // E5 E B5
  AB: "[~ [e3,e4,g#4]@4 [b2,b3,e4]@4 [c#3,f#4]@16 e4@16 ~@2 a3@2 e4@12 ~@2 g#3@2 e4@12 e5@8 g#4@8 c#4@5 ~@2, ~@9 c#4@13 ~@74]/3", // E E5 F#5
  AC: "~ d#5@8 g#4@8 b3@5 ~@3 c#5@4 g#4@3", AD: "[~ f#4@8 e4@8 e4@4 d#4@20 e5@8 g#4@8 c#4@7]/2",
  AE: "~ d#5@8 g#4@8 b3@8 c#5@4 g#4@3", AF: "[~ f#4@8 e4@8 e4@4 d#4@20 b4@12 f#4@4 g#4@3 a4@4]/2",
  AG: "~ e4@24 [d#3,d#4,f#4]@5 ~@2", // D#m
  AH: "[~ [e3,e4,g4]@5 ~@3 [c#3,c#4,e4]@5 ~@3 [d#3,d#4,f#4]@24 ~@3 b3@2 e4@3 ~@3 b3@2 e4@3 ~@3 b3@2 e4@2, ~@41 b2@8 b2@8 b2@7]/2", // Em C#m D#m
  AI: "~@4 c4@2 b3@3 ~@3 c4@2 b3@3 ~@3 c4@2 b3@3 ~@3 a3@2 d4@2, ~ c3@8 c3@8 c3@8 a2@7",
  AJ: "~@4 a3@2 d4@3 ~@3 a3@2 d4@3 b2@15, ~ a2@8 a2@8 ~@15",
  AK: "~@12 b3@2 e4@3 ~@3 b3@2 e4@3 ~@3 b3@2 e4@2, ~@9 b2@8 b2@8 b2@7",
  AL: "~@4 a3@2 d4@3 ~@3 a3@2 d4@3 [b2,b3,e4]@6 ~@2 [e3,e4,g#4]@6 ~, ~ a2@8 a2@8 ~@15", // E5 E
  AM: "~ [f#3,f#4,b4]@6 ~@2 [e3,e4,g#4]@4 [b2,b3,e4]@4 [c#3,c#4,f#4]@15", // B5 E E5 F#5
  AN: "~@2 d#4@7 ~ [c4,d#4]@7 ~ [c4,d#4]@7 e4@7, ~ c4@8 e3@8 d#3@8 ~@7", AO: "~ g4@4 f#4@4 c5@4 b4@4 e5@15",
  AP: "[~ [e3,g3,b3,e4]@8 e3@4 f#3@4 g3@4 b3@4 e4@4 g4@12 [e3,g3,b3,e4]@8 [b2,f#3,b3,d#4,f#4]@8 f#4@4 g4@3]/2", // Em B
  AQ: "~ a4@4 c5@7 ~ b4@17 ~@2",
  AR: "[~@2 c5@7 ~ b4@7 e5@32 ~@2 b4@6 ~@2 b4@5, ~ f#4@8 f4@8 ~@32 d#4@8 d4@7, ~@50 f#4@7 ~ f4@6]/2",
  AS: "~@3 a4@29, ~ c#4@31, ~ e4@15",
  AT: "[~@3 a4@6 ~@2 g4@34 ~@6 g4@6 ~@8 b4@13 ~@3 g4@4 b3@4 c4@4 a3@3, ~ c#4@8 b3@34 ~@6 b3@8 b3@20 ~@19, ~@2 e4@6 ~@2 e4@35 ~@5 e4@8 d#4@20 ~@18, ~@59 f#4@20 ~@17]/3",
  AU: "~ b3@4 g3@4 a3@4 f#3@4 g3@4 e3@4 f#3@4 b2@3", AV: "~@5 b2@4 f#3@4 g3@4 b3@4 g3@4 f#3@4 b2@3, ~ e2@31",
  AW: "~@5 c3@4 f#3@4 g3@4 b3@4 g3@4 f#3@4 c3@3, ~ e2@31", AX: "~@5 c#3@4 f#3@4 g3@4 b3@4 g3@4 f#3@7, ~ e2@31",
  AY: "~@5 c3@4 f#3@4 g3@4 b3@4 ~@8 c3@3, ~ e2@16 ~@4 f#4@4 g3@6 ~, ~@23 b3@4 f#3@5",
  AZ: "~@9 c4@4 b3@4 e4@4 b3@4 c4@4 e3@3, ~ a2@31, ~@5 e3@8 ~@19",
  BA: "~@9 c4@4 b3@4 e4@4 b3@4 c4@4 f3@3, ~ a2@31, ~@5 f3@8 ~@19", BB: "~ e4@7, ~ a2@31, ~ [f3,b3]@15, ~@3 c4@29",
  BC: "~@9 c4@4 b3@4 e4@4 b3@4 c4@4 e3@3, ~ a2@31, ~@5 e3@24 ~@3",
  BD: "~@9 c4@4 b3@4 e4@4 b3@4 c4@4 e3@3, ~ a2@31, ~@5 f3@24 ~@3", BE: "~@9 c4@23, ~ a2@24 ~@7, ~@5 f3@24 ~@3",
  BF: "~@9 c4@4 b3@4 e4@4 b3@4 c4@7, ~ a2@31, ~@5 f3@24 ~@3",
  BG: "~@9 d4@4 e4@4 f4@4 e4@4 d3@4 a2@3, ~ d3@24 ~@7, ~@5 a3@12 ~@15",
  BH: "~@9 g#3@4 e4@4 b3@4 g#3@4 b3@4 e4@3, ~ e2@31, ~@5 e3@24 ~@3",
  BI: "~@5 e3@3 ~ e3@3 ~ b3@3 ~@5 f3@3 ~ f3@3 ~ b3@3, ~ a2@16 a2@15, ~@9 c4@7 ~@9 c4@7", BJ: "~@13 e4@19",
  BK: "~@5 b2@4 e3@4 g#3@4 ~ e4@14, ~ e2@16 b3@15", BL: "~@5 b3@4 c4@4 f4@4 c4@4 b3@4 f3@4 b3@3, ~ f3@16 ~@15",
  BM: "[~@5 e3@4 c4@4 e4@4 ~@4 a4@45 ~@30, ~ a2@64 ~@31, ~@3 e3@8 ~@5, ~@19 c4@47 ~@30, ~@20 e4@45 ~@31]/3",
})).s("gm_electric_guitar_clean").gain(0.1)

// chords · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean_2 = note(`<
  ~@61 A@2 ~@4 B ~@9 A@2 ~@4 B ~@3 C@2 ~@7 D@3 E@3 F@3 G ~@34 A@2 ~@4 H ~@5
>`.pickRestart({
  A: "[~@29 g#4@34 ~]/2", B: "~@13 e4@16 ~@3, ~ d3@31, ~@5 a3@16 ~@11, ~@9 d4@16 ~@7",
  C: "[~@17 b3@8 e3@24 ~@15, ~ f#3@24 ~@39]/2", D: "[~@25 d#3@16 e2@16 e2@16 c#4@16 ~@7, ~@25 b3@4 ~@67]/3",
  E: "[~ b3@16 ~@8 a3@16 [c#3,f#3]@8 e3@24 c#4@16 ~@7]/3", F: "[~ b3@16 ~@8 a3@16 c#3@8 e3@24 f#3@20 ~@3]/3",
  G: "~ e3@20 ~@11", H: "~@9 d4@23, ~ d3@31, ~@5 a3@24 ~@3",
})).s("gm_electric_guitar_clean").gain(0.12)

// other · drawbar organ · "ORGAN 1"
const drawbar_organ = note(`<
  ~@30
  [a#2 f3 a#3 c4 a#3 c4 a#3 f3]!7
  [a#2 f3 a#3 c4 a#3 f3 a#2 f3]
  [a2 e3 a3 b3 a3 e3 a2 e3]!10
  ~@104
>`).s("gm_drawbar_organ").gain(0.2)

// other · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note("<~@33 A B C D E F G H I J K L M N O P Q@5 ~@98>".pickRestart({
  A: "~@7 f3", B: "a#3@14 c4 a#3", C: "c#4@14 e4 f4", D: "e4@7 c4", E: "c#4@2 a#3@3 ~@3 a#3@20 e3@4", F: "a3@14 b3 a3",
  G: "c4@14 d#4 e4", H: "d#4@7 b3", I: "c4@2 a3@3 ~@3 a3@19 ~@3 a3 ~",
  J: "d#4@5 ~ e4@2 d#4@5 ~ b3@2 d4@2 c4@2 a3@2 c4@3 ~ e4@2 g4@2 a4@2",
  K: "b4@6 c5@2 b4@6 g4@2 b4@2 a4@2 g4@2 e4@2 g4@2 a4@2 e4@3 ~",
  L: "d#4@5 ~ e4@2 d#4@5 ~ b3@2 d4@2 c4@2 a3@2 g3@2 a3@2 c4@2 d4@2 e4@2", M: "b4@5 ~ c5@2 b4@5 ~ g4@2 b4@6 g4@2 e4@8",
  N: "~ e4 g4 b4 f#5 a5 f#5 d5 e5 d5 b4 a4 b4 g4 e4 d4",
  O: "e4@5 ~ d4@2 e4@5 ~ d4@2 e4@2 d4@2 b3@2 a3@2 b3@2 a3@2 g3@2 e3@2", P: "a3@27 ~@5", Q: "a3/5",
})).s("gm_acoustic_guitar_steel").gain(0.24).pan(0.4)

// other · cello
const cello = note("<~@7 A B C D E F G@2 H I J@2 K L M@2 B C D E F G@2 ~@122>".pickRestart({
  A: "~@2 g3 f3", B: "a#3@2 c4 f4 d4@2 c4 f4", C: "d4 a#3 c4 g3", D: "f3", E: "~ g3 f3 a#3", F: "c4 f4 d4@2 c4 f4 d4@2",
  G: "[a#3 c4 g3 f3@4 ~]/2", H: "f3@2 g3@2 d3@2 f3 g3", I: "c3@2 g3 a3 f3@2 f4@2", J: "[d4@2 c4 a#3 c4@8 ~@2 f3@2]/2",
  K: "g3@2 d3@2 f3 g3 c3@2", L: "g3 a3 f3@2 f4@2 d4@2", M: "[c4 a#3 c4@8 ~@2 g3@2 f3@2]/2",
})).s("gm_cello").gain(0.27)

// other · slap bass 2 · "+ORGAN 2"
const slap_bass_2 = note("<A B C@2 D E F@2 ~@144>".pickRestart({
  A: "g4@2 f4@2 a#4@2 c5 f5", B: "d5@2 c5 f5 d5@2 a#4@2", C: "[c5@8 g4@8 f4@33 ~@7 g4@8]/2", D: "f4@2 a#4@2 c5 f5 d5@2",
  E: "c5 f5 d5@2 a#4@2 c5@2", F: "[g4@8 f4@33 ~@23]/2",
})).s("gm_lead_8_bass_lead").gain(0.24).pan(0.6)

// other · pizzicato strings · "+ORGAN 2"
const pizzicato_strings = note("<~@11 A B C@2 ~@3 D E F G@2 H ~@2 I J K@3 ~@121>".pickRestart({
  A: "~ [g4,g5] [f4,f5] [a#4,a#5]", B: "[c5,c6] [a#4,a#5] [a4,a5] [f4,f5]",
  C: "[[g4,g5] [c5,c6] [g4,g5] [f4,f5]@4 ~]/2", D: "~@3 f4", E: "g4 d4 f4 a4", F: "a4 c5 f5 a#4",
  G: "[c5 [f4,a4]@4 ~ g4 f4]/2", H: "a#4 ~@3", I: "~ g4 f4 a#4", J: "c5 f5 d5@2 c5 f5 d5@2",
  K: "[a#4@8 c5@8 g4@8 f4@47 ~@25]/3",
})).s("gm_pizzicato_strings").gain(0.07).pan(0.6)

// other · church organ · "CHURCH ORG"
const church_organ = note("<A B C@2 D E@3 ~@14 F G H I J K L@3 ~@121>".pickRestart({
  A: "[g3,g4] [f3,f4] [g3,g4] [a3,a4]", B: "[a#3,a#4] [c4,c5] [d4,d5] [d#4,d#5]",
  C: "[[e4,e5]@8 [g3,g4]@8 [f3,f4]@33 ~@7 [g3,g4]@8]/2", D: "[f3,f4] [g3,g4] [a3,a4] [a#3,a#4]",
  E: "[[c4,c5]@8 [d4,d5]@8 [d#4,d#5]@8 [e4,e5]@16 [f4,f5]@33 ~@23]/3", F: "~@2 [g3,g4] [f3,f4]",
  G: "[a#3,a#4]@2 [c4,c5] [f4,f5] [d4,d5]@2 [c4,c5] [f4,f5]", H: "[d4,d5] [a#3,a#4] [c4,c5] [g3,g4]", I: "[f3,f4]",
  J: "~ [g3,g4] [f3,f4] [a#3,a#4]", K: "[c4,c5] [f4,f5] [d4,d5]@2 [c4,c5] [f4,f5] [d4,d5]@2",
  L: "[[a#3,a#4]@8 [c4,c5]@8 [g3,g4]@8 [f3,f4]@45 ~@27]/3", // A# C G F
})).s("gm_church_organ").gain(0.04).pan(0.4)

// drums · rim
const rim = s("rim").struct("<~@14 [~@7 x] ~@137>").gain(0.01)

stack(
  electric_guitar_clean, electric_guitar_clean_2, drawbar_organ, acoustic_guitar_steel, cello, slap_bass_2,
  pizzicato_strings, church_organ, rim
)