// Mary's Boy Child — Belafonte Harry
// 113 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 64 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(113/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.

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~@8 A B C D E F C G A B C D E F C G H I J K L M N O A B C D E F C G A B C D E F C G H I J K L M N O P Q R S T U V W
>`.pickRestart({
  A: "c2@5 ~ c3@5 ~ e2@3 ~", B: "f2@5 ~ f2@6 d2@3 ~", C: "g2@5 ~ g1@5 ~ g1@3 ~", D: "c2@6 g2@5 ~ g1@3 ~",
  E: "c2@5 ~ c2@2 d2@3 ~ e2@3 ~", F: "f2@5 ~ f2 ~ d2@3 ~ d2@3 ~", G: "c2@5 ~ c2@6 g1 ~ g1 ~",
  H: "c2@5 ~ c2 ~ d2@5 ~ d2 ~", I: "g1@5 ~ g1 ~ c2@5 ~ b1 ~", J: "a1@5 ~ a1 ~ d2@4 d2 ~ d2 ~",
  K: "g1@5 ~ g2@6 g1@2 b1 ~", L: "c2@8 d2@4 e2@3 ~", M: "f2@5 ~ f2@2 d2@3 ~ d2@4", N: "g2@6 g1@2 g1@5 ~ g1@2",
  O: "c2@5 ~ c2@8 g1 ~", P: "a1@5 ~ a2@6 a1@3 ~", Q: "d2@5 ~ d2 ~ e2@3 ~ f2@3 ~", R: "g2@5 ~ g2@8 d2 ~",
  S: "g1@5 ~ g1@5 ~ g1@3 ~", T: "c2@5 ~ c3@6 g2@3 ~", U: "c2@5 ~ c3@5 ~ g2@3 ~", V: "c2@5 ~ c3@5 ~ g2 ~ g1@2",
  W: "c2@2 ~@2 c2 ~ c2 ~ c2@2 ~@6",
})).s("gm_acoustic_bass").gain(0.6)

// chords · epiano2 · "E.PIANO 2"
const epiano2 = note(`<
  ~@8 A B C D@2 E F G A B C D@2 E F G H I J K L M F N A B C D@2 E F G A B C D@2 E F G H I J K L M F N L M O P Q@3 R
>`.pickRestart({
  A: "g3@3 g3@2 [c4,e4,g4]@3, [c4,d4,e4]@5 ~@3", B: "[a3,c4,d4]@3 [a3,c4,d4], f4", C: "[f3,g3]@3 [f3,g3]@5, [b3,d4]",
  D: "[c4@3 ~@3 g4 ~ [c4,e4]@4 [a#3,d4,e4]@4, g3@25 ~@7, e4@10 e4@4 g4@11 ~@7, ~@3 c4@5 ~@8, ~ d4@2 ~]/2", // C Em7b5
  E: "[a3,c4,f4]@3 [a3,c4,d4,f4]@5", F: "[f3,g3,c4] [f3,g3,b3]", G: "g3@5 ~ c4 d4, e3@15 ~, c4@3 ~, ~@10 g3@5 ~",
  H: "[c4,d4,e4,g4] [c4,d4,f4,a4]", I: "~ [c4,e4], [b3,d4] ~, g4@3 g4@5, ~ f4 ~@2", J: "[g3,a3,c4,e4] [f3,a3,c4,d4]",
  K: "g3 ~@2 f4, [f3,b3,d4], ~@2 g3@3 g3@3, ~@3 g4@5", L: "[g3,c4,e4]@2 ~ [e4,g4], ~ [g3,d4,f4]",
  M: "[c4,f4,a4]@3 [a3,c4,d4,f4]@5", N: "g3@5 ~@2 d4, c3, [c4,e4]@3 c4, ~@5 g3@3",
  O: "~@3 e4@5, g2@15 ~, ~ f3@7, ~ c4@3", P: "~@3 g4@4 ~, g2@7 ~, ~ f3@6 ~, ~@2 b3@5 ~",
  Q: "[~@23 c5, c3@16 c3@16 c3@15 ~, ~@2 g3@14 ~@2 g3@14 ~@2 g3@13 ~, ~@4 e4@10 e4@5 ~ e4@10 e4@5 ~ e4@5 ~ e4@6, ~@6 c5@14 ~@2 c5@13 ~@3 c5@7 ~@3]/3",
  R: "[c3,g3]@2 ~@2 [c3,g3,e4,c5]@3 ~ [c3,g3,e4,c5]@2 ~@6", // C5 C
})).s("gm_epiano2").gain(0.32)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~@16 A B C A@2 D E F G H I J K@2 L M ~@8 A B C A@2 D N F G H I J K@2 L M O P Q R S@2 T U
>`.pickRestart({
  A: "[c3,g3,e4]", B: "[a3,f4]@3 [c4,e4], d3", C: "b3@3 f4, [g2,f3]", D: "[a3,d4]@3 c4, f2",
  E: "[f3,c4]@2 a3 b3, g2, ~ f3", F: "[g2,e3,c4]", G: "[c3,g3,e4] [d3,a3,f4]", H: "[g2,f3,b3] [c3,g3,c4,e4]",
  I: "[a2,e3,c4]@2 d4 c4, ~ [d3,f3]", J: "[g2,f3,b3]",
  K: "[[c3,g3,e4]@2 [d3,g3,f4] [e3,g4] [f3,a4]@2 [d3,c4,f4]@2, ~@12 c4@11 ~@9]/2", L: "[g2,f3,c4] [g2,f3,b3]",
  M: "[g2,e3,c4]@15 ~", N: "[f3,b3]@2 a3 b3, g2, ~ f3", O: "[a2,g3,c4]", P: "[d3,f3,c4,f4]@15 ~", Q: "[g2,f3,c4]",
  R: "~@8 g4@7 ~, [g2,f3,b3]@15 ~", S: "[g3,e4,c5]/2", T: "[e4,c5,g5]",
  U: "[g4,e5,c6] ~@3 [e5,c6]@2 [g4,e5,c6] ~ [g4,e5,c6] ~@7, ~@4 g4 ~@11", // C
})).s("gm_string_ensemble_1").gain(0.41)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~@8 A B C D E F G@2 A B C D E F G@2 H I J K L M N O A B C D E F G@2 A B C D E F G@2 P Q R S T U V W T U X Y Z AA AB AC
>`.pickRestart({
  A: "~@6 c3 g3, c3@4 e4@4 g3@5 ~@3, ~ g3@2 c3@2 e4@3", B: "~@6 f3 a3, f3@4 d4@4 a3@5 ~@3, ~@2 a3@4 f3@4 d4@5 ~",
  C: "~@6 g2 f3, g2@4 b3@4 f3@5 ~@3, ~ f3@2 g2@2 b3@3", D: "c3 ~@6 c4, ~@2 e3@9 ~ e3@4, ~@4 g3@5 ~ g3@6, ~@6 c4@7 ~@3",
  E: "~@14 a#3 ~, c3@2 e4@2 ~ e4@3, ~@2 g3@6 a#3@5 ~@3, ~@6 c3@5 ~ c3@4",
  F: "~@14 d3 ~, f3@6 d3@7 ~@3, ~@2 a3@5 ~ a3@8, ~ f4 ~ c4",
  G: "[~ f3 c4 ~@3 g2 ~@6 e3 g3 e3, g2@5 ~ g2@4 b3@4 c4@4 e3@6 ~@8, ~@8 f3@8 c3@4 g3@4 c4@7 ~, ~@22 c3@7 ~@3]/2",
  H: "~@6 e3 ~@7 d3 ~, e3@4 g4@4 ~@2 a3@5 ~, ~ c4@3 d3@3 ~, ~@3 d4", I: "~ b3 d4 c4@2 ~ c3 g3, g3@5 e4@3",
  J: "~@6 a2 ~@5 c4@2 d3@2, a2@4 c4@4 ~@2 f3@5 ~, ~ g3@3 d3@2 ~@2",
  K: "~@5 g3 ~ g3, g2@4 d4@4 g4@5 ~@3, ~ g3@3 ~@2 d4@2, ~@6 g2@9 ~", L: "~@2 e4 ~@3 e3 g3, c3 ~ g3 ~, ~ g3@2 e3@2 e4@3",
  M: "~@6 f3 ~@5 f4@2 d3@2, f3 f4 d3 ~, ~@2 a3@7 ~ a3@6", N: "~@6 g2 c4, g2 c4 f3@2, ~ f3@2 g2@2 b3@2 ~",
  O: "~@12 c3@2 e3 ~, c3@4 c4@4 e3@5 ~@3, ~@2 e3@4 c3@4 c4@5 ~",
  P: "~@4 e5@2 c4 ~ f5@2 e5 ~ d5@2 c5 ~, c4 ~@3, ~ g4@2 ~@5", Q: "b4@2 ~@2 g4@2 b4 ~ e5@2 d5 ~ c5 ~ b4 ~, ~ d4@2 ~@5",
  R: "a4@2 ~@2 e4@2 a4 ~ d5 ~ c5 ~ b4 ~ a4 ~, ~ a3@2 ~@5", S: "g4@2 ~@10 g4@2 d4 ~, ~ d4@2 g4@2 f4@2 ~, ~ f4 d4 ~",
  T: "~@4 c5@2 ~@4 g4@2 ~@2 g4 ~, c4@5 ~ c4@5 ~ c4@4, ~@2 g4@5 ~ e5@6 ~@2",
  U: "~@6 f3 ~@3 c4@2 ~@2 c4@2, f3 a4 ~ f4, ~@2 c4@4 ~@2 d3@5 ~@3", V: "~@4 b3 g4 ~ f4, g2 f4 ~ b3, ~@2 c4@4 g2@9 ~",
  W: "~@12 c3@2 g3 ~, c3@4 e4@4 g3@5 ~@3, ~@2 g3@4 c3@4 e4@5 ~", X: "~@3 c4, f3@3 e4@5, ~@2 g3@6 f3@7 ~, ~@2 c4@3 g3@3",
  Y: "~@12 b3@2 f3 ~, f3@8 f3@5 ~@3, ~@2 g3@7 ~ g3@5 ~, ~@4 b3@5 ~@7, ~@3 d4@2 ~@3",
  Z: "~ g3 ~ a3@2 ~@2 e3, c3@7 ~, ~@4 c4@5 ~ c4@6, ~@3 g3",
  AA: "~@2 g3 a3@2 ~ g3 e3, c3@13 ~@3, ~ e3@5 ~@2, ~@5 c4@2 ~",
  AB: "~@6 g3 e3, c3@13 ~@3, ~ e3@5 ~@2, ~@2 g3@3 a3@2 ~, ~@3 c4@4 ~", AC: "c3@2 ~@2 [c3,c4]@2 c3 ~ [c3,c4]@2 ~@6",
})).s("gm_acoustic_guitar_steel").gain(0.45)

// other · orchestral harp · "HARP" · Em7 C Am7 Em7 D7 Em D7 A7 …
const orchestral_harp = note(`<
  ~@23
  [~@10 c3 [d3,e3,g3] [c4,d4,e4] [g4,a4,c5] [d5,e5,g5] [a5,c6,d6]]
  [[e6,g6] ~@15]
  ~@37
  [~@5 [a2,c3,d3] [e3,g3,a3] [c3,c4,d4] [d3,e3,g3] [a3,c4,d4] [e4,g4,a4] [e3,g3,a3] [c4,d4,e4] [g4,a4,c5] [d5,e5,g5] [a5,c6,d6]]
  [[e6,g6,a6] c7 ~@14]
>`).s("gm_orchestral_harp").gain(0.24)

// other · tubular bells · "TUBULARBEL"
const tubular_bells = note("<~@40 A B C D E B F ~ G H I J K L M N K L O P Q ~@3>".pickRestart({
  A: "g4 ~ g4 ~@3 g4 ~ c5 ~@3 c5 ~ a4 ~", B: "~@2 f4 ~@3 d4 ~@3 a4 ~@3 a4 ~", C: "g4 ~@3 b4 ~ a4 ~@3 f4 ~@3 e4 ~",
  D: "~@14 g4 ~", E: "g4 ~@3 e5 ~ d5 ~@3 c5 ~@3 a4 ~", F: "g4 ~@3 c5 ~ b4 ~@3 d5 ~@3 c5 ~",
  G: "e5 ~@3 e5 ~@3 f5 ~@3 f5 ~@3", H: "d5 ~@3 d5 ~@3 e5 ~@3 e5 ~@3", I: "c5 ~@3 c5 ~@3 d5 ~@3 d5 ~@3",
  J: "b4 ~@3 b4 ~@3 b4 ~@3 a4 ~@3", K: "g4 ~@3 e5 ~@3 d5 ~@3 c5 ~@3", L: "d5 ~@3 c5 ~@3 a4 ~@3 f4 ~@3",
  M: "g4 ~@3 c5 ~@3 b4 ~@3 d5 ~@3", N: "c5 ~@3 g4 ~@3 c4 ~@3 g4 ~@3", O: "g4 ~@7 c5 ~@7", P: "b4 ~@7 d5 ~@7",
  Q: "c5 ~@15",
})).s("gm_tubular_bells").gain(0.44)

// drums · kick
const kick = s("bd").struct("<A@23 B@6 A B C A@11 C A@3 B@5 A D B E A D B E C@2 A F>".pickRestart({
  A: "x ~@2 x!2 ~@3", B: "x ~@2 x!2 ~@2 x", C: "x ~@2 x ~@3 x", D: "x ~@2 x ~ x ~@2", E: "x ~@2 x ~ x ~ x",
  F: "x ~ x!3 ~@3",
})).gain(0.64)

// drums · snare
const snare = s("sd").struct("<~@24 A@7 B ~@8 A@7 C A@7 D A@3 D A@2 E ~>".pickRestart({
  A: "~ x ~ x", B: "~ x!2 ~", C: "~@2 x ~@2 x!2 ~", D: "~ x!3", E: "~@2 x ~@2 x ~@2",
})).gain(0.64)

// drums · low tom
const low_tom = s("lt").struct("<~@23 [~@5 x!2 ~] ~@15 [~@3 x] ~@24>").gain(0.64)

// drums · hihat
const hihat = s("hh").struct("<~@40 [~ x!3] [x!4]!4 [x ~ x ~ x ~ x!2] [x!4] x ~@15 [~ x!2 ~]>").gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct("<~@31 A ~@3 A ~@3 B ~@22 C ~>".pickRestart({
  A: "~@5 x!2 ~", B: "~@3 x!2 ~@3", C: "~@7 x",
})).gain(0.58)

// drums · open hat
const open_hat = s("oh").struct("<~@31 A ~@3 B ~@11 C ~@3 D ~@3 E ~@3 E ~@4>".pickRestart({
  A: "~ x ~@6", B: "~@7 x", C: "~@2 x ~@2 x!2 ~", D: "~@5 x!2 ~", E: "~@2 x!2",
})).gain(0.58)

// drums · high tom
const high_tom = s("ht").struct("<~@39 [~ x ~@6] ~@22 [~@3 x] ~>").gain(0.64)

// drums · crash
const crash = s("cr").struct("<~@24 A ~@23 A ~@3 A ~@3 A ~@3 A ~@3>".pickRestart({
  A: "x",
})).gain(0.58)

// drums · ride
const ride = s("rd").struct("<~@23 A B C A D E F A G@2 ~@3 G ~@3 G ~@7 H E@2 I H E@2 J H E@2 J K L M G>".pickRestart({
  A: "x!4", B: "~ x!3", C: "x ~ x ~ x ~ x!2", D: "x ~ x ~ x!4", E: "x ~ x!3 ~ x!2", F: "x!5 ~ x!2", G: "x",
  H: "~@2 x!3 ~ x!2", I: "x ~ x!3 ~@3", J: "x!2 ~@2", K: "~ x!7", L: "x!8", M: "x!5 ~@3",
})).gain(0.64)

// drums · cowbell
const cowbell = s("cb").struct("<[x!4]!63 [x!3 ~]>").gain(0.64)

// drums · bongos
const bongos = s("bongo:4").struct("~@2 x!2 ~@4").gain(1.7)

// drums · congas
const congas = s("conga:13").struct("<[~@2 x!2 ~@6 x ~@5]!63 [~@2 x!2 ~@12]>").gain(2.06)

// drums · congas
const congas_2 = s("conga:33").struct("<[~@6 x!2]!63 ~>").gain(2.06)

// drums · shaker
const shaker = s("sh").struct("<[x!8]!63 [x!4 ~@4]>").gain(0.58)

// drums · rim
const rim = s("rim").struct("<~@4 [~@2 x!3 ~@11]!4 ~@8 [~@2 x!3 ~@11]!8 ~@8 [~@2 x!3 ~@11]!8 ~@8 [~@2 x!3 ~@11]!16>")
  .gain(0.64)

stack(
  bass, epiano2, string_ensemble_1, acoustic_guitar_steel, orchestral_harp, tubular_bells, kick, snare, low_tom, hihat,
  mid_tom, open_hat, high_tom, crash, ride, cowbell, bongos, congas, congas_2, shaker, rim
)