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

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~ A B C D E F E G H I J K L M J N O P J Q J R J S L T J U O P V ~ W X Y Z AA AB AC AD AE P AC AF J AG J AH L AI J AJ O
  AK J AL H I J K L M J N O P J Q H I J K L M J N O P J Q H I J K L M J N O P J Q J R J S L T J U O P V ~ W X Y Z AM
>`.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 ~ c2@3 ~ g1@3 ~ g1@2 a#1@2 a#1 ~", H: "c2@7 ~ g1@7 ~",
  I: "c2@5 ~ g1@3 ~ g1@2 ~@2 a#1@2", J: "c2@4 ~@2 c2@2 g1@7 ~", K: "c2@4 ~@2 g1@3 ~ g1@2 c2@2 d2 ~",
  L: "f2@5 ~ f2@2 c2@7 ~", M: "f2@6 c2@2 ~@2 c2@2 ~@2 c2 ~", N: "c2@5 ~ c2@3 ~ c2@2 g1@3 ~",
  O: "g2@5 ~ g2@2 d2@4 g2@3 ~", P: "f2@4 ~@2 f2@2 c2@4 f2@3 ~", Q: "c2@5 ~ g1@2 ~@2 g1@2 ~@2 a#1 ~",
  R: "c2@5 ~ g1@2 ~@2 g1@2 ~@2 g1@2", S: "c2@4 ~@2 c2@4 g1 ~ c2@2 g1 ~", T: "f2@2 ~ f2 ~ f2 e2 d2",
  U: "c2@5 ~ g1@2 ~@2 g1@2 c2@2 g1@2", V: "c2 ~@7", W: "c2@5 ~ c2@5 ~ c2@4", X: "e2@5 ~ e2@5 ~ e2@3 ~",
  Y: "g2@5 ~ g2@4 ~@2 g2@4", Z: "a#2@4 a#1 ~ a#2@4 a#1@2 a#2@3 ~", AA: "f2@4 ~@2 f2@2 c2@5 ~ f2@2",
  AB: "~@2 f2@3 ~ f2@4 c2@2 f2@2 e2 ~", AC: "c2@4 ~@2 c2@2 g1@5 ~ c2@2", AD: "~@2 c2@2 ~@2 g1@3 ~ g1@2 c2@3 ~",
  AE: "g1@5 ~ g1@2 d2@6 ~@2", AF: "~@2 c2@3 ~ g1@3 ~ g1@2 a1 ~ b1 ~", AG: "c2@4 ~@2 g1@2 ~@2 g1@2 a1@2 b1 ~",
  AH: "c2@5 ~ g1@3 ~ c2@2 d2 ~ e2 ~", AI: "f2@5 ~ c2@3 ~ c2@4 g1@2", AJ: "c2@5 ~ g1@2 ~@2 g1@2 c2@2 ~@2",
  AK: "f2@5 ~ c2@3 ~ c2@2 f2@3 ~", AL: "c2 ~@5 g1@2 g1@2 g1@2 a1@2 b1@2", AM: "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 L R S T U V W X Y Z AA AB ~ AC AD AE AF AG AH AI AJ AK AL AI AJ AM AN AI AJ AO
  AP AI AJ AK AP AI AQ I J K L M D N L O P Q L I J K L M D N L O P Q L I J K L M D N L O P Q L R S T U V W X Y Z AA AB ~
  AC AD AE AF AR
>`.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: "[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
  S: "[c4,e4]@2 [c3,g3] ~ [d4,f4] ~ [c4,e4]@4 [c3,g3] ~ [d4,f4]@3 ~", // C C5 Dm C C5 Dm
  T: "[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
  U: "[c4,e4]@3 ~ [d4,f4] ~ [c4,e4]@4 [c3,g3] ~ c4@2 f2@2, ~@12 e4 ~@3", // C Dm C C5
  V: "[f3,a3,c4]@2 f2@2 [f3,a3,c4] ~ f2 ~ [f3,a3,c4]@2 f2 ~ [f3,a3,c4] ~ f2 ~", // F
  W: "[f3,a3,c4]@2 f2 ~ [f3,a3,c4] ~ [f3,a3,c4]@4 f2 ~ [f3,a3,c4] ~ [c3,g3]@2", // F C5
  X: "[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
  Y: "[c4,e4]@2 ~@2 [d4,f4] ~ [c4,e4]@4 [c3,g3] ~ [c4,e4] ~@3", // C Dm C C5 C
  Z: "[g3,b3,d4]@4 ~@2 [g3,b3,d4]@4 g2 ~ [g3,b3,d4]@2 ~@2, g2@3 ~@5", // G
  AA: "[f3,a3,c4]@4 f2 ~ [f3,a3,c4]@5 ~ [f3,a3,c4] ~@3", AB: "[c3,g3,c4] ~@15", AC: "c4@5 ~ c4@2 ~@2 c4 ~ c4 ~ c4 ~",
  AD: "e4@3 ~ e4 ~ e4@2 ~@2 e4 ~ e4 ~ e4 ~", AE: "g4@3 ~ g4 ~ g4@2 ~@2 g4 ~ g4 ~ g4 ~",
  AF: "a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~ a#4 ~", AG: "[f3,a3,c4]@3 ~ [f3,a3,c4] ~@5 [f3,a3,c4] ~@5",
  AH: "[f3,a3,c4] ~@5 [f3,a3,c4]@5 ~ [f3,a3,c4] ~@3", AI: "~@4 [g3,c4,e4] ~@5 [g3,c4,e4] ~@5",
  AJ: "[g3,c4,e4] ~@5 [g3,c4,e4]@8 ~@2", AK: "~@4 [g3,b3,d4] ~@5 [g3,b3,d4] ~@5", AL: "[f3,a3,c4] ~@5 [f3,a3,c4]@7 ~@3",
  AM: "~@4 [c4,e4,g4] ~@5 [c4,e4,g4] ~@5", AN: "[c4,e4,g4] ~@5 [c4,e4,g4]@10", AO: "~@4 [f3,a3,c4] ~@5 [f3,a3,c4] ~@5",
  AP: "[f3,a3,c4] ~@5 [f3,a3,c4]@9 ~", // F
  AQ: "[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
  AR: "[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 F E G E F H I E J K C L M N O P Q R S T Q U S V@2 W X Y Z AA AB AC@2 AD AE O AF AG AH O AI S AJ O AF U
  S O AK E G E F H I E J K C L M E G E F H I E J K C L M E G E F H I E J K C L M N O P Q R S T Q U S V@2 W X Y Z AL
>`.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]@3 ~@3 [c5,e5,g5]@5 ~ [c5,e5,g5] ~@3",
  G: "[c5,e5,g5]@4 ~@2 [c5,e5,g5] ~@5 [c5,e5,g5] ~@3", H: "~@4 [c5,f5,a5] ~@5 [c5,f5,a5] ~@5",
  I: "[c5,f5,a5] ~@5 [c5,f5,a5]@9 ~", J: "[c5,e5,g5] ~@5 [c5,e5,g5]@6 ~@4", K: "~@4 [d5,g5,b5] ~@5 [d5,g5,b5]@5 ~",
  L: "~@4 [c5,e5,g5] ~@5 [c5,e5,g5]@3 ~@3", M: "[c5,e5,g5] ~@5 [c5,e5,g5] ~@5 [c5,e5,g5] ~@3",
  N: "[c5,e5,g5]@11 ~ [c5,a5]@2 ~@2, ~@12 f5 ~@3", O: "[c5,e5,g5]@15 ~", P: "[c5,e5,g5]@5 ~ [c5,f5,a5] ~",
  Q: "[c5,e5,g5]@13 ~@3", R: "[c5,f5,a5]@10 ~@2 [c5,f5,a5] ~@3", S: "[c5,f5,a5]@7 ~",
  T: "[c5,e5,g5]@10 ~@2 [c5,f5,a5] ~@3", U: "[d5,g5,b5]@15 ~", V: "[c5,e5] ~@15, g5 ~@7",
  W: "c6@3 ~ c6 ~ c6@2 ~@2 c6 ~ c6 ~ c6 ~", X: "[c6,e6]@3 e6 c6 ~ [c6,e6]@3 ~ [c6,e6] ~ [c6,e6] ~ [c6,e6] ~",
  Y: "[c6,e6,g6]@3 ~ [c6,e6,g6] ~ [c6,e6,g6]@3 ~ [c6,e6,g6] ~ [c6,e6,g6] ~ [c6,e6,g6] ~", Z: "[c6,e6,g6,a#6]@7 ~",
  AA: "[f5,a5,c6]@4 ~@2 [f5,a5,c6]@9 ~", AB: "[f5,a5,c6]@5 ~ [f5,a5,c6]@3 ~ [d#5,a5,c6]@5 ~",
  AC: "[[c5,e5,g5]@21 ~ [a#4,g5]@2 ~@2 [a#4,e5,g5]@4 ~@2, ~@22 e5 ~@9]/2", AD: "[g5,b5,d6]@15 ~",
  AE: "[f5,a5,c6]@5 ~ [d#5,a5,c6]@2 ~@2 [d#5,a5,c6]@4 ~@2", // F Adim
  AF: "[a#4,c5,e5,g5] ~@5 [a#4,c5,e5,g5]@5 ~ [a#4,c5,e5,g5] ~@3", AG: "[c5,e5,g5]@9 ~ [c5,e5,g5] ~@5",
  AH: "[c5,e5,g5] ~@5 [c5,e5,g5]@5 ~ [c5,f5,a5]@2 ~@2", // C F
  AI: "[a#4,c5,e5,g5] ~@5 [c5,e5,g5]@5 ~ [c5,e5,g5]@2 ~@2, ~@3 a#4@3 ~@2", // C7 C
  AJ: "[c5,f5,a5]@5 ~ [c5,f5,a5]@5 ~ [c5,f5,a5] ~@3", // F
  AK: "[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
  AL: "[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)