// Five O'clock in the Morning — Village People
// 88 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 73 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(88/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 · electric bass finger · "FINGERDBAS"
const bass = note(`<
  A@3 B A@3 B A@3 C D E F G D H I J A@3 B A@3 C D K F G D H I J A@3 L M N M O P@4 A@3 B A@3 Q R A@2 S A@3 B A@3 S A@3 T
  ~
>`.pickRestart({
  A: "~ g1@3 ~@3 g1@3 ~@3 g1@3 ~@3 g1@3 f1@2", B: "~ g1@3 ~@3 g1@3 ~@3 g1@4 ~@2 g1@3 f1@2",
  C: "~ g1@3 ~@3 g1@3 ~@3 g1@3 g1@3 a1@3 b1@2", D: "~ c2@3 ~@3 c2@3 ~@3 c2@3 ~@3 c2@2 ~ c2@2",
  E: "~ b1@4 ~@2 b1@4 ~@2 b1@4 ~@2 b1@2 ~ b1@2", F: "~ a1@3 ~@3 a1@4 ~@2 a1@4 ~@2 a1@2 ~ a1@2",
  G: "~ f2@5 ~ f2@3 c2@3 d2@4 ~@2 d2@3 a1@2", H: "~ b1@3 ~@3 b1@3 ~@3 b1@3 ~@3 b1@2 ~ b1@2",
  I: "~ a1@4 ~@2 a1@4 ~@2 a1@4 ~@2 a1@2 ~ a1@2", J: "~ f2@5 ~ f2@3 d2@3 f#2@5 ~ f#2@5",
  K: "~ b1@4 ~@2 b1@3 ~@3 b1@4 ~@2 b1@2 ~ b1@2", L: "~ g1@3 ~@3 g1@3 ~@3 g1@2 ~ g1@3 a1@3 b1@2",
  M: "~ d2@10 a1 ~ d2 ~@2 d2@3 a1@3 b1@2", N: "~ c2@10 g1 ~ c2 ~@2 c2@4 a1@2 b1@2",
  O: "~ c2@10 g1 ~ c2 ~@2 c2@4 a1 ~ b1@2",
  P: "[~ d2@10 a1 ~ d2 ~@2 d2@3 a1@3 b1@3 c2@10 g1 ~ c2 ~@2 c2@4 a1@2 b1@3 d2@47]/4",
  Q: "~ g1@3 ~@3 g1@3 ~@3 g1@4 ~@2 g1@3 ~@2", R: "~@7 g1@3 ~@3 g1@3 ~@3 g1@3 f1@2",
  S: "~ g1@3 ~@3 g1@3 ~@3 g1@2 ~ g1@3 f1@3 f#1@2", T: "~ g1@3 ~@3 g1@3 ~@3 g1@2 ~ g1@2 ~ g1@2 ~ g1@2",
})).s("gm_electric_bass_finger").gain(0.64)

// other · electric guitar jazz · "JZZGTR/STR"
const electric_guitar_jazz = note(`<
  A B A B A B A B A B A C ~@8 A B A B A B A D ~@8 A B A D ~@8 A B A B A B A C A B A B A B A C A B A B A B A D ~
>`.pickRestart({
  A: "~ g4!2 ~ g4 f4 ~ f4!2 ~ a4!2 ~ a4 g4 ~ g4!2 ~ f4!2 ~ d4!2",
  B: "~ g4!2 ~ g4 f4 ~ f4!2 ~ a4!2 ~ a4 g4 ~ g4!2 ~ g4!2 ~ f4 f#4", C: "~ g4!2 ~ g4!2 ~ f4!2 ~ g4@14",
  D: "~ g4!2 ~ g4!2 ~ f4 f4@2 g4@14",
})).s("gm_electric_guitar_jazz").gain(0.37)

// chords · string ensemble 1 · "JZZGTR/STR"
const string_ensemble_1 = note("<~@15 A@2 ~@2 B ~@8 C@8 ~@4 D E D F D G ~ H ~@25>".pickRestart({
  A: "[~ [a3,c4]@12 [d3,a3,d4]@13 ~@22]/2", B: "~ [c3,a3,c4,f4]@12 [d3,a3,d4,f#4]@11",
  C: "[~ [c3,c4]@24 [b2,b3]@24 a2@24 c3@12 [d3,d4]@12 [c3,c4]@24 [b2,b3]@24 a2@24 [c3,f4]@12 [d3,d4,f#4]@11, ~ e4@72 f4@24 e4@72 ~@23, ~ g3@48 a3@47 ~ g3@48 a3@47, ~@49 c4@36 ~@60 c4@37 ~@10]/8", // C B D C B F5 D
  D: "~ [f#3,d4]@23", E: "~ [e3,c4]@12 g2!2 ~ a2 c3 ~@2 c3@2 e3@2",
  F: "~ [e3,c4]@12 ~ a2 ~@2 c3 ~@2 g2 ~@3, ~@13 g2@2 ~@9", G: "~ c4@12 g2!2 ~@2 c3 ~@2 c3@2 e3 ~, ~ e3@11 ~@4 a2@2 ~@6",
  H: "~@17 d2@2 g2@3 d2 ~",
})).s("gm_string_ensemble_1").gain(0.42)

// chords · string ensemble 1 · "JZZGTR/STR" · soft notes
const string_ensemble_1_soft = note("<~@15 A@2 ~@29 B@2 ~@25>".pickRestart({
  A: "[~ f4@25 ~@22, ~ c3@13 ~@34]/2", B: "[~ [d3,f#3,a3,d4]@41 ~@6]/2",
})).s("gm_string_ensemble_1").gain(0.21)

// chords · drawbar organ · "ELEC ORGAN"
const drawbar_organ = note("<A@8 B C D E F@4 G@4 A@8 F@4 G@4 H@4 I J I J I J K@2 A@24 ~>".pickRestart({
  A: "[~ d5@24 d#5@24 e5@24 f5@24 d5@24 d#5@24 e5@24 f5@23, ~ g4@191]/8", B: "~ d5@23", C: "~ d#5@23", D: "~ e5@23",
  E: "~ f5@23", F: "[~ c5@24 b4@24 ~@36 d5@11, ~ [e5,g5]@72 f5@23, ~@49 a4@47, ~@49 c5@35 ~@12]/4",
  G: "[~ c5@24 b4@23 ~@25 f5@12 [d5,f#5]@11, ~ [e5,g5]@72 ~@23, ~@49 a4@47, ~@49 c5@36 ~@11]/4", // D Em
  H: "[~ d5@24 d#5@24 e5@24 f5@22 ~, ~ g4@94 ~]/4", I: "~ [f#4,d5]@23", J: "~ [e4,c5]@23", K: "[~ [f#4,d5]@39 ~@8]/2",
})).s("gm_drawbar_organ").gain(0.25)

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

// drums · snare
const snare = s("sd").struct(`<
  A@11 B A@6 C D A@3 E A@6 B A@3 B F A@3 G A@3 B A@2 ~@2 A@10 E@2 A@6 E@2 A@2 E B ~
>`.pickRestart({
  A: "~@7 x ~@11 x ~@4", B: "~@7 x ~@11 x ~@2 x ~", C: "~@7 x ~@8 x ~@7", D: "~@7 x ~@16", E: "~@7 x ~@9 x ~ x ~@4",
  F: "~@7 x ~@2 x ~@8 x ~@2 x ~", G: "~@7 x ~@3 x ~ x ~@6 x ~ x ~",
})).gain(0.7)

// drums · low tom
const low_tom = s("lt").struct("<~@19 A ~@19 B ~@3 C ~ D ~ A ~@25>".pickRestart({
  A: "~@11 x", B: "~@23 x", C: "~@19 x ~@2 x ~", D: "~@19 x ~@4",
})).gain(0.54)

// drums · hihat
const hihat = s("hh").struct(`<
  A@3 B A@3 C A@3 D E F G ~ E F G ~ A@3 C A@3 C E F G ~ E F H ~ A I A ~@9 A@3 C A@3 C A@3 C A@3 C A@3 C A@3 C ~
>`.pickRestart({
  A: "~@4 x!2 ~@4 x!2 ~@4 x!2 ~@4 x!2", B: "~@4 x!2 ~@4 x!2 ~@12", C: "~@4 x!2 ~@4 x!2 ~@4 x!2 ~@6",
  D: "~@4 x!2 ~@4 x!2 ~@4 x ~@2 x ~@2 x ~", E: "~@4 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@4",
  F: "~ x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@4", G: "~ x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@7",
  H: "~@4 x ~@2 x ~@2 x ~@5 x ~@7", I: "~@4 x!2 ~@4 x!2 ~@4 x!2 ~@4 x ~",
})).gain(0.47)

// drums · mid tom
const mid_tom = s("mt").struct("<~@3 A ~@3 A ~@6 A ~@3 A B ~@3 A ~@3 A ~@11 C ~@7 C ~@25>".pickRestart({
  A: "~@11 x", B: "~@19 x!2 ~@3", C: "~@17 x ~ x ~@4",
})).gain(0.54)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@3 A ~@8 B@2 ~ C B@3 D ~@8 B@2 ~ C B@3 E ~ F G H ~@11 B ~@3 B ~@3 B ~@3 B ~@3 B ~@3 B ~
>`.pickRestart({
  A: "~@2 x", B: "~@11 x", C: "~@5 x ~@5 x", D: "~@5 x ~@6", E: "~@7 x ~@2 x ~@8 x ~@2 x ~", F: "~@23 x", G: "~ x ~@22",
  H: "~ x ~@2 x ~@19",
})).gain(0.47)

// drums · high tom
const high_tom = s("ht").struct("<~@18 [~@19 x ~@4] [~@2 x] ~@19 [~@7 x!2 ~@3] ~@7 [~@13 x ~@10] ~@25>").gain(0.54)

// drums · crash
const crash = s("cr").struct(`<
  A ~@3 A ~@3 A ~@3 A ~@2 B A ~@2 B A ~@3 A ~@3 A ~@2 B A ~ B@2 A ~@2 C D A D A D A@2 ~ A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A
  ~@4
>`.pickRestart({
  A: "~ x ~@22", B: "~ x ~@11 x ~@10", C: "~@7 x ~@16", D: "~ x ~@17 x ~@4",
})).gain(0.54)

// drums · ride
const ride = s("rd").struct(`<
  ~@40
  [~@4 x ~@2 x ~@2 x ~@2 x ~@2 x ~@5 x ~]
  [~@4 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~]
  [~@4 x ~@2 x ~@2 x ~@2 x ~@2 x ~@5 x ~]
  [~@4 x ~@2 x ~@2 x ~@2 x ~@2 x ~@7]
  [~@4 x ~@2 x ~@2 x ~@2 x ~@2 x ~@5 x ~]
  [~@4 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~]
  ~@27
>`).gain(0.39)

stack(
  bass, electric_guitar_jazz, string_ensemble_1, string_ensemble_1_soft, drawbar_organ, kick, snare, low_tom, hihat,
  mid_tom, open_hat, high_tom, crash, ride
)