// 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, A@4 for four bars: 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 G@2 H@2 A@2 B@2 C I@2 ~@8 J K L M J N L O G@2 H@2 G@2 H@2 A@2 B@2 C P@2 ~@16 Q
  R S R S R S R S R S R T
>`.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]@31 ~]/2",
  I: "[[e4,g#4,b4]@3 ~]/2", J: "~@3 f#4, ~@12 f4 ~@3", K: "~ f#4 ~ f#4, ~@4 f4 ~@7 f4 ~@3", L: "~@3 e4, ~@12 d#4 ~@3",
  M: "~ e4 ~ e4, ~@4 d#4 ~@7 d#4 ~@3", N: "~@4 f#4@4 ~@4 f#4@3 ~, ~@4 f4 ~@7 f4 ~@3",
  O: "~@2 e4@2 ~@2 e4 ~, ~@4 d#4 ~@7 d#4 ~@3", P: "[[e4,g#4,b4]@23 ~@9]/2", Q: "[f#4,a4,c#5]@15 ~",
  R: "[f#4,a4,d5]@7 ~ [g#4,b4,e5]@7 ~", S: "[a4,c#5,f#5]@15 ~", T: "[a4,c#5,e5] ~@7",
})).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 D H@2 I J I J I J I K A@2 B@2 A@2 L B A@2 B@2 D E F M N O P I J Q
  J I J I K R ~ S ~ R ~ S ~ A@2 B@2 A@2 B@2 D E F M D H@2 I J I J I T I J I J I J I J I K U V W V W V W V W V W V X
>`.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@5 ~ 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: "[e1@5 ~ e1 ~ e1@4 ~@2 d1@4 e1@3 ~ e1 ~ e1 ~@7]/2",
  I: "a1!2 ~@2 a1!2 ~@2", J: "d1@2 d1@2 ~@6 d1!2 e1@4", K: "d1 ~ d1@2 ~@6 d1!2 e1@3 ~",
  L: "e1@2 ~@2 b1@2 ~@2 e2 ~@3 b1 c#2 e2@2", M: "b1@4 ~@2 b1 ~ b1@3 ~ c#1@4", N: "d1@5 ~ d1 ~ d1@7 ~",
  O: "e1@5 ~ e1 ~ e1@5 ~ d1@2", P: "~@2 e1@3 ~ e1 ~ e1 ~@7", Q: "a1 ~ a1@2 ~@4 a1@2 a1@2 ~@4",
  R: "e1 f#1 ~ f#1 ~ f#1 ~@10", S: "d1 e1 ~ e1 ~@12", T: "d1 ~ d1@2 ~@6 d1!2 e1@4",
  U: "f#1@2 f#2 ~ f#1@2 f#2 ~ f#1@2 f#2@2 f#1@2 f#2@2", V: "d1 d2 d1 d2 e1 e2 e1 e2",
  W: "f#1 f#2 f#1 f#2 f#1 f#2 f#1 f#2", X: "a1 ~ a1 ~@13",
})).s("gm_piano").gain(0.8)

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

// chords · piano
const piano_3 = note(`<
  ~ A B C@2 A@2 C@2 D A C@2 B A C E F A E G A@2 E H I@2 J@2 K L@2 M N O P O P O P B A E@2 A@2 C E B A Q E R@2 S@2 K L@2
  M T M N O U O N V W ~@2 V X ~@2 Y A C E D Z E@2 I@2 J@2 K AA@2 M N O N O N O N AB N AC N O N AC AD AE@8 AF@2 AG@2 AH
>`.pickRestart({
  A: "f#2@2 ~@2 c#3@2 ~@2 f#3@2 ~@3 c#3 e3@2, ~@6 b2 ~", B: "f#2@2 ~@2 c#3@2 ~@2 f#3@2 ~@2 b2 c#3 e3@2",
  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 ~@3 b2 c#3 e3@2",
  E: "e2@2 ~@2 b2@2 ~@2 e3@2 ~@3 c#3 e3 ~, ~@6 b2 ~", F: "f#2@3 ~ c#3@2 ~@2 f#3@2 ~@3 c#3 e3@2, ~@6 b2 ~",
  G: "e2@3 ~ b2@2 ~@2 e3@2 ~@3 c#3 e3@2, ~@6 b2 ~", H: "e2@2 ~@2 b2 ~@3 e3@2 ~@3 c#3 e3 ~, ~@6 b2 ~",
  I: "[~@6 e4@25 ~, d3@15 ~, ~@2 a3@29 ~, ~@4 d4@27 ~]/2", J: "[~@3 e4@12 ~, b2@7 ~, ~@2 f#3@27 ~@3, ~@2 d4@13 ~]/2",
  K: "~@3 e4@5, d3@7 ~, ~@2 a3@13 ~, ~ d4@3", L: "[~@6 e4@19 ~@7, e3@25 ~@7, ~@2 g#3@23 ~@7, ~@4 b3@21 ~@7]/2",
  M: "[a2,e3,a3]@2 [e3,a3] ~@5 [a2,e3,a3]@2 [e3,a3] ~@5, ~ a2 ~@3 a2 ~@2", // A5
  N: "[d3,a3,d4]@2 [a3,d4] ~@9 [e3,b3,e4]@4, ~ d3 ~@6", // D5 E5
  O: "[a2,e3,a3]@2 [e3,a3] ~@5 [a2,e3,a3]@2 [a2,e3,a3]@2 ~@4, ~ a2 ~@6", P: "[d3,a3,d4]!2 ~@4 [e3,b3,e4]@2",
  Q: "e2@2 ~@2 b2@2 ~@2 e3 ~@3 b2 c#3 e3 ~", R: "[~@3 e4@13, d3@31 ~, ~ a3@15, ~ d4@7]/2",
  S: "[~@6 e4@25 ~, b2@29 ~@3, ~@2 f#3@27 ~@3, ~@4 d4@27 ~]/2", T: "[a3,d4] [d3,a3,d4] ~@4 [e3,b3,e4]@2, d3 ~@15",
  U: "[a3,d4] ~ [d3,a3,d4]@2 ~@8 [e3,b3,e4]@4, d3 ~@7", V: "~@8 [e3,a3]@5 ~@3", W: "[e3,a3]@3 ~ [e3,a3]@3 ~",
  X: "[e3,a3]@5 ~@3 [e3,a3]@5 ~@3", Y: "~@2 f#2 ~ b2@2 ~@2 f#3@2 ~@3 c#3 e3@2, ~@6 b2 ~",
  Z: "f#2@2 ~@2 c#3 ~@3 f#3 ~@3 b2 c#3 e3@2", AA: "[~@3 e4@9 ~@4, e3@3 ~, ~ g#3@11 ~@4, ~ b3@5 ~@2]/2",
  AB: "[a2,e3,a3]@2 [a2,e3,a3]@2 ~@4 [a2,a3] ~ [a2,e3]@2 ~@4, ~@8 e3@2 a3 ~@5", // A5 A A5
  AC: "[a2,e3,a3] ~ [a2,e3]@2 ~@4 [a2,e3,a3] ~ [e3,a3] ~@5, ~@2 a3 ~@7 a2@2 ~@4", // A5
  AD: "[d3,a3,d4] ~ [a3,d4] ~@9 [e3,b3,e4]@3 ~, ~ d3 ~@6", // D5 E5
  AE: "[~@4 e4@4 ~@46 d3 ~@23 a3 ~@3 f#3@2 ~@2 f#3 ~@3 g#3@2 ~@2 g#3@2 ~@14 a3 ~@13 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@6 ~@2 a3@4 ~@4 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@6 ~@2 e4@7 ~ e4@6 ~@6]/8",
  AF: "[~@7 e4, f#3@7 ~ f#3@7 ~ d3@7 ~ e3@7 ~, ~@2 a3@6 ~@2 a3@5 ~@3 f#3@6 ~@2 g#3@6, ~@2 e4@3 ~ e4@3 ~ e4@3 ~@3]/2",
  AG: "[~@7 e4, f#3@7 ~ f#3@7 ~ d3@7 ~ e3@8, ~@2 a3@6 ~@2 a3@5 ~@3 f#3@5 ~@3 g#3@6, ~@2 e4@3 ~ e4@3 ~ e4@3 ~@3]/2",
  AH: "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)