// Twisting the Night Away — Sam Cooke
// 141 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: bank select 127 (Roland MT-32 map) read through the MT-32 patch table: ch 16 "vhm5" Recorder -> recorder; ch 16 "vhm5" Harpsi 3 -> harpsichord
// note: duplicate parts dropped: ch 4 "twistin the nite" piano (copy of ch 1 "twistin the nite" acoustic bass)
// note: Full arrangement: all 129 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(141/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 · "twistin the nite"
const bass = note(`<
  ~ A@2 B ~ C D E F G H I J K L M N O P Q R S T U V W X Y Z C D E F G H I J K L M N O P Q R S T U V W X Y Z C D E F G H
  I J K L M N O P Q R C D E F G H I J K L M N O P Q R S T U V W X Y Z C D E F G H I J K L M N O P Q R S T U V W X Y Z S
  T U V W X Y Z A@2 B ~
>`.pickRestart({
  A: "[g1@2 ~@4 g2@3 ~@3 f2@4 g2@2 ~@3 d2@8 e2@3 ~@3 d2@5 ~ e2@3 ~@4]/2", B: "g1@3 ~@3 g2@3 ~@3 f2@3 g2@2 ~@4 g2@2 ~",
  C: "g2@5 ~ e2@6 d2@6 e2@6", D: "g2@6 e2@6 d2@5 ~ e2@4 ~@2", E: "e2@6 d2@6 b1@6 d2@5 ~", F: "e2@5 ~ d2@6 b1@6 d2@5 ~",
  G: "c2@5 ~ a1@6 g1@5 ~ a1@6", H: "c2@5 ~ a1@6 g1@6 a1@5 ~", I: "d2 b1 a1 b1", J: "d2@6 e2@6 f2@5 ~ f#2@5 ~",
  K: "g2 e2 d2 e2", L: "g2@6 e2@6 d2@5 ~ e2@5 ~", M: "e2 d2 b1 d2", N: "e2@3 d2@3 b1@3 d2@2 ~",
  O: "c2@5 ~ a1@5 ~ g1@5 ~ a1@6", P: "c2 a1 g1 a1", Q: "d2@5 ~ c2@5 ~ b1@6 a1@5 ~", R: "g1@5 ~ e2@6 d2@6 e2@4 ~@2",
  S: "g1@6 e2@6 d2@5 ~ e2@5 ~", T: "g1 ~ g1 e2@3 d2@3 e2@3", U: "g1@5 ~ e2@6 d2@6 e2@5 ~", V: "g1 a1 a#1 b1",
  W: "c2@6 a2@6 g2@6 a2@5 ~, ~@6 g2 ~@17", X: "c2@6 a2@6 g2@5 ~ a2@6", Y: "d2@5 ~ c2@6 b1@6 a1@5 ~",
  Z: "g1@5 ~ b1@6 d2@6 e2@4 ~@2",
})).s("gm_acoustic_bass").gain(0.72)

// chords · synth brass 1 · "Synth Br.1"
const synth_brass_1 = note(`<
  ~ A@2 B ~ C D E F G H I J C D E K G L M@2 N@2 ~@2 O P Q@2 C D E F G H I J C R E F G S M@2 N@2 ~@2 O P Q@2 C D E F G T
  I J C R E F G ~@3 C D E F G H I J C R E F G ~@3 N@2 ~@2 O P U@2 C D E F G H I J C D E K G S V@2 N@2 ~@2 W P Q@2 N@2
  ~@2 W P U@2 A@2 B ~
>`.pickRestart({
  A: "[g3@2 ~@4 g4@3 ~@3 f4@4 g4@2 ~@3 d4@8 e4@3 ~@3 d4@5 ~ e4@3 ~@4]/2", B: "g3@3 ~@3 g4@3 ~@3 f4@3 g4@2 ~@4 g4@2 ~",
  C: "g2 ~@11", D: "~@18 g2@5 ~", E: "e2 ~@11", F: "~@18 e2@5 ~", G: "c2 ~@11", H: "~@18 c2@5 ~", I: "d2 ~@11",
  J: "d2 e2 f2 f#2", K: "~@3 e2", L: "~@11 f#4, ~@22 d4 ~",
  M: "[~@3 [d4,f#4]@5 ~ d4 f#4 ~ [c4,e4]@5 ~ [b3,d4]@3 ~ [b3,d4]@9 ~@17, ~@12 d4 ~@35]/2", // D C Bm
  N: "~@10 [b3,d4]@2 ~@4 [b3,d4]@7 ~", O: "~@10 [c4,e4]@2 ~@4 [c4,e4]@7 ~",
  P: "~@10 [c4,e4]@2 ~@4 [c4,e4]@3 ~@3 [d4,f#4]@2", // C D
  Q: "[~@4 [d4,f#4]@5 ~ [d4,f#4] ~ [c4,e4]@4 ~@2 [b3,d4]@2 ~@2 [b3,d4]@8 ~@18]/2", R: "~@3 g2", S: "~@22 [d4,f#4] ~",
  T: "~@9 c2@2 ~", U: "[~@4 [d4,f#4]@5 ~ [d4,f#4] ~ [c4,e4]@4 ~@2 b3@2 ~@2 [b3,d4]@8 ~@18, ~@18 d4 ~@29]/2",
  V: "[~@3 [d4,f#4]@5 ~@2 f#4 ~ [c4,e4]@5 ~ [b3,d4]@3 ~ [b3,d4]@9 ~@17, ~@9 d4@2 ~ d4 ~@35]/2", // D C Bm
  W: "~@10 e4@2 ~@4 [c4,e4]@7 ~, ~@10 c4 ~@13", // C
})).s("gm_synth_brass_1").gain(0.59)

// chords · piano · "E.piano 2"
const piano = note(`<
  ~ A@2 B ~ C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ S AR AB W
  X AS AT AU AV AW AX AY AZ BA BB K BC BD BE BF BG Q BH AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ S AR AB W X
  AS AT AU AV AW AX AY AZ BA BB K BC BD BE BF BG Q BH BI BJ BK V BG BL BM Z BN BO BP AB BG BL BQ AT A@2 B ~
>`.pickRestart({
  A: "[~@6 [b3,d4]@3 ~@3 [a3,c4]@3 [b3,d4]@2 ~@4 [f3,a3]@8 ~ b3@2 ~@4 a3@5 ~ g3@3 ~@3, ~@29 g3@2 ~@4 f3@6 b3@2 ~@5]/2", // Bm Am Bm F
  B: "~@6 [b3,d4]@3 ~@3 [a3,c4]@4 [b3,d4]@2 ~@3 [b3,d4]@3", // Bm Am Bm
  C: "~@4 [g3,b3,d4] ~@5 [g3,d4] ~@5 [g3,b3,d4]@2 ~@4 [g3,b3,d4]@2, ~@5 b3 ~@6", // G G5 G
  D: "~@4 [g3,b3,d4] ~@5 [g3,b3] ~@5 [g3,b3] ~@5 [g3,b3] ~, ~@5 d4 ~@2 d4 ~@2 d4", // G
  E: "~@4 [g3,b3,e4]@2 ~@4 [g3,b3,e4]@2 ~@4 [g3,e4] ~@5 [g3,b3,e4] ~, ~@8 b3 ~@3", // Em C Em
  F: "~@4 [g3,e4] ~@5 [g3,e4] ~@5 [g3,b3,e4] ~@5 [g3,b3,e4]@2, ~@2 b3 ~@2 b3 ~@6", // C Em
  G: "~@4 [g3,c4,e4]@2 ~@4 [g3,c4,e4]@2 ~@4 [g3,e4] ~@5 [g3,c4] ~, ~@8 c4 ~@2 e4", // C C5
  H: "~@4 [g3,c4,e4] ~@5 [g3,c4]@2 ~@4 [g3,c4,e4]@2 ~@4 [g3,e4] ~, ~@10 e4 ~@11 c4@2", // C C5 C
  I: "~@4 [a3,f#4] ~@5 [a3,f#4] ~@5 [a3,f#4] ~@5 [a3,f#4] ~, ~@2 d4 ~@2 d4 ~@2 d4 ~@2 d4", // D
  J: "~@4 [a3,d4]@2 ~@4 [a3,d4]@2 ~@4 [a3,f#4] ~@5 [a3,d4,f#4] ~, ~@4 f#4 ~@5 f#4 ~@5 d4@2 ~@6", // D5 D
  K: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3] ~, ~@11 d4", // G
  L: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4]@2 ~@4 [g3,b3,d4] ~@5 [g3,b3] ~, ~@11 d4", // G
  M: "~@4 [b3,e4]@2 ~@4 [b3,e4]@2 ~@4 [b3,e4]@2 ~@4 [g3,e4] ~, ~@4 g3 ~@5 g3 ~@5 g3 ~@5 b3@2", // E5 C
  N: "~@4 [g3,b3,e4] ~@5 [g3,e4] ~@5 [g3,b3] ~@5 [g3,b3,e4] ~, ~@5 b3 ~@2 e4 ~@3", // Em C G Em
  O: "~@4 [g3,c4]@2 ~@4 [g3,e4] ~@5 [g3,e4] ~@5 [g3,c4,e4] ~, ~@4 e4 ~@5 c4@2 ~@4 c4@2 ~@6", // C5 C
  P: "~@4 [g3,c4,e4]@2 ~@4 [g3,e4] ~@5 [g3,c4,e4] ~@5 [g3,e4] ~, ~@5 c4 ~@5 c4", // C
  Q: "~@4 [a3,d4]@2 ~@4 [a3,d4]@2 ~@4 [d4,f#4]@2 ~@4 [a3,d4,f#4] ~, ~@4 f#4 ~@5 f#4 ~@5 a3 ~@7", // D5 D
  R: "~@4 [g3,b3] ~@5 [g3,b3,d4]@2 ~@4 [g3,b3,d4]@2 ~@4 [g3,b3,d4] ~, ~@2 d4 ~@9", // G
  S: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~", // G
  T: "~@4 [g3,d4] ~@5 [g3,b3] ~@5 [b3,d4]@2 ~@4 [g3,b3,d4] ~, ~@4 b3@2 ~@4 d4@2 ~@4 g3 ~@7", // G5 G Bm G
  U: "~@4 [g3,b3,d4] ~@5 [g3,b3] ~@5 [g3,b3] ~@5 [b3,d4]@2, ~@10 d4@2 ~@4 d4@2 ~@4 g3 ~", // G Bm
  V: "~@4 [g3,b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [g3,b3,d4] ~, ~@10 g3 ~@5 g3 ~@7", // G Bm G
  W: "~@4 [g3,c4,e4]@2 ~@4 [g3,c4,e4]@2 ~@4 [g3,c4,e4] ~@5 [g3,c4,e4] ~", // C
  X: "~@4 [g3,c4,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~, ~@5 c4 ~@2 c4 ~@2 c4", // C
  Y: "~@4 [a3,d4]@2 ~@4 [a3,d4]@2 ~@4 [a3,d4,f#4]@2 ~@4 [a3,f#4] ~, ~@4 f#4 ~@5 f#4 ~@11 d4@2", // D5 D
  Z: "~@4 [g3,b3,d4]@2 ~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~", // G
  AA: "~@4 [b3,d4]@2 ~@4 [g3,d4] ~@5 [b3,d4] ~@5 [g3,b3,d4] ~, ~@4 g3 ~@5 b3@2 ~@4 g3@2 ~@6", // Bm G5 Bm G
  AB: "~@4 [g3,b3,d4] ~@5 [b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [b3,d4]@2, ~@10 g3 ~@5 g3 ~@5 g3 ~", // G Bm
  AC: "~@4 [g3,b3] ~@5 [g3,e4]@2 ~@4 [g3,e4] ~@5 [g3,b3,e4] ~, ~@4 e4@2 ~@4 b3 ~@5 b3@2 ~@6", // G C Em
  AD: "~@4 [g3,b3]@2 ~@4 [g3,e4] ~@5 [b3,e4]@2 ~@4 [g3,e4] ~, ~@4 e4 ~@5 b3@2 ~@4 g3 ~@5 b3@2", // G C E5 C
  AE: "~@4 [g3,c4,e4]@2 ~@4 [g3,e4] ~@5 [g3,e4] ~@5 [g3,c4,e4]@2, ~@5 c4 ~@2 c4 ~@3", // C
  AF: "~@4 [g3,e4] ~@5 [g3,c4]@2 ~@4 [g3,e4] ~@5 [g3,c4,e4] ~, ~@4 c4@2 ~@4 e4 ~@5 c4@2 ~@6", // C C5 C
  AG: "~@4 [a3,f#4] ~@5 [a3,d4]@2 ~@4 [a3,d4,f#4]@2 ~@4 [a3,d4]@2, ~@4 d4@2 ~@4 f#4 ~@11 f#4 ~", // D D5 D D5
  AH: "~@4 [a3,d4]@2 ~@4 [a3,d4]@2 ~@4 [a3,d4,f#4] ~@5 [a3,d4,f#4] ~, ~@4 f#4 ~@5 f#4 ~@13", // D5 D
  AI: "~@4 [b3,d4]@2 ~@4 [g3,b3] ~@5 [b3,d4] ~@5 [g3,b3] ~, ~@4 g3 ~@5 d4@2 ~@4 g3@2 ~@4 d4@2", // Bm G Bm G
  AJ: "~@4 [g3,b3,d4] ~@5 [g3,d4] ~@5 [g3,b3,d4] ~@5 [b3,d4]@2, ~@10 b3@2 ~@10 g3 ~", // G G5 G Bm
  AK: "~@4 [g3,b3,e4]@2 ~@4 [b3,e4]@2 ~@4 [g3,e4] ~@5 [g3,b3,e4] ~, ~@10 g3 ~@5 b3@2 ~@6", // Em E5 C Em
  AL: "~@4 [g3,b3,e4] ~@5 [b3,e4]@2 ~@4 [b3,e4]@2 ~@4 [b3,e4]@2, ~@10 g3 ~@5 g3 ~@5 g3 ~", // Em E5
  AM: "~@4 [g3,c4,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~@5 [g3,c4,e4] ~, ~@5 c4 ~@2 c4 ~@3", // C
  AN: "~@4 [g3,c4,e4]@2 ~@4 [c4,e4]@2 ~@4 [g3,e4] ~@5 [g3,c4,e4] ~, ~@10 g3 ~@5 c4@2 ~@6", // C
  AO: "~@4 [a3,f#4] ~@5 [a3,f#4] ~@5 [d4,f#4]@2 ~@4 [a3,d4,f#4] ~, ~@4 d4@2 ~@4 d4@2 ~@4 a3 ~@7", // D
  AP: "~@4 [g3,b3,d4]@2 ~@4 [g3,b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [g3,b3,d4] ~, ~@16 g3 ~@7", // G Bm G
  AQ: "~@4 [g3,b3,d4] ~@5 [b3,d4] ~@5 [g3,b3] ~@5 [b3,d4] ~, ~@5 g3 ~@2 d4 ~@2 g3", // G Bm G Bm
  AR: "~@4 [g3,d4] ~@5 [g3,b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [g3,b3,d4] ~, ~@4 b3@2 ~@10 g3 ~@7", // G5 G Bm G
  AS: "~@4 [a3,d4]@2 ~@4 [a3,f#4] ~@5 [a3,f#4] ~@5 [a3,f#4] ~, ~@4 f#4 ~@5 d4@2 ~@4 d4@2 ~@4 d4@2", // D5 D
  AT: "~@4 [g3,b3,d4]@2 ~@4 [g3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~, ~@5 b3 ~@6", // G G5 G
  AU: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [b3,d4] ~@5 [g3,b3,d4]@2, ~@8 g3 ~@3", // G Bm G
  AV: "~@4 [g3,b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [g3,b3] ~@5 [g3,b3] ~, ~@10 g3 ~@5 d4@2 ~@4 d4@2", // G Bm G
  AW: "~@4 [g3,b3] ~@5 [g3,b3,e4]@2 ~@4 [g3,e4] ~@5 [g3,b3,e4]@2, ~@2 e4 ~@5 b3 ~@3", // G Em C Em
  AX: "~@4 [g3,e4] ~@5 [g3,e4] ~@5 [g3,b3,e4] ~@5 [g3,e4] ~, ~@2 b3 ~@2 b3 ~@5 b3", // C Em C
  AY: "~@4 [g3,c4,e4]@2 ~@4 [g3,c4,e4]@2 ~@4 [c4,e4]@2 ~@4 [g3,c4] ~, ~@16 g3 ~@5 e4@2", // C C5
  AZ: "~@4 [g3,c4,e4] ~@5 [c4,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~, ~@5 g3 ~@2 c4 ~@2 c4", // C
  BA: "~@4 [a3,f#4] ~@5 [a3,d4]@2 ~@4 [a3,f#4] ~@5 [a3,f#4] ~, ~@4 d4@2 ~@4 f#4 ~@5 d4@2 ~@4 d4@2", // D D5 D
  BB: "~@4 [a3,d4]@2 ~@4 [a3,d4]@2 ~@4 [a3,f#4] ~@5 [a3,f#4] ~, ~@4 f#4 ~@5 f#4 ~@5 d4@2 ~@4 d4@2", // D5 D
  BC: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4]@2 ~@4 [g3,d4] ~@5 [g3,b3] ~, ~@8 b3 ~@2 d4", // G G5 G
  BD: "~@4 [b3,e4]@2 ~@4 [b3,e4]@2 ~@4 [g3,e4] ~@5 [g3,e4] ~, ~@4 g3 ~@5 g3 ~@5 b3@2 ~@4 b3@2", // E5 C
  BE: "~@4 [g3,b3,e4] ~@5 [b3,e4]@2 ~@4 [g3,b3] ~@5 [g3,b3,e4] ~, ~@10 g3 ~@5 e4@2 ~@6", // Em E5 G Em
  BF: "~@4 [g3,c4,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~@5 [g3,c4] ~, ~@5 c4 ~@2 c4 ~@2 e4", // C C5
  BG: "~@4 [g3,c4,e4]@2 ~@4 [g3,e4] ~@5 [g3,c4,e4] ~@5 [g3,c4,e4] ~, ~@5 c4 ~@6", // C
  BH: "~@4 [g3,b3] ~@5 [b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [g3,b3,d4] ~, ~@4 d4@2 ~@4 g3 ~@5 g3 ~@7", // G Bm G
  BI: "~@4 [b3,d4]@2 ~@4 [b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~, ~@4 g3 ~@5 g3@2 ~@12", // Bm G
  BJ: "~@4 [g3,b3,d4] ~@5 [g3,b3] ~@5 [b3,d4]@2 ~@4 [g3,b3,d4]@2, ~@10 d4@2 ~@4 g3 ~@7", // G Bm G
  BK: "~@4 [g3,b3,d4] ~@5 [g3,b3] ~@5 [g3,b3] ~@5 [g3,b3,d4] ~, ~@5 d4 ~@2 d4 ~@3", // G
  BL: "~@4 [g3,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~, ~@2 c4 ~@2 c4 ~@2 c4 ~@2 c4", // C
  BM: "~@2 [a3,d4] ~@2 [a3,d4] ~@2 [a3,d4,f#4] ~@2 [a3,d4], ~@4 f#4 ~@5 f#4 ~@11 f#4 ~", // D5 D D5
  BN: "~@4 [b3,d4]@2 ~@4 [b3,d4] ~@5 [g3,b3] ~@5 [g3,b3,d4] ~, ~@4 g3 ~@5 g3@2 ~@4 d4@2 ~@6", // Bm G
  BO: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4]@2", // G
  BP: "~@4 [g3,d4] ~@5 [g3,b3,d4]@2 ~@4 [g3,b3] ~@5 [g3,b3,d4] ~, ~@2 b3 ~@5 d4 ~@3", // G5 G
  BQ: "~@4 [a3,d4]@2 ~@4 [a3,f#4] ~@5 [a3,f#4] ~@5 [a3,d4]@2, ~@4 f#4 ~@5 d4@2 ~@4 d4@2 ~@4 f#4 ~", // D5 D D5
})).s("gm_piano").gain(0.18)

// drums · kick
const kick = s("bd").struct(`<
  ~ A B C ~ 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 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 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 A B C ~
>`.pickRestart({
  A: "x!4", B: "x ~@2 x ~@2 x ~ x!2 ~@2", C: "x ~@2 x ~@2 x ~@2 x ~ x",
})).gain(0.8)

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

// drums · clap
const clap = s("cp").struct("<~ [~ x ~ x]!3 ~ [~ x ~ x]!123 ~>").gain(0.72)

// drums · hihat
const hihat = s("hh").struct("<~ [x!4]!3 [~ x ~ x] [x!4]!123 ~>").gain(0.72)

// drums · ride
const ride = s("rd").struct("<~ A@3 ~ A@16 B@7 C A@16 B@7 C A@32 B@7 C A@16 B@7 C B@7 C A@3 ~>".pickRestart({
  A: "~@2 x ~@2 x ~@2 x ~@2 x", B: "x ~ x!2 ~ x!2 ~ x!2 ~ x", C: "x ~ x ~@2 x ~@2 x ~@2 x",
})).gain(0.72)

stack(bass, synth_brass_1, piano, kick, snare, clap, hihat, ride)