// Yesterday Man — Chris Andrews
// 120 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: bank select 127 (Roland MT-32 map) read through the MT-32 patch table: 
// note: Full arrangement: all 72 bars on a 16-step grid, each part at one level. 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 · electric bass finger
const bass = note(`<
  ~@3 A B C D E F G H I J@2 K L M K N O M P@2 Q R S T U V C D@2 F@2 H D W X K N M@2 N Y Z K AA AB AC AD AE AF V C D AG
  F@2 H D AH AI AJ AK K AI AL AM AN@2 AO AP
>`.pickRestart({
  A: "g1 ~ g1 ~ g1 ~ g1 ~", B: "g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~", C: "c2@3 ~@13", D: "f1 ~ f1 ~ f1 ~ a1 c2",
  E: "f1@2 ~@2 f1@2 ~@2 f1@2 ~@2 f1@2 c2 ~", F: "c2 ~ c2 ~ c2 ~ e2 g2", G: "c2@2 ~@2 c2@2 ~@2 c2@2 ~@2 e2@2 g2 ~",
  H: "f1@3 ~ f1@2 ~@2 f1@2 ~@2 a1@2 c2@2", I: "f1@2 ~@2 f1@2 ~@2 f1@2 ~@2 a1@2 c2 ~",
  J: "[c2@2 ~@2 c2@2 ~@2 c2@2 ~@2 e2@2 ~@2 g1 ~@3 g1@2 ~@2 g1@2 ~@2 b1@2 d2@2, ~@7 g2@2 ~@7]/2",
  K: "c2@2 ~@2 c2@2 ~@2 c2@2 ~@2 c2 ~ c2@2", L: "g1@2 ~@2 g1@2 ~@2 g1 ~ g1 ~ g1 ~ g1 ~", M: "c2 ~ c2 ~ c2 ~ c2 ~",
  N: "g1@2 ~@2 g1@2 ~@2 g1@2 ~@2 g1 ~ g1@2", O: "c2@3 ~ c2@2 ~@2 c2@2 ~@2 c2@2 ~@2",
  P: "[c2@2 ~@2 c2@2 ~@2 c2@2 ~@2 c2@2 ~@2 g1 ~@3 g1@2 ~@2 g1@3 ~ g1 ~ g1@2, ~@14 g2@5 ~@13]/2",
  Q: "c2@3 ~ c2@3 ~ c2@4 d2@2 e2@2", R: "f2@2 ~@2 f2@3 ~ f2@3 ~ f2 ~ f2@2", S: "c2@2 ~@2 c2@2 ~@2 c2@3 ~ c2 ~ c2@2",
  T: "f1@3 ~ f1@3 ~ f1@3 ~ f1 ~ f1@2", U: "g1@2 ~@2 g1@2 ~@2 g1@3 ~ g1@3 ~",
  V: "g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1@2", W: "c2@3 ~ c2@2 ~@2 c2@2 ~@2 c2@2 e2@2",
  X: "g1@2 ~@2 g1@2 ~@2 g1@2 ~@2 g1@2 d2 ~", Y: "c2@2 ~@2 c2 ~@3 c2 ~@3 c2 ~ c2@2", Z: "c2 ~ c2 ~ c2 ~ c2 g2",
  AA: "g1@3 ~ g1@2 ~@2 g1@2 ~@2 g1 ~ g1@2", AB: "c2@3 ~ c2@2 ~@2 c2@3 ~ c2 ~ c2@2",
  AC: "f2@2 ~@2 f2@2 ~@2 f2@2 ~@2 f2@3 ~", AD: "c2@3 ~ c2@3 ~ c2@2 ~@2 c2 ~ c2@2", AE: "f1@3 ~ f1@2 ~@2 f1@3 ~ f1@3 ~",
  AF: "g1@2 ~@2 g1@3 ~ g1@3 ~ g1@3 ~", AG: "f1 ~ f1 ~ f1 ~ f1!2", AH: "c2@3 ~@5 c2@2 ~@2 c2 ~ c2@2",
  AI: "g1 ~ g1 ~ g1 ~ g1 g2", AJ: "c2@3 ~ c2@2 ~@2 c2@2 ~@2 c2@2 c2@2",
  AK: "g1@2 ~@2 g1@2 ~@2 g1@2 ~@2 g1 ~@3, ~@5 g2@2 ~", AL: "c2@3 ~ c2@3 ~ c2@2 ~@2 e2@2 g2@2",
  AM: "g1@3 ~ g1@2 ~@2 g1@2 ~@2 g1 ~ g2@2, ~@5 g2@2 ~",
  AN: "[c2@2 ~@2 c2@3 ~ c2@3 ~ e2@2 ~@2 g1 ~@3 g1@2 ~@2 g1@2 ~@2 g1@2 g2@2, ~@14 g2@5 ~@13]/2",
  AO: "c2@3 ~ c2@2 ~@2 c2@2 ~@2 e2@2 g2@2", AP: "c2@5 ~@3",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · synth strings 1 · "Fl„che"
const synth_strings_1 = note("<~@3 A@3 B@6 C@6 D@4 E F@4 G@2 H I@6 J@7 K@3 L F@4 G@2 M I@6 N@8 O L P@2>".pickRestart({
  A: "[~@4 g4@4 [c4,e4] ~@3, g3@35 ~@13]/3", B: "[[f4,a4]@31 ~ e4@32 [f4,a4]@32, c4, ~@31 g4@33 ~@32]/6",
  C: "[e4@16 d4@16 e4@15 ~ d4@16 e4@32, g4, ~@16 b3@14 ~@2 c4@14 ~ b3@14 ~@3 c4@29 ~@3]/6",
  D: "[[b3,f4]@13 ~@2 [c4,e4]@49, d4@15 ~@49]/4", E: "~@3 f4@5, [b3,d4]", F: "[e4 [f4,a4] [e4,g4] [f4,a4], c4@63 ~]/4",
  G: "[[d4,g4], b3@15 ~]/2", H: "[c4,e4]@3 ~@13", I: "[[f4,a4] [e4,g4] [f4,a4], c4]/6",
  J: "[e4 d4 e4 [b3,d4] [c4,e4]@2 d4, g4, ~@8 b3@7 ~ c4@7 ~@25 b3@7 ~]/7", K: "[c4,e4]/3", L: "[b3,d4]",
  M: "[c4,e4]@3 ~@5", N: "[e4 d4 [c4,e4] [b3,d4] e4 [b3,d4] [c4,e4] d4, g4, ~@8 b3@7 ~@17 c4@7 ~@17 b3@7 ~]/8",
  O: "e4, c4@7 ~", P: "[~@8 c5 ~@7, [c4,e4]@9 ~@7]/2",
})).s("gm_synth_strings_1").gain(0.05)

// chords · piano
const piano = note(`<
  A ~@2 B C D E@2 F@2 E@2 F G F H F@2 I F@3 I F E F E J K L E@2 F@2 E@2 F I F I F@2 I F@3 I F E F E M K N E@2 O F E@2 F
  I F I F P F I F I F Q
>`.pickRestart({
  A: "c#-1", B: "[g3,b3] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3, d4 ~@7",
  C: "[g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~", // G
  D: "[g3,e4] ~@7, c4 ~@15", E: "~@2 [a3,c4,f4] ~@3 [a3,c4,f4] ~@3 [a3,c4,f4] ~@3 [a3,c4,f4] ~",
  F: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 [g3,c4,e4] ~", // C
  G: "~@2 [g3,b3,f4] ~@3 [g3,b3,f4] ~@3 [g3,b3,f4] ~@3 [g3,b3,f4] ~", // G7
  H: "~@2 [g3,b3,d4] ~@3 [f3,g3,b3,d4] ~@3 [f3,g3,b3,d4] ~@3 [g3,b3,d4] ~", // G G7 G
  I: "~@2 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~", // G
  J: "[g3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3, b3 ~@7", // G5 G
  K: "[g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4] ~", // G
  L: "[g3,c4,e4] ~@15", M: "[g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3", N: "[g3,c4,e4] ~@7",
  O: "~@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~@3 g#5@2 ~@2 [g3,c4,e4] ~, ~@10 e4 ~@5", // C
  P: "~@2 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~", Q: "[g3,c4,e4]@9 ~@7",
})).s("gm_piano").gain(0.4)

// chords · electric guitar clean · "E-Guitar"
const electric_guitar_clean = note(`<
  ~@3 A B C D@2 E@2 D@2 E F E G E@2 H E@3 H E D E D I J K D@2 E@2 D@2 E H E H E@2 H E@3 H E D E D I J C D@2 E@2 D@2 E H
  E H E L E H E H E M
>`.pickRestart({
  A: "[b3,d4]@2 ~@2 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3", // Bm
  B: "[b3,d4] ~ [b3,d4] ~ [b3,d4] ~ [b3,d4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~", C: "[c4,e4] ~@7",
  D: "~@2 [c4,f4] ~@3 [c4,f4] ~@3 [c4,f4] ~@3 [c4,f4] ~", E: "~@2 [c4,e4] ~@3 [c4,e4] ~@3 [c4,e4] ~@3 [c4,e4] ~",
  F: "~@2 [b3,f4] ~@3 [b3,f4] ~@3 [b3,f4] ~@3 [b3,f4] ~", G: "~@2 [b3,d4] ~@3 [g3,b3,d4] ~@3 [g3,b3,d4] ~@3 [b3,d4] ~",
  H: "~@2 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~", I: "[b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3",
  J: "[b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~", // G
  K: "[c4,e4] ~@15", L: "~@2 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~ [b3,d4] ~ [b3,d4] ~", M: "[c4,e4]@9 ~@7",
})).s("gm_electric_guitar_clean").gain(0.25)

// other · tenor sax · "Sax"
const tenor_sax = note(`<
  ~@3 A B C D E F@2 G@2 H I J@2 K L M N L K O N P L Q R B C G S@2 F G T@3 U@2 K L M V K@2 M L P L Q W B C G X@2 F G E
  Y@2 Z@2 AA@2 AB@2 AC@2 AD AE
>`.pickRestart({
  A: "g3 ~@3 g3 ~@3 g3 ~@3 g3 ~@3", B: "g3 ~ g3 ~ g3 ~ g3 ~ g3 ~ g3 ~ g3 ~ g3 ~", C: "c3 ~@7",
  D: "f3@2 ~@2 f3@2 ~@2 f3@2 ~@2 g#3 [g#3,a3] c4@2", E: "f3@2 ~@2 f3@2 ~@2 f3@2 ~@2 g#3 a3 c4@2, ~@14 a#3 ~",
  F: "c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 e3 g3@2", G: "f3@2 ~@2 f3@2 ~@2 f3@2 ~@2 g#3 a3 c4@2",
  H: "c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 [d#3,e3] g3@2", I: "g3@2 g3 ~ g3@2 ~@2 g3@2 ~@2 a#3 b3 d4 ~",
  J: "[c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 e3 ~@2 g2 ~@3 g2@2 ~@2 g2@2 ~@2 g2@2 ~@2, ~@7 g3@2 ~@7]/2",
  K: "c3 ~@3 c3 ~@3 c3 ~@3 d#3 e3 g3 ~", L: "c3 ~@3 c3 ~@3 c3 ~@3 d#3 e3 g3@2", M: "g2 ~@3 g2 ~@3 g2 ~@3 a#2 b2 d3@2",
  N: "c3 ~@3 c3 ~@3 c3 ~@3 d#3 [d#3,e3] g3@2", O: "f#2 ~@3 g2 ~@3 g2 ~@3 a#2 b2 d3@2",
  P: "f3 ~@3 f3 ~@3 f3 ~@3 g#3 a3 c4 ~", Q: "f3 ~@3 f3 ~@3 f3 ~@3 g#3 a3 c4@2", R: "g2 ~@3 g2 ~@3 g2 ~@3 g2@2 ~@2",
  S: "[f3 ~@3 f3@2 ~@2 f3@2 ~@2 g#3 a3 a#3 ~ c3 ~@3 c3@2 ~@2 c3@2 ~@2 d#3 [d#3,e3] g3@2, ~@7 c4@2 ~@7]/2", // Emaj7
  T: "[f3@2 ~@2 f3@2 ~@2 f3@2 ~@2 g#3 a3 ~@2 c3 ~@3 c3@2 ~@2 c3@2 ~@2 d#3 [d#3,e3] ~@2 g2 ~@3 g2@2 ~@2 g2@2 ~@2 a#2 b2 d3@2, ~@7 c4@2 ~@6 g3@2 ~@7]/3", // Emaj7
  U: "[c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 e3 ~@2 g2 ~@3 g3@2 ~@2 g3@2 ~@2 g3@2 ~@2, ~@7 g3@2 ~@7]/2",
  V: "g2 ~@3 c3 ~@3 c3 ~@3 d#3 e3 g3@2", W: "g3 ~@3 g2 ~@3 g2 ~@3 g2 ~@3",
  X: "[f3@2 ~@2 f3@2 ~@2 f3@2 ~@2 g#3 a3 ~@2 c3 ~@3 c3@2 ~@2 c3@2 ~@2 d#3 e3 g3@2, ~@7 c4@2 ~@7]/2",
  Y: "[c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 [d#3,e3] ~@2 g2 ~@3 g2@2 ~@2 g2@2 ~@2 a#2 [a#2,b2] d3@2, ~@7 g3@2 ~@7]/2", // Emaj7 Bmaj7
  Z: "[c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 [d#3,e3] ~@2 g2 ~@3 g2@2 ~@2 g2@2 ~@2 a#2 b2 d3@2, ~@7 g3@2 ~@7]/2", // Emaj7
  AA: "[c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 e3 ~@2 g2 ~@3 g2@2 ~@2 g2 ~@3 a#2 [a#2,b2] d3@2, ~@7 g3@2 ~@7]/2", // Bmaj7
  AB: "[c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 e3 ~@2 g2 ~@3 g2@2 ~@2 g2@2 ~@2 a#2 b2 d3@2, ~@7 g3@2 ~@7]/2",
  AC: "[c3@2 ~@2 c3@2 ~@2 c3@2 ~@2 d#3 e3 ~@2 g2 ~@3 g2 ~@3 g2@2 ~@2 a#2 b2 d3@2, ~@7 g3@2 ~@7]/2",
  AD: "c3 ~@3 c3@2 ~@2 c3@2 ~@2 d#3 e3 g3@2", AE: "c4 ~@7, c3 ~@15",
})).s("gm_tenor_sax").gain(0.3)

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

// drums · snare
const snare = s("sd").struct(`<
  ~@3 A B C A@2 D E A F A D A G D@3 A D H D I D F D J K C A L A D A L D A D M D A D H D N D O D A L P Q C L A R S A H@2
  T D U S M S V S W@2 ~
>`.pickRestart({
  A: "x ~@3 x ~@3 x ~@2 x!2 ~ x ~", B: "x ~@3 x ~@2 x!2 ~ x ~ x ~ x ~", C: "x", D: "x!4",
  E: "x ~@3 x ~@2 x!2 ~ x ~ x ~ x!2", F: "x ~@3 x ~@3 x ~@3 x ~ x!2", G: "x ~@3 x ~@3 x ~ x!3 ~ x ~",
  H: "x ~ x!3 ~ x ~", I: "x ~@2 x!2 ~ x ~ x ~@2 x!2 ~ x ~", J: "x ~@2 x!2 ~ x ~ x!2 ~ x!2 ~ x ~",
  K: "x!2 ~ x!2 ~ x!2 ~ x!2 ~ x!2 ~@2", L: "x ~ x ~ x ~ x!2", M: "x ~@3 x ~@2 x!2 ~ x ~ x!2 ~ x", N: "x ~ x ~ x!4",
  O: "x ~@3 x ~@2 x!2 ~ x ~ x!4", P: "x ~ x ~ x ~@2 x!2 ~ x ~ x ~ x!2", Q: "x ~ x ~ x!2 ~ x!2 ~ x!3 ~@3",
  R: "x ~ x!3 ~ x!2", S: "x ~ x ~ x!3 ~", T: "x ~@3 x ~ x!3 ~@3 x ~ x ~", U: "x ~@3 x ~@2 x!2 ~ x ~ x!2 ~@2",
  V: "x ~@3 x ~@3 x ~ x!3 ~ x!2", W: "x ~@3 x ~ x!3 ~ x ~ x!2 ~ x",
})).gain(0.25)

// drums · hihat
const hihat = s("hh").struct("<~@3 A B C B@23 C B@10 D B@12 C B@17 C>".pickRestart({
  A: "x!3 ~ x!3 ~", B: "x!8", C: "x", D: "x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~",
})).gain(0.15)

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

// drums · tambourine
const tambourine = s("tb").struct("<~@6 A@13 B A@8 C D A@22 E D A@5 B A@2 F A@8 D>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~ x!3", C: "~ x", D: "x", E: "~ x ~ x!2 ~ x ~", F: "~ x ~ x!3 ~ x",
})).gain(0.2)

stack(bass, synth_strings_1, piano, electric_guitar_clean, tenor_sax, kick, snare, hihat, crash, tambourine)