// Onward Christians Soldiers — Arthur S. Sullivan
// 120 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: ch 1 "Piano" named as a piano, played on piano (its choir aahs patch is not one)
// note: Transcription provider: pdmx. https://musescore.com/score/4257831; license: https://creativecommons.org/publicdomain/zero/1.0/
// note: Full arrangement: all 97 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 · [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 · piano
const piano = 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 ~@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 ~@8 A B C D E
  F G H I J K L M N O P Q R S T U V W Y@2
>`.pickRestart({
  A: "[d3,f#5,a5] [d3,f#3,f#5,a5] [d3,a3,f#5,a5] [d3,d4,f#5,a5]", B: "a5@6 b5 ~ [a2,c#4,g5,a5]@8, [e3,d4,g5] ~",
  C: "[g3,a3,c#5,e5]!2 [f#3,a3,b4,d5] [e3,a3,c#5,e5]", D: "[d3,a3,d5,f#5]@15 ~",
  E: "[d3,f#3,d5] [d3,f#3,d5,f#5] [d3,f#3,d5,a5] [d3,f#3,d5,d6]", F: "a3@6 b3 ~ [e3,a3,e5,c#6]@8, [e3,e5,d6] ~",
  G: "[e3,g#3,d5,b5]!2 [e3,a3,d5,f#5] [f#3,b3,d5,g#5]", H: "[a2,a3,c#5,a5]@15 ~",
  I: "[a2,a3,c#5,e5]!2 [c#3,a3,e5,a5] [a2,a3,c#5,e5]", J: "[d5,f#5]@6 [e5,g5] ~ [d3,a3,d5,f#5]@8, [d3,a3] ~",
  K: "[d3,f#3,d5,a5]!2 [f#3,a3,d5,d6] [d3,f#3,d5,a5]", L: "[g3,d5,b5]@15 ~",
  M: "[g3,d5,b5] [d3,f#3,d5,a5] [b2,g3,d5,g5] [d3,f#3,d5,a5]", N: "[g3,b5] [d3,f#3,a5] [b2,g3,g5] [d3,f#3,a5], d5!2",
  O: "[g2,g3,d5,b5] [g2,f#3,d5,a5] [g2,e3,e5,g5] [g#2,e3,d5,f#5]", P: "[a2,a3,c#5,e5]@15 ~",
  Q: "[d3,f#3,a4,d5] [a2,f#3,a4,d5] [d3,f#3,a4,d5] [a2,f#3,a4,d5]", // D
  R: "[e3,d5]@4 c#5@2 b4 ~ [e3,c#5]@4 [a2,d5]@4, [g3,a4]!2, ~ a2 ~@2", // E7 C#m D5 Gsus2
  S: "[c#3,g3,a4,e5]@4 [a2,g3,a4,e5]@4 [c#3,g3,a4,e5]@4 d5@2 e5 ~, ~@3 [a2,g3,a4]", // A7
  T: "[d3,f#3] ~ f#3 a3, [a4,f#5]@15 ~, ~ d3@3", U: "[d3,d4,f#5,a5]!2 [e3,a3,g5,d6] [e3,a3,g5,c#6]",
  V: "[f#3,a3,f#5,d6] [f#2,a3,d5,a5]", // D
  W: "[g2,d5,g5]@4 ~@2 a3 ~ [a2,g3,c#5,e5]@6 [d3,f#3,d5] ~, b3@3 ~@5, ~ [e2,d5,f#5] ~@2", X: "[d3,f#3,d5]@15 ~",
  Y: "[[d3,f#3,d5]@15 ~]/2", // D
})).s("gm_piano").gain(0.48)

// chords · epiano1 · "Piano"
const epiano1 = note(`<
  A B C D E F G H I J K L M N O P Q R S T U V W X A B C D E F G H A B C D E F G H I J K L M N O P Q R S T U V W X A B C
  D E F G H A B C D E F G H I J K L M N O P Q R S T U V W X A B C D E F G Y@2
>`.pickRestart({
  A: "[d3,f#3,a3,d4] [a2,f#3,a3,d4] [d3,f#3,a3,d4] [a2,f#3,a3,d4]", // D
  B: "[e3,d4]@4 c#4@2 b3 ~ [e3,c#4]@4 [a2,d4]@4, [g3,a3]!2, ~ a2 ~@2", // E7 C#m D5 Gsus2
  C: "[c#3,g3,a3,e4]@4 [a2,g3,a3,e4]@4 [c#3,g3,a3,e4]@4 d4@2 e4 ~, ~@3 [a2,g3,a3]", // A7
  D: "[d3,f#3] ~ f#3 a3, f#4@15 ~, a3@3 ~, ~ d3@3", E: "[d3,d4,f#4,a4]!2 [e3,a3,g4,d5] [e3,a3,g4,c#5]",
  F: "[f#3,a3,f#4,d5] [f#2,a3,d4,a4]", // D
  G: "[g2,d4,g4]@4 ~@2 a3 ~ [a2,g3,c#4,e4]@6 [d3,f#3,d4] ~, b3@3 ~@5, ~ [e2,d4,f#4] ~@2", H: "[d3,f#3,d4]@15 ~",
  I: "[d3,f#4,a4] [d3,f#3,f#4,a4] [d3,a3,f#4,a4] [d3,d4,f#4,a4]", J: "a4@6 b4 ~ [a2,c#4,g4,a4]@8, [e3,d4,g4] ~",
  K: "[g3,a3,c#4,e4]!2 [f#3,a3,b3,d4] [e3,a3,c#4,e4]", L: "[d3,a3,d4,f#4]@15 ~",
  M: "[d3,f#3,d4] [d3,f#3,d4,f#4] [d3,f#3,d4,a4] [d3,f#3,d4,d5]", N: "a3@6 b3 ~ [e3,a3,e4,c#5]@8, [e3,e4,d5] ~",
  O: "[e3,g#3,d4,b4]!2 [e3,a3,d4,f#4] [f#3,b3,d4,g#4]", P: "[a2,a3,c#4,a4]@15 ~",
  Q: "[a2,a3,c#4,e4]!2 [c#3,a3,e4,a4] [a2,a3,c#4,e4]", R: "[d4,f#4]@6 [e4,g4] ~ [d3,a3,d4,f#4]@8, [d3,a3] ~",
  S: "[d3,f#3,d4,a4]!2 [f#3,a3,d4,d5] [d3,f#3,d4,a4]", T: "[g3,d4,b4]@15 ~",
  U: "[g3,d4,b4] [d3,f#3,d4,a4] [b2,g3,d4,g4] [d3,f#3,d4,a4]", V: "[g3,b4] [d3,f#3,a4] [b2,g3,g4] [d3,f#3,a4], d4!2",
  W: "[g2,g3,d4,b4] [g2,f#3,d4,a4] [g2,e3,e4,g4] [g#2,e3,d4,f#4]", X: "[a2,a3,c#4,e4]@15 ~", Y: "[[d3,f#3,d4]@15 ~]/2",
})).s("gm_epiano1").gain(0.15)

// chords · electric guitar clean · "Acoustic Guitar"
const electric_guitar_clean = note(`<
  A B@2 A C A D A@2 E F A@2 E G H@2 A@2 I J@2 I H A B@2 A C A D A@2 B@2 A C A D A@2 E F A@2 E G H@2 A@2 I J@2 I H A B@2
  A C A D A@2 B@2 A C A D A@2 E F A@2 E G H@2 A@2 I J@2 I H A B@2 A C A D K@2
>`.pickRestart({
  A: "[d3,a3,d4,f#4]@4 [d3,a3,d4,f#4]@4 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~ [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~", // D
  B: "[a2,e3,g3,c#4,e4]@4 [a2,e3,g3,c#4,e4]@4 [a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4] ~ [a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4] ~", // A7
  C: "[d3,a3,d4,f#4]@4 [d3,a3,d4,f#4]@4 [e2,b2,d3,g3,b3,e4]@2 [e2,b2,d3,g3,b3,e4] ~ [a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4] ~", // D Em7 A7
  D: "[g2,b2,d3,g3,b3,g4]@4 [g2,b2,d3,g3,b3,g4]@4 [a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4] ~ [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~", // G A7 D
  E: "[e2,b2,d3,g3,b3,e4]@4 [e2,b2,d3,g3,b3,e4]@4 [a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4] ~ [a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4] ~", // Em7 A7
  F: "[a2,e3,g3,c#4,e4]@4 [a2,e3,g3,c#4,e4]@4 [b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4] ~ [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4] ~", // A7 Bm A
  G: "[e2,b2,d3,g#3,b3,e4]@4 [e2,b2,d3,g#3,b3,e4]@4 [e2,b2,d3,g#3,b3,e4]@2 [e2,b2,d3,g#3,b3,e4] ~ [e2,b2,d3,g#3,b3,e4]@2 [e2,b2,d3,g#3,b3,e4] ~", // E7
  H: "[a2,e3,a3,c#4,e4]@4 [a2,e3,a3,c#4,e4]@4 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4] ~ [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4] ~", // A
  I: "[g2,b2,d3,g3,b3,g4]@4 [g2,b2,d3,g3,b3,g4]@4 [g2,b2,d3,g3,b3,g4]@2 [g2,b2,d3,g3,b3,g4] ~ [g2,b2,d3,g3,b3,g4]@2 [g2,b2,d3,g3,b3,g4] ~", // G
  J: "[g2,b2,d3,g3,b3,g4]@4 [d3,a3,d4,f#4]@4 [g2,b2,d3,g3,b3,g4]@2 [g2,b2,d3,g3,b3,g4] ~ [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~", // G D G D
  K: "[d3,a3,d4,f#4]/2", // D
})).s("gm_electric_guitar_clean").gain(0.16)

// bass · electric bass pick · "Bass Guitar"
const bass = note(`<
  A B@2 A C A D A@2 E F A@2 E G B@2 A@2 H I@2 H B A B@2 A C A D A@2 B@2 A C A D A@2 E F A@2 E G B@2 A@2 H I@2 H B A B@2
  A C A D A@2 B@2 A C A D A@2 E F A@2 E G B@2 A@2 H I@2 H B A B@2 A C A D J@2
>`.pickRestart({
  A: "d2@4 d2@4 d2@2 d2 ~ d2@2 d2 ~", B: "a1@4 a1@4 a1@2 a1 ~ a1@2 a1 ~", C: "d2@4 d2@4 e1@2 e1 ~ a1@2 a1 ~",
  D: "g1@4 g1@4 a1@2 a1 ~ d2@2 d2 ~", E: "e1@4 e1@4 a1@2 a1 ~ a1@2 a1 ~", F: "a1@4 a1@4 b1@2 b1 ~ a1@2 a1 ~",
  G: "e1@4 e1@4 e1@2 e1 ~ e1@2 e1 ~", H: "g1@4 g1@4 g1@2 g1 ~ g1@2 g1 ~", I: "g1@4 d2@4 g1@2 g1 ~ d2@2 d2 ~", J: "d2/2",
})).s("gm_electric_bass_pick").gain(0.15)

// drums · kick
const kick = s("bd").struct(`<
  A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3
  B A@3 B A@3 B A@3 B A@3 C ~
>`.pickRestart({
  A: "x ~ x!3 ~ x!2", B: "x ~@5 x!2", C: "x",
})).gain(0.16)

// drums · snare
const snare = s("sd").struct(`<
  A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3
  B A@3 B A@3 B A@3 B A@3 C ~
>`.pickRestart({
  A: "~@4 x ~@7 x ~ x!2", B: "~@2 x ~@9 x ~ x!2", C: "x",
})).gain(0.16)

// drums · pedal hat
const pedal_hat = s("hh").struct(`<
  A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3
  B A@3 B A@3 B A@3 B A@3 C ~
>`.pickRestart({
  A: "~ x ~ x", B: "~@3 x", C: "x",
})).gain(0.16)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3
  A ~@3 A ~@3 A ~@3 A ~@5
>`.pickRestart({
  A: "~@4 x ~ x!3 ~@7",
})).gain(0.16)

// drums · high tom
const high_tom = s("ht").struct(`<
  ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3
  A ~@3 A ~@3 A ~@3 A ~@5
>`.pickRestart({
  A: "~@9 x!3 ~@4",
})).gain(0.16)

// drums · ride
const ride = s("rd").struct(`<
  A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3
  B A@3 B A@3 B A@3 B A@3 C ~
>`.pickRestart({
  A: "x!7 ~", B: "~@3 x", C: "x",
})).gain(0.16)

stack(piano, epiano1, electric_guitar_clean, bass, kick, snare, pedal_hat, mid_tom, high_tom, ride)