// Loverboy — Billy Ocean
// 108 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 119 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(108/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(`<
  ~@25 A@2 B@2 C D@2 ~@8 E@2 F@2 G@2 H@2 I@2 J@2 A@2 B@2 C K@2 ~@8 L M N O L P N Q I@2 R@2 G@2 R@2 A@2 B@2 C S@2 ~@16 T
  U V U V U V U V U V U W
>`.pickRestart({
  A: "[[d4,f#4,a4]@31 ~]/2", B: "[[d4,f#4,b4]@31 ~]/2", C: "[d4,f#4,a4]@15 ~", D: "[[e4,g#4,b4]@25 ~@7]/2",
  E: "[[f#4,a4,c#5]@31 ~]/2", F: "[[e4,g#4,b4]@31 ~]/2", G: "[f#3,a3,c#4]/2", H: "[e3,g#3,b3]/2",
  I: "[[f#3,a3,c#4]@31 ~]/2", J: "[[e3,g#3,b3]@15 ~]/2", K: "[[e4,g#4,b4]@3 ~]/2", L: "~@3 f#4, ~@12 f4 ~@3",
  M: "~ f#4 ~ f#4, ~@4 f4 ~@7 f4 ~@3", N: "~@3 e4, ~@12 d#4 ~@3", O: "~ e4 ~ e4, ~@4 d#4 ~@7 d#4 ~@3",
  P: "~@4 f#4@4 ~@4 f#4@3 ~, ~@4 f4 ~@7 f4 ~@3", Q: "~@2 e4@2 ~@2 e4 ~, ~@4 d#4 ~@7 d#4 ~@3", R: "[[e3,g#3,b3]@31 ~]/2",
  S: "[[e4,g#4,b4]@23 ~@9]/2", T: "[f#4,a4,c#5]@15 ~", U: "[f#4,a4,d5]@7 ~ [g#4,b4,e5]@7 ~", V: "[a4,c#5,f#5]@15 ~",
  W: "[a4,c#5,e5] ~@7", // A
})).s("gm_piano").gain(0.3).pan(0.7)

// bass · piano
const bass = note(`<
  ~@5 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B C D E F G H I@2 J K L M N M O P Q R S B A@2 S@2 A R B T U E F V W X Y Z M L
  M N K AA AB AC ~ AD ~ AC ~ AD ~ AE A B@2 A@2 B@2 U E F AF U I@2 J M J M N K AG M AH K L M J M N P AI AJ AK AJ AK AJ AK
  AJ AK AJ AK AJ AL
>`.pickRestart({
  A: "f#1@2 ~@2 c#2@2 ~@2 f#2@2 ~@2 b1 c#2 e2@2", B: "e1@2 ~@2 b1@2 ~@2 e2@2 ~@2 b1 c#2 e2@2",
  C: "e1@3 ~ b1@2 ~@2 e2@2 ~@2 b1 c#2 e2 ~", D: "d1@4 ~@2 d1 ~ d1@6 ~@2", E: "d1@5 ~ d1 ~ d1@4 a1@4",
  F: "b1@4 ~@2 b1 ~ b1@6 ~@2", G: "b1@5 ~ b1 ~ b1@2 ~@2 c#1@4", H: "d1@5 ~ d1 ~ d1@7 ~",
  I: "[e1@5 ~ e1 ~ e1@4 ~@2 d1@4 e1@3 ~ e1 ~ e1 ~@7]/2", J: "a1!2 ~@2 a1!2 ~@2", K: "d1 ~ d1@2 ~@6 d1!2 e1@4",
  L: "a1 ~ a1@2 ~@4 a1@2 a1@2 ~@4", M: "d1@2 d1@2 ~@6 d1!2 e1@4", N: "a1@2 a1@2 ~@4 a1 ~ a1@2 ~@4",
  O: "a1@2 a1 ~@5 a1@2 a1@2 ~@4", P: "d1 ~ d1@2 ~@6 d1!2 e1@3 ~", Q: "f#1@3 ~ c#2@2 ~@2 f#2@2 ~@2 b1 c#2 e2@2",
  R: "f#1@2 ~@2 c#2@2 ~@2 f#2 ~@3 b1 c#2 e2@2", S: "e1@2 ~@2 b1@2 ~@2 e2 ~@3 b1 c#2 e2@2",
  T: "e1@2 ~@2 b1@2 ~@2 e2@2 ~@2 b1 c#2 e2 ~", U: "d1@5 ~ d1 ~ d1@6 ~@2", V: "b1@4 ~@2 b1 ~ b1@3 ~ c#1@4",
  W: "d1@4 ~@2 d1 ~ d1@7 ~", X: "e1@5 ~ e1 ~ e1@5 ~ d1@2", Y: "~@2 e1@3 ~ e1 ~ e1 ~@7", Z: "a1@2 a1@2 ~@4 a1@2 a1 ~@5",
  AA: "a1 ~ a1@2 ~@4 a1@2 a1 ~@5", AB: "d1@2 d1@2 ~@6 d1!2 e1@3 ~", AC: "e1 f#1 ~ f#1 ~ f#1 ~@10",
  AD: "d1 e1 ~ e1 ~@12", AE: "f#1@2 ~@2 c#2@2 ~@2 f#2@2 ~@3 c#2 e2@2, ~@6 b1 ~", AF: "b1@5 ~ b1 ~ b1@4 c#1@4",
  AG: "a1 ~ a1@2 ~@4 a1 ~ a1 ~@5", AH: "a1 ~ a1@2 ~@4 a1 ~ a1@2 ~@4",
  AI: "f#1@2 f#2 ~ f#1@2 f#2 ~ f#1@2 f#2@2 f#1@2 f#2@2", AJ: "d1 d2 d1 d2 e1 e2 e1 e2",
  AK: "f#1 f#2 f#1 f#2 f#1 f#2 f#1 f#2", AL: "a1 ~ a1 ~@13",
})).s("gm_piano").gain(0.8)

// chords · piano
const piano_2 = note(`<
  ~@5 A@2 B@2 C A B@2 A@2 B@2 A@2 B@2 A@2 B D E@2 F@2 G H I J K L K L M L N A@2 O B A@2 B@2 A@2 B D P@2 F@2 G H I L K L
  Q L K L N R ~ S T R ~ S ~ A@2 B@2 A@2 B D P@2 F@2 G H I L K L K L K L K L K L K L K L M U V W V X V X V X V X V Y
>`.pickRestart({
  A: "f#1 ~ f#1!2 c#2 ~ c#2!2 f#2 ~ f#2!2 b1 c#2 e2@2", B: "e1 ~ e1!2 b1 ~ b1!2 e2 ~ e2!2 a1 b1 e2@2",
  C: "f#1 ~ f#1!2 c#2 ~ c#2!2 f#2 ~ f#2!2 b1 c#2 e2 ~", D: "e1 ~ e1!2 b1 ~ b1!2 e2 ~ e2!2 a1 b1 e2 ~",
  E: "[a3,d4,f#4]/2", F: "[[b3,d4,f#4]@31 ~]/2", G: "[a3,d4,f#4]@15 ~", H: "[g#3,b3,e4]@13 ~ [f#3,a3,d4]@2",
  I: "~@2 [g#3,b3,e4]@7 ~@7", J: "[a3,c#4] ~ [a3,c#4,e4] ~@5 [a3,c#4,e4]@2 [a3,c#4,e4] ~@5, e4 ~@7",
  K: "[f#3,a3,d4] ~ [f#3,a3,d4] ~@9 [g#3,b3,e4]@3 ~", L: "[a3,c#4,e4] ~ [a3,c#4,e4] ~@5 [a3,c#4,e4] ~ [a3,c#4,e4] ~@5",
  M: "[f#3,a3,d4] ~ [f#3,a3,d4] ~@9 [g#3,b3,e4]@2 ~@2", N: "[f#3,a3,d4] ~ [f#3,a3,d4] ~@13",
  O: "e1 ~ e1!2 b1 ~ b1!2 e2 ~ e2!2 b1 c#2 e2@2", P: "[[a3,d4,f#4]@31 ~]/2",
  Q: "[a3,d4] ~ [f#3,a3,d4] ~@9 [g#3,b3,e4]@3 ~", R: "[a4,c#5,f#5] [a4,c#5,g#5] ~ [a4,c#5,g#5] ~ [a4,c#5,f#5] ~@10",
  S: "[g#4,b4,e5] [g#4,b4,f#5] ~ [g#4,b4,f#5] ~@12", T: "~@2 [e4,g#4,b4] ~", U: "[a3,c#4,f#4]@7 ~",
  V: "[f#3,a3,d4]@7 ~ [g#3,b3,e4]@7 ~", W: "[a3,f#4]@7 ~", X: "[a3,c#4,f#4]@15 ~", Y: "[a3,c#4,e4] ~ [a3,c#4,e4] ~@13",
})).s("gm_piano").gain(0.56).pan(0.3)

// chords · piano
const piano_3 = note(`<
  ~ A@2 B C A D C@2 E@2 F@2 A G H I J K L M G@2 M N O@2 P@2 Q R@2 S T U V W V X Y A G I Z AA AB F I E G AC L AD@2 AE@2 Q
  R@2 AF AG AH T U AI AJ AK AL AM ~@2 AN AO ~@2 AP G C L AQ AR L@2 AS@2 AT@2 AU AV@2 AH AW AX AW AY AZ BA AZ BB BC BD AW
  BE BF BG BF BH@8 BI@4 BJ
>`.pickRestart({
  A: "f#2@2 ~@2 c#3@2 ~@2 f#3@2 ~@2 b2 c#3 e3@2", B: "e2@2 ~@2 b2@2 ~@2 e3@3 ~@2 c#3 e3@2, ~@6 b2 ~",
  C: "e2@2 ~@2 b2@2 ~@2 e3@2 ~@2 b2 c#3 e3@2", D: "f#2@2 ~@2 c#3@2 ~@2 f#3 ~@4 c#3 e3@2, ~@6 b2 ~",
  E: "f#2@2 ~@2 c#3@2 ~@2 f#3 ~@3 b2 c#3 e3@2", F: "e2@2 ~@2 b2@2 ~@2 e3@2 ~@3 c#3 e3@2, ~@6 b2 ~",
  G: "f#2@2 ~@2 c#3@2 ~@2 f#3@2 ~@3 c#3 e3@2, ~@6 b2 ~", H: "e2@3 ~ b2@2 ~@2 e3@2 ~@2 b2 c#3 e3@2",
  I: "e2@2 ~@2 b2@2 ~@2 e3@2 ~@2 b2 c#3 e3 ~", J: "f#2@3 ~ c#3@2 ~@2 f#3@2 ~@3 c#3 e3@2, ~@6 b2 ~",
  K: "f#2@3 ~ c#3@2 ~@2 f#3@2 ~@2 b2 c#3 e3@2", L: "e2@2 ~@2 b2@2 ~@2 e3@2 ~@3 c#3 e3 ~, ~@6 b2 ~",
  M: "e2@3 ~ b2@2 ~@2 e3@2 ~@3 c#3 e3@2, ~@6 b2 ~", N: "e2@2 ~@2 b2 ~@3 e3@2 ~@3 c#3 e3 ~, ~@6 b2 ~",
  O: "[~@6 e4@25 ~, d3@15 ~, ~@2 a3@29 ~, ~@4 d4@27 ~]/2", P: "[~@3 e4@12 ~, b2@7 ~, ~@2 f#3@27 ~@3, ~@2 d4@13 ~]/2",
  Q: "~@3 e4@5, d3@7 ~, ~@2 a3@13 ~, ~ d4@3", R: "[~@6 e4@19 ~@7, e3@25 ~@7, ~@2 g#3@23 ~@7, ~@4 b3@21 ~@7]/2",
  S: "[a2,e3]@2 [e3,a3] ~@5 [a2,e3,a3]@2 [e3,a3] ~@5, a3 ~ a2@2 ~@6 a2@2 ~@4", T: "[d3,a3,d4]!2 ~@4 [e3,b3,e4]@2",
  U: "[a2,e3,a3]@2 [e3,a3] ~@5 [a2,e3,a3]@2 [a2,e3,a3]@2 ~@4, ~ a2 ~@6", // A5
  V: "[a3,d4] ~ [d3,a3,d4]@2 ~@8 [e3,b3,e4]@4, d3 ~@7", // D5 E5
  W: "[a2,e3,a3] [a2,e3] ~@2 [a2,e3,a3] [a2,e3] ~@2, ~@2 a3 ~@7 a3 ~@5", // A5
  X: "[a2,e3,a3]@2 [a2,e3,a3]@2 ~@4 [a2,a3] ~ [a2,e3]@2 ~@4, ~@8 e3@2 a3 ~@5", // A5 A A5
  Y: "[d3,a3,d4]@2 [d3,a3,d4]@2 ~@8 [e3,b3,e4]@3 ~", Z: "e2@2 ~@2 b2@2 ~@2 e3 ~@3 b2 c#3 e3 ~",
  AA: "f#2@2 ~@2 c#3@2 ~@2 f#3@2 ~@2 b2 c#3 e3 ~", AB: "f#2@2 ~@2 c#3@2 ~@2 f#3 ~@4 c#3 e3 ~, ~@6 b2 ~",
  AC: "e2@2 ~@2 b2@2 ~@2 e3 ~@4 c#3 e3@2, ~@6 b2 ~", AD: "[~@3 e4@13, d3@31 ~, ~ a3@15, ~ d4@7]/2",
  AE: "[~@6 e4@25 ~, b2@29 ~@3, ~@2 f#3@27 ~@3, ~@4 d4@27 ~]/2",
  AF: "[a2,e3,a3]@2 [a2,e3]@2 ~@4 [a2,e3]@2 [e3,a3] ~@5, ~@2 a3 ~@5 a3 ~ a2@2 ~@4", // A5
  AG: "[a3,d4] [d3,a3,d4] ~@4 [e3,b3,e4]@2, d3 ~@15", // D5 E5
  AH: "[a2,e3,a3]@2 [e3,a3] ~@5 [a2,e3,a3]@2 [e3,a3] ~@5, ~ a2 ~@3 a2 ~@2", // A5
  AI: "[d3,a3,d4] ~ [d3,a3,d4]@2 ~@8 [e3,b3,e4]@4", // D5 E5
  AJ: "[a2,e3,a3] ~ [a2,e3]@2 ~@4 [a2,e3,a3] ~ [e3,a3] ~@5, ~@2 a3 ~@7 a2@2 ~@4", // A5
  AK: "[d3,a3,d4]@2 [d3,a3]@2 ~@8 [e3,b3,e4]@3 ~, ~@2 d4 ~@13", AL: "~@8 [e3,a3]@5 ~@3", AM: "[e3,a3]@3 ~ [e3,a3]@3 ~",
  AN: "~@4 [e3,a3]@3 ~", AO: "[e3,a3]@5 ~@3 [e3,a3]@5 ~@3", AP: "~@2 f#2 ~ b2@2 ~@2 f#3@2 ~@3 c#3 e3@2, ~@6 b2 ~",
  AQ: "f#2@2 ~@2 c#3 ~@3 f#3 ~@3 b2 c#3 e3@2", AR: "f#2@2 ~@2 c#3 ~@3 f#3 ~@4 c#3 e3@2, ~@6 b2 ~",
  AS: "[~@3 e4@12 ~, d3@15 ~, ~@2 a3@29 ~, ~@2 d4@13 ~]/2", AT: "[~@3 e4@12 ~, b2@7 ~, ~ f#3@13 ~@2, ~@4 d4@25 ~@3]/2",
  AU: "~@3 e4@5, d3@7 ~, ~ a3@6 ~, ~ d4@3", AV: "[~@3 e4@9 ~@4, e3@3 ~, ~ g#3@11 ~@4, ~ b3@5 ~@2]/2",
  AW: "[d3,a3,d4]@2 [a3,d4] ~@9 [e3,b3,e4]@4, ~ d3 ~@6", // D5 E5
  AX: "[e3,a3] ~ [a2,e3]@2 ~@4 [e3,a3]@2 [a2,e3,a3]@2 ~@4, a2@2 a3 ~@5 a2 ~@7", // A5
  AY: "[e3,a3] ~ [e3,a3] ~@5 [a2,e3,a3] ~ [a2,e3,a3]@2 ~@4, a2!2 ~@6", AZ: "[d3,a3,d4]@2 [d3,a3,d4] ~@9 [e3,b3,e4]@4",
  BA: "[a2,e3,a3]@2 [a2,a3]@2 ~@4 [a2,e3,a3]@2 [e3,a3] ~@5, ~@2 e3 ~@7 a2@2 ~@4", // A5 A A5
  BB: "[e3,a3] ~ [a2,e3]@2 ~@4 [a2,e3,a3] ~ [a2,e3,a3]@2 ~@4, a2@2 a3 ~@13", // A5
  BC: "[d3,a3]@2 [a3,d4] ~@9 [e3,b3,e4]@4, d4 ~ d3@2 ~@12", // D5 E5
  BD: "[a2,e3,a3] ~ [e3,a3] ~@5 [a2,e3,a3] ~ [a2,a3]@2 ~@4, ~@2 a2@2 ~@6 e3 ~@5", // A5 A
  BE: "[a2,e3,a3] ~ [e3,a3] ~@5 [a2,e3,a3] ~ [a2,e3]@2 ~@4, ~@2 a2@2 ~@6 a3 ~@5", // A5
  BF: "[d3,a3,d4] ~ [a3,d4] ~@9 [e3,b3,e4]@3 ~, ~ d3 ~@6", // D5 E5
  BG: "[a2,e3,a3] ~ [a2,e3,a3]@2 ~@4 [a2,e3,a3] ~ [a2,a3]@2 ~@4, ~@10 e3 ~@5", // A5 A
  BH: "[~@4 e4@4 ~@46 d3 ~@23 a3 ~@3 f#3@2 ~@2 f#3 ~@3 g#3@2 ~@2 g#3@2 ~@10 a3@2 ~@2 a3@2 ~@12 e4@4, f#3@7 ~ f#3@7 ~ d3@8 e3@7 ~ f#3@7 ~ f#3@7 ~ d3@5 ~@3 e3@7 ~ f#3@7 ~ f#3@7 ~ d3@7 ~ e3@7 ~ f#3@7 ~ f#3@7 ~ d3@7 ~ e3@7 ~, ~@2 a3@6 ~@2 a3@5 ~@3 f#3@6 ~@2 g#3@5 ~@3 a3@6 ~@2 a3@5 ~@3 f#3@5 ~@3 g#3@6 ~@2 a3@6 ~@2 a3@4 ~@20 a3@7 ~@9 f#3@6 ~@2 g#3@6, ~@12 e4@6 ~@2 e4@7 ~ e4@6 ~@2 e4@6 ~@2 e4@6 ~@2 e4@6 ~@2 e4@6 ~@2 e4@6 ~@2 e4@7 ~ e4@6 ~@2 e4@6 ~@2 e4@7 ~ e4@6 ~@2 e4@6 ~@6]/8",
  BI: "[~@15 e4, f#3@7 ~ f#3@7 ~ d3@7 ~ e3@7 ~ f#3@7 ~ f#3@7 ~ d3@7 ~ e3@8, ~@2 a3@6 ~@2 a3@5 ~@3 f#3@5 ~@3 g#3@5 ~@3 a3@6 ~@2 a3@5 ~@3 f#3@5 ~@3 g#3@6, ~@4 e4@6 ~@2 e4@7 ~ e4@6 ~@2 e4@6 ~@2 e4@7 ~ e4@6 ~@2 e4@6 ~@6]/4",
  BJ: "a3 ~@7",
})).s("gm_piano").gain(0.48).pan(0.7)

// drums · kick
const kick = s("bd").struct("<~ A@4 B@26 C B@26 C B@30 C B@28 ~>".pickRestart({
  A: "x!4", B: "x!2", C: "x ~@2 x!2 ~@3",
})).gain(0.8)

// drums · snare
const snare = s("sd").struct("<~@5 A@20 B A@5 C A@20 B A@5 C A@24 B A@5 C A@28 D>".pickRestart({
  A: "~ x ~ x", B: "x!2 ~ x", C: "~ x ~@2", D: "x!2 ~@6",
})).gain(0.8)

// drums · clap
const clap = s("cp").struct("<~@5 A B A B@7 A B@15 ~ B@8 A B A B@15 ~ B@30 ~ B@18 A B@7 A B ~>".pickRestart({
  A: "~ x!2 ~@3 x ~", B: "~ x ~ x",
})).gain(0.8)

// drums · hihat
const hihat = s("hh").struct("<A B@4 C@26 D C@26 D C@30 D C@28 E>".pickRestart({
  A: "x!4", B: "~ x!3", C: "x!2 ~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2", D: "x!3 ~", E: "~@3 x ~@12",
})).gain(0.8)

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

// drums · open hat
const open_hat = s("oh").struct("<~ A@30 B A@26 B A@30 B A@28 C>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~@4", C: "x!2 ~@6",
})).gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct("<~@8 A ~@7 A ~@14 B ~@7 A ~@18 B ~@7 A ~@7 A ~@14 B ~@7 A ~@11 A ~@7 A ~>".pickRestart({
  A: "~ x ~ x", B: "~@3 x",
})).gain(0.72)

// drums · crash
const crash = s("cr").struct("<~@25 x ~@26 x ~@30 x ~@35>").gain(0.56)

// drums · high tom
const high_tom = s("ht").struct(`<
  ~@8 A ~@7 A ~@14 B ~@7 A ~@18 B ~@7 A ~@7 A ~@14 B ~@7 A ~@11 A ~@7 A ~
>`.pickRestart({
  A: "~ x ~@3 x ~@2", B: "~@4 x!2 ~@2",
})).gain(0.56)

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