// Friday on My Mind — Gary Moore
// 170 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 125 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(170/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 · epiano2 · "Ges./Pia"
const epiano2 = note(`<
  ~@4 A@3 ~ B@3 C D@2 E ~ F@3 ~ G@2 H@2 I@2 J ~ K@2 L ~ K@2 M ~ N O P Q@3 R S@2 T@2 U V W X ~ Y Z@2 ~@3 A@3 ~ B@3 C D@2
  E ~ F@3 ~ G@2 H@2 I@2 J ~ K@2 L ~ K@2 M ~ N O P AA@4 AB AC AD AC AE V W X ~ Y Z@2 ~@16
>`.pickRestart({
  A: "[~@8 e4 ~ [e4,f#4]@4 [e4,g4]@6 [g4,b4]@3 ~ [g4,b4]@4 [e4,g4]@2 [f#4,a4]@17 ~]/3", // Esus2 Em G Em F#m
  B: "[~@8 e4 ~ [e4,f#4]@3 ~ [e4,g4]@6 [g4,b4]@3 ~ [g4,b4]@4 [e4,g4]@2 [f#4,a4]@18]/3", C: "[d4,f#4]",
  D: "[~@8 [g4,b4]@2 [a4,c5]@3 ~ [a4,c5]@6 [g4,b4]@3 ~ [g4,b4]@3 ~ [b4,e5]@3 ~]/2", E: "e5@2 [a4,d#5]@3 ~@11, b4 ~@15",
  F: "[~@8 [g4,b4]@2 [a4,c5]@4 [a4,c5]@6 [g4,b4]@3 ~ [g4,b4]@3 ~ [e4,g4] ~ [c4,e4,a4]@8 ~@10]/3", // G Am G Em Am
  G: "[~@8 [c4,a4] ~ [d4,b4]@4 [d4,b4]@5 ~ [e4,c5]@2 ~@2 [e4,c5]@8]/2", // F G C
  H: "[~@8 [f4,d5] ~ [g4,e5]@4 [g4,e5]@5 ~ [a4,f5]@3 ~ [a4,f5]@5 ~@3]/2", // Dm C Dm
  I: "[~@8 [c5,f5]@2 [c5,g5]@3 ~ [c5,g5]@5 ~ [c5,g#5]@3 ~ [c5,g#5]@3 ~ [c5,f5]@3 ~]/2", J: "[c5,e5,g5]@5 ~@11",
  K: "[~@8 [c#5,e5]@2 [d5,f#5]@3 ~ [d5,f#5]@6 [c#5,e5]@3 ~ [c#5,e5]@3 ~ [a4,c#5]@3 ~]/2", // C#m D C#m A
  L: "[c#5,e5] ~ [g#4,f#5]@4 ~@10", M: "[c#5,e5] ~ [g#4,f#5]@3 ~@11", N: "~@8 [d5,f#5]@2 [e5,g5]@5 ~",
  O: "[e5,g5]@4 [d5,f#5]@2 [d5,f#5]@5 ~@5", P: "~@8 a#5@2 b5@5 ~, ~@8 f#5@7 ~",
  Q: "[[f#5,b5]@4 [f#5,a#5]@3 ~ [f#5,a#5]@3 ~ a#5@2 [d5,f#5,b5]@21 ~@9 [e5,g#5]@2 [f#5,a5]@2, ~@12 f#5 ~@35]/3", // B5 F# Bm E F#m
  R: "~@12 [f#5,a5]@3 ~", S: "[[f#5,a5]@4 g#5@2 [d5,f#5]@6 [e5,g#5]@2 [f#5,a5]@13 ~ [f#5,a5]@3 ~, ~@4 e5 ~@27]/2",
  T: "[[f#5,a5]@3 ~ g#5@2 [d5,f#5]@6 [e5,g#5]@2 [f#5,a5]@12 ~@2 [f#5,a5]@2 ~@2, ~@4 e5 ~@27]/2", // F#m D E F#m
  U: "[f#5,a5]@4 g#5@2 [d5,f#5]@4 ~@2 [d5,f#5]@3 ~, ~@4 e5 ~@11", V: "[c#5,e5]@15 ~", W: "c#5, a4@7 ~",
  X: "[g#4,b4]@13 ~@3", Y: "a4@4 b4@4 c5@4 d5@3 ~", Z: "[e5@4 d5@3 ~ d5@4 c5@2 b4@18]/2",
  AA: "[[f#5,b5]@4 [f#5,a#5]@3 ~ [f#5,a#5]@3 ~ a#5@2 [d5,f#5,b5]@21 ~@9 [e5,g#5]@2 [f#5,a5]@4 ~@10 [f#5,a5]@2 ~@2, ~@12 f#5 ~@51]/4", // B5 F# Bm E F#m
  AB: "[f#5,a5]@4 [e5,g#5]@2 [c#5,f#5]@5 ~ [e5,g#5]@2 [f#5,a5]@2", AC: "~@6 [f#5,a5] ~",
  AD: "[f#5,a5]@3 ~ [e5,g#5]@2 [d5,f#5]@2 ~@4 [e5,g#5]@2 [f#5,a5]@2", // F#m E D E F#m
  AE: "[f#5,a5]@3 ~ [e5,g#5]@2 [d5,f#5]@5 ~ [d5,f#5]@4", // F#m E D
})).s("gm_epiano2").gain(0.72)

// chords · percussive organ · "Hammond"
const percussive_organ = note(`<
  ~@12 A ~@6 B C D E F G H I J K@2 L M K N L M O@2 P@2 Q@2 O@2 R@2 O@2 S@2 T@2 U V W@2 ~@10 A ~@6 B C D E F G H I J K@2
  L M K N L M O@2 P@2 Q@2 X@2 Y@2 Z@2 S@2 T@2 U V W@2 ~@14 AA
>`.pickRestart({
  A: "[g6,d7,g7]@3 [a6,b6,c7] [b5,c6,d6,e6,f6,g6] [d5,e5,f5,g5,a5] [b4,c5] a4 ~@8", B: "e6 f6 e6 d6 e6 d6 c6 b5",
  C: "[a3,a4] ~ [a3,a4] ~ [a3,a4,a6] ~ [a3,a4] ~ [a3,a4] ~ [a3,a4] ~ [a3,a4] ~ [a3,a4] ~, a5 ~, ~@2 e6 ~ [e6,b6]@2 [a6,c7]@2", // A E5 Am
  D: "[a3,a4] ~ [a3,a4] ~ [e6,a6]@2 [a3,a4] ~ [a3,a4] ~ [a3,a4] ~ [a3,a4,e6] ~ [a3,a4] ~, ~@4 [a3,a4] ~@3 [e6,b6]@4 [a6,c7]@2 ~@2", // A A5 A A5 A E5 Am
  E: "[d3,d4] ~ [d3,d4] ~ [a6,d7]@2 [d3,d4] ~ [d3,d4] ~ [d3,d4] ~ [d3,d4] ~ [d3,d4] ~, ~@4 [d3,d4] ~@3 [a6,e7]@4 [d7,f7]@4", // D D5 D A5 Dm
  F: "d3@2 [d3,d4] ~ [d3,d4] ~ [d3,d4] ~ d3@2 [d3,d4] ~ [a6,d7,f7]@2 [d3,d4] ~, d4 ~@3 [a6,d7]@4 [a6,e7]@4 ~@4, ~@8 d4 ~@3 [d3,d4,e7] ~@3", // D Dm D D5 A5 Dsus2
  G: "[f3,f4] ~ [f3,f4] ~ [f3,f4] ~ [f3,f4] ~ [f3,f4] ~ [f3,f4] ~ [f7,g#7]@2 [f3,f4] ~, ~@3 [c7,f7]@4 ~ c7@4 [f3,f4] ~@3, ~@4 g7 ~@3", // F Fm F F5 F
  H: "f3@2 [f3,f4] ~ [f3,f4] ~ [f3,f4] ~ [f4,f7] ~ [f3,f4] ~ [f3,c7,f7,g#7]@2 f4 ~, f4 ~@3 [c7,f7]@4 [c7,g7]@4 ~@4, ~@8 f3@2 ~@2 f4 ~@3", // F Fm F5 C5
  I: "[c3,c7,e7,g7]@3 ~ [c3,c4,c7,e7,g7]@3 ~ [g3,g4,g6,d7,g7]@3 ~ g7 c7 [f6,g6,a6,b6] [g5,a5,b5,c6,d6,e6], c4 ~@7 a6 ~@3 [g3,g4,g6,d7]@2 ~@2", // C G5 G7 Cmaj7 G5
  J: "[b4,c5,d5,e5,f5] [g4,a4] ~@14", K: "c#6@2 a5@2 e6@2 a5@2 f#6@2 a5 ~@5", L: "c#6@2 g#5@2 e6@2 g#5@2 f#6@2 g#5 ~@5",
  M: "c#6 g#5 e6 g#5 f#6 g#5 ~@2", N: "c#6@2 a5 ~ e6@2 a5@2 f#6@2 a5 ~@5",
  O: "[d6,f#6,a6] ~ [d6,f#6,a6] ~ [d6,f#6,a6] ~ [d6,f#6,a6] ~ [d6,f#6,a6] ~ [d6,f#6,a6] ~ [d6,f#6,a6] ~ [d6,f#6,a6] ~", // D
  P: "[c#6,f#6,a#6] ~ [c#6,f#6,a#6] ~ [c#6,f#6,a#6] ~ [c#6,f#6,a#6] ~ [c#6,f#6,a#6] ~ [c#6,f#6,a#6] ~ [c#6,f#6,a#6] ~ [c#6,f#6,a#6] ~", // F#
  Q: "[d6,f#6,b6] ~ [d6,f#6,b6] ~ [d6,f#6,b6] ~ [d6,f#6,b6] ~ [d6,f#6,b6] ~ [d6,f#6,b6] ~ [d6,f#6,b6] ~ [d6,f#6,b6] ~", // Bm
  R: "[b5,f#6,a6] ~ [b5,f#6,a6] ~ [b5,f#6,a6] ~ [b5,f#6,a6] ~ [b5,f#6,a6] ~ [b5,f#6,a6] ~ [b5,f#6,a6] ~ [b5,f#6,a6] ~", // B7
  S: "[c#6,e6,a6] ~ [c#6,e6,a6] ~ [c#6,e6,a6] ~ [c#6,e6,a6] ~ [c#6,e6,a6] ~ [c#6,e6,a6] ~ [c#6,e6,a6] ~ [c#6,e6,a6] ~", // A
  T: "[b5,e6,g#6] ~ [b5,e6,g#6] ~ [b5,e6,g#6] ~ [b5,e6,g#6] ~ [b5,e6,g#6] ~ [b5,e6,g#6] ~ [b5,e6,g#6] ~ [b5,e6,g#6] ~", // E
  U: "[a2,a3]", V: "[d3,d4]@15 ~", W: "[[e3,e4]@19 ~@13]/2",
  X: "[c#5,f#5,a5] ~ [c#5,f#5,a5] ~ [c#5,f#5,a5] ~ [c#5,f#5,a5] ~ [c#5,f#5,a5] ~ [c#5,f#5,a5] ~ [c#5,f#5,a5] ~ [c#5,f#5,a5] ~", // F#m
  Y: "[d5,f#5,a5] ~ [d5,f#5,a5] ~ [d5,f#5,a5] ~ [d5,f#5,a5] ~ [d5,f#5,a5] ~ [d5,f#5,a5] ~ [d5,f#5,a5] ~ [d5,f#5,a5] ~", // D
  Z: "[d5,f#5,b5] ~ [d5,f#5,b5] ~ [d5,f#5,b5] ~ [d5,f#5,b5] ~ [d5,f#5,b5] ~ [d5,f#5,b5] ~ [d5,f#5,b5] ~ [d5,f#5,b5] ~", // Bm
  AA: "[a6,e7,a7]@2 d7 [f6,g6,a6,b6,c7] [a5,b5,c6,d6,e6] [d5,e5,f5,g5] [a4,b4,c5] ~@9", // A5 F Am Em7 Am
})).s("gm_percussive_organ").gain(0.36).pan(0.6)

// bass · acoustic bass · "Bass"
const bass = note(`<
  ~@20 A@2 B C D@2 E ~ A@2 F@2 A@2 F@2 C@2 G@2 H@2 C@2 H@2 C@2 A@2 I J K L M ~@19 A@2 B C D@2 E ~ A@2 F@2 A@2 F@2 C@2
  G@2 H@2 G@2 C@2 H@2 A@2 I J K L N ~@3 A@9 O P A Q
>`.pickRestart({
  A: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~", B: "d2@2 d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~",
  C: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~", D: "f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~",
  E: "c2@3 ~ c2@3 ~ g1@3 ~ g1@3 ~", F: "g#1 ~ g#1 ~ g#1 ~ g#1 ~ g#1 ~ g#1 ~ g#1 ~ g#1 ~",
  G: "f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~", H: "b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~",
  I: "e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~", J: "e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2@2", K: "a1", L: "d2", M: "e2",
  N: "e2, d2 ~@15", O: "g#1@2 a1 ~ a1 ~ a1 ~ g#1@2 a1 ~ a1 ~ a1 ~", P: "g#1@2 a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~",
  Q: "a1@3 ~@13",
})).s("gm_acoustic_bass").gain(0.64).pan(0.4)

// chords · lead 2 sawtooth · "Hard Bra"
const lead_2_sawtooth = note("<~@114 A B ~@2 C D ~@2 C E F>".pickRestart({
  A: "~@2 [a2,a3,a4,e5,a5] ~ [a2,a3,a4,e5,a5] ~ [a2,a3,a4,e5,a5] ~ [a2,a3,a4,e5,a5] ~ [g2,g3,g4,d5,g5] ~@3 [c3,c4,c5,g5,c6] ~", // A5 G5 C5
  B: "~ [g2,g3,g4,d5,g5] ~ [a2,a3,a4,e5,a5]@2 ~@3", // G5 A5
  C: "~@2 [a2,a3,a4,e5,a5] ~ [a2,a3,a4,e5,a5] ~ [a2,a3,a4,e5,a5] ~ [a2,a3,a4,e5,a5] ~ [g2,g3,g4,d5,g5]@2 ~@2 [c3,c4,c5,g5,c6] ~", // A5 G5 C5
  D: "~@2 [g2,g3,g4,d5,g5]@2 ~@2 [c3,c4,c5,g5,c6]@2 ~@2 [d3,d5,a5,d6]@2 d4@3 ~", // G5 C5 D5
  E: "~ [g2,g3,g4,d5,g5] ~ [a2,a3,a4,e5,a5]@4 ~", F: "[a2,a3,a4,e5,a5] ~@7",
})).s("gm_lead_2_sawtooth").gain(0.4)

// chords · synth strings 1 · "Fl„che"
const synth_strings_1 = note(`<
  A@6 B@2 C@2 B@2 D@2 E@2 D@2 F@4 G@2 H@2 I@2 J@2 K@2 J@2 K@2 L@2 M@2 N@2 L@2 O@2 L@2 P@2 Q@2 R S T@2 U@4 B@2 C@2 B@2
  D@2 E@2 D@2 F@4 G@2 H@2 I@2 J@2 K@2 J@2 K@2 L@2 M@2 N@2 V@2 W@2 O@2 P@2 Q@2 R S T@2 X Y Z@8 ~ AA@4
>`.pickRestart({
  A: "[e3,g3,b3]/6", B: "[d3,f#3,a3]/2", C: "[e3,g3,b3]/2", D: "[d3,g3,b3]/2", E: "[d#3,f#3,b3]/2", F: "[e3,a3,c4]/4",
  G: "[a3,d4,f4]/2", H: "[g#3,c4,f4]/2", I: "[[c3,c4]@4 [c3,c4]@4 [g2,g3]@4 [g2,g3]@7 ~@13]/2", J: "[a3,c#4,e4]/2",
  K: "[g#3,c#4,e4]/2", L: "[a3,d4,f#4]/2", M: "[a#3,c#4,f#4]/2", N: "[d3,f#3,b3]/2", O: "[b3,d4,f#4]/2",
  P: "[c#4,e4,a4]/2", Q: "[b3,e4,g#4]/2", R: "[a2,a3]", S: "[d2,d3]", T: "[e2,e3]/2", U: "[e3,g3,b3]/4",
  V: "[f#4@15 ~, c#4 ~@15]/2", W: "[[a3,d4,f#4]@15 ~]/2", X: "[e2,e3]", Y: "[g2,g3] [g#2,g#3]",
  Z: "[~@3 a4, [e3,a3,c4]]/8", AA: "[~@48 a5@5 ~@11, c5@53 ~@11, ~@8 e5@19 ~@5]/4",
})).s("gm_synth_strings_1").gain(0.28)

// drums · kick
const kick = s("bd").struct("<~@20 A@6 ~@2 A@24 ~@6 A@22 ~@2 A@24 ~@4 A@14 B>".pickRestart({
  A: "x!2 ~@2 x!2 ~@2", B: "x",
})).gain(0.48)

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

// drums · low tom
const low_tom = s("lt").struct("<~@10 A@2 ~@99 B ~ C ~@2 D C ~ B E C ~ B F>".pickRestart({
  A: "~@2 x!2 ~@2 x!2", B: "~@7 x", C: "~@6 x!2", D: "x!2 ~ x!3 ~ x", E: "x!2 ~@6", F: "x",
})).gain(0.48)

// drums · hihat
const hihat = s("hh").struct("<~@20 A@6 ~@2 A@24 ~@6 A@22 ~@2 A@24 ~@4 A@14 B>".pickRestart({
  A: "x!8", B: "x",
})).gain(0.48)

// drums · mid tom
const mid_tom = s("mt").struct("<~@111 A ~@5 B ~@3 B ~ A ~>".pickRestart({
  A: "~@3 x", B: "~@4 x!2 ~@2",
})).gain(0.48)

// drums · high tom
const high_tom = s("ht").struct("<~@10 A@2 ~@99 B ~ B ~@3 C ~@3 D ~ B ~>".pickRestart({
  A: "x!2 ~@2 x!2 ~@2", B: "~@5 x ~@2", C: "x!4 ~@4", D: "x!2 ~ x ~@4",
})).gain(0.48)

// drums · tambourine
const tambourine = s("tb").struct("<[x!8]!20 ~@36 [x!8]!18 ~@51>").gain(0.3)

stack(
  epiano2, percussive_organ, bass, lead_2_sawtooth, synth_strings_1, kick, snare, low_tom, hihat, mid_tom, high_tom,
  tambourine
)