// Loco Motion — Little Eva
// 133 bpm, 4/4, key D# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: duplicate parts dropped: ch 15 voice oohs (copy of ch 6 brass section)
// note: Full arrangement: all 87 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(133/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 · electric bass finger
const bass = note(`<
  ~ A@4 B C B C B C B D E F E F B G H A I J H A K L M N M N M N B D E F E F M G H A I J H A O P M N M N M N B D E F E F
  M G Q R S T Q R S T Q R S T Q R S T H A I U V W@3
>`.pickRestart({
  A: "eb2@3 ~ eb2@3 ~ eb2@3 ~ eb2@3 ~", B: "eb2@3 ~@5 eb2@3 ~@5", C: "c2@3 ~ c2@3 ~@3 bb1@2 c2@2 d2@2",
  D: "c2@3 ~ c2@3 ~@3 bb1@2 c2@3 ~", E: "ab2@3 ~@5 eb2@3 ~@5", F: "f2@3 ~ f2@2 c2@2 f2@2 f2@2 c2@3 ~",
  G: "bb2@3 ~ bb2@2 f2@2 bb2@2 bb2@2 f2@3 ~", H: "eb2@3 ~ eb2@3 ~ eb2@3 ~ eb2@3 ~, d2 ~@15",
  I: "ab2@3 ~ ab2@3 ~ ab2@3 ~ ab2@3 ~, g2 ~@15", J: "ab2@3 ~ ab2@3 ~ ab2@3 ~ ab2@3 ~",
  K: "bb2@3 ~ bb2@3 ~ bb2@3 ~ bb2@3 ~, a2 ~@15", L: "bb2 ~ bb2@2 ab2 ~ ab2@2 g2 ~ g2@2 f2 ~ f2@2",
  M: "eb2@3 ~@5 bb1@3 ~@5", N: "c2@3 ~ c2@3 ~@3 g1@2 c2@3 ~", O: "bb2@3 ~ bb2@3 ~ bb2@3 ~ bb2@3 ~, a1 ~@15",
  P: "bb2!2 ab2!2 g2!2 f2!2", Q: "eb2@3 ~@5 eb2@3 ~@5, d2 ~@15", R: "eb2@3 ~@5 eb2@3 ~ eb2@3 ~",
  S: "ab1@3 ~@5 ab1@3 ~@5, g1 ~@15", T: "ab1@3 ~@5 ab1@3 ~ ab1@3 ~", U: "ab2@3 ~ ab2@3 ~ ab2@2 ab2 ~@3 eb2@2",
  V: "~ eb2 g2 bb2 eb2!2 g2 bb2", W: "[eb3@2 bb2@2 f2 ~ eb2@28 ~@2 eb2@3 ~@9]/3",
})).s("gm_electric_bass_finger").gain(0.45)

// chords · drawbar organ
const drawbar_organ = note(`<
  ~@13 A B A C D E F@2 G@2 F@2 H@2 ~@8 A B A C D E F@2 G@2 F@2 H@2 ~@8 A B A C D E I@2 J@2 I@2 J@2 I@2 J@2 I@2 J@2 K@2
  L@3 M@3
>`.pickRestart({
  A: "[c4,eb4,ab4]@15 ~", B: "[c4,f4,ab4]@15 ~", C: "[c4,eb4,f4,a4]@15 ~", D: "[bb3,eb4,g4]@15 ~",
  E: "[bb3,d4,ab4]@15 ~", F: "[[bb3,eb4,g4]@31 ~]/2", G: "[[c4,eb4,ab4]@31 ~]/2", H: "[[bb3,d4,f4,ab4]@31 ~]/2",
  I: "[[g3,bb3,eb4]@31 ~]/2", J: "[[ab3,c4,eb4]@31 ~]/2", K: "[[bb3,eb4,g4]@7 ~]/2",
  L: "[[c4,eb4,ab4]@14 ~ [bb3,eb4,g4]@9]/3", M: "[eb4 bb3 f3 eb3@14 ~ [eb4,eb5] ~@5]/3",
})).s("gm_drawbar_organ").gain(0.25)

// chords · electric guitar clean
const electric_guitar_clean = note(`<
  ~@5 A B A B A B A B C D C E A F A@2 C@2 A@2 F@2 A B A B A B A B C D C E A F A@2 C@2 A@2 F@2 A B A B A B A B C D C E A
  F A@2 C@2 A@2 C@2 A@2 C@2 A@2 C@2 A@2 C G H I@3
>`.pickRestart({
  A: "~@4 [g3,bb3,eb4] ~@7 [g3,bb3,eb4] ~@3", B: "~@4 [g3,c4,eb4] ~@7 [g3,c4,eb4] ~@3",
  C: "~@4 [ab3,c4,eb4] ~@7 [ab3,c4,eb4] ~@3", D: "~@4 [ab3,c4,f4] ~@7 [ab3,c4,f4] ~@3",
  E: "~@4 [a3,c4,eb4] ~@7 [a3,c4,eb4] ~@3", F: "~@4 [f3,ab3,d4] ~@7 [f3,ab3,d4] ~@3",
  G: "~@4 [ab3,c4,eb4] ~@3 [ab3,c4,eb4] ~ [ab3,c4,eb4] ~@3 [g3,bb3,eb4]@2", // Ab Eb
  H: "~@2 [g3,bb3,eb4] ~ [g3,bb3,eb4] ~ [g3,bb3,eb4] ~ [g3,bb3,eb4] ~ [g3,bb3,eb4] ~ [g3,bb3,eb4] ~ [g3,bb3,eb4] ~", // Eb
  I: "[eb4 bb3 f3 eb3@14 ~ [eb3,eb4] ~@5]/3", // Eb
})).s("gm_electric_guitar_clean").gain(0.3)

// chords · alto sax
const alto_sax = note(`<
  ~ A@2 B@2 C D E ~ C D E ~ F G F H ~ I J@2 K@2 L@2 M N O P E ~ Q R E ~ F G F H ~ I S T U V@3 W X O P E ~ Q R E ~ F G F
  H ~ Y B@2 Z@2 B@2 Z@2 B@2 Z@2 B@2 AA@2 AB@2 AC@3 AD@3
>`.pickRestart({
  A: "[[eb2,bb2]@29 ~@3, [d2,a2] ~@31]/2", B: "[[eb2,bb2]@31 ~, [d2,a2] ~@31]/2", C: "[eb2,bb2], [d2,a2] ~@15",
  D: "[c2,g2]@10 [bb1,bb2] ~ [c2,c3] ~ [d2,d3] ~", E: "[eb2,eb3] ~@15", F: "[ab2,c3,eb3]@15 ~", G: "[ab2,c3,f3]@15 ~",
  H: "[a2,c3,f3]@15 ~", I: "[f2,bb2,d3]", J: "[eb2@31 ~, d2 ~@31]/2", K: "[ab2@31 ~, g2 ~@31]/2",
  L: "[eb2@31 a2, d2 ~@31]/2", M: "bb2@15 ~", N: "bb2 ~ bb2@2 ab2 ~ ab2@2 g2 ~ g2@2 f2 ~ f2@2", O: "[eb2,eb3]@7 ~",
  P: "[c2,c3]@8 ~@2 [bb1,bb2] ~ [c2,c3] ~ [d2,d3] ~", Q: "[eb2,eb3]@15 ~",
  R: "[c2,c3]@9 ~ [bb1,bb2] ~ [c2,c3] ~ [d2,d3] ~", S: "~@10 eb4!2 g4!2 bb4 ~", T: "c5@4 bb4@4 g4!2 eb4@2 f4@2 c4@2",
  U: "eb4@2 ~@8 f4 ~ f4@2 c4@2", V: "[eb4@2 f4 ~@7 eb4@2 c5 ~ c5 bb4@2 ~@9 bb3@2 g4@2 f4 eb4@2 ~@9 eb4!2 g4@2 bb4 ~]/3",
  W: "c5@4 bb4@4 bb4 ~ bb4!6", X: "bb4 ~@15", Y: "[f2,bb2,d3]@15 ~", Z: "[[ab2,c3]@31 ~, [g2,bb2] ~@31]/2",
  AA: "[[ab2,c3]@15 ~, [g2,bb2] ~@31]/2", // Ab Gm
  AB: "[~@4 [g3,bb3,eb4]@2 [g3,bb3,eb4] ~@7 [g3,bb3,eb4]@4 [g3,bb3,eb4] ~ [g3,bb3,eb4] ~ [g3,bb3,eb4] ~ [g3,bb3,eb4]@2 [g3,bb3,eb4] ~@5]/2", // Eb
  AC: "[~@4 [ab3,c4,eb4]@2 [ab3,c4,eb4] ~@7 [ab3,c4,eb4]@4 [ab3,c4,eb4] ~ [ab3,c4,eb4] ~ [ab3,c4,eb4] ~ [ab3,c4,eb4]@2 [ab3,c4,eb4] ~@3 [bb3,eb4,g4]@17 ~]/3", // Ab Eb
  AD: "[[eb3,eb4] [bb2,bb3] [f2,f3] [eb2,eb3]@14 ~ [eb3,g3,bb3,eb4] ~@5]/3", // Eb Bb F Eb
})).s("gm_alto_sax").gain(0.35)

// chords · brass section
const brass_section = note(`<
  ~@7 A B ~@2 A B ~@16 A B ~@2 A B ~@16 A B ~@2 A B ~@6 C D E F C D E F C D E F C D E F G@2 H@3 I@3
>`.pickRestart({
  A: "~@2 [eb4,g4,bb4]@2 [eb4,g4,bb4] ~@3 [eb4,g4,bb4]@2 [eb4,g4,bb4] ~@3 [eb4,g4,c5]@2", // Eb Cm
  B: "~@2 [eb4,g4,c5] ~ [eb4,g4,c5]@2 [eb4,g4,c5] ~ [eb4,g4,c5]@3 ~ [eb4,g4,c5] ~@3", // Cm
  C: "~@4 [eb4,g4,bb4]@2 [eb4,g4,bb4] ~@7 [eb4,g4,bb4]@2", // Eb
  D: "~@2 [eb4,g4,bb4] ~ [eb4,g4,bb4] ~ [eb4,g4,bb4] ~ [eb4,g4,bb4]@3 ~ [eb4,g4,bb4]@2 ~@2", // Eb
  E: "~@4 [eb4,ab4,c5]@2 [eb4,ab4,c5] ~@7 [eb4,ab4,c5]@2", // Ab
  F: "~@2 [eb4,ab4,c5] ~ [eb4,ab4,c5] ~ [eb4,ab4,c5] ~ [eb4,ab4,c5]@3 ~ [eb4,ab4,c5]@2 ~@2", // Ab
  G: "[~@4 [g4,bb4,eb5]@2 [g4,bb4,eb5] ~@7 [g4,bb4,eb5]@4 [g4,bb4,eb5] ~ [g4,bb4,eb5] ~ [g4,bb4,eb5] ~ [g4,bb4,eb5]@2 [g4,bb4,eb5] ~@5]/2", // Eb
  H: "[~@4 [ab4,c5,eb5]@2 [ab4,c5,eb5] ~@7 [ab4,c5,eb5]@4 [ab4,c5,eb5] ~ [ab4,c5,eb5] ~ [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~@3 [g4,bb4,eb5,g5]@17 ~]/3", // Ab Eb
  I: "[[eb4,eb5] [bb3,bb4] [f3,f4] [eb3,eb4]@14 ~ [eb4,g4,bb4,eb5] ~@5]/3", // Eb Bb F Eb
})).s("gm_brass_section").gain(0.35)

// drums · kick
const kick = s("bd").struct("<~ A@4 B@14 A C A C A C A@2 B@17 D B@3 D B@7 D B@6 A@7 C A@11 E ~@3 F>".pickRestart({
  A: "x!4", B: "x ~@2 x!2 ~@3", C: "x ~ x ~ x ~ x!2", D: "x ~@2 x!2 ~ x ~", E: "x ~ x ~ x!2 ~ x", F: "~ x ~@2",
})).gain(0.4)

// drums · snare
const snare = s("sd").struct("<A B@3 C B@7 D B@3 D B E B@7 C B@7 D B@5 F B@7 E B@13 E B@15 F B@3 D ~@3 G>".pickRestart({
  A: "~@10 x!6", B: "~ x ~ x", C: "~@4 x ~@5 x!6", D: "~@2 x ~@3 x!2", E: "~@4 x ~@7 x ~ x!2", F: "~@4 x ~@5 x!3 ~ x ~",
  G: "~ x ~@2",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct("<~ [x!8]!4 ~@82>").gain(0.35)

// drums · crash
const crash = s("cr").struct("<~@5 A ~@21 A ~@13 A ~@7 A ~@13 A ~@15 A ~@2 B ~@3 C>".pickRestart({
  A: "x", B: "~@7 x", C: "~ x ~@2",
})).gain(0.4)

// drums · ride
const ride = s("rd").struct("<~@5 [x!8]!79 [x!4 ~@2 x ~] [x!4] [x!2 ~@2]>").gain(0.3)

// drums · tambourine
const tambourine = s("tb").struct("<~@5 [~ x ~ x]!77 [~@2 x ~@3 x!2] ~@3 [~ x ~@2]>").gain(0.35)

stack(bass, drawbar_organ, electric_guitar_clean, alto_sax, brass_section, kick, snare, hihat, crash, ride, tambourine)