// Twistin 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, A@4 for four bars: edit a riff to change every repeat.

// bass · acoustic bass · "twistin the nite"
const bass = note(`<
  ~ A@2 B ~ C D E@2 F@2 G H C D E@2 F@2 I J K L K M N O I P C D E@2 F@2 G H C D E@2 F@2 I J K L K M N O I P C D E@2 F@2
  G H C D E@2 F@2 I J C D E@2 F@2 G H C D E@2 F@2 I J K L K M N O I P C D E@2 F@2 G H C D E@2 F@2 I J K L K M N O I P K
  L K M N O I P 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: "c2@5 ~ a1@6 g1@5 ~ a1@6",
  G: "d2 b1 a1 b1", H: "d2@6 e2@6 f2@5 ~ f#2@5 ~", I: "d2@5 ~ c2@5 ~ b1@6 a1@5 ~", J: "g1@5 ~ e2@6 d2@6 e2@4 ~@2",
  K: "g1@6 e2@6 d2@5 ~ e2@5 ~", L: "g1 ~ g1 e2@3 d2@3 e2@3", M: "g1 a1 a#1 b1", N: "c2@6 a2@6 g2@6 a2@5 ~, ~@6 g2 ~@17",
  O: "c2@6 a2@6 g2@5 ~ a2@6", P: "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 F G K L@2 M@2 ~@2 N O P@2 C D E F G H I J C D E F G K L@2 M@2 ~@2 N O P@2 C D E F G H
  I J C D E F G ~@3 C D E F G H I J C D E F G ~@3 M@2 ~@2 N O P@2 C D E F G H I J C D E F G K L@2 M@2 ~@2 N O P@2 M@2
  ~@2 N O P@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: "~@22 [d4,f#4] ~",
  L: "[~@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
  M: "~@10 [b3,d4]@2 ~@4 [b3,d4]@7 ~", N: "~@10 [c4,e4]@2 ~@4 [c4,e4]@7 ~",
  O: "~@10 [c4,e4]@2 ~@4 [c4,e4]@3 ~@3 [d4,f#4]@2", // C D
  P: "[~@4 [d4,f#4]@5 ~ [d4,f#4] ~ [c4,e4]@4 ~@2 [b3,d4]@2 ~@2 [b3,d4]@8 ~@18]/2", // D C Bm
})).s("gm_synth_brass_1").gain(0.59)

// chords · piano · "E.piano 2"
const piano = note(`<
  ~ A@2 B ~ C@2 D@2 E F G H C@2 I D F E J K C@4 E@2 J L C@2 D@2 E F G H C@2 I D F E J K C@4 E@2 J L C@2 D@2 E F G H C@2
  I D F E J K C@2 D@2 E F G H C@2 I D F E J K C@4 E@2 J L C@2 D@2 E F G H C@2 I D F E J K C@4 E@2 J L C@4 E@2 J L 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 [b3,d4]@2 ~@4 [b3,d4]@2 ~@4 [b3,d4]@2, ~@10 g3 ~@5 g3 ~@5 g3 ~", // G Bm
  D: "~@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
  E: "~@4 [g3,c4,e4]@2 ~@4 [g3,e4] ~@5 [g3,c4,e4] ~@5 [g3,c4,e4] ~, ~@5 c4 ~@6", // C
  F: "~@4 [g3,c4,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~@5 [g3,e4] ~, ~@5 c4 ~@2 c4 ~@2 c4", // C
  G: "~@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
  H: "~@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
  I: "~@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
  J: "~@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
  K: "~@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
  L: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5 [g3,b3,d4] ~", // G
})).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)