// I Keep Forgetting — Michael McDonald
// 96 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (4/4 at bar 1, 2/4 at bar 39, 4/4 at bar 40) are rendered on a constant 4/4 grid of one bar per cycle
// note: duplicate parts dropped: ch 8 "PIANO" piano (copy of ch 7 "PIANO" epiano2)
// note: Full arrangement: all 61 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(96/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 · slap bass 2 · "BASS GUITA"
const bass = note(`<
  A B C D E B F D G H I D J K L D M N O P Q R O S T U V W X B Y Z E B F D AA@2 AB AC AD AE AF@2 AG AH AI AJ AG AH AI AJ
  AG AH AI AJ AG AH AI AK@2
>`.pickRestart({
  A: "~@14 d2 e2", B: "e1@2 ~@6 e1@2 ~@4 d2 e2", C: "~@2 e1@2 ~ e1@2 ~ e1@3 ~ b1@3 ~", D: "c2 ~@3 c2 ~@3",
  E: "~@2 c2 ~ b1 ~ a1 ~ f#1@4 b1@4", F: "~@2 e1@2 ~ e1@2 ~ e1@4 b1@4", G: "~@2 c2 ~ b1 ~ a1 ~ f#1@3 b1@2 ~@3",
  H: "e1 ~@3 e1 ~@3", I: "~@2 e1 ~@2 e1@2 ~ e1@2 ~@2 b1@4", J: "~@2 c2 ~ b1 ~ a1 ~ f#1@3 b1@3 e1@2",
  K: "~@3 e1 g1 ~ f#1 ~ e1@2 ~@6", L: "e1@2 ~@4 e1 ~ e1@2 ~@2 b1@3 ~", M: "~@2 c2 ~@3 c2 ~ a1@4 d2@4, ~@12 e2 ~@3",
  N: "~ f1 ~@6 g1@2 ~@6, g1 ~@7", O: "g1@2 ~@5 d1 g1@3 ~ g#1@4", P: "a1@2 ~@5 e1 a1@2 ~@4 e1 a1",
  Q: "d1@2 ~@5 a1 d2 ~ d2 ~ a1@2 d2@2", R: "g1@2 ~@5 d1 g1@2 ~@5 d1", S: "a1@2 ~@5 e1 a1@2 ~@6",
  T: "d1@2 ~@6 d2 ~ d2@2 ~@2 g1 g#1", U: "a1@2 ~@5 e1 a1 ~ a1 ~ d1 ~ d#1 ~",
  V: "e1@2 ~@2 b1 ~@2 b1 e2 ~ e2 ~ g1 ~ g#1 ~", W: "a1@7 ~ b1@7 ~", X: "d2@6 b1 ~",
  Y: "~@2 e1@2 ~ e1@2 ~ e1@3 ~ b1 ~ c2@2", Z: "~@4 c2 ~@3", AA: "[~@2 c2@2 b1 ~ a1 ~ f#1@3 b1@2 ~ d2@17 ~]/2",
  AB: "c2@8 b1@3 ~ e2@4", AC: "d2@3 ~ b1@3 ~@8 e1", AD: "a1 ~ a1 ~ d1 ~ d#1 ~ e1@2 ~@2 b1 ~@2 b1",
  AE: "e2 ~ e2 ~ g1 ~ g#1 ~ a1@7 ~", AF: "[b1@7 ~ d2@12 b1@2 ~@2 e1@2 ~@6]/2", AG: "e1@2 ~@4 d2 e2 ~@2 e1@2 ~ e1@2 ~",
  AH: "e1@3 ~ b1 ~ c2@2 ~@8", AI: "c2@2 ~@8 c2 ~ b1 ~ a1 ~", AJ: "f#1@2 b1@2 e1 ~@3", AK: "[f#1@4 b1 ~ e1@20 ~@6]/2",
})).s("gm_slap_bass_2").gain(0.4)

// chords · clavinet
const clavinet = note("<~@17 A B C D E F G H ~@36>".pickRestart({
  A: "g2@2 [b2,d3]!2 g2 ~ [b2,d3] g2 ~ g2 [b2,d3]!2 g2!2 [b2,d3]!2", // Bm
  B: "g2 ~ [b2,d3] ~ g2 ~ [b2,c3,d3] g2 ~ g2 [b2,d3]!2 [g2,b2] g2 [b2,d3] [g2,b2,d3]", // Bm G Bm G
  C: "a2!2 [c3,e3] ~ a2 ~ [c3,e3] a2 ~ a2 [c3,e3]!2 a2!2 [c3,e3]!2", // C
  D: "a2 ~ [c3,e3] ~ a2 ~ [c3,e3] a2 ~ a2 [c3,e3]!2 a2!2 [c3,e3] a2", // C
  E: "g2 ~ [b2,d3] ~ g2 ~ [b2,d3] g2 ~ g2 [b2,d3]!2 g2!2 [b2,d3]!2", // Bm
  F: "g2 ~ [b2,d3]!2 g2 ~ [b2,d3] g2 ~ g2 [b2,d3]!2 g2!2 [b2,d3] g2", // Bm
  G: "[b2,d3] a2 [c3,e3] ~ a2 ~ [c3,e3] a2 ~ a2 [c3,e3]!2 [a2,c3] a2 [c3,e3]!2", // Bm C Am C
  H: "[a2,c3,e3] ~ [a2,c3,e3] ~ a2 ~ [c3,e3] a2 ~ a2 [c3,e3]!2 a2!2 [c3,e3] ~", // Am C
})).s("gm_clavinet").gain(0.48)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note("<~@17 A@2 B@2 C@2 D@2 E F G@2 ~@10 H@3 I@2 ~@17>".pickRestart({
  A: "[[b5,d6], c6 ~@31]/2", B: "[a5,c6]/2", C: "[b5,d6]/2", D: "[[a5,c6]@29 ~@3]/2", E: "[a4,c5]", F: "[b4,e5]",
  G: "[[a4,c5] b4 a4@2, ~ d5@3]/2", H: "[~ [a4,c5]@2 [b4,e5]@2 [a4,c5]]/3", I: "[b4 a4@2 ~, d5@3 ~]/2",
})).s("gm_string_ensemble_1").gain(0.4)

// chords · epiano2 · "PIANO"
const epiano2 = note(`<
  ~ A@3 B@4 C@4 D@4 E F@2 G H I J K@2 L M N O A@3 B@4 P@2 Q R@2 S T@3 U@2 V@2 U@2 V@2 U@2 V@2 U@2 W@2
>`.pickRestart({
  A: "[[b3,d4,e4,g4]@24 [b3,d4,e4,g4]@3 [d4,f#4,a4]@3 [b3,c4,e4,g4]@17 ~]/3", // Em7 D Cmaj7
  B: "[~@2 [c4,g4,b4] ~ [c4,e4,a4] ~ [c4,e4,g4] ~ [f#3,e4]@2 ~ [b3,d#4,f#4]@2 ~ [b3,d4,e4,g4]@25 ~ [b3,d4,e4,g4]@3 f#4 f4 ~ [b3,c4,e4,g4]@16 ~@2, ~@2 e4@2 ~@39 [b3,d4,a4]@2 ~@19]/4", // Cmaj7 Am C F#7 B Em7 Cmaj7 Bm7
  C: "[~@2 [c4,e4,g4,b4] ~ [c4,e4,a4] ~ [c4,e4,g4] ~ f#3@2 ~ [b3,d#4,f#4]@2 ~ [b3,d4,e4,g4]@25 ~ [b3,d4,e4,g4]@2 ~ [b3,d4,f#4,a4]@2 ~ [c4,e4,g4]@17 ~]/4", // Cmaj7 Am C B Em7 Bm7 C
  D: "[~@2 [c4,e4,g4,b4] ~ [c4,e4,a4] ~ [c4,e4,g4] ~ [f#3,a3,c#4,e4]@2 ~ [b3,d#4,f#4]@2 ~ [b3,d4,e4,g4]@25 ~ [b3,d4,e4,g4]@2 ~ [b3,d4,f#4,a4]@2 ~ [b3,c4,e4,g4]@17 ~]/4", // Cmaj7 Am C F#m7 B Em7 Bm7 Cmaj7
  E: "~@2 [c4,e4,g4,b4] ~ [c4,e4] ~ [c4,e4,g4] ~ [f#3,a3,c#4,e4]@2 ~ [b3,d#4,f#4]@5, ~@2 a4 ~@5", // Cmaj7 C F#m7 B
  F: "[~@4 [d4,g4,b4] ~ [d4,f#4,a4] ~ [b3,d4,g4]@2 ~ [f#4,a4]@2 ~ [d4,g4,b4]@4 d4 ~ [d4,g4,b4] ~ [d4,f#4,a4] ~ [b3,d4,f#4]@2 ~ [c4,f#4,a4]@5, ~@11 c4 ~@20]/2", // G D G F#m G D Bm F#dim
  G: "~@4 [a3,c4,e4,g4] ~ [a3,d4,f#4] ~ [a3,c4,e4]@2 ~ [a3,f#4]@2 ~ [a3,c4,e4,g4]@2, ~@11 d4 ~@4", // Am7 D Am D Am7
  H: "~@2 a3 ~ [a3,c4,g4] ~ [a3,d4,f#4] ~ [c4,e4,g4]@2 ~ [d4,f#4]@2 ~ [c4,e4] ~, ~@8 a3 ~@4 a3@2 ~", // Am7 D C D C
  I: "~@4 [d4,g4,b4] ~ [d4,f#4,a4] ~ [b3,d4,g4]@2 ~ [c4,f#4,a4]@2 ~ [d4,g4,b4]@2", // G D G F#dim G
  J: "~@2 d4 ~ [d4,g4,b4] ~ [d4,f#4,a4] ~ [b3,d4,g4]@2 ~ [c4,f#4,a4]@5", // G D G F#dim
  K: "[~@4 [a3,c4,g4] ~ [d4,f#4] ~ [a3,c4,e4,g4]@2 ~ [a3,d4,f#4]@2 ~ [a3,c4,e4,g4]@4 a3 ~ [a3,c4,e4,g4] ~ [a3,d4,f#4] ~ [a3,c4,e4]@2 ~ [a3,d4,f#4]@2 ~@3]/2", // Am7 D Am7 D Am7 D Am D
  L: "[a3,c4,e4,g4]@15 ~", M: "[b3,d4,e4,g4]@8 [b3,d4,e4,g4]!2 ~ [b3,d4,e4,g4] ~ [b3,d4,e4,g4]@2 ~",
  N: "[a3,c4,e4,g4]@3 ~ [b3,d4,f#4,a4]@3 ~", O: "[d4,f#4,a4]",
  P: "[~@2 [e4,g4,b4]@2 [c4,e4,a4] ~ [c4,e4,g4] ~ [f#3,a3,c#4,e4]@2 ~ [b3,d#4,f#4]@2 ~ [c4,e4,g4]@17 ~, ~@2 c4 ~@29]/2", // Em Am C F#m7 B C
  Q: "[c4,d4,f#4]@3 [b3,e4,g4]", R: "[[c4,e4,g4]@3 ~ [c4,d4,f#4]@3 ~ [a3,c4,e4,g4]@15 ~ [b3,d4,e4,g4]@8]/2",
  S: "[b3,d4,e4,g4]!2 ~ [b3,d4,e4,g4] ~ [b3,d4,e4,g4]@2 ~ [a3,c4,e4,g4]@6 ~@2", // Em7 Am7
  T: "[[b3,d4,f#4,a4]@3 ~ [d4,f#4,a4]@8 [b3,d4,e4,g4]@12]/3", // Bm7 D Em7
  U: "[[b3,d4,e4,g4]@3 [d4,f#4,a4]@3 [b3,c4,e4,g4]@17 ~@3 [c4,g4,b4] ~ [c4,e4,a4] ~ [c4,e4,g4] ~, ~@13 e4 ~@2]/2", // Em7 D Cmaj7 Am C
  V: "[[f#3,e4]@2 ~ [b3,d#4,f#4]@2 ~ [b3,d4,e4,g4]@2 [b3,d4,e4,g4]@24]/2", // F#7 B Em7
  W: "[[f#3,e4]@2 ~ [b3,d#4,f#4]@2 ~ [b3,d4,e4,g4]@20 ~@6]/2", // F#7 B Em7
})).s("gm_epiano2").gain(0.48)

// chords · epiano2 · "PIANO" · soft notes
const epiano2_soft = note("<~@4 A ~@3 B ~ C@2 ~@5 D E ~ F D G H ~@8 A ~@13 I J ~@2 I J ~@2 I J ~@2 I J ~>".pickRestart({
  A: "~ d#4 ~@6 [a3,c#4]@2 ~@6", B: "~@4 [a3,c#4,e4] ~@3", C: "[~@14 b3@17 ~]/2", D: "~@4 a4 ~@9 a4 ~",
  E: "~@4 a4 ~ g#4 ~@9", F: "~@4 e4 ~@5 a3@3 ~@3", G: "~@4 a4 ~@11", H: "~@4 e4 ~ a3 ~@9", I: "~@9 d#4 ~@6",
  J: "[a3,c#4] ~@7", // A
})).s("gm_epiano2").gain(0.24)

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

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

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

// drums · low tom
const low_tom = s("lt").struct("<A ~@7 A ~@9 A ~ A ~ A ~@5 A ~@8 B A ~@20 C ~>".pickRestart({
  A: "~@7 x", B: "~@13 x ~@2", C: "~@3 x ~@4",
})).gain(0.72)

// drums · mid tom
const mid_tom = s("mt").struct("<A ~@7 A ~@7 B ~ C ~ D ~ A ~ B ~@3 A ~@7 B E@2 F ~@19 G ~>".pickRestart({
  A: "~@11 x ~ x ~@2", B: "~@11 x ~ x!2 ~", C: "~@13 x ~@2", D: "~@10 x!2 ~ x ~@2", E: "~@3 x", F: "~ x",
  G: "~@3 x ~@4",
})).gain(0.8)

// drums · high tom
const high_tom = s("ht").struct("<~@8 [~@9 x ~@6] ~@29 [~@5 x ~@10] ~@22>").gain(0.56)

// drums · crash
const crash = s("cr").struct("<~ A ~@7 A ~@7 A ~ A ~ A ~ A ~ A ~ B A@2 ~@6 C ~ B D ~@19 E ~>".pickRestart({
  A: "x", B: "x!2", C: "~@7 x", D: "x ~ x!3 ~@3", E: "~@3 x ~@4",
})).gain(0.8)

stack(bass, clavinet, string_ensemble_1, epiano2, epiano2_soft, kick, snare, hihat, low_tom, mid_tom, high_tom, crash)