// How Can This Be Love — Andrew Gold
// 60 bpm, 2/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: duplicate parts dropped: ch 7 "FLUTE" flute (copy of ch 4 "TRUMPET" trumpet)
// note: Full arrangement: all 79 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(60/2)

// 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 · "ACOU BASS"
const bass = note(`<
  ~@10 A B C D E F G H I J K L M N O P@2 B C D E F G H I J K L M N O N O P@2 Q R S T U R B C D E F G H I J K L M N O N O
  P@2 Q R S T V W X Y@3
>`.pickRestart({
  A: "d3@3 ~ d3@4 d3@4 d2@3 ~ d2@3 ~ d2@2 ~@2", B: "d2@5 ~ d2@2 a2@4 d2@10 ~@2", C: "d2@6 d2@2 a2@3 ~ d2@6 ~@2 d2@3 ~",
  D: "e1@8 e2@4 a1@7 ~ a1@3 ~", E: "e2@7 ~ e2@3 ~ a2@4 e2@4 a2@4", F: "d2@6 d2@2 a2@4 d2@9 ~@3",
  G: "d2@7 ~ a1@4 d2@7 ~ d2@2 ~@2", H: "e1@7 ~ e1@4 a1@7 ~ a1@3 ~", I: "e2@7 ~ e2@4 a2@10 ~@2", J: "f#2@11 ~ b1@10 ~@2",
  K: "e2@9 ~ e2@2 a2@7 ~ g2@2 ~@2", L: "f#2@11 ~ b1@11 ~", M: "e2@11 ~ a2@9 ~@3", N: "f2@11 ~ d2@12",
  O: "g1@11 ~ c2@11 ~", P: "[d2@23 ~]/2", Q: "c3@19 ~ g2@4", R: "d2@5 ~", S: "c3@10 ~@2 c3@7 ~ g2@4", T: "d2@7 ~",
  U: "c3@9 ~@3 c3@8 g2@4", V: "c3@11 ~ b2@7 ~ g2@4", W: "a2@5 ~", X: "f2@11 ~ e2@7 ~ c2@4", Y: "[d2@13 ~@5]/3",
})).s("gm_acoustic_bass").gain(0.35).pan(0.6)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  A B C D E F E G H I J K L M N O P Q R S T S U V W X@2 K L M N O P Q R S T S U V W Y W X@2 B Z AA AB AA AC K L M N O P
  Q R S T S U V W Y W X@2 B Z AA AB AA AC AD AE@3
>`.pickRestart({
  A: "~@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~, [d3,d4] ~", // D5 D
  B: "[a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~", // D5
  C: "[a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~, d4 ~", D: "[a4,d5,a5]!6",
  E: "[a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~ [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4, [g3,c4,e4]", // D5 C
  F: "[a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~ [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~, [f#3,a3,d4]@23 ~", // D5 D
  G: "[a4,d5,a5]!6, [f#3,a3,d4] ~", // D5 D
  H: "[a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~ [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~, [c4,f4]@11 ~ [b3,e4,g4]@11 ~", // D5 F5 Em
  I: "[a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~, [a3,d4,f#4]@23 ~", // D5 D
  J: "[d2,d3,a4,d5,a5]@4 [d2,d3,a4,d5,a5]@4 [d2,d3,a4,d5,a5]@4 [d2,d3,a4,d5,a5]@4 [d2,d3,a4,d5,a5]@4 [d2,d3,a4,d5,a5]@3 ~", // D5
  K: "[d4,f4,a4]@3 ~ [d4,f4,a4]@2 [d3,c#4,f4,a4]@6, d3 ~, ~@6 a3@7 ~@11", // Dm
  L: "[c4,f4,a4]@3 ~@2 b3, ~ [f4,a4], ~@3 b3@2 ~, ~@2 d3", M: "[e2,e3,g3,b3]@3 ~ e3@2, ~ [a2,a3,c#4,e4]",
  N: "[e3,g3,b3,d4,g4,b4] [a2,c#4,e4,a4]", // Em7 A
  O: "~@2 [f4,a4] [c#4,f4,a4]@2 [c#4,f4,a4], d3!2, [d4,f4,a4]@6 d4@7 ~@11, ~@4 a3@9 ~@11", // F C#aug Dm
  P: "[c4,f4,a4]@2 [c4,f4,a4] [b3,f4,a4]@3, d3 ~", // F Bm7b5
  Q: "~@2 [g4,b4] ~ e3@2, e3 [a2,a3,c#4,e4], [d4,g4,b4]@6 d4@7 ~@11, ~@4 b3@9 ~@11", // G A G
  R: "[e3,g3,b3]@4 [a2,a3,c#4,e4]@3 ~", S: "[c#3,f#3,a3,c#4,f#4] [b2,b3,d4,f#4]",
  T: "[e3,g3,b3,d4,g4,b4]@3 ~ e3@2, ~ [a2,a3,c#4,e4]", U: "[e3,d4,g4,b4]@6 [a2,a3,c#4,e4]@5 ~",
  V: "[f3,a3,c4,f4] [d3,c4,f4,a4]", // F Dm7
  W: "~@4 [g3,a#3,d4]@2 ~@2 g3@2 [c4,e4,g4] ~, g2 ~, [g3,a#3,d4] ~@2, ~@2 d3@4 [c3,c4,e4]@5 ~", // Gm C Gm C
  X: "[~@7 [a5,d6,f#6,a6] [a5,d6,f#6,a6]@4 [a5,d6,f#6]@6 ~ d5 [d5,a5,d6,f#6]@4 [d5,a5]@6 [d5,f#5,a5]@2 [d5,f#5,a5]@4 [d5,f#5,a5]@8 ~@4, [d2,a2,d3]@43 ~@5, ~@12 a6@31 ~@5, ~@18 [a5,d6,f#6]@2 ~@4 [d6,f#6]@19 ~@5]/2", // D D5 D D5 D
  Y: "[f3,a3,c4,f4] [d3,c4,f4,a4], a2 ~@23", Z: "[a4,d5,a5]!6, d4, [f#3,a3] ~",
  AA: "[a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@4 [a4,d5,a5]@3 ~, [c4,e4,g4] ~", // D5 C
  AB: "[a4,d5,a5]!6, [a3,d4,f#4] ~", AC: "[a4,d5,a5]!6, [a3,d4,f#4] d3, ~@2 d2",
  AD: "[f3,c4,f4,a4,c5]@3 [e3,e4,g4,b4]@2 [c3,c4,e4]", // F Em C
  AE: "[~@12 f#6@2 d6@2 ~@2 d6 a5 ~ f#6@2 [a5,d6] ~@4 a5 a6@2 ~ d6@5 ~@35, [d3,d4,f#4,a4]@55 ~@17, ~@11 a6@2 ~ a5 ~ a6@2 ~@2 a6@2 ~@3 a6@2 d6@2 ~@43, ~@17 f#6@2 ~@7 f#6@2 ~@3 f#6@2 ~@39]/3", // D5 D
})).s("gm_piano").gain(0.35).pan(0.3)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~@19 A B C D E F G@2 H@2 I J@3 I K A B C D E F E F G@2 L@6 H@2 I J@3 I K A B C D E F E F G@2 L@6 ~ M@2 ~
>`.pickRestart({
  A: "[c#5,e5] [d5,f#5]", B: "g5@12 a5@11 ~, e5@23 ~", C: "[c#5,e5]@12 [d5,f#5]@11 ~", D: "g5@11 ~ a5@11 ~, e5@11 ~",
  E: "c5@12 d5@11 ~", F: "f5@12 e5@11 ~", G: "[a5@47 ~, d6@43 ~@5, a6@19 ~@5]/2",
  H: "[d5@10 ~@2 c#5@11 ~ c5@10 ~@2 b4@7 ~@5, [f5,a5]@23 ~]/2", I: "[e5,g5,b5]@11 ~ [a4,c#5,e5]@12",
  J: "[[e5,g5,b5]@11 ~ [c#5,e5]@12 d5@10 ~@2 c#5@11 ~ c5@10 ~@2 b4@8 ~@4, ~@6 a4@29 ~, ~@12 f5@23 ~, ~@24 a5 ~@47]/3", // Em C#m
  K: "[e5,g5,b5]@12 [a4,c#5,e5]@11 ~", L: "[~@96 a5@43 ~@5, a6@35 ~]/6", M: "[f#5,d6,a6,d7]/2",
})).s("gm_string_ensemble_1").gain(0.3).pan(0.4)

// chords · accordion
const accordion = note(`<
  ~@11 A@2 B C D@2 B E ~@8 A@2 B C D@2 B E ~@10 F G F H F I A@2 B C D@2 B E ~@10 F G F H F I ~@4
>`.pickRestart({
  A: "[d5@9 ~@3 c#5@11 ~ c5@11 ~ b4@11 ~, [a4,f5]@47 ~]/2", B: "e5@3 f#5 g5 e5 a5@3 b5 f#5 g5",
  C: "e5@6 f#5@2 g5@2 e5@2 a5@11 ~", D: "[d5@9 ~@3 c#5@10 ~@2 c5@10 ~@2 b4@11 ~, [a4,f5]]/2", E: "e5@3 f#5 g5 e5 a5@6",
  F: "[c4,e4,g4]@23 ~", G: "[a3,d4,f#4]@11 ~", H: "[a3,d4,f#4]@23 ~", I: "[d4,f#4]@17 ~@7, a3@13 ~@11",
})).s("gm_accordion").gain(0.3)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1_2 = note(`<
  ~@19 A B C D E F G@2 H@2 I@2 J@2 I K A B C D E F E F G@2 L@6 H@2 I@2 J@2 I K A B C D E F E F G@2 L@6 ~ M ~@2
>`.pickRestart({
  A: "[c#4,e4] [d4,f#4]", B: "g4@12 a4@11 ~, e4@23 ~", C: "[c#4,e4]@12 [d4,f#4]@11 ~", D: "g4@11 ~ a4@11 ~, e4@11 ~",
  E: "c4@12 d4@11 ~", F: "f4@12 e4@11 ~", G: "[a5@47 ~, d5@43 ~@5, a4@19 ~@5]/2",
  H: "[d4@10 ~@2 c#4@11 ~ c4@10 ~@2 b3@7 ~@5, [f4,a4]@23 ~]/2", I: "[e4,g4,b4]@11 ~ [a3,c#4,e4]@12",
  J: "[d4@10 ~@2 c#4@11 ~ c4@10 ~@2 b3@8 ~@4, [f4,a4]@23 ~]/2", K: "[e4,g4,b4]@12 [a3,c#4,e4]@11 ~",
  L: "[~@96 a4@43 ~@5, a5@35 ~]/6", M: "[f#4,d5,a5,d6]",
})).s("gm_string_ensemble_1").gain(0.25).pan(0.6)

// drums · kick
const kick = s("bd").struct("<~@11 A@9 B A B A B ~@2 A@9 B A B A B A B ~@7 C D@8 A B A B@5 ~@8 A E ~@2>".pickRestart({
  A: "x!2", B: "x ~@2 x ~ x", C: "~@5 x", D: "x ~@4 x!2 ~@5", E: "x",
})).gain(0.4)

// drums · low tom
const low_tom = s("lt").struct("<~@50 [~@9 x!2 ~] ~@11 [~@10 x!2] ~@16>").gain(0.4)

// drums · hihat
const hihat = s("hh").struct("<~@10 A B@14 C@2 B@16 C@8 D@8 C@2 B@6 C@9 E ~@2>".pickRestart({
  A: "~@3 x!3", B: "x!6", C: "x!2", D: "x!2 ~ x!2 ~", E: "x",
})).gain(0.4)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@10 A B@9 C B C B C B@11 C B C B C B C B@33 ~@3>".pickRestart({
  A: "~@2 x", B: "~ x!2 ~ x!2", C: "~ x!2 ~ x ~",
})).gain(0.1)

// drums · mid tom
const mid_tom = s("mt").struct("<~@50 [~@3 x!2 ~] ~@11 [~@8 x!2 ~@2] ~@16>").gain(0.4)

// drums · open hat
const open_hat = s("oh").struct("<~@10 A ~@9 A ~ A ~ A ~@11 A ~ A ~ A ~ A ~@36>".pickRestart({
  A: "~@5 x",
})).gain(0.4)

// drums · high tom
const high_tom = s("ht").struct("<~@50 [~@2 x!4 ~@6] ~@11 [~@6 x!2 ~@4] ~@16>").gain(0.4)

// drums · ride
const ride = s("rd").struct(`<
  ~@19 A ~ A ~ A ~@11 A ~ A ~ A ~ A ~@9 B@8 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ C A ~@2
>`.pickRestart({
  A: "x", B: "x!6", C: "x ~@2 x ~ x",
})).gain(0.4)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<[x!6]!10 x ~@68>").gain(1.26)

stack(
  bass, piano, string_ensemble_1, accordion, string_ensemble_1_2, kick, low_tom, hihat, hihat_soft, mid_tom, open_hat,
  high_tom, ride, cabasa
)