// People Are Strange — The Doors
// 118 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 65 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(118/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 · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~@9 A B C D E F G H I J K L M N O P M Q R S T U R V W X A B C D E F G H I J K L M N O P M Q A B A D E A@2 H ~@4
>`.pickRestart({
  A: "b1@3 ~@3 f#2@2 ~@4 f#1@3 ~@3 f#2@3 ~@3", B: "g1@2 ~@4 g2@5 ~ g1@5 ~ a1@5 ~", C: "b1@3 ~@3 b2@2 ~@16",
  D: "b1 ~ f#2 ~ f#1 ~ f#2 ~", E: "g1@3 ~@3 d2@4 ~@2 g2@4 ~@2 d2@3 ~@3", F: "b1@3 ~@3 f#2@2 ~@16",
  G: "b1 ~@2 f#2 ~@2 f#1 ~@2 f#2 ~@2", H: "b1@2 ~@4 f#2@3 ~@3 f#1@3 ~@3 f#2@3 ~@3",
  I: "b1@5 ~ b1@4 ~@2 b1@5 ~ b1@4 ~@2", J: "b1@4 ~@2 a1@6 g1@5 ~ f#1@5 ~", K: "e2@6 g2@5 ~ b2@5 ~ b2@2 g2@2 e2@2",
  L: "a1@2 c2 e2 ~ e1@3 g1 b1@2 ~", M: "a1@4 c2 ~ e2@3 ~ e1@6 g1@2 b1@4 ~@2",
  N: "b1@4 d#2@2 f#2@2 ~@2 e1@5 ~ e1@2 g1@3 ~ e1 ~", O: "e2@6 g2@5 ~ b2@4 ~@2 b2@2 g2@2 e2@2",
  P: "a1@4 c2@2 e2@3 ~ e1@5 ~ g1@2 b1@4 e1 ~", Q: "b1@4 d#2 ~ f#2@3 ~ e1@6 g1@2 b1@4 e2 ~",
  R: "b1@3 ~@3 f#2@2 ~@4 b2@2 ~@4 f#2@3 ~@3", S: "b1@3 ~@3 f#2@3 ~@3 b2@3 ~@3 f#2@2 ~@4",
  T: "e1@2 ~@4 g1@2 ~@4 b1@3 ~@3 e2@3 ~@3", U: "g2@3 ~@3 e2@2 ~@4 b1@3 ~@3 g1@2 ~@4",
  V: "b1@2 ~@4 f#2@3 ~@3 b2@3 ~@3 f#2@2 ~@4", W: "e1@2 ~@4 g1@2 ~@4 b1@3 ~@3 d2@2 ~@4", X: "e2 ~@7",
})).s("gm_acoustic_bass").gain(0.64)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  A B C D E B C D E F G H F I J F@3 K L M@2 N O M@2 N P@2 Q@2 R S T U F G V F I W F@3 K L M@2 N O M@2 N X Y Z AA Y AB AA
  AC AD@4
>`.pickRestart({
  A: "~@6 b2@6 a2@6 g2@5 ~", B: "e2@2 b2 e3@2 g3@3 e3 b2@2 a#2", C: "~@2 e3 a3@2 ~@3 b2 e3@2 g3, a2@7 ~@3 e2@8 ~@6",
  D: "~@2 e3 a3@2 ~@3 b2 e3@2 g3, a2@7 ~@3 e2@9 ~@5", E: "~@4 d#3@2 f#3@3 ~@7 b2@2 e3@2 g3@2 e3@2, b2@6 ~@4 e2@9 ~@5",
  F: "~@6 [b3,d#4,f#4] ~@11 [b3,d#4,f#4] ~@5", G: "~@3 [b3,d4,g4] ~@5 [b3,d4,g4] ~@2", H: "~@3 b4@2 ~@7",
  I: "~@6 [b3,d4,g4] ~@11 [b3,d4,g4]@2 ~@4", J: "~@3 [b3,f#4] ~@8, ~@3 b4@2 ~@7, ~@6 d#4 ~@17",
  K: "b3@6 a3@5 ~ g3@5 ~ f#3@4 ~@2", L: "~@6 [e3,g3,b3] ~@11 [e3,g3,b3] ~@5", M: "~@3 [a3,c4,e4] ~@5 [e3,g3,b3] ~@2",
  N: "~@3 [b3,d#4,f#4] ~@5 [e3,g3,b3] ~@2", O: "~@3 [e3,g3,b3] ~@5 [e3,g3,b3] ~@2",
  P: "[a4@11 ~ a4@2 e4@2 c4 ~ b3@9 ~@7 d5@5 ~ d5@4 ~@2 c#5@2]/2",
  Q: "[d5@3 ~@3 e5@4 ~@2 e5@3 ~ a4@2 b4@3 ~ g4@7 ~ f#4@3 ~ d4@5 ~ e4@4 ~@4]/2", R: "a4@11 ~ a4@10 ~@2",
  S: "c4@11 ~ b3@7 ~@3 b3@2", T: "d4@3 ~ e4@3 ~ g4@2 ~@2 a4@2 ~@2 b4@2 ~@2 d5@2 ~@2", U: "e5 ~@11", V: "~@3 b4@8 ~",
  W: "~@3 b4@7 ~@2", X: "~@6 f#4@16 b3 ~, a3@11 ~, ~@2 d#4@9 ~", Y: "~@6 [g3,b3,d4] ~@11 [g3,b3,d4] ~@5",
  Z: "a3@5 ~ [a3,d#4,f#4] ~@11 [a3,d#4,f#4] ~@5", AA: "~@6 [a3,d#4,f#4] ~@11 [a3,d#4,f#4] ~@5",
  AB: "~@5 b3@4 ~@3, a3@7 ~, ~@4 d#4@17 ~@3, ~@3 f#4@7 ~@2", AC: "~@6 [a3,d#4,f#4] ~@11 [a3,d#4,f#4]@2 ~@4",
  AD: "[~@3 f#4@24 ~@5, ~ a3@26 ~@5, ~@2 d#4@25 ~@5]/4",
})).s("gm_acoustic_guitar_steel").gain(0.57)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  ~@9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J AA AB AC AD AE AF AG AD AH AI AJ AK AL AM
  AN AO AP@4
>`.pickRestart({
  A: "[b3,d#4,f#4]@3 ~@7 b2@2 [b3,d#4,g4]@2 ~@2 [b3,d#4,a4]@6 ~@2, ~ [b3,d#4,f#4] ~@2", // B Baug B7 B
  B: "[g2,b3,d4,g4]@3 ~@7 g3@2 [b3,d4,g4]@2 ~@4 g3@4 [b3,d4,g4] ~, g3 ~@5 [b3,d4,g4]@6 ~@4 [b3,d4,g4]@6 ~@2", // G
  C: "[b3,d#4,f#4] ~@2 [b3,d#4,f#4] ~@8", // B
  D: "[b3,d#4,f#4]@4 ~@2 [d#4,f#4]@4 ~@2 [b3,d#4]@4 b3@2 b2@3 ~ f#3 ~, ~@6 b3@3 ~ b2@8 ~@6, ~@2 g4 ~, ~@16 [d#4,a4]@5 ~@3", // B D#m B D#dim
  E: "[g2,b3,d4,g4]@2 ~@8 [g2,g3]@2 b3@3 ~@3 g3@3 ~ [b3,d4,g4] ~, ~@6 [b3,d4,g4]@6 d4 ~@3 [d4,g4]@5 ~@3", // G G5
  F: "[b3,d#4,f#4]@4 [b2,f#3] ~ [b3,d#4,f#4]@2 ~@16", // B B5 B
  G: "[b2,b3,d#4,f#4]@3 ~@3 [b3,d#4]@4 [b3,d#4]@2 [b3,d#4,g4]@2 ~@8 f#3@2, ~@3 f#4@3 ~@2 [b3,d#4,a4]@4", // B Baug B7
  H: "[b3,d#4,f#4] ~@4 f#3 [b3,d#4,g4] ~ b3@3 [f#3,b3], ~@3 [b3,d#4,f#4]@3 ~@2 [d#4,a4]@4", // B Baug B5 B D#dim
  I: "[b3,d#4,f#4]@2 ~@4 [b3,d#4,f#4]@4 [b3,d#4] ~ [b3,d#4,g4]@2 ~@8 [d#3,f#3]@2, ~@2 [b3,d#4,a4]", // B Baug D#m B7
  J: "~@6 [a2,b3,d#4,f#4]@5 [b2,d#3,f#3] [b3,d#4,f#4]@4 [b2,d#3,f#3] ~ [f#2,b3,d#4,f#4]@4 ~@2, f#3@5 ~@7, [b2,b3,d#4,f#4]@5 ~@7 g2@6 ~@6, ~ d#3@4 ~@7", // B7 B
  K: "[e3,g3,b3]@4 e2 ~ [e3,g3,b3] ~@3 [e3,g3,b3]@6 e2 ~ [e3,g3,b3]@4 [e3,g3,b3] ~", // Em
  L: "[a3,c4,e4]@4 [a2,e3] ~ [a3,c4,e4] ~@3 [e3,g3,b3]@6 e2 ~ [e3,g3,b3] ~@3 [e3,g3,b3] ~", // Am A5 Am Em
  M: "[a3,c4,e4]@4 [a2,e3] ~ [a3,c4,e4] ~@3 [e3,g3,b3]@6 e2 ~ [e3,g3] ~@3 b3 ~, [a2,e3] ~@17 b3@4 ~@2", // Am A5 Am Em A5
  N: "[b3,d#4,f#4]@2 ~@2 [d#4,f#4] ~@5 [e3,g3,b3]@6 ~@2 e3@2 g3 ~ b3 ~, ~@4 b3@2 ~@10 e2@7 ~", // B D#m Em
  O: "[e2,g3]@6 [e3,g3,b3] ~@3 [e3,g3,b3]@6 e2 ~ [e3,g3,b3]@5 ~, [e3,b3] ~@5", // Em E5
  P: "[a3,c4,e4]@3 ~ [a3,c4,e4]@3 ~@3 [e3,g3,b3]@6 e2 ~ [e3,g3,b3]@4 e3 ~", // Am Em
  Q: "~@4 [a3,e4]@2 [a3,c4,e4] ~@3 [e3,g3,b3]@6 e2 ~ [e3,g3,b3]@6, a2@7 ~@17, ~@4 c4 ~@19", // A5 Am Em
  R: "[b3,d#4] ~@3 [b3,d#4,f#4] ~@5 [e3,g3,b3]@6 e2@2 [e3,g3,b3]@3 ~@3, b2 ~@5, f#4 ~@11", // B Em
  S: "[b2,b3,d#4,f#4]@2 ~@4 [d#4,f#4]@4 b3 ~ [b3,d#4,g4]@2 ~@4 b2@4 b3 ~, ~@6 b3@2 ~@8 [b3,d#4,a4]@7 ~", // B D#m Baug B7
  T: "[b3,d#4,f#4]@2 ~@2 b2 ~ [b3,d#4,f#4] ~@3 b2@2 [b3,d#4,f#4]@4 b2 ~@5 b2@2, ~@3 [b3,d#4,f#4]", // B
  U: "[e3,g3,b3]@3 ~@3 e3@2 ~@2 e2@2 [e3,g3,b3] ~@3 [e3,g3,b3] ~@7, ~ [g3,b3] ~@2", // Em G
  V: "[g3,b3,e4]@2 ~@8 b2@2 [g3,b3,e4]@4 e2 ~ [g3,b3,e4]@4 b2 ~, ~ [g3,b3,e4] ~@2", // Em
  W: "[b3,d#4,f#4]@2 ~@4 b3@2 ~@2 b3@2 [b3,d#4,g4]@2 ~@2 [b3,d#4,a4]@6 b2 ~, ~ [d#4,f#4] ~@2", // B Baug B7 D#m
  X: "[b3,d#4,f#4]@3 ~@7 b2@2 [b3,d#4,f#4] ~@3 d#4@2 ~@4 e3@2, ~@3 [b3,d#4,f#4]@3 ~@2 [b3,f#4]@4, ~@19 b2@5", // B B5
  Y: "[e3,g3,b3]@3 ~ e2 ~@5 b2@2 [e3,g3,b3]@4 [e2,b2] ~ [e3,g3,b3]@6, ~ [e3,g3,b3] ~@2", Z: "[e2,b2,g3,b3,e4] ~@7",
  AA: "[g3,e4]@3 ~ [a3,f#4] ~ [g3,e4]@2 ~@2 [b3,g4]@5 ~ [g3,e4]@7 ~", // C D C Em C
  AB: "[c4,a4]@3 ~ [d4,b4] ~ [e4,a4]@2 ~@2 [b3,g4]@4 ~@2 [g3,e4]@7 ~", // F G A5 Em C
  AC: "[c4,a4]@3 ~ b4@2 [e4,a4]@2 ~@2 [b3,g4]@4 ~@2 [g3,e4]@7 ~, ~@4 d4 ~@19", // F A5 Em C
  AD: "[a3,f#4]@3 ~ [b3,g4] ~ [a3,f#4]@2 ~@2 [g3,e4]@12 ~@2", // D Em D C
  AE: "[g3,e4]@3 ~ f#4@2 [g3,e4]@2 ~@2 [b3,g4]@4 ~@2 [g3,e4]@7 ~, ~@4 a3 ~@19", // C Em C
  AF: "[c4,a4]@3 ~ [d4,b4] ~ [e4,a4]@2 ~@2 [b3,g4]@5 ~ [g3,e4]@7 ~", // F G A5 Em C
  AG: "[c4,a4]@3 ~ b4@2 [e4,a4]@2 ~@2 [b3,g4]@5 ~ [g3,e4]@7 ~, ~@4 d4 ~@19", // F A5 Em C
  AH: "[b3,d#4,f#4]@3 ~@9 [b3,d#4,g4]@2 ~@4 b2@6, ~@3 f#4@4 ~@5, ~@3 [b3,d#4]@3 ~@2 [b3,d#4,a4]@4, ~@5 b2@2 ~@5", // B Baug B B7
  AI: "[g3,b3,d4]@2 ~ [g3,b3,d4]@2 ~ [a3,d4]@2 b3 g3 ~ b2, ~@5 g2@4 ~@3, ~@4 d4 ~", // G D5
  AJ: "[b3,d#4,f#4]@2 ~ b3 ~ b3 [b3,d#4,g4] ~@4 b3, ~@3 [d#4,f#4]@3 ~@2 [d#4,a4]@4, ~@8 b3@3 ~, ~@3 b2", // B Baug D#m D#dim
  AK: "[b3,d#4,f#4]@4 b2 ~@5 b2@2 [b3,d#4,f#4] ~@3 b3@2 ~@4 b3@2, ~@3 [b3,d#4,f#4]@3 ~@2 [d#4,f#4]@4, ~@3 b2", // B D#m
  AL: "[g3,b3,d4]@4 g2@2 [g3,b3,d4]@3 ~ [a3,d4]@4 ~@8 b2@2, ~@2 [b3,d4], ~@3 g3", // G D5 Bm
  AM: "[b3,d#4,f#4]@3 ~@3 b3@4 b3@2 [b3,d#4,g4]@2 ~@2 d#4@6 [b3,d#4,f#4]@2, ~@3 [d#4,f#4]@3 ~@2 a4@2 ~@2, ~@8 b3 ~@3", // B Baug B D#m
  AN: "[b2,b3,d#4,f#4] ~@2 b3@2 b3 [b3,d#4,g4] ~ [b3,a4]@2 ~ b3, ~@3 [d#4,f#4]@3 ~@2 d#4@4", // B Baug B7 D#m
  AO: "[b3,d#4,f#4]@3 ~@3 b3 ~@3 b3@2 [b3,d#4,g4]@3 ~ [d#4,a4]@5 ~ [b2,b3] ~, ~@6 [d#4,f#4]@6 ~@4 b3@3 ~@5", // B Baug D#dim B D#m
  AP: "[~@3 [b2,a3,d#4,f#4]@77 ~@16]/4", // B7
})).s("gm_piano").gain(0.61)

// chords · rock organ · "ORGAN 3"
const rock_organ = note("<~@19 A B C D A B C D ~@18 A B C D A B C D ~@12>".pickRestart({
  A: "[e4,g4]@2 ~@2 [e4,g4] ~ [e4,g4]@2 ~@2 [g4,b4]@4 ~@2 [e4,g4]@6 ~@2", // Em G Em
  B: "[a4,c5]@2 ~@2 [b4,d5] ~ [c5,e5] ~@3 [g4,b4]@4 ~@2 [e4,g4]@7 ~", // Am Bm C G Em
  C: "[a4,c5]@2 ~@2 [b4,d5] ~ [c5,e5]@2 ~@2 [g4,b4]@4 ~@2 [e4,g4]@6 ~@2", // Am Bm C G Em
  D: "[f#4,a4]@2 ~@2 [g4,b4] ~ a4@2 ~@2 [e4,g4]@12 ~@2, ~@6 f#4 ~@17", // F#m G Em
})).s("gm_rock_organ").gain(0.5)

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

// drums · rim
const rim = s("rim").struct("<~@9 A@2 ~ A@2 ~ A@3 ~@17 A@2 ~ A@2 ~ A@3 ~@21>".pickRestart({
  A: "~@3 x",
})).gain(0.35)

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

// drums · snare · soft notes
const snare_soft = s("sd").struct(`<
  ~@8 A ~@9 B ~ C ~ D ~ C ~ D ~ C ~ E ~ C F ~@10 G ~ C ~ E ~ C ~ H ~ C ~ D ~ C ~ D ~@4
>`.pickRestart({
  A: "~@2 x", B: "~@2 x ~@2 x ~@2 x!3 ~", C: "~@11 x", D: "~@9 x!2 ~", E: "~@8 x!2 ~@2", F: "~@10 x!2",
  G: "~@2 x ~@2 x!3 ~@4", H: "~@2 x ~@2 x ~@2 x ~@3",
})).gain(0.15)

// drums · low tom
const low_tom = s("lt").struct("<~@34 [~@3 x] ~@30>").gain(0.5)

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

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@34 [~@2 x] ~@30>").gain(0.5)

// drums · crash
const crash = s("cr").struct("<~@27 A ~@3 A ~ A ~@11 A ~@3 A ~ A ~@13>".pickRestart({
  A: "x",
})).gain(0.5)

// drums · ride
const ride = s("rd").struct("<~@9 A@2 B A@2 B A@19 ~ A@2 B A@2 B A@20 ~@4>".pickRestart({
  A: "x!4", B: "x!2 ~@2",
})).gain(0.5)

stack(
  bass, acoustic_guitar_steel, piano, rock_organ, kick, rim, snare, snare_soft, low_tom, hihat, hihat_soft, mid_tom,
  crash, ride
)