// Rivers Of Babylon — Boney M.
// 120 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 115 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): STEEL GTR.
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.

// bass · fretless bass · "FRETLESS"
const bass = note(`<
  ~@17 A@2 B C D E F G A H B I D J F K L M N O F P Q R S T P N U F M V W S H A B X D J F Y Z AA AB AA AC AD AE AF Z AA
  AB AA AC AD AE AG A@2 B C D E F G A H B I D J F K A H B I D J F AH A@2 B X D J F AI A@2 B C AJ J F AK
>`.pickRestart({
  A: "c2 ~ c2 ~ g1 ~ c2 ~@3 c2 ~ g1 ~ a1 ~", B: "c2 ~ c2 ~ g1 ~ c2@2 ~@2 c2 ~ g1 ~ a1 ~",
  C: "c2 ~ c2 ~ g1 ~ c2 ~@3 c2@2 d2 ~ e2 ~", D: "g2 ~ g2 ~ d2@2 g2 ~@3 g2 ~ d2 ~ e2 ~",
  E: "g2 ~ g2 ~ d2 ~ g2 ~@3 c2@2 b1@2 g1@2", F: "c2 ~ c2@2 g1@2 c2 ~@3 c2@2 g1@2 a1@2",
  G: "c2 ~ c2@2 g1@2 c2 ~ a2@2 g2@2 e2@2 d2@2", H: "c2 ~ c2 ~ g1 ~ c2 ~@3 c2 ~ a1 ~ g1 ~",
  I: "c2 ~ c2 ~ g1 ~ c2 ~@3 d2@2 e2 ~ d2 ~", J: "g2 ~ g2 ~ d2 ~ g2 ~@3 g2@2 d2@2 b1@2",
  K: "c2 ~ c2@2 g1@2 c2@2 ~@2 a2@2 g2@2 e2@2", L: "c2 ~ c2 ~ g1@2 c2 ~@3 c2@2 g1@2 a1@2",
  M: "c2 ~ c2@2 g1@2 c2 ~@3 c2@2 d2@2 e2 ~", N: "f2 ~ f2@2 c2@2 f2@2 ~@2 f2@2 e2@2 d2@2",
  O: "c2 ~ c2 ~ g1 ~ c2@2 ~@2 c2@2 a1@2 g1@2", P: "c2 ~ c2@2 g1@2 c2 ~@3 c2@2 d2@2 c2 ~",
  Q: "g2 ~ g2@2 d2@2 g2@2 ~@2 g2@2 d2 ~ b1 ~", R: "c2 ~ c2@2 g1@2 c2@2 ~@2 c2@2 a1@2 g1@2",
  S: "c2 ~ c2@2 g1 ~ c2@2 ~@2 c2@2 g1@2 a1@2", T: "c2 ~ c2 ~ g1@2 c2 ~@3 c2@2 a1@2 g1@2",
  U: "c2 ~ c2 ~ g1 ~ c2@2 ~@2 c2@2 g1@2 a1@2", V: "g2 ~ g2@2 d2@2 g2@2 ~@2 g2@2 d2 ~ g1 ~",
  W: "c2 ~ c2@2 g1@2 c2@2 ~@2 c2@2 g1@2 a1@2", X: "c2 ~ c2 ~ g1 ~ c2 ~@3 d2@2 e2 ~ a2 ~",
  Y: "c2 ~ c2@2 g1@2 c2@2 ~@2 g2@2 c3@2 g2@2", Z: "c2 ~ c2@2 g1@2 c2@2 ~@2 d2@2 d2@2 e2 ~",
  AA: "g2 ~ g2@2 d2@2 g2@2 ~@2 g2@2 d2@2 b1@2", AB: "c2 ~ c2 ~ g1 ~ c2@2 ~@2 d2@2 e2@2 f2@2",
  AC: "c2 ~ c2@2 g1@2 c2@2 ~@2 d2@2 e2@2 f2@2", AD: "g2 ~ g2@2 d2@2 g2@2 ~@2 d2@2 g1@2 b1@2",
  AE: "c2 ~ c2@2 g1@2 c2 ~@3 c2 ~ g1@2 a1@2", AF: "c2 ~ c2@2 g1@2 c2@2 a2@2 g2@2 e2@2 d2@2",
  AG: "c2 ~ c2@2 g1@2 c2@2 ~@2 g2@2 e2@2 d2@2", AH: "c2 ~ c2@2 g1@2 c2 ~@3 c2@2 a1@2 g1@2",
  AI: "c2 ~ c2@2 g1@2 c2@2 ~@2 g2@2 a2@2 g2@2", AJ: "g2 ~ g2 ~ d2@2 g2 ~@3 g2 ~ d2 ~ g2 ~",
  AK: "c2 ~ c2@2 g1@2 c2 ~@3 g2@2 e2@2 d2@2",
})).s("gm_fretless_bass").gain(0.52)

// other · distortion guitar · "DISTORTION"
const distortion_guitar = note("<~@99 A B C D E@2 F G H I J K L M N O>".pickRestart({
  A: "~@10 g4@2 e4 ~ g4 ~", B: "g4@2 a4@2 ~ g4@5 ~@6", C: "~@6 e4 ~ g4 e4 ~ g4 ~ a4@3", D: "~ g4@4 ~@11",
  E: "[~@5 b4@3 a4 ~@2 b4@2 a4@2 [g4,a4]@2 g4@6 ~@9]/2", F: "~@2 g4@2 ~@2 g4@2 e4 ~ e4@2 d4 ~ d4@2", G: "c4 ~ c4@7 ~@7",
  H: "~@10 g4@2 ~ g4@2 e4", I: "~ g4 ~ g4@2 ~ g4@3 ~ g4@4 ~@2", J: "~@9 e4 ~ g4@2 e4 ~ g4", K: "~ g4@2 g4@8 ~@5",
  L: "~@6 g4@2 ~ b4@3 a4@2 b4@2", M: "a4 g4@4 ~@3", N: "~@5 c5@5 a4@2 g4 ~@2 d4, ~@7 d#4", O: "~ c4@6 ~@9",
})).s("gm_distortion_guitar").gain(0.22)

// chords · marimba
const marimba = note("<~@25 A B C D E F C G ~@9 H@2 I H@2 J K L M ~@16 N O H O P Q R S ~@40>".pickRestart({
  A: "[g4,c5] ~ [g4,c5]@2 ~@2 [g4,c5]@2 [g4,c5] ~@3 [g4,c5]@2 ~@2", // C5
  B: "[g4,c5] ~ c5@2 ~@2 [g4,c5] ~ [c5,e5] ~@3 [c5,e5] ~@3, ~@2 e5 ~@13", // C5 C
  C: "[g4,c5] ~ [g4,c5]@2 ~@2 [g4,c5] ~ [g4,c5] ~@3 [g4,c5] ~@3", // C5
  D: "[g4,c5] ~ [c5,e5]@2 ~@2 [g4,c5] ~ [c5,e5]@2 ~@2 c5@2 ~@2, ~@12 e5 ~@3", // C5 C C5 C
  E: "[g4,b4] ~ [b4,d5]@2 ~@2 [g4,b4] ~ b4@2 ~@2 b4@2 ~@2, ~@8 d5 ~@3 d5 ~@3", // G Bm G
  F: "[g4,b4] ~ [b4,d5]@2 ~@2 [g4,b4] ~ [b4,d5] ~@3 b4@2 ~@2, ~@12 d5 ~@3", // G Bm G Bm
  G: "[g4,c5] ~ [c5,e5]@2 ~@2 [c5,e5] ~ [c5,e5] ~@3 [c5,e5]@2 ~@2", // C5 C
  H: "[g4,c5] ~ [c5,e5] ~@3 [g4,c5] ~ [c5,e5] ~@3 [c5,e5] ~@3", // C5 C C5 C
  I: "[f4,a4] ~ [a4,c5] ~@3 [f4,a4] ~ [a4,c5] ~@3 [c5,f5] ~@3", // F Am F Am F5
  J: "[g4,c5] ~ [c5,e5] ~@3 [g4,c5] ~ c5@2 ~@2 c5@2 ~@2, ~@8 e5 ~@3 e5 ~@3", // C5 C C5
  K: "[g4,b4] ~ [b4,d5] ~@3 [g4,b4] ~ [b4,d5] ~@3 [b4,d5] ~@3", // G Bm G Bm
  L: "[g4,c5] ~ [g4,c5] ~@3 [g4,c5] ~ g4@2 ~@2 [g4,c5] ~@3, ~@8 c5 ~@7", M: "[g4,c5] ~ [g4,c5] ~@3 [g4,c5] ~@9",
  N: "[g4,c5] ~ e5@2 ~@2 [g4,c5] ~ [c5,e5] ~@3 [c5,e5] ~@3, ~@2 c5 ~@13", // C5 C
  O: "[g4,b4] ~ [b4,d5] ~@3 [g4,b4] ~ [b4,d5] ~@3 d5@2 ~@2, ~@12 b4 ~@3", // G Bm G Bm
  P: "[g4,c5] ~ [c5,e5] ~@3 [g4,c5,e5] ~ [d5,f5]@2 ~@2 e5@2 ~@2, ~@12 c5 ~@3", // C5 C Dm
  Q: "[g4,b4] ~ [b4,d5] ~@3 [g4,b4] ~ [b4,d5] ~@3 [b4,d5]@3 ~", // G Bm G Bm
  R: "[g4,c5] ~ [c5,e5] ~@3 [g4,c5] ~ [c5,e5] ~@3 e5@2 ~@2, ~@12 c5 ~@3", // C5 C C5 C
  S: "[g4,c5] ~ [g4,c5] ~@3 [g4,c5] ~ [g4,c5] ~@3 [g4,c5] ~@3", // C5
})).s("gm_marimba").gain(0.13).pan(0.8)

// other · steel drums · "STEELDRUMS"
const steel_drums = note(`<
  ~@3 A B C D E F ~@41 G H I H J K L M N ~@24 O@2 P@2 Q@2 R S O@2 P@2 Q@2 R S O@2 P@2 Q@2 R S O@2 P@2 Q@2 R T
>`.pickRestart({
  A: "g4!2 ~ g4!2 ~ g4!8 ~ g4", B: "~@4 g4@2 ~@2 a4@2 ~@2 g4!2 ~@2", C: "f4!2 ~ f4!10 ~ f4!2", D: "~@4 f4!6 ~@2 g4!3 ~",
  E: "f4!5 ~ e4!10", F: "e4!2 ~@14", G: "~@4 c4!4 e4!4 [e4,f4] f4!3", H: "g4!16",
  I: "g4 ~@3 c4!4 [c4,e4] e4!3 [e4,f4] ~@2 f4", J: "g4@4 g4!4 a4!5 g4!2 ~", K: "f4!16", L: "f4@4 f4!6 ~ f4 g4!3 ~",
  M: "f4!5 ~ [e4,f4] e4!9", N: "e4!7 ~@9", O: "[g4@3 ~ g4@2 f4@2 e4@3 ~ f4@2 g4@4 ~@2 g4@2 a4@2 g4@2 f4@2 e4@2 f4@2]/2",
  P: "[g4@3 ~ g4@2 f4@2 e4@4 f4@2 g4@5 ~ g4@2 f4@2 g4@2 f4@2 g4@2 a4@2]/2",
  Q: "[b4@3 ~ b4@2 a4@2 g4@4 a4@2 b4@4 ~@2 b4@2 a4@2 g4@2 a4@2 f4@2 g4@2]/2", R: "e4@4 g4 ~ f4@2 e4@4 f4@2 g4@2",
  S: "~@4 g4@2 a4@2 g4@2 f4@2 e4@2 f4 ~", T: "~@2 g4 a4 g4 f4 e4 ~",
})).s("gm_steel_drums").gain(0.11).pan(1)

// other · steel drums · "STEELDRUMS" · soft notes
const steel_drums_soft = note("<~@3 A B C D E F ~@42 G H ~ I ~ J E K@8 ~@49>".pickRestart({
  A: "~@2 g4 ~@2 g4 ~@8 g4 ~", B: "g4@2 ~@12 g4 ~", C: "~@2 f4 ~@10 f4 ~@2", D: "~@10 f4 ~@5", E: "~@5 f4 ~@10",
  F: "~@2 e4 ~@13", G: "f4 ~@15", H: "~@13 f4!2 ~", I: "~@8 g4 ~@3 g4 ~@2 g4", J: "~@10 f4 ~@4 g4",
  K: "[~@7 e4@120 ~]/8",
})).s("gm_steel_drums").gain(0.06).pan(1)

// chords · clavinet
const clavinet = note("<A@8 B@2 C@2 D@4 ~@99>".pickRestart({
  A: "[~@16 c5@30 ~@2 c5@31 ~ [g4,b4,d5]@30 ~@2 c5@16, ~@14 c4@30 ~@2 c4@32 ~ [d4,f4]@31 [c4,e4]@18, ~@15 [e4,g4]@29 ~@3 [e4,g4]@31 ~@33 [g4,e5]@17]/8", // G Dm C Em C
  B: "[~@8 c5@7 ~, ~@13 c4@16 ~@3, ~@7 e4@8 ~, ~@15 [g4,e5]@15 ~@2]/2", C: "[~ c5, ~@7 [c4,e4]@9, ~@15 [g4,e5]@17]/2",
  D: "[~@16 b4@17 ~@16 c5@12 ~@3, ~@13 d4@20 ~@13 c4@15 ~@3, ~@14 f4@19 ~@14 [e4,g4]@14 ~@3, ~@15 [g4,d5]@19 ~@14 e5@13 ~@3]/4", // Em G5
})).s("gm_clavinet").gain(0.14)

// other · tenor sax
const tenor_sax = note(`<
  ~@17 A B C D E F G ~ A B C D E F G ~ H I J K L M N O ~ H I J K L M N O ~@17 P Q R Q S T@2 ~ A B C D E F G ~ A B C D E
  F G ~@9 A B C D E F G ~ A B C D E F G ~
>`.pickRestart({
  A: "g4@3 ~ g4 ~ g4@3 ~@7", B: "~@4 e4@3 ~ e4@3 ~ f4@3 ~", C: "g4@5 ~@11", D: "~@4 g4@3 ~ a4@3 ~ g4@3 ~",
  E: "f4@7 ~@9", F: "~@2 f4 ~ f4 ~ f4 ~ f4@3 ~ g4@3 ~", G: "f4@3 ~ e4 ~ e4@6 ~@4",
  H: "g4 ~ g4 ~ g4@2 f4 ~ g4@2 ~@2 f4@2 ~@2", I: "g4 ~ g4@2 ~@2 g4@2 ~@8", J: "f4 ~ f4@2 ~@2 f4 ~ f4@2 ~@2 f4 ~ e4@2",
  K: "~@7 e4", L: "~@2 e4@2 ~@2 e4 ~ e4@3 ~ f4@2 g4@2", M: "~ g4 ~@3 a4 g4 ~", N: "f4@12 e4@3 ~", O: "e4 ~@3",
  P: "g4@3 ~@5 a4@2 ~@2 g4@2 e4@2", Q: "f4@3 ~@13", R: "g4@2 ~@2 g4@3 ~ a4@3 ~ g4@2 e4 ~",
  S: "g4@2 ~@2 g4 ~ g4 ~ a4@2 ~@2 g4@2 ~@2", T: "[f4@3 ~@5 g4@5 ~ f4@5 e4@13]/2",
})).s("gm_tenor_sax").gain(0.29).pan(0.4)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~@17 A@4 B@2 A@4 C A B D A@4 E A@3 F A@4 E A@3 F A@6 F@2 A@3 B A G H G A C A G I G A G J K A@4 B@2 A@6 B@2 A@6 B@2 A@6
  B@2 A@6 B@2 A@2
>`.pickRestart({
  A: "[c4,e4,g4]!2 ~ [c4,e4,g4]!3 ~ [c4,e4,g4]", B: "[b3,d4,f4,g4]!2 ~ [b3,d4,f4,g4]!3 ~ [b3,d4,f4,g4]",
  C: "[c4,e4,g4]!2 ~ [c4,e4,g4]!5", D: "[b3,d4,f4,g4]!2 ~ [b3,d4,f4,g4]!3 ~ [d4,f4,g4]",
  E: "[a3,c4,f4]!2 ~ [a3,c4,f4]!3 ~ [a3,c4,f4]", F: "[b3,d4,f4]!2 ~ [b3,d4,f4]!3 ~ [b3,d4,f4]",
  G: "[b3,d4,f4] [b3,d4,f4,g4] ~ [b3,d4,f4,g4]!3 ~ [b3,d4,f4,g4]", H: "[c4,e4] [c4,e4,g4] ~ [c4,e4,g4]!3 ~ [c4,e4,g4]",
  I: "[c4,e4] [c4,e4,g4] ~ [c4,e4,g4]!3 c4 [c4,e4,g4]", J: "[c4,e4,g4]!2 c4 [c4,e4,g4]!3 ~ [c4,e4,g4]",
  K: "[c4,e4,g4]!2 [c4,e4] [c4,e4,g4]!5", // C
})).s("gm_acoustic_guitar_steel").gain(0.1).pan(0.2)

// other · harpsichord · "HARPSICHRD"
const harpsichord = note(`<
  ~@9
  [c5 e5 c5 e5 c5 e5 c5 e5]!4
  [b4 d5 b4 d5 b4 d5 b4 d5]!2
  [c5 e5 c5 e5 c5 e5 c5 e5]
  [c5 e5 ~@6]
  ~@98
>`).s("gm_harpsichord").gain(0.05).pan(0.8)

// drums · kick
const kick = s("bd").struct("<~@17 [x!4]!98>").gain(0.64)

// drums · clap
const clap = s("cp").struct("<~@17 [~ x ~ x]!98>").gain(0.5)

// drums · snare
const snare = s("sd").struct("<~@17 [~ x ~ x]!98>").gain(0.57)

// drums · hihat
const hihat = s("hh").struct("<~@17 [x!4]!98>").gain(0.43)

// drums · open hat
const open_hat = s("oh").struct("<~@17 [~ x ~ x ~ x ~ x]!97 [~ x ~ x ~ x ~@2]>").gain(0.43)

// drums · crash
const crash = s("cr").struct("<~@25 A ~@7 A ~@8 A ~@16 A ~@7 A ~@7 A ~@7 A ~@7 A ~@7 A ~@7 A ~@7>".pickRestart({
  A: "x",
})).gain(0.43)

// drums · ht
const ht = s("ht").struct(`<
  ~@19 A ~@4 B ~@6 C D ~@7 E F ~@7 G ~@12 C ~@2 C H ~@3 C ~@2 I J ~@2 K ~@4 B ~@3 L ~@3 J ~@3 L ~@3 M ~@3 L ~@7 L ~@3 N
>`.pickRestart({
  A: "~@3 x", B: "~@2 x ~ x!2 ~@4 x!3 ~@3", C: "~@10 x ~ x!2 ~@2", D: "~@5 x ~@2", E: "~@7 x", F: "x!2 ~@6 x!2 ~@6",
  G: "~@2 x!3 ~ x ~@9", H: "x ~@2 x!2 ~ x ~@2 x!2 ~@5", I: "~@5 x!2 ~", J: "x ~ x!3 ~@7 x ~@3", K: "~@11 x!2 ~@3",
  L: "~@13 x!2 ~", M: "x ~@2 x ~@12", N: "~@4 x!2 ~@10",
})).gain(0.43)

// drums · ht · soft notes
const ht_soft = s("ht").struct("<~@19 [~@11 x ~@4] ~@46 [~ x ~@2 x ~@3] ~@48>").gain(0.21)

// drums · mt
const mt = s("mt").struct("<~@24 A ~@7 B ~@8 C ~@7 D E ~@7 F ~@7 G ~@7 H ~@7 A ~@7 H ~@7 I ~@7 J ~@7 K>".pickRestart({
  A: "~@7 x", B: "~@2 x!4 ~ x!3 ~@6", C: "~@12 x ~ x!2", D: "~@8 x!3 ~ x ~ x!2", E: "x", F: "~@12 x!2 ~@2",
  G: "~@6 x!2", H: "~@5 x ~ x!2 ~ x!2 ~@2 x ~", I: "~@5 x ~@2 x ~ x ~ x ~@3", J: "x ~ x!2 ~ x!2 ~ x ~ x!2 ~ x!3",
  K: "~@8 x!2 ~ x!2 ~@3",
})).gain(0.43)

// drums · mt · soft notes
const mt_soft = s("mt").struct("<~@106 [~@7 x ~@8] ~@7 [~@5 x ~@2]>").gain(0.21)

// drums · guiro
const guiro = s("guiro:0").struct("<~@17 [x!2 ~ x ~ x ~ x]!97 [x!2 ~ x ~ x ~@2]>").gain(7.55)

// drums · shaker
const shaker = s("sh").struct("<~@17 [~@2 x ~@3 x ~@3 x ~@3 x!2]!97 [~ x ~ x ~ x ~@2]>").gain(0.36)

stack(
  bass, distortion_guitar, marimba, steel_drums, steel_drums_soft, clavinet, tenor_sax, acoustic_guitar_steel,
  harpsichord, kick, clap, snare, hihat, open_hat, crash, ht, ht_soft, mt, mt_soft, guiro, shaker
)