// Early in the Morning — Robert Palmer
// 120 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 118 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(120/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(`<
  ~@8 A B@3 C D E D F D E D F D G D H D I D J D E D K L M N O P Q R S D E D F D G D H D I D J D E D K L M N O P Q R S D
  E D F D G D H T U V W L M N O P Q R S X Y Z AA AB AC AD AE ~@4 V AF V AG L M N O P Q R S L M N O P Q R S AH
>`.pickRestart({
  A: "e4@2 g4 ~ d4@2 f#4 ~ b3@2 c4 ~ a3 ~ g3 ~", B: "[e2@5 ~]/3", C: "~@7 e3", D: "e2@3 ~@7 e2@2 g2@2 e2@2",
  E: "a2@3 ~@13", F: "a2@3 ~@7 b2 a2 d3 ~ d3 ~", G: "a2@3 ~@7 d3 ~ b2 a2 ~@2", H: "a2@2 ~@4 b2 a2 d3 ~ d3@2 a2 d3@2 ~",
  I: "a2@3 ~@7 a3 ~@2 a3 ~@2", J: "a2@3 ~@5 b3 a3@3 c3 b2@2 ~", K: "a2@2 ~@6 c3 b2 ~@2 d3@3 ~",
  L: "e2@4 ~@6 e2@2 g2 ~ g2 ~", M: "a2@3 ~ b2@3 ~ c3@3 ~ d3@3 ~", N: "e2 ~@4 e2 g2 e2",
  O: "c3@2 ~@2 c3 ~ a2 ~ c3@3 ~ c3@2 ~@2", P: "e2@3 ~@7 g2@2 e2@2 g2@2", Q: "a2@3 ~ b2@3 ~ c3@3 ~ d3@2 ~@2",
  R: "e2@2 ~@8 g2@2 e2@2 g2 ~", S: "a2@3 ~ a2@2 ~@2 a2@2 ~@2 a2@2 ~@2", T: "~@2 e2 ~ e2@2 g2@2 g2@2 ~@6",
  U: "~@2 g2 ~ g2@2 a2 ~ a2@2 ~@6", V: "~@2 e2 ~ e2@2 g2 ~ g2@2 ~@6", W: "~@2 g2 ~ g2@2 a2 ~ a2 ~ a2 ~ b2 a2 g2@2",
  X: "e3 g3 a3 a#3 [b3,d4] b3 e4 d4 g4 e4 a4 g4 e4 d4 a#3 b3", Y: "e4 g4 e4 b3 a3 a#3 g4!2 f#4 d4 a3@3 ~@3",
  Z: "~@2 b4@2 ~ a4@2 ~ g4@2 ~ e4@2 ~ b3@2", AA: "~ e4@2 ~ g4 ~ b4 ~ a4@8",
  AB: "~ b3 e4 g4 f#4@3 b3 e4 g4 f#4@2 ~ b3 e4 g4", AC: "f#4 e4 b3 g3 a3 b3 a3 b3 a3@3 g3 e3@2 ~@2",
  AD: "~@2 a3 ~ a#3 b3 d4 e4 f4 g4 ~ f4 g4 ~ f4 g4", AE: "a4@2 e4 a4 ~ e4 a4 ~ e4 a4 ~ e4 a4 ~ e4@2",
  AF: "~@2 g2 ~ g2 ~ a2 ~ a2@2 ~@6", AG: "~@8 d2@7 ~", AH: "e2@3 ~@13",
})).s("gm_acoustic_bass").gain(0.72)

// chords · harpsichord · "HARPSICORD"
const harpsichord = note(`<
  ~ A@8 B C B D E@5 ~@7 E@5 ~@3 A@8 F G H G H G F I E@5 ~@3 A@8 F G H G H G F I A@8 J@5 K L M N O P Q ~@8 A@16 R
>`.pickRestart({
  A: "[[e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 [c5,c6]@2, ~@2 [b4,b5]@5 [b4,b5]@5 ~@6 [b4,b5]@5 [b4,b5]@5 ~@6 [b4,b5]@5 [b4,b5]@5 ~@6 [b4,b5]@5 [b4,b5]@5 ~@4, ~@10 [c5,c6]@5 [c5,c6]@5 ~@6 [c5,c6]@5 [c5,c6]@5 ~@6 [c5,c6]@5 [c5,c6]@5 ~@6 [c5,c6]@5 ~]/8", // E B E F# G F# E C …
  B: "b3@3 f#4@3 g4@9 ~", C: "c4@3 g4@3 a4@9 ~", D: "c4@3 g4@3 a4@8 ~@2",
  E: "[[e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 [c5,c6]@10 ~@8, ~@2 [b4,b5]@5 [b4,b5]@5 ~@6 [b4,b5]@5 [b4,b5]@5 ~@12, ~@10 [c5,c6]@5 [c5,c6]@5 ~@6 [c5,c6]@5 ~@9]/5", // E B E F# G F# E C …
  F: "b3@3 e4 f#4@2 g4@10", G: "c4@3 e4 g4@2 a4@9 ~", H: "b3@3 e4 f#4@2 g4@9 ~", I: "c4@3 e4 g4@2 a4@8 ~@2",
  J: "[[e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [b4,b5] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 [e5,e6]@2 [c5,c6] [e5,e6] ~@2 [f#5,f#6]@2 [g5,g6]@2 [f#5,f#6]@2 [e5,e6]@2 ~@2 e3 g3 a3 a#3 [b3,d4] b3 e4 d4 g4 e4 a4 g4 e4 d4 a#3 b3, ~@2 [b4,b5]@5 [b4,b5]@5 ~@6 [b4,b5]@5 [b4,b5]@5 ~@12, ~@10 [c5,c6]@5 [c5,c6]@5 ~@6 [c5,c6]@5 [c5,c6]@5 ~@4]/5", // E B E F# G F# E C …
  K: "e4 g4 e4 b3 a3 a#3 g4!2 f#4 d4 a3@3 ~@3", L: "~@2 b4@2 ~ a4@2 ~ g4@2 ~ e4@2 ~ b3@2", M: "~ e4@2 ~ g4 ~ b4 ~ a4@8",
  N: "~ b3 e4 g4 f#4@3 b3 e4 g4 f#4@2 ~ b3 e4 g4", O: "f#4 e4 b3 g3 a3 b3 a3 b3 a3@3 g3 e3@2 ~@2",
  P: "~@2 a3 ~ a#3 b3 d4 e4 f4 g4 ~ f4 g4 ~ f4 g4", Q: "a4@2 e4 a4 ~ e4 a4 ~ e4 a4 ~ e4 a4 ~ e4@2", R: "[e5,e6] ~@15",
})).s("gm_harpsichord").gain(0.48)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~ A B C D ~ E ~ F G@2 ~@62 H I H J H I H K H I H J L M N O P Q R S ~@4 T U T V H I H K H I H J H I H K H I H@2 W
>`.pickRestart({
  A: "~@4 b3@2 ~@2 a3@3 g3 ~@4", B: "~@4 b3@2 ~@2 a3@2 ~ g3 ~@4", C: "~@12 a3 ~@3", D: "~@2 e3 ~ b2@2 a2 ~",
  E: "~@4 g2@2 ~@2 a2@4 a2@2 g2 ~", F: "b1@3 ~ a1@3 ~ g1@3 ~ f#1@3 ~", G: "[e1@31 ~]/2",
  H: "~@10 [e2,e3]@2 [g2,g3]@2 [e2,e3] ~", I: "[a2,a3] ~@4 [e2,e3] [g2,g3] [e2,e3]", J: "[a2,a3] ~@7, a4@7 ~",
  K: "[a2,a3] ~@7", // A
  L: "[e2,b2] [g2,d3] [a2,e3] [a#2,f3] [b2,d3,f#3,a3] [b2,f#3] [e3,b3] [d3,a3] [g3,d4] [e3,b3] [a3,e4] [g3,d4] [e3,b3] [d3,a3] [a#2,f3] [b2,f#3]", // E5 G5 A5 A#5 Bm7 B5 E5 D5 …
  M: "[e3,b3] [g3,d4] [e3,b3] [b2,f#3] [a2,e3] [a#2,f3] [g3,d4]!2 [f#3,c#4] [d3,a3] [a2,e3]@3 ~@3", // E5 G5 E5 B5 A5 A#5 G5 F#5 …
  N: "~@2 [b3,f#4]@2 ~ [a3,e4]@2 ~ [g3,d4]@2 ~ [e3,b3]@2 ~ [b2,f#3]@2", // B5 A5 G5 E5 B5
  O: "~ [e3,b3]@2 ~ [g3,d4] ~ [b3,f#4]@2 [a3,e4]@8", // E5 G5 B5 A5
  P: "~ [b2,f#3] [e3,b3] [g3,d4] [f#3,c#4]@3 [b2,f#3] [e3,b3] [g3,d4] [f#3,c#4]@3 [b2,f#3] [e3,b3] [g3,d4]", // B5 E5 G5 F#5 B5 E5 G5 F#5 …
  Q: "[f#3,c#4] [e3,b3] [b2,f#3] [g2,d3] [a2,e3] [b2,f#3] [a2,e3] [b2,f#3] [a2,e3]@3 [g2,d3] [e2,b2]@2 ~@2", // F#5 E5 B5 G5 A5 B5 A5 B5 …
  R: "~@2 [a2,e3] ~ [a#2,f3] [b2,f#3] [d3,a3] [e3,b3] [f3,c4] [g3,d4] ~ [f3,c4] [g3,d4] ~ [f3,c4] [g3,d4]", // A5 A#5 B5 D5 E5 F5 G5 F5 …
  S: "[a3,e4]@2 [e3,b3] [a3,e4]@2 [e3,b3] [a3,e4] ~ [e3,b3] [a3,e4] ~ [e3,b3] [a3,e4]@2 [e3,b3]@2", // A5 E5 A5 E5 A5 E5 A5 E5 …
  T: "~@2 e1 ~ e1@2 g1 ~ g1@2 ~@6", U: "~@2 g1 ~ g1 ~ a1 ~ a1@2 ~@6", V: "~@8 d1@7 ~", W: "[e2,e3] ~@7",
})).s("gm_acoustic_guitar_steel").gain(0.54)

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

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

// drums · clap
const clap = s("cp").struct("<~@33 A@8 ~@16 A@8 ~@8 A@12 B@8 A@24 ~>".pickRestart({
  A: "~ x ~ x", B: "~@3 x",
})).gain(0.6)

// drums · low tom
const low_tom = s("lt").struct("<~@73 [x!3 ~]!3 [x ~@3 x ~@7 x!4] ~@40 x>").gain(0.6)

// drums · hihat
const hihat = s("hh").struct("<~ x!8 [x!4]!84 ~@8 [x!4]!16 ~>").gain(0.6)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@9 [~ x ~ x ~ x ~ x]!84 ~@8 [~ x ~ x ~ x ~ x]!16 ~>").gain(0.2)

// drums · mid tom
const mid_tom = s("mt").struct("<~@76 [~@8 x!4 ~@4] ~@41>").gain(0.6)

// drums · open hat
const open_hat = s("oh").struct("<~ [~@15 x]!84 ~@16 [~@15 x]!16 ~>").gain(0.6)

// drums · crash
const crash = s("cr").struct(`<
  ~@9 A ~@3 A ~@3 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@3 A ~@3 A ~@19 A ~@3 A ~@3 A ~@3 A ~@4
>`.pickRestart({
  A: "x",
})).gain(0.6)

// drums · ride
const ride = s("rd").struct("<~@85 [x!4]!8 ~@25>").gain(0.6)

// drums · cowbell
const cowbell = s("cb").struct("<~@33 A@8 ~@16 A@8 ~@8 A@12 ~@16 A@16 ~>".pickRestart({
  A: "x!5 ~@11",
})).gain(0.6)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@9 [x!16]!76 ~@8 x!8 [x!16]!16 ~>").gain(1.02)

stack(
  bass, harpsichord, acoustic_guitar_steel, kick, snare, clap, low_tom, hihat, hihat_soft, mid_tom, open_hat, crash,
  ride, cowbell, cabasa
)