// Shock The Monkey — Peter Gabriel
// 148 bpm, 4/4, key D minor. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: ch 9 "marimba" named as a mallet, played on marimba (its shamisen patch is not one)
// note: ch 12 "tomverb" (melodic tom patch on one pitch) is played as the kit's tom
// note: Full arrangement: all 145 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(148/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 · synth brass 1 · "synthe 1"
const synth_brass_1 = note("<A ~ B ~ C ~ C ~@25 C ~@112>".pickRestart({
  A: "[a3,d4] ~ [a3,d4] ~@3 [c4,f4]@5 ~@5", B: "~@6 [c4,f4]@5 ~ [b3,e4] ~ [a3,d4] ~",
  C: "[a3,d4] ~ [a3,d4] ~@3 [c4,f4]@5 ~ [b3,e4] ~ [a3,d4] ~", // D5 F5 E5 D5
})).s("gm_synth_brass_1").gain(0.3)

// chords · clavinet · "clav"
const clavinet = note(`<
  A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@5 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@5 A ~ A ~@21 A ~ A ~ A B C@2
  A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@21 D E ~@2 D E ~@2 F ~ F ~ F ~ F ~ F ~ F ~ D E ~@2 F
>`.pickRestart({
  A: "[a3,d4] ~ [a3,d4] ~@3 [c4,f4]@5 ~ [b3,e4] ~ [a3,d4] ~", B: "~@2 a0 ~@5 a0 ~ a0@2 c1@2 f1@2",
  C: "[[a3,d4] ~ [a3,d4] ~@3 [c4,f4]@5 ~ [b3,e4] ~ [a3,d4] ~@17, d1@5 ~@3]/2", // D5 F5 E5 D5
  D: "[c4,f4] ~ [c4,f4] ~@3 [d4,g4]@5 ~ [e4,a4]@2 ~@2", E: "[e4,a4] ~ [e4,a4] ~@3 [g4,c5]@5 ~ [a4,d5]@3 ~",
  F: "d4 ~@5 f4@5 ~ e4 ~ d4 ~",
})).s("gm_clavinet").gain(0.4).pan(0.2)

// chords · clavinet · "clav" · soft notes
const clavinet_soft = note("<~@128 A ~ A ~ A ~ A ~ A ~ A ~@5 A>".pickRestart({
  A: "a3 ~ [a3,d4] ~@3 c4@5 ~ b3 ~ a3 ~", // D5
})).s("gm_clavinet").gain(0.24).pan(0.2)

// other · tubular bells · "mks80vort"
const tubular_bells = note("<A@2 ~@27 A@2 ~@22 A@2 ~@4 A@2 ~@17 A@2 ~@23 A@2 ~@16 A@2 ~@14 A@2 ~@6>".pickRestart({
  A: "[~@7 g3@8 ~]/2",
})).s("gm_tubular_bells").gain(0.38).pan(0.6)

// bass · fretless bass · "basse"
const bass = note(`<
  ~@4 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 C D E@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 C D E@2 A@2 B@2 F G H I F
  G H I F G H J@7 K L A@2 B@2 A@2 B@2 ~@8 A@2 B@2 A@2 B@2 F G H I F G H I F G H J@7 K L M N O@2 M N O@2 A@2 B@2 A@2 B@2
  A@2 B@2 M N P ~@2
>`.pickRestart({
  A: "[~@4 d1@4 ~@6 c2@6 d2@2 ~@2 a1 ~ a1@2 c2@3 ~]/2", B: "[~@4 d2@3 ~@7 c2@6 d2@2 ~@2 a1 ~ a1@2 c2@3 ~]/2",
  C: "c2@13 ~ g1@2", D: "c2@13 ~@3", E: "[c2@18 ~@2 c2@2 g1 ~ c2@2 g1@2 c2@4]/2", F: "d2@4 ~@10 a1!2",
  G: "d2 ~ d2@2 ~@2 a1!2 d2 ~ d2@2 ~@4", H: "c2@4 ~@10 g1!2", I: "c2 ~ c2@2 ~@2 g1!2 c2 ~ c2@2 ~@4",
  J: "[c2 ~ c2@2 ~@2 g1!2 c2 ~ c2@2 a1@2 bb1@30 a1@2 bb1@30 a1@2 bb1@30 ~@4]/7", K: "c2@6 g1@6 ~@2 g1 ~", L: "d2@3 ~",
  M: "f1", N: "e1", O: "[~@4 d1@3 ~@7 c2@6 d2@2 ~@2 a1 ~ a1@2 c2@3 ~]/2", P: "d1@3 ~@3 d1 ~ d1 ~@3 d1@2 ~@2",
})).s("gm_fretless_bass").gain(0.35)

// chords · rock organ · "organ"
const rock_organ = note(`<
  A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@5 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@5 A ~ A ~ B@2 C@2 B@2 C@2
  B@2 D@5 E@4 F A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ B@2 C@2 B@2 C@2 B@2 D@5 E@4 F G H ~@2 G H ~@2 A ~ A ~ A
  ~ A ~ A ~ A ~ G H ~@2 A
>`.pickRestart({
  A: "[a4,d5] ~ [a4,d5] ~@3 [c5,f5]@5 ~ [b4,e5] ~ [a4,d5] ~", B: "[a4,d5]/2", C: "[[g4,c5]@15 ~]/2",
  D: "[~@14 a3 bb3@15 c4 d4@9, [g4,c5]@3 ~@5]/5", E: "[~@12 e4@2 f4@33 g4@16 ab4, ~@47 gb4 ~@16]/4", F: "a4",
  G: "[c5,f5] ~ [c5,f5] ~@3 [d5,g5]@5 ~ [e5,a5]@2 ~@2", H: "[e5,a5] ~ [e5,a5] ~@3 [g5,c6]@5 ~ [a5,d6]@3 ~",
})).s("gm_rock_organ").gain(0.26)

// chords · pad warm · "warm pad"
const pad_warm = note(`<
  ~@24 A@4 ~@20 A@4 ~@5 B ~ C ~ B ~ C ~ B ~ C ~ D ~ D ~ D E F ~@25 B ~ C ~ B ~ C ~ B ~ C ~ D ~ D ~ D E F ~@25
>`.pickRestart({
  A: "[~@52 g5@11 ~, [g3,c4], ~@32 g4@31 ~, ~@39 c5@22 ~@3]/4", B: "[d5,a5]@15 ~", C: "[c5,g5]@7 ~", D: "[f4,bb4]@7 ~",
  E: "[c4,g4]@15 ~", F: "[d4,a4]@15 ~",
})).s("gm_pad_warm").gain(0.28).pan(0.3)

// chords · synth strings 1 · "synthe 2"
const synth_strings_1 = note(`<
  ~@24 A@4 ~@20 A@4 ~@5 B ~ C ~ D ~ E ~ B ~ C ~ F ~ F ~ F G H ~@25 B ~ C ~ D ~ E ~ B ~ C ~ F ~ F ~ F G H ~@25
>`.pickRestart({
  A: "[[g4,c5]@61 ~@3]/4", B: "[d5,a5]@15 ~", C: "[c5,g5]", D: "[d5,a5]", E: "[c5,g5]@7 ~", F: "[bb4,f5]@15 ~",
  G: "[g4,c5]@15 ~", H: "[a4,d5]@15 ~",
})).s("gm_synth_strings_1").gain(0.17).pan(0.8)

// chords · marimba
const marimba = note("<~@76 A B C D A B C D ~@61>".pickRestart({
  A: "d4 a4 c5 [a4,d5] d4 a4 c5 [d4,a4,d5], ~@4 f5 ~@7 g4 ~@3", // D5
  B: "a4@2 d4@2 a4@2 [d4,c5]@2 c5@2 ~ d4@2 ~ [g4,c5,d5]@2, ~@6 f5 ~@3 [a4,d5]@2 ~@4", // D7 Gsus4 D5
  C: "d4@2 a4@2 c5@2 [g4,c5] ~ [a4,d5] ~ d4@2 [c5,d5,f5]@2 a4@2, ~@4 d5 ~ d4@2 ~@8", // C5 D5 Dm7
  D: "d4@2 c5@2 [a4,c5]@2 d4@2 [g4,c5] ~ d4@2 [c5,f5] ~ c5 ~, ~@4 g4 ~ d5 ~ d5@2 a4 ~ a4@2 ~@2", // Am C5 F5
})).s("gm_marimba").gain(0.18).pan(0.7)

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

// drums · snare
const snare = s("sd").struct("<~@3 A B@72 ~@3 C B@3 ~@8 D B@47 C B@3 ~@2>".pickRestart({
  A: "~@5 x!2 ~", B: "~ x ~ x", C: "~ x ~@2 x!4", D: "~@3 x",
})).gain(0.59)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A B A B A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A B A B A ~ A ~ A ~ A ~
  A ~ A ~ A ~ A ~ C ~ D ~ D ~ D ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ C ~ D ~ D ~ D
  ~ A ~ A ~ E ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A B ~@2
>`.pickRestart({
  A: "~@4 x!3 ~", B: "~@3 x", C: "~@2 x!6", D: "~@4 x!4", E: "~@2 x ~ x!3 ~",
})).gain(0.59)

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

// drums · hihat · soft notes
const hihat_soft = s("hh").struct(`<
  A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A
  B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B
  A B A B A B A B A B A B A B A B A B A B A B A B A ~@2
>`.pickRestart({
  A: "~@5 x ~@2", B: "~@3 x!3 ~@2",
})).gain(0.2)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~ A@2 B ~ A@2 B ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A C D C A ~ E ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A C D C A ~ E ~ A ~ A ~
  A ~ A ~ A ~ A ~ F ~ G ~ G ~ G ~ A ~ A ~ A ~ A@2 B ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ F ~ G ~ G ~ G
  ~ A ~ A ~ H ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A C ~@2
>`.pickRestart({
  A: "~@7 x", B: "~@2 x ~@4 x", C: "~@3 x", D: "~@5 x!3", E: "~@4 x ~ x!2", F: "~@2 x!2 ~@2 x!2", G: "~@6 x!2",
  H: "~@2 x ~@3 x!2",
})).gain(0.59)

// drums · mid tom · soft notes
const mid_tom_soft = s("mt").struct("<~@69 A ~ A ~ A ~@39 A ~ A ~ A ~@27>".pickRestart({
  A: "~@4 x!2 ~@2",
})).gain(0.39)

stack(
  synth_brass_1, clavinet, clavinet_soft, tubular_bells, bass, rock_organ, pad_warm, synth_strings_1, marimba, kick,
  snare, low_tom, hihat, hihat_soft, mid_tom, mid_tom_soft
)