// It Was a Very Good Year — Frank Sinatra
// 89 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: ch 5 "Vibes" named as a mallet, played on vibraphone (its synth strings 1 patch is not one)
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 77 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(89/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 · acoustic bass · "Bass"
const bass = note(`<
  A B C D A B E F G H I@2 J B K L M@3 N O P M@2 I@2 Q R E S J B L@2 T U@3 V P M W E X Y H E F M Z AA K J B M@2 O AB M@2
  E F Q R AC AD J B AE@2 J B AF AG O AH ~
>`.pickRestart({
  A: "d2@10 f2 a2", B: "d3@11 d2", C: "a1@9 ~ a1@2 f2@9 ~ f2@2", D: "a1@19 ~@3 a1@2", E: "eb2@11 bb1",
  F: "eb2@19 ~ eb2 ~ eb2 ~", G: "d2@14 ~@2 d2 ~ d2@6", H: "f2@10 f1 f2", I: "eb2@21 ~ eb2 ~", J: "d2@10 gb2 a2",
  K: "c2@11 g1", L: "c2@10 ~ c2", M: "d2@11 a1", N: "d2", O: "a1@9 ~ a1@2 f2@12", P: "a1@10 ~ a1", Q: "d2@10 d1 d2",
  R: "f2@10 ~ f2", S: "eb2@6 g2@6 eb2@6 bb1@4 eb2 ~", T: "d2@21 ~ a1@2", U: "d2@21 ~ d2 ~", V: "a1 f2",
  W: "d2@19 ~ d2 ~ d2 ~", X: "eb2@19 ~ e2 ~ eb2 ~", Y: "d2@10 ~ d2", Z: "d2@6 gb2@6 d2@6 a1@4 d2 ~", AA: "c2@4 g2 c2",
  AB: "a1@11 e1", AC: "eb2@12 ab2@3 g2@3 f2@3 eb2 ~@2", AD: "eb2@22 bb1 ~", AE: "c2@19 ~@3 c2@2", AF: "d2@20 ~@2 d2 ~",
  AG: "d2@19 ~@3 d2@2", AH: "a1@19 ~@5",
})).s("gm_acoustic_bass").gain(0.48)

// chords · vibraphone · "Vibes"
const vibraphone = note(`<
  A@2 B C D@2 E@2 F G H@2 I@2 J K L@2 D@2 M N O@2 P@2 Q R S@2 T@2 U J L@2 V@3 W X@2 H@2 Y Z S@2 AA@2 J@2 L@2 AB@2 M W
  X@2 S@2 AC R H@2 AA@2 AD@2 AE@2 AF@2 AG AH@2
>`.pickRestart({
  A: "[~@22 a4 ~, [d3,f5]@23 ~, a4@6 a4@5 ~, d4@11 d4@10 d4@2 ~, ~@10 a3@10 a3@3 ~]/2", // Dm
  B: "~@2 [e3,a3,c4,e4]@4 ~@3 a3@3, a2 [f2,c4,f4,a4]", // Am F
  C: "~@6 g3@2 ~@3 db4, a2@5 a3, [g3,a3,db4,e4] e4, ~@5 e3 a3@2 g3@4, ~@2 db4 e3", // A7
  D: "[[a3,d4,f4]@20 d3 [a3,d4,f4] ~@2, d3@19 ~@5]/2", E: "[~@6 eb4@3 ~ [g3,bb3,eb4]@33 ~@5, ~@2 g3@3 ~@19]/2",
  F: "[d3,a3,d4,f4]@7 ~ d3 [a3,d4,f4] ~@2", G: "[a3,c4,f4]@21 ~ [a3,c4,f4] ~, f2",
  H: "[[g3,bb3,eb4]@20 eb2 [g3,bb3,eb4] ~@2, eb2@19 ~@5]/2", // Eb
  I: "[~@6 a3@8 ~@6 a4@3 ~, d3@23 ~, a4@17 gb4@6 ~, gb4@15 d4@8 ~, d4@14 a3@9 ~]/2",
  J: "g3@5 ~@6 g3, c3, [c4,g4]!2, ~@5 g3@6 ~, ~@2 e4", K: "[g3,c4,e4]@22 c3 ~, c3@5 ~",
  L: "[[a3,d4,gb4]@23 ~, d3@37 ~@11]/2", // D
  M: "e3@2 ~@3 c4 a3@2 ~@3 f4, [a2,e4] [f2,a4], c4@5 ~ f4@5 ~, a3@2 a3 c4@2 c4, ~ e3@2 ~ a3@2", // A5 F
  N: "e3@5 ~@6 e3, a2, [g3,db4,e4]!2, ~@5 e3@6 ~, ~@2 a3", // Dbdim
  O: "[~@6 a3@8 ~@6 a4@3 ~, d3@23 ~, a4@17 f4@6 ~, f4@15 d4@8 ~, d4@14 a3@9 ~]/2",
  P: "[[bb3,eb4,g4]@23 ~, eb2@37 ~@11]/2", Q: "[d4,f4,a4]@8 ~@3 a4, d3, ~@2 a3, ~@3 d4, ~@5 f4",
  R: "f2@4 [a3,c4,f4]@11 ~ f2@2 [a3,c4,f4]@2 ~@4", S: "[[g3,bb3,eb4]@23 ~, eb2@37 ~@11]/2",
  T: "[~@6 gb4@3 ~ [a3,d4,gb4]@33 ~@5, ~@2 a3@3 ~@19]/2", // D
  U: "~@6 c4@2 ~@3 g4, c3, [c4,e4,g4]@3 g4@2 e4, ~@5 g3@3 c4@4, ~@2 e4 g3", // C
  V: "[~@24 e3@2 ~@3 c4 ~@2 [a3,c4,f4,a4]@4, d3@23 a4 [a3,c4]@2 e3@2 a3@2 ~@6, a4@11 f4@4 ~@3, f4@6 d4@4 a3@2 [a2,e4]@3 f2@3, d4@11 a3@3 f4@7 d4@9 ~@6]/3", // F Am A5
  W: "[db4,e4,g4,a4]@17 ~@3 db4@2 e4@2, a2@3 ~@3 g3@2", X: "[[a3,d4,f4]@23 ~, d3@37 ~@11]/2",
  Y: "[a3,d4,f4]@22 d3 ~, d3@5 ~", Z: "~@6 c4@2 ~@3 a4, f2, [c4,f4,a4]@3 a4@2 f4, ~@5 a3@3 c4@4, ~@2 f4 a3",
  AA: "[~@11 a4@6 ~@4 gb4@2 gb4, d3, a4@5 gb4@5 a3@2, gb4@3 d4@4 d4, d4@8 a3@9 a4@7]/2",
  AB: "[~@20 [a4,d5]@3 ~, d3@23 ~, a4@19 a3@4 ~, f4@12 d4@11 ~, d4@11 a3@3 f4@9 ~]/2", // D5
  AC: "d3@4 [a3,d4,f4]@11 ~ d3@2 [a3,d4,f4]@2 ~@4", AD: "[c4,e4,g4]@8 ~@3 g4, c3, ~@2 g3, ~@3 c4, ~@5 e4",
  AE: "[~@20 [a4,d5]@3 ~, d3@23 ~, a4@19 a3@4 ~, gb4@12 d4@11 ~, d4@11 a3@3 gb4@9 ~]/2", // D5
  AF: "[~@23 f4, d3, a4@17 a3 d4@2 a3@4, f4@9 d4@9 f4@4 d4@2, d4@8 a3@3 f4@7 a4@6]/2",
  AG: "~ e3 ~ a3, [a2,a3,c4,e4] [f2,c4,f4,a4]", AH: "[a2,g3,a3,db4,e4]/2",
})).s("gm_vibraphone").gain(0.3)

// chords · string ensemble 1 · "Strings"
const string_ensemble_1 = note(`<
  ~@22 A@2 B@2 C@2 D@2 E@2 F@2 G@2 H@2 I J A@2 K@2 L C B@2 G@2 F@2 M@2 N@2 I J ~@19
>`.pickRestart({
  A: "[a5,f6]/2", B: "[eb6 bb5, g5]/2", C: "[a5,f6]", D: "[g5,eb6]/2", E: "[a5,gb6]/2", F: "[g5,e6]",
  G: "[gb6 d6, a5]/2", H: "[~ a5, [f6,a6]]/2", I: "[e5,c6] [a5,f6]", J: "[g5,db6]", K: "[~ g5, [eb6,g6]]/2",
  L: "[f6,a6]", M: "[~ a5, [gb6,a6]]/2", N: "[f6 d6, a5]/2",
})).s("gm_string_ensemble_1").gain(0.16)

// drums · kick
const kick = s("bd").struct(`<
  A@3 B A@3 C A@13 D E A E@5 F E@9 D E@3 F E@5 A E@3 A E@3 A@8 C A@3 C A@5 E ~
>`.pickRestart({
  A: "x ~@10 x", B: "x!2", C: "x ~@2 x", D: "x ~@6 x", E: "x", F: "x!2 ~@4",
})).gain(0.37)

// drums · snare
const snare = s("sd").struct("<A@2 B C A@6 B A@11 D A D@15 A@2 D@6 A D A D@3 A D@3 E A@10 B A@4 F B ~@2>".pickRestart({
  A: "~ x", B: "~@3 x!2 ~", C: "~@8 x!4", D: "~@6 x ~@4 x", E: "~@3 x ~ x", F: "~@5 x!2 ~ x ~ x ~",
})).gain(0.37)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@3 A ~@7 B ~@4 A@2 ~@39 A ~@4 A ~@3 C ~@5 C ~@4>".pickRestart({
  A: "~@5 x ~@6", B: "~@2 x ~@2 x ~@6", C: "~ x ~@4",
})).gain(0.15)

// drums · hihat
const hihat = s("hh").struct("<~@23 [~ x ~@2] ~@25 [~ x ~@2] ~@3 [~ x ~@2] ~@23>").gain(0.07)

// drums · mid tom
const mid_tom = s("mt").struct("<~@21 A ~@17 A B ~@6 B ~@9 C ~@19>".pickRestart({
  A: "~@5 x ~@2", B: "~@11 x", C: "~@2 x",
})).gain(0.37)

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

// drums · high tom
const high_tom = s("ht").struct("<~@21 [~@3 x] ~@17 [~@3 x] ~@37>").gain(0.44)

// drums · ride
const ride = s("rd").struct(`<
  A B@2 C A@6 D A@4 B A@3 B A E F G F@2 H I G J F J F G H G F I F E F@2 G F H G F@3 G F G@3 F@3 B A@3 B A B A@3 B A@2 B
  A B@2 A K ~
>`.pickRestart({
  A: "x!4", B: "x ~@2 x ~@2 x ~@2 x ~ x", C: "x!3 ~", D: "x!2 ~ x ~@2 x ~@2 x ~@2", E: "x ~ x ~ x ~ x!2",
  F: "x ~@2 x ~ x!2 ~@2 x ~@2", G: "x ~@2 x ~ x!2 ~@2 x ~ x", H: "x ~ x!2 ~ x!2 ~@2 x ~@2",
  I: "x!2 ~ x ~ x!2 ~@2 x ~ x", J: "x!2 ~ x ~ x!2 ~@2 x ~@2", K: "x",
})).gain(0.44)

stack(bass, vibraphone, string_ensemble_1, kick, snare, snare_soft, hihat, mid_tom, open_hat, high_tom, ride)