// Power to the People — Lennon John
// 113.4 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (2/4 at bar 1, 4/4 at bar 2) are rendered on a constant 4/4 grid of one bar per cycle
// note: pitch bends are ignored
// note: Full arrangement: all 91 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(113.4/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 · piano
const piano = note(`<
  ~@8 A@2 B@2 C@2 D@2 E@2 F G H I@3 B@2 C@2 D@2 E@2 F G H I@3 B@2 C@2 D@2 E@2 F G H I@3 B@2 C@2 D@2 E@2 F G H J@2 K A@2
  C@2 L@2 M@2 A@2 C@2 L@2 M@2 A@2 C@2 L@2 M@2 ~
>`.pickRestart({
  A: "[[a4,d5,f#5] ~ f#4@2 [g4,b4,e5]@2 [d4,f#4,a4,d5] [g4,b4,e5]@2 ~ f#4@2 [b3,e4,g4] [a3,d4,f#4] [a3,d4,f#4]@2, ~ [a4,d5,f#5]@3 ~@5 [a4,d5,f#5]@3 ~@4]/2", // D Em D Em D
  B: "[[a4,d5,f#5] ~ f#4@2 [g4,b4,e5]@2 [d4,f#4,a4,d5] [g4,b4,e5]@2 ~ d4@2 [b3,e4,g4] [a3,d4,f#4] [a3,d4,f#4]@2, ~ [a4,d5,f#5]@3 ~@5 [f#4,a4,d5]@3 ~@4]/2", // D Em D Em D
  C: "[[a4,d5,f#5] ~ f#4@2 [g4,b4,e5]@2 [d4,f#4,a4,d5] [g4,b4,e5]@2 ~ f#4@2 [b3,e4,g4]@2 [a3,d4,f#4]@2, ~ [a4,d5,f#5]@3 ~@5 [a4,d5,f#5]@3 ~@4]/2", // D Em D Em D
  D: "[[a4,d5,f#5] f5 [d5,f#5] d5 [g4,b4,e5] d5 [e4,g4,b4,e5] f#4 f#4 ~ [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4]@2, ~@2 [f#4,a4]@2 ~@3 [a4,d5]@2 ~@7]/2", // D Em D F#m D5
  E: "[e5 d5 [e4,g4,b4,e5] [e4,g4,b4,d5] [e4,g4,b4,e5]@2 d5 ~@3 [g4,b4]!2 ~ f#5!3, [e4,g4,b4] ~@2 [e4,g4,b4] [g4,b4] ~ [g4,b4]!2, ~@7 e5@2 f#5@3 ~@4]/2", // Em Em7 Em G Em G
  F: "[b4,e5,a5]@2 [g4,b4]!2 [g4,b4,e5]@2 d5 e5, ~ f#5 ~ [g4,b4]", // Esus4 G Em G
  G: "~ b4 ~@2 [b3,e4,g4]@2 [b3,e4,g4]@2 ~@2 a4@2 b4@2 d5@2, [e4,g4] ~ [e4,g4]!2", // Em
  H: "e5@2 d5 [e4,g4,b4,e5]@2 ~@2 b4, [e4,g4,b4]@3 ~@3 [b3,e4,g4]@2", // Em
  I: "[e5 d5 b4 [e4,g4,b4,e5]@3 e5 d5 [a4,d5,f#5] ~ f#4@2 [g4,b4,e5]@2 [d4,f#4,a4,d5] [g4,b4,e5]@2 ~ f#4@2 [b3,e4,g4] [a3,d4,f#4] [a3,d4,f#4]@2, [e4,g4]@3 ~@3 [e4,g4,b4]@4 ~@14, ~@9 [a4,d5,f#5]@3 ~@5 [a4,d5,f#5]@3 ~@4]/3", // Em D Em D Em D Em D
  J: "[e5 d5 b4 [e4,g4,b4,e5]@3 e5 d5 ~@2 [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4]@2, [e4,g4]@3 ~@3 [e4,g4,b4]@4 ~@6]/2", // Em D Em
  K: "~ [a3,d4,f#4]!3", // D
  L: "[[a4,d5,f#5] ~ f#4@2 [g4,b4,e5]@2 [c#4,f#4,a4,d5] [g4,b4,e5]@2 ~ f#4@2 [b3,e4,g4] [a3,d4,f#4] [a3,d4,f#4]@2, ~ [a4,d5,f#5]@3 ~@5 [a4,d5,f#5]@3 ~@4]/2", // D Em Dmaj7 Em D
  M: "[[a4,d5,f#5] f5 [d5,f#5] d5 [g4,b4,e5] d5 [e4,g4,b4,e5] [f#4,a4,d5]@2 ~ [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4]@2, ~ [f#4,a4] ~@6]/2", // D Em D F#m
})).s("gm_piano").gain(0.35).pan(0.8)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@8 A@6 B C D E F G H I A@6 B C D E F G H I A@6 B C D E F G H I A@6 B C D E F G H I J@2 A@6 B K A@6 B K A@6 B K ~
>`.pickRestart({
  A: "d3@2 d3@2 ~@2 f#3@2 e3@2 d3@2 e3 d3 a2 b2", B: "d3@6 d3@2 c3@2 c3@2 c3@3 c3",
  C: "d3@2 d3@2 d3@3 c#3 d3@2 c#3@2 d3 c#3 a2@2", D: "e2!6 f#2 g2", E: "e2!3 f#2 g2!4", F: "e2!7 g2",
  G: "e2!5 f#2 g2 b2", H: "e2!7 b2", I: "e2!5 e3 d3 b2", J: "d3@2 d3@2 d3@3 c3 d3@2 c3@2 d3 c3 a2@2",
  K: "d3@2 d3@2 d3@3 c3@2 d3@2 c3@2 d3 c3 a2",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · flute · "Chorus"
const flute = note(`<
  A@2 B@2 A@2 B@2 A@2 B@2 A@2 C@2 ~@6 A@2 B@2 A@2 C@2 ~@6 A@2 B@2 A@2 C@2 ~@6 A@2 B@2 A@2 C@2 ~@8 A@2 B@2 A@2 C@2 A@2
  B@2 A@2 C@2 A@2 B@2 A@2 C@2 ~
>`.pickRestart({
  A: "[[a3,d4,f#4,a4,d5,f#5] [a3,d4,f#4,a4,d5,f#5]@3 [g3,b3,e4,g4,b4,e5]@2 [f#3,a3,d4,f#4,a4,d5] [g3,b3,e4,g4,b4,e5]@2 [a3,d4,f#4,a4,d5,f#5]@3 ~@4]/2", // D Em D Em D
  B: "[[a3,d4,f#4,a4,d5,f#5] [a3,d4,f#4,a4,d5,f#5]@3 [g3,b3,e4,g4,b4,e5]@2 [f#3,a3,d4,f#4,a4,d5] [g3,b3,e4,g4,b4,e5]@2 [f#3,a3,d4,f#4,a4,d5]@3 ~@4]/2", // D Em D Em D
  C: "[[a3,d4,f#4,a4,d5,f#5] [f4,f5] [d4,d5,f#5] [d4,d5] [g3,b3,e4,g4,b4,e5] [d4,d5] [e3,g3,b3,e4,g4,b4,e5] [f#3,f#4] [f#3,f#4] ~@7, ~@2 [f#3,a3,f#4,a4]@2 ~@3 [a3,d4,a4,d5]@2 ~@7]/2", // D F D Em D Em F# F#m …
})).s("gm_flute").gain(0.35)

// other · alto sax · "Sax"
const alto_sax = note(`<
  ~@9 A ~ B C D ~ E F G F H I F ~ J C K L M ~ N F@3 I@2 F ~ O ~ P ~ Q ~ R F@3 I@2 F ~ S ~ T L U ~ V W X Y@2 Z AA AB AC ~
  AD ~ AE ~ AF ~ AG ~ AH ~ AI ~ AJ ~ AK ~@9
>`.pickRestart({
  A: "~@6 f#4@2 f#4@2 f#4@2 e4!2 d4@2", B: "~@4 d4@2 a4@2 a4@2 a4@2 a4@2 g4 f4", C: "d4 ~@7", D: "~@3 f#4!3 e4 d4",
  E: "f#4@2 a4@2 f#4@2 a4@2 f#4@2 a4@2 f#4 e4 d4@2", F: "~ e4 ~ d4 e4 ~ d4 e4", G: "~ e4 ~ d4 e4 ~ d4!2",
  H: "~@2 e4@3 ~ d4@2 e4@2 ~@2 d4@2 d4@2", I: "~@2 e4@3 ~ d4@2 e4@2 ~@2 d4@2 e4@2",
  J: "~@4 a4@2 a4@2 a4@2 a4@2 a4@2 f#4 e4", K: "~@2 a4@2 b4@2 b4@2 a4@3 ~ b4@2 b4@2", L: "a4 ~@7",
  M: "~ d4 e4 f#4 e4 d4!2 ~", N: "~ e4!3 d4 ~@3", O: "~@2 a4 b4!2 a4 f#4 ~",
  P: "~@2 f#4@2 f#4@2 f#4@2 f#4@2 f#4 e4 d4@2 ~@2", Q: "~ f#4!5 e4 d4", R: "~@2 b4@3 ~ a4@2 f#4 e4 d4@2 ~@4",
  S: "~ a4!3 f#4 a4 f#4 d4", T: "~@4 a4@2 b4@3 ~ b4@3 ~ b4@2", U: "~ d5@4 b4 ~@2",
  V: "~@2 d4@2 f#4 ~ a4@2 b4 ~ d5@2 b4!2 a4@2", W: "b4@3 ~ b4@2 a4@2 b4@4 a4@2 b4@2",
  X: "~@2 b4@2 ~@2 b4 a4 b4@3 ~ a4 ~@3", Y: "[~@4 a4@2 b4@2 b4@2 a4@2 b4 ~ d5@10 b4@2 a4@2 b4@2 a4@2]/2",
  Z: "e5@4 d5 ~ d5@3 ~ b4 ~@5", AA: "e5 ~ d5@3 ~ b4@3 ~ a4 ~ a4 f#4 e4 ~", AB: "f#4 ~ a4 ~ f#4@3 ~ f#4 e4 d4 ~ d4@3 ~",
  AC: "b4 ~ a4@2 ~@2 f#4 e4 d4 ~ d4@2 ~@4", AD: "~@4 f#4 ~ f#4 ~ b4 ~ b4 ~ a4@2 ~@2",
  AE: "~@2 d4 ~ d4 ~ d4 ~ e4 ~ e4 ~ d4 ~@3", AF: "~@2 f#4!2 d4 f#4!2 d4 f#4!2 d4 ~@5", AG: "~@2 g#4 a4!10 ~@3",
  AH: "~@2 b4 ~ a4 ~ f#4 ~", AI: "~@2 d5 b4 a4 ~ b4 ~", AJ: "~@2 b4 ~ b4 a4 ~ b4", AK: "~ d5!2 b4 ~ a4!2 b4",
})).s("gm_alto_sax").gain(0.18).pan(0.4)

// drums · kick
const kick = s("bd").struct("<~@8 A@8 ~@6 A@8 ~@6 A@8 ~@6 A@8 ~@6 A@26 ~>".pickRestart({
  A: "x!2 ~ x!3 ~ x",
})).gain(0.3)

// drums · snare
const snare = s("sd").struct(`<
  ~@8 A B A B A B A B C@6 A B A B A B A B C@6 A B A B A B A B C@6 A B A B A B A B C@6 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 ~
>`.pickRestart({
  A: "~@4 x ~@2 x ~@4 x ~@3", B: "~@2 x!4 ~ x ~@4 x ~@3", C: "x!4",
})).gain(0.3)

// drums · clap
const clap = s("cp").struct("<A B A C A B A B A@8 ~@6 A@8 ~@6 A@8 ~@6 A@8 ~@6 A@26 ~>".pickRestart({
  A: "~ x ~ x", B: "~ x!3", C: "~@4 x ~@3 x ~@3 x!2 ~@2",
})).gain(0.3)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@9 A ~ A ~ A ~ A B@6 ~ A ~ A ~ A ~ A B@6 ~ A ~ A ~ A ~ A B@6 ~ A ~ A ~ A ~ A B@5 C ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
  A ~ A ~ A ~ A ~ A ~
>`.pickRestart({
  A: "~@6 x!10", B: "x!8", C: "x ~ x ~ x ~ x ~ x ~ x!6",
})).gain(0.3)

// drums · hihat
const hihat = s("hh").struct("<~@8 A@8 B@6 A@8 B@6 A@8 B@6 A@8 B@6 A@26 ~>".pickRestart({
  A: "~ x ~ x", B: "x!6 ~ x",
})).gain(0.35)

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

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

stack(piano, bass, flute, alto_sax, kick, snare, clap, low_tom, hihat, open_hat, crash)