// Cry For Help — Rick Astley
// 89 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 94 bars on a 16-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 · "ACOU BASS"
const bass = note(`<
  A B C D E F G H E F G H E F G H I@2 J@2 K@2 L@2 M N@2 A B C D E F G H E F G H I@2 J@2 K@2 L@2 M N@2 O@2 P@2 O@2 P@2 E
  F G H E F G H I@2 J@2 K@2 L@2 M N@2 K@2 L@2 M N@2 K@2 L@2 M N@2 Q@2 ~
>`.pickRestart({
  A: "g1@15 ~", B: "c2@7 ~", C: "f2@15 ~", D: "d2@7 ~", E: "g2@6 d2@2 g1@7 ~", F: "c2@3 g1 c2@3 ~", G: "f2@3 c2 f1@3 ~",
  H: "d2@4 ~@2 d2 ~ d2@5 ~ d2 ~", I: "[b1@6 b2@2 b1@2 f#2@2 b1 ~ c2@8 c3 g2 c3@2 c2@2 c3 c2 g2@2]/2",
  J: "[b1@6 b1@2 b2@2 b1@2 b2 ~ c2@7 ~ c2@2 c3@2 c2@2 g2@2 c2 ~]/2",
  K: "[g1 g2 d2 g2 g1 ~ g1@4 g2@2 g1 ~ f2@4 f1@2 f2 ~ e2@5 ~ e2@3 ~]/2",
  L: "[g1 g2 d2 g1 g2 ~ g1@3 ~ g1@2 g2 ~ f2@5 ~ f2 ~ e2@4 d2@3 ~ c2 ~]/2", M: "g1 g2 g1 g2 d2 ~ g1@4 g2@2 g1 ~ f2@2",
  N: "[f2@2 ~@4 f2@2 f1@2 f2@2 g1@2 c2@7 ~ c2@4 g1@2 c2@2 ~@2]/2",
  O: "[a1@6 e1@2 a1@2 b1 ~ c2 ~ d2@6 ~@2 a1@2 d2 ~ d2@3 ~ d2 ~]/2",
  P: "[a1@5 ~ e1@2 a1@2 c2@2 d2 ~ d2@7 ~ d2 ~ d2@4 e2@2 d2 ~]/2", Q: "g1/2",
})).s("gm_acoustic_bass").gain(0.64)

// chords · piano · "A.PIANO 2"
const piano = note(`<
  A@3 B A@3 B A@3 B A@3 B C@4 D@2 E@2 F G@2 A@3 B A@3 B A@3 B C@4 D@2 E@2 F G@2 H@2 I J K@2 L M A@3 B A@3 B C@4 D@2 E@2
  F G@2 D@2 E@2 F G@2 D@2 E@2 F G@2 N@2 ~
>`.pickRestart({
  A: "[~@28 d5@2 ~@10 c4@2 ~ [b3,g4]@3 [a3,f4]@2, g2@8 b4@2 [d4,g4]@2 a4@2 g4@8 [g3,c5]@2 b4@2 [c4,g4]@4 a4@8 a3@2 a4@2 c4@5 ~, b4@6 [b3,c5]@10 ~@4 e3@11 ~@5 f3@11 ~, ~@2 d3@14 c2@15 ~ f2@15 ~, ~@4 g3@12 ~@2 c3@13 ~@3 c3@13 ~]/3", // Em Dm G5 C5 Cmaj7
  B: "[d3,g3,c4,e4]@5 ~ [d3,g3,c4,e4]@4 [d3,f#3,a3,d4]@4 ~@2", // C D
  C: "[[d4,f#4]@8 a4@2 [e4,a4]@5 ~ [e4,g4]@8 ~@4 [b4,d5]@3 ~, [b2,f#3,a3]@15 [c3,e3]@16 ~, ~@8 [d4,f#4]@8 [g3,b3]@15 ~, ~@24 [c4,e4,g4]@7 ~]/2", // D A5 Em Bm B7 C D G …
  D: "[[g3,b3,d4]@6 [a3,d4]@4 [b3,d4]@3 ~ [f3,a3,c4]@8 [c4,e4,g4]@4 ~@2 c4@4, g2@13 ~@9 c3@10, ~@13 [d4,g4]@3]/2", // G D5 Bm F C G5
  E: "[~@2 [g4,b4,d5] ~@2 g4@2 ~@3 f4 [c4,e4,g4]@2 ~ c4 ~, g2@7 [f3,c4,a4]@4 c3@4 ~, [g3,b3,d4]@3 [a4,d5]@4 f4@3 ~@3 [d4,g4]@2 ~, ~@9 [g4,c5]@2 ~@5]/2", // G C F G D5 G5 C5
  F: "[g3,b3,d4]@5 ~ [a3,d4]@4 [g3,b3,d4]@2 ~@4, g2@3 ~", // G D5 G
  G: "[~ [f3,a3,c4]@2 c4@3 [a3,c4] ~@3 [c4,e4] g4@3 [c4,e4,g4] ~, ~@3 g3@4 [c3,g3]@8 ~, ~@11 d4@4 ~]/2", // F Am C C5
  H: "[~@5 g5@2 ~@2 a4!2 ~@3 e4@2, [a2,g3,c4,e4]@7 ~@3 e4@4 ~@2, ~@2 e3@5 ~@2 [d4,f#4]@2 [d4,f#4,a4]@5, ~@3 b5@4 a5@9, ~@13 a3@3]/2", // Am7 D
  I: "~@3 a5, [a2,g3,c4,e4], ~ e6@3, ~ d6", J: "~ f#5@2 ~@2 d5@3, g5@3 d5@2 ~@3, ~ e5",
  K: "[e4@2 ~@3 e6@2 ~@4 a5 ~ d5@3, [a3,c4,g4,c5,e5]@7 ~@4 f#5@5, ~@2 e4@5 ~@2 d6@7, ~@3 a6@4 f#6@9, ~@11 d5 [e5,a5]@4]/2", // Am7 A5
  L: "~@4 e5@4 ~@4 a4@3 ~, [a2,g3,c4,e4]@15 ~, ~@4 c5@11 ~, ~ a4@2 ~, ~@8 [b4,e5]@7 ~", // Am7 E5
  M: "a4@2 a4@2 d5@2 [d5,f#5] ~, [d3,a3,d4]@7 ~, f#4@4 [f#4,a4]@3 ~, ~@2 e4@5 ~", N: "[g2,d3,g3,d4,g4,b4]/2",
})).s("gm_piano").gain(0.64)

// chords · acoustic guitar nylon · "NYLON GTR"
const acoustic_guitar_nylon = note(`<
  ~@4 A B C D A B C D A B C D E F G H I@2 J@2 K ~@6 A B C D A B C D E F G H I@2 J@2 K ~@2 L@2 M@2 N@2 O@2 A B C D A B C
  D E F G H I@2 J@2 K ~@2 I@2 J@2 K ~@2 I@2 J@2 K ~@2 P@2 ~
>`.pickRestart({
  A: "~@7 d4, g2, ~ g3@4 g3@3, ~ b3@2 b3, ~@3 d4@4 ~", B: "~@4 f4@2 e4 ~@3 c4@6, c4@7 ~ d4@8, ~ e4@2 ~@5",
  C: "~@2 e4 ~@2 c4@3, f3, ~ a3@7, ~@3 d4@5",
  D: "~@2 [d3,c4,e4] d3@2 ~ e4 ~, ~@3 [g3,c4]@4 ~, ~@3 e4@3 ~@2, ~@5 d3@2 ~", // C C5
  E: "[b2,a3,d4,f#4]@3 ~ [a3,d4,f#4]@2 [a3,d4,f#4]@2 ~@4 [a3,d4]@2 [a3,d4]@2, ~@3 b2@3 b2@4 b2@6, ~@2 [a3,f#4] f#4", // Bm7 D D5 D
  F: "b3!2 ~ [c3,e3,g3]!4 [c3,e3,g3,b3], [c3,e3,g3]@3 c4@3 c4@2, ~@2 b3@3 b3@2 ~", // C Cmaj7 C
  G: "[a3,d4,f#4] ~ [a3,d4,f#4]!2 [a3,d4]!2 [a3,d4,f#4]!2, ~ d4 ~@6, ~@3 b2@3 b2@6 b2@4", // D D5 D
  H: "[c3,g3]@3 ~@3 [c3,g3,c4]@2 ~@2 d4@2 [c3,g3,c4]@2 ~@2, ~@3 [c3,g3]@3 ~@2 [c3,g3,c4]@4 ~@4, ~ b3@2 ~", // C5
  I: "[~@10 b3@4 ~@4 a3@4 [c4,e4]@4 ~@2 c4@3 ~, g3@14 [f3,c4,f4]@8 c3@9 ~, ~@2 d4@12 ~@12 d4@5 ~, ~@3 g4@4 ~@9]/2", // C F5
  J: "[~@3 e4@2 ~ g4 ~@3 c4 [c4,e4]@2 d4 c4 ~, g3@7 ~@2 f3@2 ~@5, ~ b3@6 ~@9, ~@2 d4@3 d4@2 f4@4 ~@5]/2", // C
  K: "~@3 g4@2 a4 b4 ~, g3@7 ~, ~ b3@6 ~, ~@2 d4@5 ~",
  L: "[g3 ~@5 [c4,e4] ~@3 d4 [f#3,a3] ~@2 [f#3,a3,d4]!2, a2@3 [c4,e4]@2 g3@2 [f#3,a3,d4]@3 ~@3 a3 ~@2, [c4,e4]@3 a3@4 ~@4 d4@2 ~@3, ~ g3@3 a2@3 ~@9, ~@4 e3@10 ~@4 d3@9 d3@5]/2", // C F#m D C D C
  M: "[~@2 [g3,c4,e4] ~ [c4,e4] [g3,c4,e4]@2 [f#3,a3]@2 ~ [f#3,a3,d4] ~@3 [f#3,a3,d4]@2, a2@7 a2@7 d3@9 d3@3 d3@6, ~@7 d4@3 ~@2 a3@2 ~@2]/2", // C F#m D
  N: "[[a2,g3,c4,e4]@2 ~@2 [g3,c4,e4]@2 a2@2 a2@2 [a2,g4]@4 d4@4 ~@4 [f#3,a3,d4]@2 ~@4 [f#3,a3,d4]@3 ~, ~@3 [g3,c4,e4]@4 ~@2 [f#3,a3,d4]@2 ~ [f#3,a3,d4]@2 ~@2, ~@20 d3@4 ~@2 d3@5 ~]/2", // Am7 C A7 D C D
  O: "[[a2,g3,c4,e4]@2 ~@2 [g3,c4,e4]@2 a2@2 ~@2 g4@3 ~ [f#3,a3,d4]@4 [a3,d4]@2 ~@2 [f#3,a3,d4]@2 ~@2 d3@2 [f#3,a3,d4] ~@3, ~@2 c4@2 ~@2 [g3,c4,e4]@7 ~ d3@6 d3@6 ~@6, ~@3 a2@3 ~@2 a2@5 ~@11 [f#3,a3,d4]@4 ~@4]/2", // Am7 C D D5 D C D
  P: "[[g2,g3,b3,d4]@7 ~]/2", // G
})).s("gm_acoustic_guitar_nylon").gain(0.39)

// chords · acoustic guitar nylon · "NYLON GTR" · soft notes
const acoustic_guitar_nylon_2 = note(`<
  ~@7 A ~@3 A ~@3 A B ~ C ~@15 A ~@3 A B ~ C ~@9 D E F G@2 H I ~@3 A ~@3 A B ~ C ~@25
>`.pickRestart({
  A: "~@2 g3 ~@5", B: "~@2 d4 ~", C: "~ [a3,f#4] ~@2 f#4!2 ~@2", D: "~@2 [f#3,a3] ~ [f#3,a3] [f#3,d4] ~@2",
  E: "~ g3 ~ [g3,c4,e4] g3 ~@3", F: "~ [f#3,a3] ~ [f#3,a3,d4] [f#3,d4]@2 ~@2",
  G: "[~@3 a2@3 ~@8 [f#3,a3]@4 d3 ~@13, ~ [g3,c4,e4] ~@14]/2", H: "~ [g3,e4] ~@6", I: "~@2 f#3@3 ~@11",
})).s("gm_acoustic_guitar_nylon").gain(0.19)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~@16 A B A C D@5 E@2 ~@12 A B A C D@5 E@2 F@2 G@2 H@2 I@2 ~@7 J@2 K@2 C L@2 M@2 N@3 O@4 P@3 O@4 P@3 Q@2 ~
>`.pickRestart({
  A: "f#5@3 a5", B: "g5@15 ~", C: "g5@3 ~", D: "[g5,g6] ~@3 [g5,g6] ~@3 [g5,g6] ~@3 [g5,g6] ~@3",
  E: "[[g5,g6] ~@3 [g5,g6]@2 ~@2 g6@20 ~@4, ~ g5 ~@2]/2", F: "[[c4,e4,g4,b4]@13 ~ [a3,d4,f#4,a4]@17 ~]/2",
  G: "[b4@13 ~ [a3,d4,a4]@17 ~]/2", H: "[b4@13 ~ [a3,a4]@18]/2", I: "[[c4,g4,b4]@13 ~ a5@6 d6@4 f#6@4 a6@3 ~]/2",
  J: "[~@4 [c5,e5]@4 ~@4 b5@3 ~ f#5@12 a5@4, ~ g5@3]/2", K: "[~@4 f#5@3 a5, g5]/2",
  L: "[[g3,d4,g4,b4,d5]@7 [f4,a4,c5]@4 [c4,e4,g4,c5,e5]@5]/2", // G F C
  M: "[[g4,b4,d5,g5,b5]@7 [f4,a4,c5,f5,a5]@4 [c4,g4,c5,e5,g5]@5]/2", // G F C
  N: "[[g4,g5,b5,d6]@14 [f5,a5,c6]@16 [e5,g5,c6]@17 ~]/3", // G F C
  O: "[[g3,d4,g4,b4,d5,b6]@7 [f4,a4,c5,a6]@4 [c4,e4,g4,c5,e5]@5 [g4,b4,d5,g5,b5]@7 [f4,a4,c5,f5,a5,a6]@4 ~@3 a6@2, ~@11 g6@12 ~@4 [c4,g4,c5,e5,g5,g6]@5]/4", // G F C G F C
  P: "[[g4,g5,b5,d6,b6]@14 [f5,a5,c6]@16 [e5,g5,c6]@17 ~]/3", Q: "[g2,d4]/2",
})).s("gm_string_ensemble_1").gain(0.23)

// chords · string ensemble 1 · "STRINGS" · soft notes
const string_ensemble_1_soft = note("<~@4 A@4 ~@44 B@2 C@2 D ~ A@4 E@4 ~@25 F@2 ~>".pickRestart({
  A: "[[g5,g6]@63 ~]/4", B: "[[c4,e4,g4]@13 ~ f#4@17 ~]/2", C: "[[c4,e4,g4]@13 ~ [d4,f#4]@18]/2", D: "e4@13 ~@3",
  E: "[g6@63 ~, g5@7 ~]/4", F: "[d3,b3]/2",
})).s("gm_string_ensemble_1").gain(0.14)

// drums · kick
const kick = s("bd").struct("<~@4 A@65 B C@2 D C D C D C@2 D C D C D C@2 D C D C D E ~@2>".pickRestart({
  A: "x ~@2 x!2 ~@3", B: "x ~ x!3 ~@3", C: "x ~@6 x!2 ~ x ~@2 x ~@2", D: "x ~@6 x!2 ~ x ~@2 x!2 ~", E: "x",
})).gain(0.74)

// drums · rim
const rim = s("rim").struct("<~@4 [~ x ~ x]!65 [~@3 x] ~@24>").gain(0.66)

// drums · snare
const snare = s("sd").struct("<~@69 A B@6 C B@6 C B@6 D ~@3>".pickRestart({
  A: "~@3 x!2 ~ x ~@3 x ~@3 x!2", B: "~ x ~ x", C: "~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~", D: "~@3 x ~@2 x ~@4 x ~@2 x ~",
})).gain(0.74)

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

// drums · low tom
const low_tom = s("lt").struct("<~@69 A ~@6 B ~@6 B ~@6 C ~@3>".pickRestart({
  A: "~@3 x ~@10 x!2", B: "~@15 x", C: "~@3 x!2 ~@8 x ~@2",
})).gain(0.74)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@4 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B C B C B C B@2 A B A B A B A B C B
  C B C B C A B A D E F@5 G E F@5 G E F@5 G ~@3
>`.pickRestart({
  A: "x!5 ~ x ~ x!8", B: "x ~ x ~ x!12", C: "x!5 ~ x ~ x!7 ~", D: "x ~ x ~@2 x!7 ~ x!3", E: "x!8", F: "x!7 ~",
  G: "x ~ x ~ x ~ x!3 ~ x ~ x ~@3",
})).gain(0.22)

// drums · mid tom
const mid_tom = s("mt").struct("<~@69 A ~@6 B ~@6 B ~@6 C ~@3>".pickRestart({
  A: "~@7 x ~@4 x!2 ~@2", B: "~@13 x ~@2", C: "~@15 x",
})).gain(0.74)

// drums · open hat
const open_hat = s("oh").struct("<~@44 A ~ A ~ A ~@10 A ~ A ~ A ~ A ~@3 B ~ C@5 D ~ C@5 D ~ C@5 D E ~@2>".pickRestart({
  A: "~@15 x", B: "~ x ~ x", C: "~@7 x", D: "~@5 x ~@8 x ~", E: "x",
})).gain(0.74)

// drums · high tom
const high_tom = s("ht").struct("<~@69 [~@9 x ~ x ~@4] ~@24>").gain(0.74)

// drums · crash
const crash = s("cr").struct("<~@69 A B ~@6 B ~@6 B ~@5 B@2 ~@2>".pickRestart({
  A: "~ x ~@2", B: "x",
})).gain(0.74)

// drums · ride
const ride = s("rd").struct("<~@70 A B@6 A B@6 A B@5 C@2 ~@2>".pickRestart({
  A: "~ x!3", B: "x!4", C: "x",
})).gain(0.74)

// drums · shaker
const shaker = s("sh").struct("<~@4 [x!16]!87 ~@3>").gain(0.07)

stack(
  bass, piano, acoustic_guitar_nylon, acoustic_guitar_nylon_2, string_ensemble_1, string_ensemble_1_soft, kick, rim,
  snare, snare_soft, low_tom, hihat, mid_tom, open_hat, high_tom, crash, ride, shaker
)