// Sunday Sun — Neil Diamond
// 124 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 2 "Voices" bandoneon (copy of ch 1 "Melody" synth choir); ch 4 "Guitar" acoustic guitar nylon (copy of ch 3 "Harmony" acoustic guitar steel); ch 5 "Vocals" string ensemble 1 (copy of ch 3 "Harmony" acoustic guitar steel)
// note: Full arrangement: all 90 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(124/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 · acoustic guitar steel · "Harmony"
const acoustic_guitar_steel = note(`<
  A@2 B C D E@2 F@4 G@4 H I J K L@2 M@4 G@4 H N@2 O@5 P@4 Q R S L@2 M@4 G@4 H N@2 O@5 P@4 Q R S E@2 F@4 G@4 S E@2 F@4
  T@4
>`.pickRestart({
  A: "[f#3,a3]@2 [f#3,a3]@3 ~ [f#3,d4]@4 [g3,e4]@2 [a3,f#4]@3 ~", // F#m D C D
  B: "[c#4,a4]@2 [c#4,a4]@3 ~ [b3,g4]@4 [a3,f#4]@2 [g3,e4]@3 ~", C: "d4@3 ~ [a3,d4,f#4]@3 ~@5 [a3,d4,f#4]@3 ~",
  D: "~@4 [a3,d4,f#4]@3 ~@5 [a3,d4,f#4]@3 ~", // D
  E: "[~@4 [a3,d4,f#4]@3 ~ [a3,d4,g4]@2 [a3,d4,f#4]@3 ~ [d4,f#4]@5 ~ [a3,d4,f#4]@3 ~@5 [a3,d4,f#4]@3 ~, a4@7 ~@7 a4@9 ~@9]/2", // D Dsus4 D
  F: "[~@4 [b3,d4,g4]@3 ~ [d4,g4,b4]@2 [d4,g4,b4]@3 ~ [c#4,e4,a4]@4 [c#4,e4,a4]@3 ~ [c#4,e4,g4]@4 [c#4,e4,g4]@3 ~ [a3,d4,f#4]@7 ~ [a3,d4,f#4]@2 [a3,d4,f#4]@3 ~ d4@2 [b3,d4]@5 ~ [b3,d4]@3 ~@5 [a3,d4,f#4]@3 ~, ~@46 g4@9 ~@9]/4", // G A C#dim D Bm D
  G: "[~@4 [a3,c#4,e4]@3 ~ [c#4,e4,a4]@2 [c#4,e4,a4]@3 ~ [c#4,e4,a4]@4 [c#4,e4,a4]@3 ~ [c#4,e4,g4]@4 [c#4,e4,g4]@3 ~ [a3,d4,f#4]@7 ~ [a3,d4,f#4]@2 [a3,d4,f#4]@3 ~ d4@2 [b3,d4,g4]@5 ~ [g3,b3,d4]@3 ~@5 [g3,b3,d4]@3 ~]/4", // A C#dim D G
  H: "~@4 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 f#4@2 [a3,c#4,e4]@2 f#4@2", I: "[a3,c#4,e4]@2 f#4@2 e4@2 d4@7 ~ b4@2",
  J: "~@4 [b3,d4]@3 ~@2 a4 ~@2 [b3,d4]@3 ~, b4@9 ~ g4@5 ~", // Bm
  K: "~@4 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,c#4,e4]@3 ~, a4@11 ~@5", // D A
  L: "[~@4 [a3,d4,f#4]@3 ~ [a3,d4,g4]@2 [a3,d4,f#4]@3 ~ [d4,f#4]@2 [d4,f#4]@3 ~ [a3,d4,f#4]@3 ~@5 [a3,d4,f#4]@3 ~, a4@7 ~@7 a4@9 ~@9]/2", // D Dsus4 D
  M: "[~@4 [b3,d4,g4]@3 ~ [d4,g4,b4]@2 [d4,g4,b4]@3 ~ [c#4,e4,a4]@5 ~ a4@2 [c#4,e4,g4]@4 [c#4,e4,g4]@3 ~ [a3,d4,f#4]@4 f#4@2 f#4@2 [a3,d4,f#4]@5 ~ d4@2 [b3,d4]@5 ~ [b3,d4]@3 ~@5 [a3,d4,f#4]@3 ~, ~@46 g4@9 ~@9]/4", // G A C#dim D Bm D
  N: "[[a3,c#4,e4]@2 f#4@2 e4@2 d4@4 d4@2 d4@2 [d4,g4]@6 [b3,d4,g4]@4 b4@2 [b3,d4,g4]@5 ~, ~@14 b4@9 ~@9]/2", // A G5 G
  O: "[~@4 [g3,d4,f#4]@3 ~ [a3,d4,g4]@2 [a3,d4,f#4]@3 ~ [a3,c#4]@5 ~ [a3,c#4]@3 ~@3 f#4@2 e4@2 [f#3,a3]@5 ~ [f#3,a3]@3 ~@3 f#4@2 a4@2 d5@4 d5@2 d5@2 d5@2 e5@2 c#5@2 b4@2 [c#4,e4]@5 ~ [c#4,e4]@3 ~ [c#4,e4,b4]@2 [c#4,e4,a4]@3 ~ [c#4,e4]@2, a4@7 ~@7 e4@9 ~@7 d4@9 ~@7 [f#4,a4]@9 ~ g#4@5 ~ a4@9 ~@9]/5", // Gmaj7 Dsus4 D A F#m C#m C#m7 A …
  P: "[~@4 [a3,c#4]@3 ~@3 f#4@2 e4@2 [f#3,a3]@5 ~ [f#3,a3]@3 ~@3 f#4@2 a4@2 d5@4 d5@2 d5@2 d5@2 c#5@2 b4@3 ~ [c#4,e4]@5 ~ [c#4,e4]@3 ~@5 [b3,d4,g4]@3 ~, ~@14 d4@9 ~@7 [f#4,a4]@9 ~ g#4@5 ~ a4@9 ~@9]/4", // A F#m C#m G F#m
  Q: "~@4 [c#4,e4,a4]@3 ~ b4@2 d5@3 ~ b4@2, ~@8 [d4,g4]@7 ~", R: "~@4 [c#4,e4]@3 ~@5 [b3,d4,g4]@3 ~, a4@7 ~@9",
  S: "[d4,f#4,a4]@3 ~ [d4,f#4,a4]@3 ~ [d4,f#4,a4]@3 ~ [d4,f#4,a4]@3 ~", // D
  T: "[~@4 [a3,c#4,e4]@3 ~ [c#4,e4,a4]@2 [c#4,e4,a4]@3 ~ [c#4,e4,a4]@4 [c#4,e4,a4]@3 ~ [c#4,e4,g4]@4 [c#4,e4,g4]@3 ~ [a3,d4,f#4]@7 ~ [a3,d4,f#4]@2 [a3,d4,f#4]@3 ~ d4@2 [b3,d4,g4]@5 ~ [g3,b3,d4]@3 ~@9]/4", // A C#dim D G
})).s("gm_acoustic_guitar_steel").gain(0.56)

// bass · electric bass finger · "Bass"
const bass = note(`<
  A@2 B C D C E F G H I J G H K L M N O C E F G C I J G H K L M P C L C Q L@2 C Q R S R T C E F G C I J G H K L M P C L
  C Q L@2 C Q R S R T C E F G H I J G H K T C E F G H I J G H U
>`.pickRestart({
  A: "d2@15 ~", B: "a2@15 ~", C: "d2@5 ~ d2@2 d2@3 ~@5", D: "d2@5 ~ d2@2 d2@2 e2@2 f#2@2 a2@2",
  E: "d2@5 ~ d2@2 d2@2 d2@2 e2@2 f#2@2", F: "g2@5 ~ g2@2 g2@3 ~@5", G: "a2@5 ~ a2@2 a2@3 ~ a2@3 ~",
  H: "d2@3 ~ d2@7 ~ d2@3 ~", I: "g2@5 ~ g2@2 g2@3 ~ d2@3 ~", J: "a2@5 ~ a2@2 a2@3 ~ e2@3 ~",
  K: "g2@5 ~ g2@2 g2@2 d2@2 f#2@2 g2@2", L: "a2@5 ~ a2@2 a2@3 ~@5", M: "a2@3 ~@5 a2@3 ~ a2@3 ~",
  N: "g2@5 ~ g2@2 g2@5 ~ g2@2", O: "d2@5 ~ d2@2 d2@3 ~ a2@3 ~", P: "g2@5 ~ g2@2 g2@3 ~ g2@3 ~",
  Q: "d2@5 ~ d2@2 e2@3 ~ e2@3 ~", R: "a2@5 ~ a2@2 g2@5 ~ g2@2", S: "a2@5 ~ a2@2 g2@3 ~ g2@3 ~",
  T: "d2@5 ~ d2@2 d2@5 ~ d2@2", U: "g2@5 ~@11",
})).s("gm_electric_bass_finger").gain(0.72)

// drums · kick
const kick = s("bd").struct("<~@4 A B@13 C B@24 C B@24 C B@10 C B@10>".pickRestart({
  A: "~@15 x", B: "x ~@2 x!2 ~@3", C: "x ~@2 x ~@11 x",
})).gain(0.64)

// drums · snare
const snare = s("sd").struct("<~@4 [~@3 x] [~ x ~ x]!84 [~ x ~@2]>").gain(0.64)

// drums · low tom
const low_tom = s("lt").struct("<~@4 A ~@13 A ~@24 A ~@24 A ~@10 A ~@10>".pickRestart({
  A: "~@13 x!2 ~",
})).gain(0.64)

// drums · hihat
const hihat = s("hh").struct("<~@5 A@13 B A@24 B A@24 B A@10 B A@9 B>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2",
})).gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct("<~@4 A ~@13 B ~@24 B ~@24 B ~@10 B ~@10>".pickRestart({
  A: "~@11 x ~@4", B: "~@6 x ~@4 x ~@4",
})).gain(0.64)

// drums · open hat
const open_hat = s("oh").struct("<~@18 A ~@24 A ~@24 A ~@10 A ~@10>".pickRestart({
  A: "~ x ~@14",
})).gain(0.64)

// drums · high tom
const high_tom = s("ht").struct("<~@4 A ~@13 B ~@24 B ~@24 B ~@10 B ~@10>".pickRestart({
  A: "~@8 x!3 ~@5", B: "~@9 x ~@6",
})).gain(0.64)

// drums · crash
const crash = s("cr").struct("<~@4 A ~@13 A ~@24 A ~@24 A ~@10 A ~@10>".pickRestart({
  A: "~@15 x",
})).gain(0.64)

// drums · ride
const ride = s("rd").struct("<~@4 A B@13 C B@24 C B@24 C B@10 C B@9 D>".pickRestart({
  A: "~@3 x", B: "x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~", C: "x!3 ~ x!2 ~@2", D: "x!5 ~@3",
})).gain(0.64)

// drums · tambourine
const tambourine = s("tb").struct("<~@5 [~ x ~ x]!84 [~ x ~@2]>").gain(0.64)

stack(acoustic_guitar_steel, bass, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash, ride, tambourine)