// Let's Hear It For The Boy — Deniece Williams
// 120 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 109 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(120/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 · electric guitar clean
const electric_guitar_clean = note(`<
  ~@4 A B C D A B C D C E C F C D A G H I J K L M N O L P Q R S T@2 U V C D A B C D C E C F C D A G H I J K L M N O L P
  Q R S T@2 W B C D A B C D W B C D H I J K L M N O L P Q R S X Y Z Y Z Y Z Y Z Y Z Y AA ~@5
>`.pickRestart({
  A: "[g3,c4,e4] ~", B: "[a3,c4,f4]@2 ~ [g3,b3,d4]", C: "[g3,c4,e4]@2 ~ [g3,c4,e4]", D: "[f3,a3,c4]@2 ~ [g3,b3,d4]",
  E: "[f3,a3,c4] [g3,b3,d4]", F: "[f3,a3,c4] [f3,a3,d4]", G: "[f3,a3,c4]@4 [g3,b3,d4]@3 ~", H: "[f3,a3,d4]@3 ~",
  I: "[g3,e4,f4]@3 ~", J: "[d4,f#4,a4] [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4]@2 [d4,g4,b4]@9",
  K: "[g3,c4,d4,e4] [g3,b3,d4]", L: "[a3,d4,f#4]@3 [b3,d4,g4]", M: "[g3,c4,d4,e4]@2 [b3,d4,g4] [d4,g4,b4]",
  N: "[d4,f#4,a4] [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4]@3 [d4,g4,b4]@4 [d4,g4,b4]@4", O: "[g3,c4,d4,e4] [b3,d4,g4]",
  P: "[g3,c4,e4] [g3,b3,d4]", Q: "[g3,b3,d4]@3 [g3,b3,d4]", R: "[a3,c#4,e4]@3 [a3,c#4,e4]",
  S: "[b3,d4]@2 [c4,e4] [d4,g4]", // Bm C G5
  T: "[[d4,e4,a4]@6 [f#4,a4]@2 [g4,b4]@2 [f#4,a4]@2 [d4,f#4]@2 [g4,b4] [d4,f#4,a4]@13 [c4,f4,a4]@4]/2", // Dsus2 F#m G F#m D G D F
  U: "[c4,f4,a4]@3 [c4,e4,g4]@2 [c4,e4,g4]@3 [b3,d4,g4]@4 [b3,d4,g4]@4", V: "[f3,a3,c4] ~ [f3,a3,c4] [g3,b3,d4]",
  W: "[g4,c5] ~@3, e4 ~", X: "[d4,e4,a4]@6 [f#4,a4]@2 [g4,b4]@2 [f#4,a4]@2 [d4,f#4]@2 [g4,b4] [f#4,a4]",
  Y: "[a3,d4,f#4]@3 [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4] [b3,d4,g4]@4 [b3,d4,g4]@4", // D G
  Z: "[g3,c4,e4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,d4,g4]@8", // C G
  AA: "[g3,c4,e4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] ~@8", // C
})).s("gm_electric_guitar_clean").gain(0.42).pan(0.1)

// chords · electric guitar clean · soft notes · G D G C G D G C …
const electric_guitar_clean_2 = note(`<
  ~@103
  [~ [b3,d4,g4]]
  [[a3,d4,f#4]@3 [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4] [b3,d4,g4]@4 [b3,d4,g4]@4]
  [[g3,c4,e4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,d4,g4]@8]
  [[a3,d4,f#4]@3 [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4] [b3,d4,g4]@4 [b3,d4,g4]@4]
  [[g3,c4,e4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,d4,g4]@8]
  ~
>`).s("gm_electric_guitar_clean").gain(0.12).pan(0.1)

// bass · electric bass finger
const bass = note(`<
  A B C D A B C D A B C D A E C D A B C D F G H I H I H I H J K L M N O A B A B A B C D A E C D A B C D F G H I H I H I
  H J K L M N O A B C D A B C D A B C D F G H I H I H I H J K L M N P I P J P I P J P I P J P I P J ~
>`.pickRestart({
  A: "~@2 c3@2 ~ g2@2 e2 a2@4 g2@4", B: "~@2 f2@2 ~ f2@2 e2 f2@2 d2@2 g2@4", C: "~@2 c3@2 ~ g2@2 e2 a2@4 g2@2 e2@2",
  D: "f2@3 f2 ~ e2@2 d2 g2@2 ~@6", E: "f2@3 f2 ~ e2@2 d2 g2@4 g2@4", F: "a#2@7 a#2 a#2@4 [a#2,f3,a3]@4",
  G: "c3@7 c3 c3@4 g2@4", H: "d3 d3@2 d3@2 d3@2 d3 b2@4 b2@4", I: "c3@3 c3@2 c3@2 c3 a2@4 a2@4",
  J: "c3@3 c3@2 c3@2 c3 a2@2 g2@2 a2@4", K: "[e2,e3]@7 e2 e2@4 [e2,e3]@4", L: "[f#2,f#3]@7 f#2 f#2@4 f#2@4",
  M: "[g2,g3]@2 [c3,g3] [b2,g3]", N: "[a2,g3]!2", O: "[d2,d3]@3 d2@2 d2@2 d2 d2@4 [f2,f3]@4",
  P: "d3@3 d3@2 d3@2 d3 b2@4 b2@4",
})).s("gm_electric_bass_finger").gain(0.64).pan(0.8)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~@4 A B A C D B D C D C D C D B D C E F G H G H G H G I J K L M N O B A B D B D C D C D C D B D C E F G H G H G H G I
  J K L M N A B A C A B A C A B A C E F G H G H G H G I J K L M P Q P R P Q P R P Q ~@7
>`.pickRestart({
  A: "~@2 [c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4] [c4,e4,g4]@4 [c4,e4,g4]@4", // C
  B: "~@2 [c4,f4,a4]@2 ~ [c4,f4,a4]@2 [c4,f4,a4] [c4,f4,a4]@2 [c4,f4,a4]@2 [b3,d4,a4]@4", // F Bm7
  C: "~@2 [c4,f4,a4]@2 ~ [c4,f4,a4]@2 [c4,f4,a4] [c4,f4,a4]@2 [b3,d4,a4]@2 [b3,d4,a4]@4", // F Bm7
  D: "~@2 [c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4] [c4,e4,g4,a4]@4 [c4,e4,g4,a4]@4", // C Am7
  E: "[c4,d4,f4,a4]@7 [c4,d4,f4,a4] [c4,e4,f4,a4]@4 [c4,d4,f4,a4]@4", // Dm7 Fmaj7 Dm7
  F: "[c4,d4,e4,g4]@7 [c4,d4,e4,g4] [c4,d4,e4,g4]@4 [b3,d4,g4]@4", // C G
  G: "[d4,f#4,a4] [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4,a4] [b3,d4,a4]@4 [b3,d4,a4]@4", // D Bm7
  H: "[c4,d4,e4,g4]@3 [c4,d4,e4,g4]@2 [c4,d4,e4,g4]@2 [c4,d4,e4,g4] [b3,d4,g4]@4 [b3,d4,g4]@4", // C G
  I: "[c4,d4,e4,g4]@3 [c4,d4,e4,g4]@2 [c4,d4,e4,g4]@2 [c4,d4,e4,g4] [b3,d4,g4]@2 [b3,d4,g4]@2 [b3,d4,g4]@4", // C G
  J: "[d4,e4,g4,b4]@7 [d4,e4,g4,b4] [d4,e4,g4,b4]@4 [d4,e4,g4,b4]@4", // Em7
  K: "[c#4,f#4,a4]@7 [c#4,e4,a4] [c#4,e4,a4]@4 [c#4,f#4,a4]@4", L: "[b3,d4,a4]@2 [c4,e4,g4] [b3,d4,a4]",
  M: "[d4,e4,g4,a4]!2", N: "[d4,f#4,a4]@3 [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4,a4] [d4,f#4,a4]@4 [c#4,f4,a4]@4",
  O: "[c4,f4,a4]@2 [c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4] [c4,e4,g4]@4 [c4,e4,g4]@4", // F C
  P: "[d4,f#4,a4]@3 [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4,a4] [b3,d4,a4]@4 [b3,d4,a4]@4", // D Bm7
  Q: "[c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,f#4,a4]@4 [b3,f#4,a4]@4", // C B7
  R: "[c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,f#4,a4]@2 [b3,f#4,a4]@2 [b3,f#4,a4]@4", // C B7
})).s("gm_acoustic_guitar_steel").gain(0.42).pan(0.7)

// chords · acoustic guitar steel · soft notes · D Bm7 C B7 D Bm7 C B7 …
const acoustic_guitar_steel_2 = note(`<
  ~@102
  [[d4,f#4,a4]@3 [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4,a4] [b3,d4,a4]@4 [b3,d4,a4]@4]
  [[c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,f#4,a4]@2 [b3,f#4,a4]@2 [b3,f#4,a4]@4]
  [[d4,f#4,a4]@3 [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4,a4] [b3,d4,a4]@4 [b3,d4,a4]@4]
  [[c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,f#4,a4]@4 [b3,f#4,a4]@4]
  [[d4,f#4,a4]@3 [d4,f#4,a4]@2 [d4,f#4,a4]@2 [d4,f#4,a4] [b3,d4,a4]@4 [b3,d4,a4]@4]
  [[c4,e4,g4]@3 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4] [b3,f#4,a4]@2 [b3,f#4,a4]@2 [b3,f#4,a4]@4]
  ~
>`).s("gm_acoustic_guitar_steel").gain(0.12).pan(0.7)

// other · electric guitar clean
const electric_guitar_clean_3 = note("<~@66 A B C D A B C D A B C D ~@14 E@2 F@2 E@2 F@2 E@2 G ~@6>".pickRestart({
  A: "~@5 g3@2 e3 a3@4 g3@4", B: "~@2 f3@2 ~ f3@2 e3 f3@2 d3@2 g3@4", C: "~@2 c4@2 ~ g3@2 e3 a3@4 g3@2 e3@2",
  D: "f3@3 f3 ~ e3@2 d3 g3@2 ~@6", E: "[~@6 a4@2 c#5@2 a4@2 f#4 b4 a4@10 ~@8]/2",
  F: "[~@6 [f#4,a4]@2 [g4,b4]@2 [f#4,a4]@2 [d4,f#4]@2 [d4,g4] [e4,a4]@5 [e4,a4]@2 ~@10]/2", // F#m G F#m D G5 A5
  G: "~@3 [f#4,a4] [g4,b4] [f#4,a4] [d4,f#4] ~", // F#m G F#m D
})).s("gm_electric_guitar_clean").gain(0.57).pan(0.7)

// other · electric guitar clean · soft notes
const electric_guitar_clean_4 = note("<~@102 A@2 B@2 C@2 ~>".pickRestart({
  A: "[~@14 [d4,g4] [e4,a4]@5 [e4,a4]@2 ~@10]/2", B: "[~@6 a4@2 c#5@2 a4@2 f#4 b4 a4@10 ~@8]/2",
  C: "[~@6 [f#4,a4]@2 [g4,b4]@2 [f#4,a4]@2 [d4,f#4]@2 [d4,g4] [e4,a4]@5 [e4,a4]@2 ~@10]/2", // F#m G F#m D G5 A5
})).s("gm_electric_guitar_clean").gain(0.07).pan(0.7)

// drums · snare
const snare = s("sd").struct(`<
  ~@7 A@13 ~@2 A@12 B C@3 A@13 ~@2 A@12 B ~@3 A ~@3 A ~@3 A ~@2 A@12 D E D E D E D E D E D E D E D E ~
>`.pickRestart({
  A: "~ x ~ x", B: "~@3 x ~ x ~ x ~@4 x ~@3", C: "~@3 x ~@2 x ~", D: "~@5 x ~@6 x ~@3", E: "~@3 x",
})).gain(0.48)

// drums · high tom
const high_tom = s("ht").struct("<~@93 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~>".pickRestart({
  A: "~ x ~@2",
})).gain(0.42)

// drums · ride
const ride = s("rd").struct(`<
  ~@4 A@3 B@2 A@2 B@9 A@2 C B@17 A@2 B@9 A@2 C B@12 A@3 B A@3 B A@3 B A@2 C B@27 ~
>`.pickRestart({
  A: "x!8", B: "~ x!7", C: "x ~ x!6",
})).gain(0.48)

stack(
  electric_guitar_clean, electric_guitar_clean_2, bass, acoustic_guitar_steel, acoustic_guitar_steel_2,
  electric_guitar_clean_3, electric_guitar_clean_4, snare, high_tom, ride
)