// One Year of Love — Queen
// 55 bpm, 6/8, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 83 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(55/3)

// 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.

// other · alto sax · "Alto Saxophone"
const alto_sax = note("<~@30 A@2 B C D E F G H I J ~@42>".pickRestart({
  A: "[~@14 e4 f4 e4 d4 b3@2 d4 e4@2 d4@13 ~@12]/2", B: "~@20 d4 ~ e4 ~", C: "f4@6 a4@5 b4", D: "f4",
  E: "~@3 a#3 b3@2 d4@2 d4 b3@2 d4@11 [g4,g#4] [f#4,g4]", F: "e4@18 e4 [e4,f4] d4@2 e4@2", G: "f4@12 g#4@10 d5 ~",
  H: "b4 a4@2 f4 f#4@20", I: "~@2 g4 ~ a#4@2 d5@2 d5 b4@2 d5@9 ~ f#5@2 ~", J: "e5",
})).s("gm_alto_sax").gain(0.64)

// other · tenor sax · "Tenor Saxophone"
const tenor_sax = note("<~@46 A B ~@4 C ~@3 D@2 ~@6 E F ~@17>".pickRestart({
  A: "~@16 c#4 d4@2 e4@2 c#4 ~ a3", B: "g3 ~", C: "~@14 c#4 a3 e3 d3 g#3 a3@5",
  D: "[d5@37 [a4,b4] f#4 [d4,e4] b3 [f#3,a3] e3 [b2,d3] a2@4]/2", // Asus2 Dsus2 F#m Bm
  E: "~@10 c#4 [d4,e4] f#4 [g4,a4] b4@6 e3 [b2,d3] d3 [a2,b2]", F: "g2 ~@11",
})).s("gm_tenor_sax").gain(0.4)

// chords · string ensemble 1 · "Keyboard 2"
const string_ensemble_1 = note(`<
  ~ A B C D E F G D H I J I K L M D A F G D A F G D N I J I O L P Q A F R D A F C D S I J I T U T Q A F C D E V G D V W
  V X T U T Q Y D Z AA AB D Z V AB AC Y D AD D AE@4
>`.pickRestart({
  A: "[d3,a3,d4,f#4] [f#2,c#4,e4,a4]", B: "[d4,f#4,b4]@2 [b3,d4,f#4], b2", C: "[g2,g3,b3,d4] [e2,b3,e4,g4]",
  D: "[a3,c#4,e4]@3 [g3,b3,d4]@2 [g3,c#4,e4], a2", E: "[d3,a3,d4,f#4] [f#2,c#4,f#4,a4]",
  F: "[d4,f#4,b4] [b3,d4,f#4], b2", G: "[g2,g3,b3,d4] [e2,b3,d4,g4]", H: "[d4,f#4,b4]!2, b2", I: "[c#4,e4,a4]!2, f#2",
  J: "[d4,f#4,b4]@3 [b3,d4,f#4]@2 [d4,f#4,b4], b2", K: "d4@3 b3@2 d4, [g2,b4]", L: "[c#4,e4]@4 a3 [c#4,e4], [a2,a4]",
  M: "[d4,f#4]@8 b3 f#4@3, [g2,b4]", N: "[b3,d4,f#4] [d4,f#4,b4], b2", O: "d4@3 b3@2 d4, [g2,f#4,b4]",
  P: "[d4,f#4]@3 b3@2 f#4, [g2,b4]", Q: "[c#4,e4,a4]@3 [g3,b3,d4]@2 [g3,c#4,e4], a2",
  R: "[g2,g3,b3,d4]@3 [b3,e4,g4]@2 [b3,e4,g4], ~ e2", S: "[b3,d4,f#4]@3 [d4,f#4,b4]@2 [b3,d4,f#4], b2",
  T: "[g2,d4,f#4,b4]", U: "[a2,c#4,e4,a4]", V: "[b2,b3,d4,f#4]", W: "[f#2,a3,c#4,e4]", X: "[f#2,c#4,e4,a4]",
  Y: "[g2,b3,d4,f#4]", Z: "[d3,a3,d4,f#4] [f#2,a3,c#4,e4]", AA: "[b2,f#3,b3,d4]", AB: "g2 e2, [g3,b3,d4]",
  AC: "[a2,a3,c#4,e4]", AD: "[b3,d4,f#4]@2 [b3,d4,f#4]", AE: "[[d3,a3,d4,f#4]@25 ~@7]/4",
})).s("gm_string_ensemble_1").gain(0.57)

// chords · epiano2 · "Electric Piano"
const epiano2 = note(`<
  ~ A B C D E B F G H I J K L M N O P B Q R S B F T H I J U V W N X Y B Z D P B F R H AA J K L W V AB Y B AC D E B F R
  AD I AE K V AF AG AB AH AB Y AI AJ R AK AL F AM AN AO AP AO AQ@4
>`.pickRestart({
  A: "[a4,d5,f#5]@4 [a4,d5,f#5]@3 f#4 [a4,d5,f#5]@4 [a4,c#5,e5,a5]@8 [a4,c#5,e5,a5]@4, d3 f#3", // D A
  B: "[b4,d5,f#5,b5] [b4,d5,f#5], b2", C: "[g4,b4,d5]@2 [g4,b4,d5] [g4,b4,d5,g5]!3, g2 e3",
  D: "[a2,a4,c#5,e5]@11 ~ [g4,b4,d5]@8 [g4,c#5,e5]@4, ~@11 a2@2 ~@11, ~ a3", // A G C#dim
  E: "[a4,d5,f#5]@2 [a4,d5,f#5] [a4,c#5,e5,a5]@2 [a4,c#5,e5,a5], d3 f#3", // D A
  F: "[g4,b4,d5]@2 [g4,b4,d5] [g4,b4,d5,g5]@2 [g4,b4,d5,g5], g2 e3", // G
  G: "[a4,c#5,e5]@8 [a4,c#5,e5]@3 a2 [g4,b4,d5]@8 [g4,c#5,e5]@4, a2@11 ~ a3@12", // A G C#dim
  H: "[b4,d5,f#5]@3 [b4,d5,f#5,b5]@2 [b4,d5,f#5,b5], b2", I: "[a4,c#5,e5,a5]@3 [a4,c#5,e5,a5]@2 [a4,c#5,e5], f#3",
  J: "[b4,d5,f#5,b5]@3 [b4,d5,f#5,b5]@2 [b4,d5,f#5,b5], b2", K: "[a4,c#5,e5,a5]@3 [a4,c#5,e5,a5]@2 [a4,c#5,e5,a5], f#3",
  L: "[b4,d5,f#5,b5]@5 b4 b4@2 f#5@2 d5@2, g2", M: "[a4,c#5,e5,a5]@4 c#5 e5, a2",
  N: "[b4,d5,f#5,b5]@5 b4 b5 b4 f#5@2 d5@2, g2", O: "[a2,a4,c#5,e5]@3 [g4,b4,d5]@2 [g4,c#5,e5], ~ a2",
  P: "[a4,d5,f#5]@7 f#4 [a4,d5,f#5]@4 [a4,c#5,e5,a5]@8 [a4,c#5,e5,a5]@4, d3 f#3", // D A
  Q: "[g4,b4,d5]!3 [g4,b4,d5,g5]@2 [g4,b4,d5,g5], g2 g3", R: "[a4,c#5,e5]@3 [g4,b4,d5]@2 [g4,c#5,e5], a2",
  S: "[a4,d5,f#5]!3 [a4,c#5,e5,a5]@2 [a4,c#5,e5], d3 f#3", T: "[a2,a4,c#5,e5]@11 a2 [g4,b4,d5]@8 [g4,c#5,e5]@4, ~ a3",
  U: "[f#3,a4,c#5,e5,a5]@11 ~ [a4,c#5,e5,a5]@8 [a4,c#5,e5,a5]@4, ~@11 f#3@13", // F#m7 A
  V: "[b4,d5,f#5,b5]@5 b4 b5@2 f#5@2 d5@2, g2", W: "[a4,c#5,e5,a5]@3 a4 c#5 e5",
  X: "[a2,a4,c#5,e5,a5]@3 [g4,b4,d5]@2 [g4,c#5,e5], ~ a2", // A G C#dim
  Y: "[a4,d5,f#5]@7 f#4 [d5,f#5]@4 [a4,c#5,e5,a5]@8 [a4,c#5,e5,a5]@4, d3 f#3", // D A
  Z: "[g4,b4,d5]@4 [g4,b4,d5]@4 [g4,b4,d5]@4 [g4,b4,d5,g5]@7 g4 [b4,d5,g5]@4, g2 e3", // G
  AA: "[a4,c#5,e5,a5] [a4,c#5,e5,a5]@2 [a4,c#5,e5,a5]@2 [a4,c#5,e5,a5], f#3", // A
  AB: "[a4,c#5,e5,a5]@3 [g4,b4,d5]@2 [g4,c#5,e5], a2", AC: "[g4,b4,d5]!3 [g4,b4,d5,g5]@2 [g4,b4,d5,g5], g2 e3",
  AD: "[b4,d5,f#5]!3 [b4,d5,f#5,b5]@2 [b4,d5,f#5,b5], b2", // Bm
  AE: "[b4,d5,f#5,b5] [b4,d5,f#5,b5]@2 [b4,d5,f#5,b5]@2 [b4,d5,f#5,b5], b2", AF: "[a4,c#5,e5,a5]@3 a4 c#5 e5, a2",
  AG: "[b4,d5,f#5,b5]@4 d5 b4 b5@2 f#5@2 d5@2, g2", AH: "[b4,d5,f#5,b5]@3 b5 f#5 d5, g2",
  AI: "[b4,d5,f#5,b5]@4 [d5,f#5] b4, b2", AJ: "[g4,b4,d5]!3 [g4,b4,d5,g5]!3",
  AK: "[a4,d5,f#5]!3 [a4,c#5,e5,a5]@2 [a4,c#5,e5,a5], d3 f#3", AL: "[b4,d5,f#5,b5]@4 b4 d5, b2",
  AM: "[a4,c#5,e5]@3 a4 [c#5,e5]!2, a2", AN: "[b4,d5,f#5] [b4,d5,f#5]@2 [b4,b5] [b4,d5,f#5]!2, g2",
  AO: "[a4,c#5,e5,a5]@3 [g4,b4,d5]@2 [a4,c#5,e5], a2", AP: "[b4,d5,f#5,b5]@3 [b4,d5,f#5,b5]!3, g2",
  AQ: "[[d3,a3,d4,f#4]@25 ~@7]/4", // D
})).s("gm_epiano2").gain(0.25)

// chords · string ensemble 1 · "Strings"
const string_ensemble_1_2 = note("<~@42 A ~@11 B C ~@2 D E ~@4 F G H I J K L M N O P Q R G S T@4>".pickRestart({
  A: "[f#2,a3,c#4,e4,b4] ~@3 [f#2,a3,c#4,e4,b4] ~@3 [f#2,a3,c#4,e4,b4] ~@3 [f#2,a3,c#4,e4,b4] ~@3 [f#2,a3,c#4,e4,b4] ~@3 [f#2,a3,c#4,a4]@4", // F#m7 F#m
  B: "[d4,f#4]@3 [f#4,d5] [e4,c#5] [d4,b4]", C: "[d4,b4] ~", D: "~@4 f#2@7 e4 f#4@4 [c#4,c#5]@6 [a3,a4] ~",
  E: "[b3,b4] f#4 e4 d4 ~@20", F: "~@3 [g4,b4,d5]@2 [g4,c#5,e5]", G: "g2@2 [b4,b5]",
  H: "[a4,c#5,e5,a5]@12 a3 b3 c#4 d4 e4 f#4 g4 a4 b4 c#5 d5 e5", I: "[f#3,f#4,f#5] [a3,a4,a5]",
  J: "[d3,d4,d5]@4 [e3,e4,e5] [f#3,f#4,f#5]", K: "[g3,d4,g4,b4]",
  L: "[a3,e4,a4,c#5]@12 a3 b3 c#4 d4 e4 f#4 g4 a4 b4 [c#5,d5] e5 [f#5,g5]", // A Dmaj7 Gmaj7
  M: "[a3,a4,a5]@12 [e4,e5,e6]@4 [a3,a4,a5]@4 [e4,e5,e6]@3 [c#4,c#5,c#6]", // A E A E C#
  N: "[d4,d5,d6]@3 f#4 [e4,c#5] [d4,b4], ~ [b3,d5]", O: "[b3,b4] [g3,g4]",
  P: "[e3,a3,c#4]@3 [c#3,c#4,c#5] [e3,e4,e5] [a3,a4,a5]", Q: "[b3,b4,b5]@3 [f#3,f#4,f#5] [b3,b4,b5] [f#3,f#4,f#5]",
  R: "[a3,a4,c#5,e5]@3 [g3,g4,b4,d5]@2 [a3,a4,c#5,e5]", // A G A
  S: "[a2,a4,a5]@12 d3 e3 f#3 g3 a3 b3 c#4 d4 e4 f#4 g4@2, ~@3 [d4,d5]@2 e5, ~@7 e4", // A D
  T: "[~@4 [f#4,d5]@2 ~@2 [c#4,a4]@2 [c#4,e4]@2 [b3,g4]@2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]@2 [d3,a3,d4,f#4]@19 ~@11, d3@3 ~@5, ~ a3@5 [e4,c#5]@2 ~@40, ~@7 e3@5 ~@36]/4", // D F#m C#m Em A D C#m
})).s("gm_string_ensemble_1").gain(0.4)

// bass · fretless bass · "Bass"
const bass = note(`<
  ~ A B C D A B C E@2 F B G H I J K A B C L A B M N O G O P H Q R K A S T U V W C K X Y Z AA H Q R D AB AC AD AE AF B C
  AG AH Y AH AI H D R K R AJ A W AD AK A B C AL R K R K AM@4
>`.pickRestart({
  A: "d2 f#2", B: "b2", C: "g2 e2", D: "a1", E: "[a1@23 a2@25]/2", F: "f#2@20 f#2@3 c#3", G: "f#2@5 f#2", H: "g2",
  I: "a2 a3", J: "g1@5 g1", K: "a1@3 a1@2 a1", L: "a1@11 e3 a1@8 e3 a3 ~ e3", M: "g2@12 e2@7 b2 e2@4",
  N: "a1@3 a1@2 a2", O: "b1@11 f#2 b2@8 b2@4", P: "f#2@12 f#2@9 e2 ~ f#2", Q: "a2", R: "g1", S: "b1@3 b2@2 b1",
  T: "g1@3 e2@2 e2", U: "a1@11 a2 a1@8 a1@4", V: "d2@12 f#2@7 c#3 f#3@4", W: "b2!2", X: "b1@12 b1@8 f#2@3 b2", Y: "f#1",
  Z: "b1@3 b1@2 b1", AA: "f#1!2", AB: "d2 f#1", AC: "b1 b2", AD: "g2@3 e2@2 b2", AE: "a2@5 a2", AF: "d3 f#2",
  AG: "a1@11 a2 a2@8 a2@4", AH: "b1", AI: "f#1@23 f#2", AJ: "a1 a2", AK: "a2@3 a2@2 a2", AL: "a1!2",
  AM: "[d2@25 ~@7]/4",
})).s("gm_fretless_bass").gain(0.4)

// drums · kick
const kick = s("bd").struct("<~ x!79 ~@3>").gain(0.57)

// drums · rim
const rim = s("rim").struct("<~ [~ x]!48 ~@17 [~ x] ~@16>").gain(0.71)

// drums · snare
const snare = s("sd").struct("<~@49 [~ x]!17 ~ [~ x]!12 ~@4>").gain(0.71)

// drums · hihat
const hihat = s("hh").struct("<~ [x!6]!78 x ~@3>").gain(0.57)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@4 A ~@11 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@5 B ~ B ~ B ~ B ~ B ~ B ~ C ~ B ~ B ~ C ~ B ~ B ~ C ~ B ~ C
  ~@4
>`.pickRestart({
  A: "~@23 x", B: "~@11 x ~@12", C: "~@11 x ~@11 x",
})).gain(0.57)

// drums · tambourine
const tambourine = s("tb").struct("<~@16 A ~@15 A ~@13 A ~ A ~@12 A ~@4 A ~@16>".pickRestart({
  A: "~ x",
})).gain(0.57)

stack(
  alto_sax, tenor_sax, string_ensemble_1, epiano2, string_ensemble_1_2, bass, kick, rim, snare, hihat, open_hat,
  tambourine
)