// Hark the Herald Angels Sing (Help) — The Beatles
// 173 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: Full arrangement: all 109 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(173/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 nylon · "Rythm Gtr Nylon"
const acoustic_guitar_nylon = note(`<
  A B C@2 D E F@2 G H I J K L M@2 N O P Q R S T@2 A@3 B C@3 U V@2 W V F@2 X Y G H I J K L M@2 N O P Q R S T@2 A@3 B C@3
  U V@2 W V F@2 X Y Z AA AB AC AD@2 AE AF N O P Q R S T@2 A@3 B C@3 U V@2 W V F@2 K AG AH@5
>`.pickRestart({
  A: "[b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4]!2 [b2,f#3,b3,d4,f#4]@2", // Bm
  B: "[b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4] [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2", // Bm G
  C: "[g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4]!2 [g2,d3,g3,b3,d4,g4]@2", // G
  D: "[e2,b2,e3,g#3,b3,e4]@2 [e2,b2,e3,g#3,b3,e4]@2 ~ [e2,b2,e3,g#3,b3,e4]!3", // E
  E: "[e2,b2,e3,g#3,b3,e4]@2 [e2,b2,e3,g#3,b3,e4]@2 ~ [e2,b2,e3,g#3,b3,e4] [e2,b2,e3,g#3,b3,e4]@2", // E
  F: "[a2,e3,g3,c#4,e4]/2", G: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]!2 [a2,e3,a3,c#4,e4]@2",
  H: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]!6", // A
  I: "[c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4]!2 [c#3,g#3,c#4,e4,g#4]@2", // C#m
  J: "[c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4]!6", // C#m
  K: "[f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4]!2 [f#2,c#3,f#3,a3,c#4,f#4]@2", // F#m
  L: "[f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4]!6", // F#m
  M: "[[d3,a3,d4,f#4]@4 [g2,b2,d3,g3,b3,g4] [g2,b2,d3,g3,b3,g4]@2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4] [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]!2]/2", // D G A
  N: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@3 [a2,e3,a3,c#4,e4] [a2,e3,a3,c#4,e4]@2", // A
  O: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4] [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]!3", // A
  P: "[c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4]@3 [c#3,g#3,c#4,e4,g#4] [c#3,g#3,c#4,e4,g#4]@2", // C#m
  Q: "[c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4] [c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4]!3", // C#m
  R: "[f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4]@3 [f#2,c#3,f#3,a3,c#4,f#4] [f#2,c#3,f#3,a3,c#4,f#4]@2", // F#m
  S: "[f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4] [f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4]!3", // F#m
  T: "[[d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [g2,b2,d3,g3,b3,g4] [g2,b2,d3,g3,b3,g4]@2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4] [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@2]/2", // D G A
  U: "[g2,d3,g3,b3,d4,g4]!8", // G
  V: "[e2,b2,e3,g#3,b3,e4]@2 [e2,b2,e3,g#3,b3,e4]@2 [e2,b2,e3,g#3,b3,e4]!2 [e2,b2,e3,g#3,b3,e4]@2", // E
  W: "[e2,b2,e3,g#3,b3,e4]@2 [e2,b2,e3,g#3,b3,e4]@2 [e2,b2,e3,g#3,b3,e4]!4", // E
  X: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@3 [a2,e3,a3,b3,e4]!3", // A Asus2
  Y: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,b3,e4]@3 [a2,e3,a3,b3,e4]!3", // A Asus2
  Z: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4] [a2,e3,a3,c#4,e4]@3", // A
  AA: "[a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]!3 [a2,e3,a3,c#4,e4]@3", // A
  AB: "[c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4] [c#3,g#3,c#4,e4,g#4]@3", // C#m
  AC: "[c#3,g#3,c#4,e4,g#4]@2 [c#3,g#3,c#4,e4,g#4]!3 [c#3,g#3,c#4,e4,g#4]@3", // C#m
  AD: "[f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4] [f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4] [f#2,c#3,f#3,a3,c#4,f#4]@2", // F#m
  AE: "[d3,a3,d4,f#4]!2 [g2,b2,d3,g3,b3,g4]!2", // D G
  AF: "[a2,e3,a3,c#4,e4]!2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@2 [a2,e3,a3,c#4,e4]@2", // A
  AG: "[f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4]!2 [f#2,c#3,f#3,a3,c#4,f#4]@2 [f#2,c#3,f#3,a3,c#4,f#4]@2", // F#m
  AH: "[[a2,e3,a3,c#4,e4]@69 ~@11]/5", // A
})).s("gm_acoustic_guitar_nylon").gain(0.25).pan(0.3)

// chords · electric guitar muted · "Gtr (Muted)"
const electric_guitar_muted = note(`<
  ~ A B C D@2 E@2 ~@16 F@3 G H I@2 J K@2 L@2 E@2 M@2 ~@16 F@3 G H I@2 J K@2 L@2 E@2 N@8 ~@10 F@3 G H I@2 J K@2 L@2 E@2
  O@2 P@5
>`.pickRestart({
  A: "b2 a2", B: "g2", C: "g2 f#2", D: "e2/2",
  E: "[~ g3 ~@13 b3, e3 d#3 d3 c#3, ~@2 g3@2 ~ f#3@3 ~ f3@3 ~ e3@3, ~@3 b3@4 b3@4 b3@4 ~, ~@3 g3 ~ g3 ~ g3]/2",
  F: "~ [b2,f#3,b3] ~ [b2,f#3,b3]", G: "b2 [b2,f#3,b3] ~ [b2,f#3,b3], ~ a2", H: "g2 [d3,g3] ~ [g2,d3,g3], ~ g2@2 ~",
  I: "~ [g2,d3,g3] ~ [g2,d3,g3]", J: "g2 [g2,d3,g3] ~ [g2,d3,g3], ~ f#2",
  K: "[e2 [b2,e3] ~ [b2,e3] ~ [b2,e3] ~ [e2,b2,e3], ~ e2@2 e2@2 e2@2 ~]/2", L: "~ [e2,b2,e3] ~ [e2,b2,e3]", M: "a2/2",
  N: "[a2@31 ~ [e4,a4]@31 ~ [e4,g#4]@31 ~ [a4,e5]@32, ~@31 [a3,c#4]@32 c#4@32 [c#4,e4]@32 ~]/8", // A5 E A5 A C#m
  O: "[f#2@31 ~, e2 ~@31]/2", P: "[a2@69 ~@11]/5",
})).s("gm_electric_guitar_muted").gain(0.4).pan(0.9)

// bass · electric bass pick · "Gtr (Picked E. Bass)"
const bass = note("<~ A B C D@2 ~@21 A B ~@2 C D@2 ~@25 A B ~@2 C D@2 ~@25 A B ~@2 C D@2 ~@11>".pickRestart({
  A: "b2 a2", B: "g2", C: "g2 f#2", D: "e2/2",
})).s("gm_electric_bass_pick").gain(0.54).pan(0.2)

// bass · fretless bass · "Fretless E. Bass"
const bass_2 = note(`<
  A B C D E@2 ~@2 F@2 G@2 H@2 I J F@2 G@2 H@2 I K L@3 M N@3 O P Q P Q R@2 S J F@2 G@2 H@2 I J F@2 G@2 H@2 I K L@3 M N@3
  O P Q P Q R@2 S T R@2 U@2 V@2 W X F@2 G@2 H@2 I K L@3 M N@3 O P Q P Q R@2 Y Z AA@5
>`.pickRestart({
  A: "b2@3 ~ b2@3 ~ b2@3 ~ b2@3 ~", B: "b2@3 ~ b2@3 ~ a2@3 ~ a2@3 ~", C: "g2@3 ~ g2@3 ~ g2@3 ~ g2@3 ~",
  D: "g2@3 ~ g2@3 ~ f#2@3 ~ f#2@3 ~", E: "e2@3 ~ e2@3 ~ e2@3 ~ e2@3 ~", F: "a2@5 ~ a2 ~ e2@7 ~",
  G: "c#2@5 ~ c#2 ~ g#2@7 ~", H: "f#2@5 ~ f#2 ~ c#2@7 ~", I: "d2@5 ~ d2 ~ g2@7 ~", J: "a2@5 ~ a2 ~ e2@3 ~ g2@3 ~",
  K: "a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~", L: "b1@3 ~ b1@3 ~ f#1@3 ~ f#1@3 ~", M: "b1@3 ~ b1@3 ~ a1@3 ~ a1@3 ~",
  N: "g1@3 ~ g1@3 ~ d2@3 ~ d2@3 ~", O: "g1@3 ~ g1@3 ~ f#1@3 ~ f#1@3 ~", P: "e1@3 ~ e1@3 ~ g#1@3 ~ g#1@3 ~",
  Q: "b1@3 ~ b1@3 ~ g#1@3 ~ b1@3 ~", R: "[a1@31 ~]/2", S: "a2@7 ~ e2@7 ~", T: "a2@5 ~ a2 ~ e2@3 ~ e2@3 ~",
  U: "[c#2@31 ~]/2", V: "[f#2@31 ~]/2", W: "[d2,a2]@7 ~ [g1,d2]@7 ~", X: "[a1,e2]@15 ~",
  Y: "f#1@3 ~ f#1@3 ~ c#2@3 ~ c#2@3 ~", Z: "f#2@3 ~ f#2@3 ~ c#2@3 ~ f#2@3 ~", AA: "[a1@69 ~@11]/5",
})).s("gm_fretless_bass").gain(0.49)

// drums · kick
const kick = s("bd").struct(`<
  A ~ A ~ A ~ A ~ B@15 A B@12 A ~ B@17 A B@12 A ~ B@2 A ~@7 B@7 A B@12 A ~ B@2 A ~@4
>`.pickRestart({
  A: "x", B: "x!2",
})).gain(0.44)

// drums · snare
const snare = s("sd").struct("<~@8 A@15 B A@12 ~@2 A@17 B A@12 ~@2 A@2 ~@8 A@7 B A@12 ~@2 A@2 ~@5>".pickRestart({
  A: "~ x ~ x", B: "~ x!7",
})).gain(0.38)

// drums · hihat
const hihat = s("hh").struct("<A B A B A B ~@2 C@15 D ~@16 C@15 D ~@53>".pickRestart({
  A: "~ x!3", B: "x!4", C: "x!8", D: "x",
})).gain(0.44)

// drums · mid tom
const mid_tom = s("mt").struct("<~@7 A ~@15 B ~@31 B ~@31 B ~@21>".pickRestart({
  A: "~@12 x!4", B: "~ x!7",
})).gain(0.44)

// drums · crash
const crash = s("cr").struct("<A ~ A ~ A ~ A ~@29 A ~@31 A ~@3 A ~ A ~ A ~ B A ~@20 A ~@3 A ~@4>".pickRestart({
  A: "x", B: "x!2",
})).gain(0.44)

// drums · ride bell
const ride_bell = s("rd").struct("<~@24 A@12 ~@2 A@2 ~@16 A@12 ~@2 A@2 ~@16 A@12 ~@2 A@2 ~@5>".pickRestart({
  A: "x!8",
})).gain(0.33)

// drums · tambourine
const tambourine = s("tb").struct("<~@24 A@12 B ~@19 A@12 B ~@11 B ~ B ~ B ~ B@2 A@12 B ~@8>".pickRestart({
  A: "x!8", B: "x",
})).gain(0.44)

stack(
  acoustic_guitar_nylon, electric_guitar_muted, bass, bass_2, kick, snare, hihat, mid_tom, crash, ride_bell, tambourine
)