// Money's Too Tight (to Mention) — Simply Red
// 114 bpm, 4/4, key B minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 6 slap bass 1 (copy of ch 1 fretless bass)
// note: Full arrangement: all 143 bars on a 32-step grid, each part at one level. Source detail keeps the original performance.
setcpm(114/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(`<
  A B C D E F G D E B C D E F G D E B H D E F G D E B C D E F G D E B C D E B C D E F G D E I J K L I J K M F G D E B N
  O P ~@8 Q R S T Q R S U V N O P W X O P V N O P W X O Y Q R S T Q R S U V N O P W X O P V N O P W X O P V N O P W X O
  P ~@8 Q R S T Q R S U Z@2
>`.pickRestart({
  A: "~@10 f#3 ~ b3 d4 b3 a3, ~@11 a3@2 ~@3", B: "[b2,b3,d4,f#4]@13 ~@3",
  C: "[e3,a3,c#4]@5 ~ [e3,a3,c#4]@5 ~ [b3,d4,f#4]@19 ~", D: "[a3,d4,f#4]@6 [b3,d4,g4]@9 ~",
  E: "[b3,d4,g4]@2 ~@2 [b3,g4]@4 [a3,f#4]@7 ~ [b3,d4,g4]@7 ~ [a3,c#4,e4]@7 ~, ~@4 d4@11 ~@17", F: "[b3,d4,f#4]@25 ~@7",
  G: "[a3,c#4,e4]@5 ~ [a3,c#4,e4,a4]@5 ~ [b3,d4,f#4]@18 ~@2", H: "[e3,a3,c#4]@5 ~ [e3,a3,c#4]@5 ~ [b2,b3,d4,f#4]@19 ~",
  I: "[d4,f#4,a4]@31 ~, a3@25 ~@7", J: "[g#3,d4,f#4,g#4,b4]", K: "[b3,d4,g4]@15 ~",
  L: "[g4,b4]@6 ~@2 [f#3,a4,c#5]@6 ~@2 [b4,d5]@6 ~@2 [g4,b4]@5 ~@3, e3 ~ g3 ~", // G F#m Bm G
  M: "~@4 [f#3,a#3,f#4,a#4]@2 ~@2 [c#4,f#4,a#4]@4 ~@8 [c#4,f#4,a#4]@2 ~@2 [c#4,f#4,a#4]@5 ~@3, ~@4 c#4 ~@27", // F#
  N: "~ [e3,a3,c#4]@5 ~ [e3,a3,c#4]@5 ~ [b3,d4,f#4]@19", O: "~ [a3,d4,f#4]@12 [b3,d4,g4]@18 ~",
  P: "~ [b3,d4,g4]@2 ~@2 [b3,g4]@4 [a3,f#4]@7 ~ [b3,d4,g4]@7 ~ [a3,c#4,e4]@7, ~@5 d4@11 ~@16", // G Em D G A
  Q: "~ [d4,f#4,a4]@31, ~ a3@25 ~@6", R: "~ [g#3,d4,f#4,g#4,b4]@31", S: "~ [b3,d4,g4]@30 ~",
  T: "~ [g4,b4]@6 ~@2 [f#3,a4,c#5]@6 ~@2 [b4,d5]@6 ~@2 [g4,b4]@5 ~@2, ~ e3@8 ~@8 g3@8 ~@7", // G F#m Bm G
  U: "~@5 [f#3,a#3,f#4,a#4]@2 ~@2 [c#4,f#4,a#4]@4 ~@8 [c#4,f#4,a#4]@2 ~@2 [c#4,f#4,a#4]@5 ~@2, ~@5 c#4 ~@26", // F#
  V: "~ [b2,b3,d4,f#4]@26 ~@5", W: "~ [b3,d4,f#4]@25 ~@6", X: "~ [a3,c#4,e4]@5 ~ [a3,c#4,e4,a4]@5 ~ [b3,d4,f#4]@18 ~",
  Y: "~ [b4,d5,g5]@2 ~@2 [b4,g5]@4 [a4,f#5]@7 ~ [b4,d5,g5]@7 ~ [a4,c#5,e5]@7, ~@5 d5@11 ~@16", // G Em D G A
  Z: "[~ [b2,b3,d4,f#4]@26 ~@4 [b2,f#4,b4,d5]@8 ~@25]/2", // Bm
})).s("gm_piano").gain(0.36)

// chords · piano
const piano_2 = note("<~@125 A B@8 ~@9>".pickRestart({
  A: "~ [b4,b5]@31", // B
  B: "[~ [c#5,c#6]@16 ~@16 [g5,b5]@59 ~@5 b5@32 [c#5,c#6]@16 ~@16 [g5,b5]@63 ~@32, ~@17 d5@80 b4@35 ~@13 [d5,d6]@81 ~@30, ~@17 d6@76 ~@163]/8", // C# G C# G D
})).s("gm_piano").gain(0.4)

// bass · fretless bass
const bass = note(`<
  A B C D E F G H E B C D E F G H E B C D E F G H E B C D E F G H E B C D E B C D E F G H I J K L M N K O P B C D E Q@2
  R@4 S@4 T@2 U@2 V W X@2 Y Z AA@2 AB@4 AC AD@3 AB@4 AC AE U@2 V W X@2 Y Z AA@2 AB@4 AC AD@3 AB@4 AC AD@3 AB@4 AC AF
  AG@2 AH@2 AI@2 T@2 U@2 V W X@2 Y Z AJ@2
>`.pickRestart({
  A: "~@10 f#2 ~ b2 d3 b2 a2, ~@11 a2@2 ~@3", B: "b1 ~ b1@4 a1@2 b1 ~@6 a1",
  C: "b1@2 ~@2 b1@4 c#2 ~@3 c#2@4 d2@2 ~@2 d2@2 ~@2 f#2@8", D: "e2 ~@3 e2@8 d2@4 e2@3 ~@11 e2@2",
  E: "e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@2 ~@2 a1@4", F: "b1@2 ~@2 b1@7 ~ a1@4 b1@3 ~@11 a1@2",
  G: "b1@2 ~@2 b1@4 c#2@2 ~@2 c#2@3 ~ d2@2 ~@2 d2@2 ~@2 f#2@8", H: "e2 ~@3 e2@8 d2@4 e2@2 ~@12 e2 ~",
  I: "e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@7 ~", J: "a1@9 ~@3 a1@2 ~@14 a2@2 a1@2",
  K: "g#1@9 ~@3 g#1@5 ~@3 g#1 ~@7 g#1@4", L: "g1@5 ~ g1 ~@7 g1@2", M: "e1@8 f#1@7 ~ g1@7 ~ e1@7 ~",
  N: "a1@11 ~ a1@2 ~@14 a2@2 a1@2", O: "g1@10 ~@2 g1@3 ~@17", P: "~@2 f#1 ~ f#1@2 ~@4 f#1 ~ f#1@2 ~@2",
  Q: "[b1@2 ~@2 b1@8 a1@4 b1@2 ~@13 a1@2 b1@2 ~@2 b1@4 c#2 ~@3 c#2@4 d2@2 ~@2 d2@2 ~@2 f#2@7]/2",
  R: "[~ e2 ~@3 e2@8 d2@4 e2@3 ~@11 e2@2 e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@2 ~@2 a1@5 ~@3 b1@2 ~@2 a1@8 b1@3 ~@9 a1@2 a#1@2 b1 ~@3 b1@4 c#2 ~@3 c#2@3 ~ d2@2 ~@2 d2@2 ~@2 f#2@6 ~]/4",
  S: "[~@5 e1@2 ~@2 d1@8 e1@4 ~@8 d1@2 d#1@2 e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@2 ~@2 a1@5 ~@3 b1@2 ~@2 a1@8 b1@3 ~@9 a1@2 a#1@2 b1 ~@3 b1@4 c#2 ~@3 c#2@3 ~ d2@2 ~@2 d2@2 ~@2 f#2@6 ~]/4",
  T: "[~@5 e1@2 ~@2 d1@8 e1@4 ~@8 d1@2 d#1@2 e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@2 ~@2 a1@3]/2",
  U: "[~ a1@9 ~@3 a1@2 ~@14 a2@2 a1@2 g#1@9 ~@3 g#1@5 ~@3 g#1 ~@7 g#1@3]/2", V: "~ g1@10 ~@2 g1@2 ~@14 g1@3",
  W: "~ e1@8 f#1@7 ~ g1@7 ~ e1@7", X: "[~ a1@11 ~ a1@2 ~@14 a2@2 a1@2 g#1@9 ~@3 g#1@5 ~@3 g#1 ~@7 g#1@3]/2",
  Y: "~ g1@10 ~@2 g1@3 ~@16", Z: "~@5 f#1@2 ~@2 f#1@4 ~@8 f#1@2 ~@2 f#1@4 ~@3",
  AA: "[~ b1@2 ~@2 b1@8 a1@4 b1@2 ~@12 a1@2 b1@2 ~@2 b1@4 c#2 ~@3 c#2@4 d2@2 ~@2 d2@2 ~@2 f#2@7]/2",
  AB: "[~ e2 ~@3 e2@8 d2@4 e2@3 ~@11 e2@2 e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@2 ~@2 a1@4 b1@2 ~@2 b1@7 ~ a1@4 b1@3 ~@11 a1@2 b1@2 ~@2 b1@4 c#2@2 ~@2 c#2@3 ~ d2@2 ~@2 d2@2 ~@2 f#2@7]/4",
  AC: "~ e2 ~@3 e2@8 d2@4 e2@2 ~@12 e2",
  AD: "[~ e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@2 ~@2 a1@4 b1@2 ~@2 b1@8 a1@4 b1@2 ~@12 a1@2 b1@2 ~@2 b1@4 c#2 ~@3 c#2@4 d2@2 ~@2 d2@2 ~@2 f#2@7]/3",
  AE: "~ e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@2 ~@2 a1@3",
  AF: "~ e1 ~@3 e1@4 f#1@2 ~@2 f#1@4 g1@2 ~@2 g1@2 ~@2 a1@7",
  AG: "[~ b1 ~@3 b1@7 ~ a1@4 b1@3 ~@9 a1@2 a#1@2 b1@2 ~@2 b1@4 c#2 ~@3 c#2@4 d2@2 ~@2 d2@2 ~@2 f#2@6 ~]/2",
  AH: "[~@5 e1@2 ~@2 d1@8 e1@4 ~@8 d1@2 d#1@2 e1@2 ~@2 e1@4 f#1 ~@3 f#1@3 ~ g1@2 ~@2 g1@3 ~ a1@6 ~]/2",
  AI: "[~@5 b1@2 ~@2 a1@8 b1@3 ~@9 a1@2 a#1@2 b1 ~@3 b1@4 c#2 ~@3 c#2@3 ~ d2@2 ~@2 d2@2 ~@2 f#2@6 ~]/2",
  AJ: "[~ b1@2 ~@2 b1@8 a1@4 b1@2 ~@12 b1@8 ~@25]/2",
})).s("gm_fretless_bass").gain(0.4).pan(0.1)

// drums · rim
const rim = s("rim").struct("<[x!4] ~@142>").gain(0.3)

// drums · kick
const kick = s("bd").struct("<~ A@51 B A@4 C D@18 E D@23 E D@39 E F ~>".pickRestart({
  A: "x!4", B: "~ x!2 ~@2 x!2 ~", C: "x ~@7 x ~@7 x ~@8 x ~@6", D: "~ x ~@7 x ~@7 x ~@7 x ~@6",
  E: "~@5 x ~@3 x ~@11 x ~@3 x ~@6", F: "~ x ~@3 x ~@7 x ~@3 x ~@13 x",
})).gain(0.35)

// drums · snare
const snare = s("sd").struct("<~ A@44 ~@7 B A@4 C D@11 ~@7 E D@16 ~@7 E D@15 F D@16 ~@7 E G ~>".pickRestart({
  A: "~ x ~ x", B: "~ x!2 ~@2 x!2 ~", C: "~@8 x ~@16 x ~@6", D: "~@9 x ~@15 x ~@6", E: "~@5 x ~@3 x ~@11 x ~@3 x ~@6",
  F: "~@9 x ~@15 x ~@3 x ~ x", G: "~@17 x ~@13 x",
})).gain(0.45)

// drums · low tom
const low_tom = s("lt").struct("<~@61 [~ x ~@30]!8 ~@56 [~ x ~@30]!8 ~@10>").gain(0.35)

// drums · hihat
const hihat = s("hh").struct(`<
  ~
  [x!8]!56
  [x ~@3 x ~@3 x ~@3 x ~@3 x ~@4 x ~@3 x ~@3 x ~@2]
  [~ x ~@3 x ~@3 x ~@3 x ~@3 x ~@3 x ~@3 x ~@3 x ~@2]!83
  [~@9 x ~ x ~ x ~ x ~@8 x!7 ~]
  ~
>`).gain(0.3)

// drums · mid tom
const mid_tom = s("mt").struct("<~@61 [~ x ~@30]!8 ~@56 [~ x ~@30]!8 ~@10>").gain(0.35)

// drums · open hat
const open_hat = s("oh").struct("<~@141 [~@13 x ~@7 x ~@7 x ~@2] ~>").gain(0.35)

// drums · high tom
const high_tom = s("ht").struct("<~@61 [~ x ~@30]!8 ~@56 [~ x ~@30]!8 ~@10>").gain(0.35)

// drums · crash
const crash = s("cr").struct(`<
  ~ A ~@19 A ~@3 A ~@11 A ~@3 A ~@3 A ~@3 A ~@2 B A ~@15 C ~@3 C ~@2 D C ~@15 C ~@3 C ~@2 D C ~@7 C ~@6 E C ~@3 C ~@11 C
  ~@3 C ~@2 D F ~
>`.pickRestart({
  A: "x", B: "~@3 x", C: "~ x ~@30", D: "~@25 x ~@6", E: "~@31 x", F: "~@5 x ~@11 x ~@13 x",
})).gain(0.4)

stack(piano, piano_2, bass, rim, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash)