// Peppermint Twist — Joey Dee
// 200 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 110 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(200/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 I J K L M N O P Q R O S T U V W M X V Y Z AA AB ~ AC AD AE AF AG AH AI AJ AK AA AI AL O AM T AN M AO
  O AP Z AQ T AR I J K L M N O P Q R O S I J K L M N O P Q R O S I J K L M N O P Q R O S T U V W M X V Y Z AA AB ~ AC AD
  AE AF AS
>`.pickRestart({
  A: "g2@3 ~ g2@4 d2@3 ~ d2@4", B: "g2@3 ~ g2@2 d2@3 ~ d2@2 g2@2 f#2@2", C: "f2@3 ~ f2@3 ~ c2@3 ~ c2@4",
  D: "f2@3 ~ f2@2 c2@3 ~ g1@2 a1@2 a#1 ~", E: "c2@2 ~@2 c2@4 g1@3 ~ g1@4",
  F: "c2@3 ~ c2@2 g1@3 ~ g1@2 ~ a#1@2 ~, ~@6 a1 ~", G: "c2@3 ~ c2@4 g1@3 ~ g1@3 ~",
  H: "c2 ~ c2@3 ~ g1@3 ~ g1@2 a#1@2 a#1 ~", I: "c2@7 ~ g1@7 ~", J: "c2@5 ~ g1@3 ~ g1@2 ~@2 a#1@2",
  K: "c2@5 ~ c2@2 g1@8", L: "c2@4 ~@2 g1@3 ~ g1@2 c2@2 d2 ~", M: "f2@5 ~ f2@2 c2@7 ~", N: "f2@6 c2@2 ~@2 c2@2 ~@2 c2 ~",
  O: "c2@4 ~@2 c2@2 g1@7 ~", P: "c2@5 ~ c2@3 ~ c2@2 g1@3 ~", Q: "g2@5 ~ g2@2 d2@4 g2@4", R: "f2@4 ~@2 f2@2 c2@4 f2@3 ~",
  S: "c2@5 ~ g1@2 ~@2 g1@2 ~@2 a#1 ~", T: "c2@5 ~ c2@2 g1@7 ~", U: "c2@5 ~ g1@2 ~@2 g1@2 ~@2 g1@2",
  V: "c2@5 ~ c2@2 g1@6 ~@2", W: "c2@4 ~@2 c2@4 g1 ~ c2@2 g1 ~", X: "f2@2 ~ f2 ~ f2 e2 d2",
  Y: "c2@5 ~ g1@2 ~@2 g1@2 c2@2 g1@2", Z: "g2@5 ~ g2@2 d2@4 g2@3 ~", AA: "f2@5 ~ f2@2 c2@3 ~ f2@3 ~", AB: "c2 ~@7",
  AC: "c2@5 ~ c2@5 ~ c2@4", AD: "e2@5 ~ e2@5 ~ e2@3 ~", AE: "g2@5 ~ g2@4 ~@2 g2@4",
  AF: "a#2@4 a#1 ~ a#2@4 a#1@2 a#2@3 ~", AG: "f2@4 ~@2 f2@2 c2@5 ~ f2@2", AH: "~@2 f2@3 ~ f2@4 c2@2 f2@2 e2 ~",
  AI: "c2@4 ~@2 c2@2 g1@5 ~ c2@2", AJ: "~@2 c2@2 ~@2 g1@3 ~ g1@2 c2@3 ~", AK: "g1@5 ~ g1@2 d2@6 ~@2",
  AL: "~@2 c2@3 ~ g1@3 ~ g1@2 a1 ~ b1 ~", AM: "c2@4 ~@2 g1@2 ~@2 g1@2 a1@2 b1 ~", AN: "c2@5 ~ g1@3 ~ c2@2 d2 ~ e2 ~",
  AO: "f2@5 ~ c2@3 ~ c2@4 g1@2", AP: "c2@5 ~ g1@2 ~@2 g1@2 c2@2 ~@2", AQ: "f2@5 ~ c2@3 ~ c2@2 f2@3 ~",
  AR: "c2 ~@5 g1@2 g1@2 g1@2 a1@2 b1@2", AS: "c2@3 ~@13",
})).s("gm_acoustic_bass").gain(0.52)

// chords · piano · "A.PIANO 2"
const piano = note(`<
  ~ A B C D E F G H I J K L M D N L 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 AJ AN AO AP AJ AQ
  AR AS AJ AK AL AS AJ AT I J K L M D N L O P Q R I J K L M D N L O P Q R I J K L M D N L O P Q R S T U V W X Y Z AA AB
  AC ~ AD AE AF AG AU
>`.pickRestart({
  A: "g2@4 [g3,b3,d4] ~ g2 ~ [g3,b3,d4] ~ [g3,b3,d4]@2 g2@2 b3 ~", // G
  B: "[g3,b3,d4] ~ [g3,b3,d4]@2 g2 ~ [g3,b3,d4]@4 g2 ~ [g3,b3,d4]@3 ~", // G
  C: "f2 ~@3 [f3,a3,c4] ~ f2 ~ [f3,a3,c4] ~ [f3,a3,c4]@2 f2 ~@3", // F
  D: "[f3,a3,c4] ~ [f3,a3,c4] ~@3 [f3,a3,c4]@5 ~ [f3,a3,c4] ~@3", // F
  E: "~@4 [c3,g3,c4,e4] ~@3 [c4,e4] ~ [c4,e4]@4 g3 ~, ~@4 c3@3 ~, ~@2 g3 ~", // C
  F: "[c4,e4] ~ [c4,e4] ~ [c3,g3] ~ [c4,e4]@4 [c3,g3]@2 [c4,e4,g4] ~ [c4,e4,g4] ~", // C C5 C C5 C
  G: "~@4 [c3,g3,c4,e4] ~@3 [c3,g3,c4,e4] ~ [c3,g3,c4,e4]@5 ~", // C
  H: "[c3,g3,c4,e4] ~ [c3,g3,c4,e4] ~@3 [c3,g3,c4,e4]@4 [c4,e4]@2 [c3,e3,g3] ~ [c4,e4] ~, ~@6 e3 ~@9", // C
  I: "[c3,g3,c4,e4] ~@3 [c4,e4] ~ [c3,g3] ~ [c4,e4] ~ [c4,e4] ~ [c3,g3] ~ [c4,e4] ~", // C C5 C C5 C
  J: "[c4,e4] ~ [c4,e4]@2 ~@2 [c4,e4]@4 [c3,g3] ~ [c4,e4]@2 [c3,g3] ~", // C C5 C C5
  K: "[c4,e4] ~@3 [c4,e4,g4]@2 ~@2 [c4,e4,g4] ~ [c4,e4,g4]@4 ~@2", // C
  L: "[c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4]@4 ~@2", // C
  M: "[f3,a3,c4]@2 ~@2 [f3,a3,c4] ~ f2 ~ [f3,a3,c4] ~ [f3,a3,c4] ~ f2 ~ [f3,a3,c4] ~, f2 ~@3", // F
  N: "~@4 [c4,e4,g4] ~@3 [c4,e4,g4] ~ [c4,e4,g4]@4 ~@2", O: "g2@4 [g3,b3,d4] ~ g2 ~@3 [g3,b3,d4]@2 g2 ~ [g3,b3,d4] ~",
  P: "[f3,a3,c4]@3 ~ [f3,a3,c4] ~ f2 ~ [f3,a3,c4] ~ [f3,a3,c4]@3 ~ [f3,a3,c4] ~", // F
  Q: "c3@3 ~ [c4,e4,g4] ~@3 [c4,e4,g4] ~ [c4,e4,g4]@3 ~@3", // C
  R: "[c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4]@5 ~", // C
  S: "[c3,g3]@4 [c4,e4]@2 [c3,g3] ~ [c4,e4]@2 [c3,g3] ~ [d4,f4]@2 [c3,g3] ~, [c4,e4]@3 ~@13", // C5 C C5 C C5 Dm C5 C
  T: "[c4,e4]@2 [c3,g3] ~ [d4,f4] ~ [c4,e4]@4 [c3,g3] ~ [d4,f4]@3 ~", // C C5 Dm C C5 Dm
  U: "[c3,g3,c4,e4]@4 [d4,f4]@2 [c3,g3]@2 [c4,e4]@2 [c3,g3] ~ [d4,f4]@2 [c3,g3] ~", // C Dm C5 C C5 Dm C5
  V: "[c4,e4]@3 ~ [d4,f4] ~ [c4,e4]@4 [c3,g3] ~ c4@2 f2@2, ~@12 e4 ~@3", // C Dm C C5
  W: "[f3,a3,c4]@2 f2@2 [f3,a3,c4] ~ f2 ~ [f3,a3,c4]@2 f2 ~ [f3,a3,c4] ~ f2 ~", // F
  X: "[f3,a3,c4]@2 f2 ~ [f3,a3,c4] ~ [f3,a3,c4]@4 f2 ~ [f3,a3,c4] ~ [c3,g3]@2", // F C5
  Y: "[c4,e4]@3 ~ [d4,f4]@2 [c3,g3] ~ [c4,e4]@2 [c3,g3] ~ [d4,f4]@2 [c3,g3] ~", // C Dm C5 C C5 Dm C5
  Z: "[c4,e4]@2 ~@2 [d4,f4] ~ [c4,e4]@4 [c3,g3] ~ [c4,e4] ~@3", // C Dm C C5 C
  AA: "[g3,b3,d4]@4 ~@2 [g3,b3,d4]@4 g2 ~ [g3,b3,d4]@2 ~@2, g2@3 ~@5", // G
  AB: "[f3,a3,c4]@4 f2 ~ [f3,a3,c4]@5 ~ [f3,a3,c4] ~@3", AC: "[c3,g3,c4] ~@15", AD: "c4@5 ~ c4@2 ~@2 c4 ~ c4 ~ c4 ~",
  AE: "e4@3 ~ e4 ~ e4@2 ~@2 e4 ~ e4 ~ e4 ~", AF: "g4@3 ~ g4 ~ g4@2 ~@2 g4 ~ g4 ~ g4 ~",
  AG: "a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~", AH: "[f3,a3,c4]@3 ~ [f3,a3,c4] ~@5 [f3,a3,c4] ~@5",
  AI: "[f3,a3,c4] ~@5 [f3,a3,c4]@5 ~ [f3,a3,c4] ~@3", AJ: "~@4 [g3,c4,e4] ~@5 [g3,c4,e4] ~@5",
  AK: "[g3,c4,e4] ~@5 [g3,c4,e4]@8 ~@2", AL: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5", AM: "[f3,a3,c4] ~@5 [f3,a3,c4]@7 ~@3",
  AN: "[g3,c4,e4] ~@5 [g3,c4,e4]@7 ~@3", AO: "~@4 [c4,e4,g4] ~@5 [c4,e4,g4] ~@5", AP: "[c4,e4,g4] ~@5 [c4,e4,g4]@10",
  AQ: "[g3,c4,e4] ~@5 [g3,c4,e4]@9 ~", AR: "~@4 [f3,a3,c4] ~@5 [f3,a3,c4] ~@5", AS: "[f3,a3,c4] ~@5 [f3,a3,c4]@9 ~",
  AT: "[c3,g3,c4,e4] ~@3 [c4,e4] ~ [c4,e4]@2 [c4,e4]@2 [c4,e4] ~ [c3,g3] ~ [c4,e4] ~, ~@6 [c3,g3] ~@9", // C C5 C C5
  AU: "[c4,e4,g4,a#4]@3 ~@13", // C7
})).s("gm_piano").gain(0.4)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~ A B C D E F G H I J K L M N O P Q M R S T U V U W X Y Z AA AB AC@2 ~@3 AD AE AF AG AH AI AJ AK AL AM@2 AN@2 AO AP AQ
  AR AS AT@2 AU I J K L M N O P Q M R S I J K L M N O P Q M R S I J K L M N O P Q M R S T U V U W X Y Z AA AB AC@2 ~@4
  AV
>`.pickRestart({
  A: "~@4 [g4,b4,d5] ~@5 [g4,b4,d5]@5 ~", B: "[g4,b4,d5]@5 ~ [g4,c5,e5]@5 ~ [g4,b4,d5] ~ [g4,b4,d5]@2",
  C: "~@4 [f4,a4,c5] ~@3 [f4,a4,c5] ~ [f4,a4,c5] ~@5", D: "~@2 [f4,a4,c5] ~@3 [f4,b4,d5]@5 ~ [f4,a4,c5] ~@3",
  E: "~@4 [c5,e5,g5] ~@5 [c5,e5,g5] ~@5", F: "[c5,e5,g5] ~@5 [c5,e5,g5]@5 ~ [c5,e5,g5] ~ [c5,e5,g5] ~",
  G: "~@6 [c5,e5,g5] ~@5 [c5,e5,g5] ~@3", H: "[c5,e5,g5] ~@5 [c5,e5,g5]@5 ~@5",
  I: "[c4,e4,g4] ~ [c4,e4,g4] ~@5 [c4,e4,g4]@4 ~@4", J: "~@6 c5 ~@3 c5@4 g4 ~", K: "~@4 [g4,c5,e5] ~@5 [g4,c5,e5] ~@5",
  L: "[g4,c5,e5] ~@5 [g4,c5,e5]@5 ~ [g4,c5,e5] ~@3", M: "~@2 [f4,a4,c5] ~@5 [f4,a4,c5]@3 ~ [f4,a4,c5] ~@3",
  N: "~@2 [f4,a4,c5] ~@5 [f4,a4,c5] ~ [f4,a4,c5] ~@3 [f4,a4,c5] ~", O: "~@4 [g4,c5,e5] ~@5 [g4,c5,e5]@4 ~@2",
  P: "[g4,c5,e5] ~ [g4,c5,e5] ~@3 [g4,c5,e5]@5 ~ [g4,c5,e5] ~@3", // C
  Q: "~@2 [g4,b4,d5] ~@5 [g4,b4,d5]@3 ~ [g4,b4,d5] ~ [g4,b4,d5] ~", // G
  R: "~@2 [g4,c5,e5] ~@5 [g4,c5,e5]@3 ~ [g4,c5,e5] ~ [g4,c5,e5] ~", // C
  S: "~@2 [g4,c5,e5] ~@5 [g4,c5,e5]@3 ~ [g4,c5,e5] ~@3", T: "~@4 [c5,e5,g5] ~@3 e5 ~ [c5,e5,g5] ~@5",
  U: "[c5,e5,g5] ~ [c5,e5,g5] ~@3 [c5,e5,g5]@5 ~ [c5,e5,g5] ~@3", V: "~@2 [c5,e5,g5] ~@5 [c5,e5,g5]@5 ~@3",
  W: "~@2 [c5,f5,a5] ~@5 [c5,f5,a5] ~@7", X: "[c5,f5,a5] ~ [c5,f5,a5] ~@3 [c5,f5,a5]@5 ~ [c5,f5,a5] ~@3",
  Y: "~@2 [c5,e5,g5] ~@5 [c5,e5,g5] ~@7", Z: "[c5,e5,g5] ~ [c5,e5,g5] ~@3 [c5,e5,g5]@6 ~@4",
  AA: "~@2 [b4,d5,g5] ~@5 [b4,d5,g5]@5 ~ [b4,d5,g5] ~", AB: "~@2 [a4,c5,f5] ~@5 [a4,c5,f5]@4 ~@4",
  AC: "[g4,c5,e5] ~@15", AD: "~@2 c6@2 d#6@2 c6@2 d#6@4 c6@3 ~", AE: "c6@2 a#5@2 c6 ~ c6@10", AF: "~@2 f6@13 ~",
  AG: "f6@4 d#6@2 c6@7 ~ a#5@2", AH: "c6@2 ~@2 a#5@3 ~ a5@2 g5@2 ~@2 g5@2", AI: "~@2 f5@2 d#5@2 f5@3 ~ d#5@2 d5@2 ~@2",
  AJ: "c5@3 ~ c5@3 ~ c5@3 ~ c5@4", AK: "~@2 g5 ~ g5 ~ g5@7 ~@3", AL: "~ a#5@2 g5 a#5@4",
  AM: "[~ c6@2 e6 c6@2 e6 c6@2 e6 c6@2 e6 c6@2 e6]/2", AN: "[~@4 g6@16 ~@2 a#6@6 a6@2 g6 ~]/2",
  AO: "~@2 f6@2 d#6 c6@2 ~", AP: "f6 d#6 ~ c6@2 a#5@2 c6", AQ: "~@4 g6@4 f6@2 g6@3 ~ g6 ~", AR: "g6@3 ~",
  AS: "c7@11 ~ a#6 ~ a6 ~", AT: "[a#6@2 a6@2 g6 ~ f6@3 ~ f6@9 d#6@3 ~@2 c6@5 ~ a#5@2]/2",
  AU: "c6@2 a#5@2 a5@2 g5@7 ~@3", AV: "[c5,e5,g5] ~@7",
})).s("gm_acoustic_guitar_steel").gain(0.64)

// chords · rock organ · "ORGAN 3"
const rock_organ = note(`<
  ~ A B C D E F E G E H E G I J E K L C M N O P Q R S T U V W T X@2 Y Z AA AB AC AD AE@2 AF AG P AH AI AJ P AK AL AM P
  AH W AL P AN E H E G I J E K L C M N E H E G I J E K L C M N E H E G I J E K L C M N O P Q R S T U V W T X@2 Y Z AA AB
  AO
>`.pickRestart({
  A: "[d5,g5,b5]@3 ~ [d5,g5,b5] ~@5 [d5,g5,b5]@5 ~", B: "[d5,g5,b5] ~@5 [d5,g5,b5]@6 [d5,g5,b5] ~@3",
  C: "~@4 [c5,f5,a5] ~@5 [c5,f5,a5]@5 ~", D: "[c5,f5,a5]@3 ~@3 [c5,f5,a5]@5 ~ [c5,f5,a5] ~@3",
  E: "~@4 [c5,e5,g5] ~@5 [c5,e5,g5] ~@5", F: "[c5,e5,g5]@4 ~@2 [c5,e5,g5]@5 ~ [c5,e5,g5] ~@3",
  G: "[c5,e5,g5]@3 ~@3 [c5,e5,g5]@5 ~ [c5,e5,g5] ~@3", H: "[c5,e5,g5]@4 ~@2 [c5,e5,g5] ~@5 [c5,e5,g5] ~@3",
  I: "~@4 [c5,f5,a5] ~@5 [c5,f5,a5] ~@5", J: "[c5,f5,a5] ~@5 [c5,f5,a5]@9 ~", K: "[c5,e5,g5] ~@5 [c5,e5,g5]@6 ~@4",
  L: "~@4 [d5,g5,b5] ~@5 [d5,g5,b5]@5 ~", M: "~@4 [c5,e5,g5] ~@5 [c5,e5,g5]@3 ~@3",
  N: "[c5,e5,g5] ~@5 [c5,e5,g5] ~@5 [c5,e5,g5] ~@3", O: "[c5,e5,g5]@11 ~ [c5,a5]@2 ~@2, ~@12 f5 ~@3",
  P: "[c5,e5,g5]@15 ~", Q: "[c5,e5,g5]@5 ~ [c5,f5,a5] ~", R: "[c5,e5,g5]@13 ~@3", S: "[c5,f5,a5]@10 ~@2 [c5,f5,a5] ~@3",
  T: "[c5,f5,a5]@7 ~", U: "[c5,e5,g5]@10 ~@2 [c5,f5,a5] ~@3", V: "[c5,e5,g5]@3 ~", W: "[d5,g5,b5]@15 ~",
  X: "[c5,e5] ~@15, g5 ~@7", Y: "c6@3 ~ c6 ~ c6@2 ~@2 c6 ~ c6 ~ c6 ~",
  Z: "[c6,e6]@3 e6 c6 ~ [c6,e6]@3 ~ [c6,e6] ~ [c6,e6] ~ [c6,e6] ~", // C
  AA: "[c6,e6,g6]@3 ~ [c6,e6,g6] ~ [c6,e6,g6]@3 ~ [c6,e6,g6] ~ [c6,e6,g6] ~ [c6,e6,g6] ~", AB: "[c6,e6,g6,a#6]@7 ~",
  AC: "[f5,a5,c6]@4 ~@2 [f5,a5,c6]@9 ~", AD: "[f5,a5,c6]@5 ~ [f5,a5,c6]@3 ~ [d#5,a5,c6]@5 ~",
  AE: "[[c5,e5,g5]@21 ~ [a#4,g5]@2 ~@2 [a#4,e5,g5]@4 ~@2, ~@22 e5 ~@9]/2", AF: "[g5,b5,d6]@15 ~",
  AG: "[f5,a5,c6]@5 ~ [d#5,a5,c6]@2 ~@2 [d#5,a5,c6]@4 ~@2", // F Adim
  AH: "[a#4,c5,e5,g5] ~@5 [a#4,c5,e5,g5]@5 ~ [a#4,c5,e5,g5] ~@3", AI: "[c5,e5,g5]@9 ~ [c5,e5,g5] ~@5",
  AJ: "[c5,e5,g5] ~@5 [c5,e5,g5]@5 ~ [c5,f5,a5]@2 ~@2", // C F
  AK: "[a#4,c5,e5,g5] ~@5 [c5,e5,g5]@5 ~ [c5,e5,g5]@2 ~@2, ~@3 a#4@3 ~@2", AL: "[c5,f5,a5]@15 ~",
  AM: "[c5,f5,a5]@5 ~ [c5,f5,a5]@5 ~ [c5,f5,a5] ~@3", // F
  AN: "[a#4,c5,e5,g5] ~@3 [c5,e5,g5] ~ [a#4,c5,e5,g5]@4 [c5,e5,g5]@2 [c5,e5,g5]@2 ~@2, ~@12 a#4 ~@3", // C7 C C7 C
  AO: "[e6,g6,a#6,c7]@3 ~@13", // C7
})).s("gm_rock_organ").gain(0.4)

// drums · kick
const kick = s("bd").struct("<~ [x!4]!30 x!2 [x!4]!70 x!2 [x!4]!4 x>").gain(0.42)

// drums · snare
const snare = s("sd").struct("<A B@20 C@10 D@2 C@3 E C@16 B@40 C@10 D@2 C@3 E D>".pickRestart({
  A: "~@5 x!3", B: "~@2 x!2 ~@2 x!2", C: "~@2 x!2 ~@2 x ~", D: "x", E: "x!8",
})).gain(0.42)

// drums · low tom
const low_tom = s("lt").struct("<~@109 x>").gain(0.42)

// drums · hihat
const hihat = s("hh").struct("<~@31 [~ x ~ x]!2 ~@70 [~ x ~ x]!2 ~@5>").gain(0.42)

// drums · ride
const ride = s("rd").struct("<~ [x!4]!30 ~@2 [x!4]!70 ~@2 [x!4]!4 ~>").gain(0.29)

stack(bass, piano, acoustic_guitar_steel, rock_organ, kick, snare, low_tom, hihat, ride)