// Keep Searchin' — Del Shannon
// 142 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 81 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(142/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.

// chords · harpsichord · "Track 2"
const harpsichord = note(`<
  A@3 B@3 C@2 D E F G B@2 C@2 D E F G H I@2 J K ~ L M N M N@2 O P Q N R S H I@2 J K ~ L M N T B@2 C@2 D E F G H I@2 J K
  ~ L M N M N U N U N M N M N U N U N M ~
>`.pickRestart({
  A: "[c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]!4", // Am
  B: "[c4,e4,a4]@4 [c4,e4,a4]@4 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]!2", // Am
  C: "[b3,d4,g4]@4 [b3,d4,g4]@4 [b3,d4,g4]@2 [b3,d4,g4]@2 [b3,d4,g4]@2 [b3,d4,g4] ~", // G
  D: "~@4 [c4,e4,a4] ~@3 [c4,e4,a4] c4 [e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~", // Am A5 Am
  E: "[c4,e4,a4] ~@3 [c4,e4,a4] ~@3 [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~", // Am
  F: "c4 ~@3 [e4,c5] ~@3 [e4,g4,c5] ~ [e4,g4,c5] ~ c5 ~@3", G: "[e4,a4,c5] ~@7 [a4,c5] ~@7",
  H: "a4 ~@3 [c4,e4] ~ [c4,e4] ~ [c4,e4,a4] ~@3 [c4,e4] ~ [c4,e4] ~", // C Am C
  I: "[c4,e4,a4] ~@3 [c4,e4] ~ [c4,e4] ~ [c4,e4,a4] ~@3 [c4,e4] ~ [c4,e4] ~", // Am C Am C
  J: "[c4,a4] e4 ~@3 [c4,e4]!2 ~ [c4,e4,a4] ~@3 [c4,e4] ~@3", // F C Am C
  K: "[b3,d4,g4] ~@3 [b3,d4,g4] ~@3 [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~@3", // G
  L: "a4@2 ~@2 [c4,e4,a4] ~@3 [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~@3, e4 ~@15", // Am
  M: "[c4,e4,g4] ~@3 [c4,e4,g4] ~@3 [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~ [c4,e4,g4] ~", // C
  N: "[c4,e4,a4] ~@3 [c4,e4,a4] ~@3 [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~@3", // Am
  O: "~@4 [e4,g4,c5] ~ [e4,g4,c5] ~ [d4,g4,b4] ~@3 [d4,g4,b4] ~ [d4,g4,b4] ~", // C G
  P: "[c4,e4,a4] ~@3 [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~", // Am
  Q: "[c4,e4,a4] ~@3 [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~@3", // Am
  R: "[d4,g4,b4] ~@3 [d4,g4,b4] ~@3 [d4,g4,b4] ~ [d4,g4,b4] ~ [d4,g4,b4] ~ [d4,g4,b4] ~", // G
  S: "[e4,a4,c5] ~@3 [e4,a4,c5] ~@3 [e4,a4,c5] ~ [e4,a4,c5] ~ [e4,a4,c5] ~@3", // Am
  T: "[c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]!4", // C
  U: "[b3,d4,g4] ~@3 [b3,d4,g4] ~@3 [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~ [b3,d4,g4] ~", // G
})).s("gm_harpsichord").gain(0.18).pan(0.7)

// other · electric guitar jazz · "Track 3"
const electric_guitar_jazz = note(`<
  A B@3 C@2 D@2 C@2 E F C@2 D@2 C@2 E F G@4 H I J K L M N O P Q R S T U G@4 H I J K L V C@2 D@2 C@2 E F G@4 H I J K L K
  L W L W L K L K L W L W L K X
>`.pickRestart({
  A: "~@7 e2", B: "a2@7 e2", C: "a2@2 a2@2 e2!2 g2!2", D: "g2@2 g2@2 d2!2 f2!2", E: "c3@2 c3@2 c3!2 d3!2", F: "e3!8",
  G: "a2!2 e2 g2 a2!2 e2 g2", H: "g2!4", I: "e2@2 e2@2 e2@2 e2 ~", J: "a2@3 ~ a2@4 e2 ~ e2@2 g2 ~ g2@2",
  K: "c3@2 ~@2 c3@4 g2 ~ g2 ~ a2 ~ a2 ~", L: "a2@2 ~@2 a2@2 ~@2 e2 ~ e2@2 g2 ~ g2@2",
  M: "c3@2 ~@2 c3 ~ c3 ~ c3@2 a2@2 g2@2 a2 ~", N: "a2@2 ~@2 a2 ~ a2 ~ a2@2 g2@2 e2 ~ g2 ~",
  O: "a2 ~@3 a2 ~ a2 ~ a2@2 g2@2 e2@2 g2@2", P: "c3 ~@3 c3 ~ c3 ~ b2@2 ~@2 b2 ~ b2 ~",
  Q: "a2@2 ~@2 a2 ~ a2 ~ a2@2 g2@2 e2@2 g2@2", R: "a2 ~@3 a2 ~@3 a2 ~ g2@2 e2@2 g2@2",
  S: "a2 ~@3 a2 ~@3 a2@2 g2@2 e2@2 g2@2", T: "b2 ~@3 b2 ~ b2 ~ b2@3 ~ b2 ~ b2 ~", U: "c3@3 ~ c3 ~ c3 ~ c3@4 c3 ~@3",
  V: "c3@2 c3@2 g2!2 a2!2", W: "g2@2 ~@2 g2@4 d2 ~ d2 ~ e2 ~ e2 ~", X: "a2 ~@7",
})).s("gm_electric_guitar_jazz").gain(0.29).pan(0.3)

// chords · rock organ · "Track 4"
const rock_organ = note(`<
  A B@3 C@2 D@2 C@2 E F C@2 D@2 C@2 E F G@4 H I J@2 K L M@2 N O@3 H P G@4 H I J@2 K E C@2 D@2 C@2 E F G@4 H I J@2 K Q A
  R B S A T A U@2 V@2 R W X ~
>`.pickRestart({
  A: "[c5,e5,a5]@15 ~", B: "[c5,e5,a5]@7 ~", C: "[[c5,e5,a5]@31 ~]/2", D: "[[b4,d5,g5]@15 ~]/2", E: "[c5,e5,g5]",
  F: "[c5,e5,a5]@6 ~@3 [d5,g5,b5]@4 ~@3", G: "[[a4,c5,e5]@63 ~]/4", H: "[g4,b4,d5]", I: "[g#4,b4,d5,e5]",
  J: "[[c5,a5] [c5,g5], e5]/2", K: "[c5,e5,a5]", L: "[g4,c5,e5]@7 ~", M: "[[e4,a4,c5]@15 ~]/2",
  N: "[g4,c5,e5] [g4,b4,d5]", O: "[e4,a4,c5]", P: "[a4,c5,e5]", Q: "[c5,e5]@15 ~", R: "[d5,g5,b5]@7 ~",
  S: "[d5,g5,b5]@15 ~", T: "[c5,e5,g5]@15 ~", U: "[[c5,e5,g5]@14 ~ [c5,e5,a5]@16 ~]/2",
  V: "[[d5,g5,b5]@14 ~@2 [a5,c6]@15 ~, ~@15 e5@15 ~@2]/2", W: "[e5,a5,c6]", X: "[e5,g5,c6]@7 ~",
})).s("gm_rock_organ").gain(0.14).pan(0.9)

// chords · electric guitar clean · "Track 5"
const electric_guitar_clean = note(`<
  ~ A B C D E F G B E H E D E F G B E H E I J K@3 ~ L M@2 N@3 O P@3 Q R I J K@3 ~ L M@2 S D E F G B E H E I J K@3 ~ L
  M@2 T ~@15
>`.pickRestart({
  A: "~@2 a4@5 ~, ~@3 [c4,e4]@11 ~@2", B: "~@4 a4@9 ~@3, ~@3 [c4,e4]@10 ~@3", C: "~@4 a4@9 ~@3, ~@3 [c4,e4]@11 ~@2",
  D: "~@2 [e4,a4]@5 ~, ~@3 c4@10 ~@3", E: "~ a4@2 ~, ~@3 [c4,e4]@9 ~@4", F: "~@5 g4@8 ~@3, ~@4 [b3,d4]@9 ~@3",
  G: "~@4 g4@9 ~@3, ~@3 [b3,d4]@10 ~@3", H: "~@4 g4@9 ~@3, ~@3 [c4,e4]@11 ~@2", I: "~@5 a4@10 ~, ~@4 [c4,e4]@11 ~",
  J: "~ [e4,a4]@13 ~@2, c4@13 ~@3", // A5
  K: "[~ a4@9 ~@3 a4@10 ~@9 g4@11 ~ g4@2 ~@2, [c4,e4]@10 ~@2 [c4,e4]@12 ~@7 [b3,d4]@13 ~@4]/3", L: "a4@15 ~",
  M: "[~ g4@13 ~@2 a4@15 ~, [c4,e4]@14 ~ [c4,e4]@16 ~]/2", // C
  N: "[[c4,e4] ~@15 a4@13 ~@3 a4@13 ~@3, ~@15 [c4,e4]@14 ~@2 [c4,e4]@13 ~@4]/3", O: "[e4,g4,c5]@3 ~ [d4,g4,b4]@3 ~",
  P: "[[c4,e4,a4]@13 ~@3 [e4,a4]@14 ~@2 a4@13 ~@3, ~@15 c4@15 ~ [c4,e4]@13 ~@4]/3", // Am A5 C
  Q: "[d4,g4,b4]@11 ~ [d4,g4,b4] ~ [d4,g4,b4] ~", R: "[e4,g4,c5]@13 ~@3", S: "~ g4@13 ~@2, [c4,e4]@7 ~",
  T: "[c4,e4] ~@15", // C
})).s("gm_electric_guitar_clean").gain(0.13)

// other · drawbar organ · "Track 6"
const drawbar_organ = note("<~@47 A B C D E F G H I ~@9 J K L K M N@2 O P Q@2 R@2 S@2 ~>".pickRestart({
  A: "~@7 e5", B: "a5@3 b5@5 c6@2 d6@6", C: "e6", D: "d6@4 c6@4 b5@2 c6@5 c#6", E: "d6@7 e5", F: "a5@2 b5@2 c6 d6@3",
  G: "e6@7 d6", H: "e6@4 d6@4 c6@2 d6@5 d#6", I: "e6@13 ~@3", J: "g4@8 g4 ~ g4 ~ g4@3 ~", K: "a4@3 ~ a4@8 e5@4",
  L: "d5@8 a4 ~ a4 ~ a4@3 ~", M: "d5@7 ~ d5@2 d5@3 ~ d5 ~", N: "[e5@18 ~ e5@3 e5 ~ e5@2 d5@4 c5@2]/2", O: "d5 e5@3",
  P: "~ e5@3 ~@2 e5 e5@3 d5@4 c5@2", Q: "[a5@18 a5@3 a5@2 a5@3 g5@4 e5@2]/2",
  R: "[g5@4 a5@14 a5@3 ~ a5 ~ a5@2 a5@3 ~ a5@2]/2", S: "[e6@18 e6@4 e6 ~ e6@2 d6@4 c6@2]/2",
})).s("gm_drawbar_organ").gain(0.64)

// drums · kick
const kick = s("bd").struct("<~@2 A@9 ~ A@7 ~ A@5 ~ A@3 ~ A@7 ~ A@5 ~ A@11 ~ A@5 ~ A@17 ~@2>".pickRestart({
  A: "x ~@3 x!2 ~@2",
})).gain(0.12)

// drums · clap
const clap = s("cp").struct("<~@25 A ~@11 A ~@5 A ~@17 A ~@17 A ~>".pickRestart({
  A: "x!4",
})).gain(0.18)

// drums · snare
const snare = s("sd").struct("<~ A B@9 C B@7 C B@5 ~ B@3 C B@7 ~ B@5 ~ B@11 C B@5 ~ B@17 ~@2>".pickRestart({
  A: "~@6 x ~ x ~ x!5 ~", B: "~ x ~ x", C: "x!8",
})).gain(0.14)

// drums · hihat
const hihat = s("hh").struct("<~@2 A@9 ~ A@7 ~ A@5 ~ A@3 ~ A@7 ~ A@5 ~ A@11 ~ A@5 ~ A@17 ~@2>".pickRestart({
  A: "x ~ x ~ x!3 ~",
})).gain(0.16)

stack(harpsichord, electric_guitar_jazz, rock_organ, electric_guitar_clean, drawbar_organ, kick, clap, snare, hihat)