// Phorever People — The Shamen
// 126 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 117 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(126/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 · synth bass 1 · "SYN BASS 1"
const bass = note(`<
  ~@4 A B A C ~@4 A B A C A B A C A B A C A B A C A B A C A B A C A B A C A B A C A B A C A B A C A B A D ~@3 E A B A C
  A B A C A B A ~ A B A C F B A C ~@4 A B A C A B A C A B A C ~@7 E A B A C A B A C A B A C G
>`.pickRestart({
  A: "a1@2 ~ a1!2 ~ a1 d2 ~ d2 d2@2 ~ d2!2 ~", B: "f1@2 ~ f1!2 ~ f1 g1 ~ g1!2 ~@2 g1!2 ~",
  C: "f1@2 ~ f1!2 ~ f1 g1 ~ g1 g1@2 ~ g1!2 ~", D: "f1@2 ~ f1!2 ~ f1 g1 ~ g1 g1@2 ~@4", E: "~@10 g1@2 ~ g1!2 ~",
  F: "a1@2 ~ a1@2 ~ a1 d2 ~ d2 d2@2 ~ d2!2 ~", G: "a1 ~@15",
})).s("gm_synth_bass_1").gain(0.45)

// chords · synth strings 2 · "SYN STR 2"
const synth_strings_2 = note(`<
  A B C D A B C D ~@28 E F E G H F E I ~@26 E I ~@12 A B C D A B C D A B C D ~@21
>`.pickRestart({
  A: "[a3,c4,e4]", B: "[g3,b3,d4]", C: "[d3,f3,a3]", D: "[f3,a3,c4] [g3,b3,d4]", E: "[e3,e4]@15 ~",
  F: "[g3,g4]@8 [d3,d4]@7 ~", G: "[g3,g4]@7 ~ [d3,d4]@7 ~", H: "[e3,e4]@7 ~", I: "[a3,a4]@15 ~",
})).s("gm_synth_strings_2").gain(0.4)

// chords · percussive organ · "ORGAN 2"
const percussive_organ = note(`<
  ~@8 A B C B C B A B C B A B C B C B C B C B ~@16 C B C B C B C B C B C B ~@8 C B C B C B ~@2 A B C B D B A B C B C B
  ~@12 C B C B A B C B C B C B C B C B C B C B ~
>`.pickRestart({
  A: "[a4,c5,e5]@2 ~ [a4,c5,e5]@2 ~ [a4,e5]@2 ~ [a4,d5]@2 ~ [a4,d5,e5] ~ [a4,d5,e5] ~, ~@6 c5 ~@2 e5 ~@6", // Am A5 D5 Asus4
  B: "[a4,c5,e5] ~@2 [a4,c5,e5] ~@2 [c5,e5] ~@2 [c5,e5] ~@2 [g4,b4,e5] ~ [g4,b4,e5] ~, ~@6 a4@2 ~ a4@2 ~@5", // Am C Em
  C: "[a4,c5,e5]@2 ~ [a4,c5,e5]@2 ~ [c5,e5] ~@2 [a4,d5]@2 ~ [a4,d5,e5] ~ [a4,d5,e5] ~, ~@6 a4@2 ~ e5 ~@6", // Am C D5 Asus4
  D: "[a4,c5,e5]@2 ~ [a4,c5,e5] ~@2 [c5,e5] ~@2 [a4,d5]@2 ~ [a4,d5,e5] ~ [a4,d5,e5] ~, ~@6 a4@2 ~ e5 ~@6", // Am C D5 Asus4
})).s("gm_percussive_organ").gain(0.25).pan(0.3)

// chords · distortion guitar · "DISTORTION"
const distortion_guitar = note(`<
  ~@8 A B A C A B A C A B A C A B A C A B A C ~@16 A B A C A B A C A B A C ~@8 A B A C A B ~@2 A B A C A B A C A B A C
  ~@12 A B A C A B A C A B A C A B A C A B A C ~
>`.pickRestart({
  A: "~@2 [e3,a3] ~@2 [e3,a3] ~@2 [e3,a3] ~@2 [e3,a3]!5", // A5
  B: "~@2 [e3,a3] ~@2 [e3,a3] ~@2 [e3,a3] ~@2 [e3,a3] [d3,g3]!4", // A5 G5
  C: "~@2 [e3,a3] ~@2 [e3,a3] ~@2 [d3,g3] ~ [d3,g3] ~ [e3,f3]!2 [d3,g3]!2", // A5 G5 Fmaj7 G5
})).s("gm_distortion_guitar").gain(0.3).pan(0.7)

// chords · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note(`<
  ~@11 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A
  B ~@2 A B ~@2 A B ~@2 A B ~@2 A ~@15 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A ~
>`.pickRestart({
  A: "~@12 [g2,d3]@3 ~", B: "[a2,e3]@3 ~@13",
})).s("gm_overdriven_guitar").gain(0.25).pan(0.7)

// other · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note("<~@12 A@2 B@12 C@2 ~@16 A@2 B@8 C@2 ~@16 A@2 B@8 C@2 ~@20 A@2 B@8 C@2 ~>".pickRestart({
  A: "[a5@13 c6 b5 g5]/2", B: "[a5@29 c6 b5 g5]/4", C: "a5/2",
})).s("gm_string_ensemble_1").gain(0.2).pan(0.4)

// chords · lead 2 sawtooth · "SAW WAVE"
const lead_2_sawtooth = note(`<
  A@8 ~@20 B C D E F C D E F C D E F C D E G ~@11 B C D E F H D I G ~@5 B E G ~@15 A@8 ~@21
>`.pickRestart({
  A: "a2!2 ~ a1!13", B: "[e3,a3]!16", C: "[e3,a3,d4] [a3,d4]!7 [d3,g3]!8", D: "[d3,e3,g3,a3] [e3,a3]!15",
  E: "[e3,a3,e4] [a3,e4]!7 [g3,d4]!8", F: "[e3,g3,a3,d4] [e3,a3]!15", G: "[g3,d4] ~@15",
  H: "[e3,a3]!2 [a3,e4] [a3,e4,a4] [e4,a4] [a3,e4] [e3,a3,e4] [e3,a3] [d3,g3]!8", I: "[e3,a3]!8 [g3,d4]!8",
})).s("gm_lead_2_sawtooth").gain(0.08)

// other · lead 1 square · "SQUAREWAVE"
const lead_1_square = note("<~@20 A B C D A D C B ~@24 A D C E ~@52 A B C D A D C B F>".pickRestart({
  A: "a4@3 ~ a4@2 ~ d5 ~ d5!2 ~ d5 ~ d5 ~", B: "c5@3 ~ c5 ~ c5 d5 ~ d5!2 ~ g4 ~ g4 ~",
  C: "a4@3 ~ a4@3 d5 ~ d5!2 ~ d5 ~ d5 ~", D: "c5@2 ~@2 c5 ~ c5 d5 ~ d5!2 ~ g4 ~ g4 ~",
  E: "c5@3 ~ c5 ~ c5 d5 ~ d5!2 ~ g4@4", F: "a4 ~@15",
})).s("gm_lead_1_square").gain(0.35)

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

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

// drums · hihat
const hihat = s("hh").struct("<~@4 A@4 B ~@7 A@27 B A@27 B A@12 ~@8 A@4 B ~@3 A@16 ~>".pickRestart({
  A: "x!4", B: "x",
})).gain(0.25)

// drums · open hat
const open_hat = s("oh").struct("<~@4 A@4 ~@8 A@27 ~ A@27 ~ A@12 ~@8 A@4 ~@4 A@16 ~>".pickRestart({
  A: "~ x ~ x ~ x ~ x",
})).gain(0.25)

// drums · crash
const crash = s("cr").struct("<~@16 A ~@11 A ~@2 B ~@12 A ~@11 A ~@15 A ~@7 A ~@18 B ~@8 A ~@7 A>".pickRestart({
  A: "x", B: "~@3 x",
})).gain(0.25)

// drums · ride
const ride = s("rd").struct("<~@84 [x ~ x ~ x ~ x!3 ~ x ~ x!3 ~]!12 ~@21>").gain(0.25)

// drums · tambourine
const tambourine = s("tb").struct("<~@96 [x!8]!4 ~@17>").gain(0.2)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct("<~@96 [~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x]!4 ~@17>").gain(0.1)

stack(
  bass, synth_strings_2, percussive_organ, distortion_guitar, overdriven_guitar, string_ensemble_1, lead_2_sawtooth,
  lead_1_square, kick, snare, hihat, open_hat, crash, ride, tambourine, tambourine_soft
)