// Another Town, Another Train — ABBA
// 121 bpm, 2/2, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 5 "Piano" piano (copy of ch 1 "Guitar" acoustic guitar nylon)
// note: Full arrangement: all 99 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(121/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 · acoustic guitar nylon · "Guitar"
const acoustic_guitar_nylon = note(`<
  ~ A B A C D@2 E@3 F@3 D@2 E@3 G@2 H@2 I J K L M N@4 O K P@2 Q@4 R@2 S T U T D@2 E@3 F@3 D@2 E@3 G@2 H@2 I J K L M N@4
  O K P@2 Q@4 R@2 S V J K L M N@4 O K P@2 W@4
>`.pickRestart({
  A: "~ c5@8 ~@7, [e4,g4] ~", B: "~ b4@8 ~@7, [f4,g4] ~", C: "[f4,g4,b4] ~",
  D: "[g3 c4@2 c4@2 [c4,e4] [b3,d4] [b3,e4]@2 [b3,g4]@2 [b3,g4]@3 ~@2]/2", // C Bm E5 Em
  E: "[[c4,e4] [e4,g4]@2 [e4,g4]@2 [g4,b4]@2 [d4,b4]@2 [d4,b4]@2 [e4,c5]@2 [e4,g4]@2 [c4,a4]@7 [c4,a4]!2]/3", // C Em G C Em F
  F: "[[c4,a4] [e4,g4]@2 [e4,g4]@2 e4@2 [f3,a3,d4]@5 e4 f4 e4 a3@2 b3@2 c4@2 d4@3]/3", // F Em Dm
  G: "[[c4,a4] [e4,g4]@2 [e4,g4]@2 e4@2 [a3,d4,f4]@7 [f4,a4]!2]/2", // F Em Dm F
  H: "[[c#4,a4] [e4,g4]@2 [e4,g4]@2 e4@2 [f3,a3,d4]@9]/2", I: "~ b4@2 c5@2 ~ c4 d4, ~@5 d5@3",
  J: "[c4,e4] [e4,g4]@2 [e4,g4]@4 [e4,g4]", K: "[f4,a4] [a4,c5]@2 [a4,c5]@5",
  L: "[a4,c5] [a4,c5]@2 [a4,c5]@3 [g4,b4]@2", M: "~ [e4,g4]@2 [e4,g4]@5",
  N: "[[a4,c5]!3 [a4,c5]@2 [g4,b4]@2 [f4,a4]@2 [f4,a4] [g4,b4] [f4,a4]@2 [e4,g4]@2 ~ [e5,g5]!5 [d5,f5]@2 [b4,d5]@2 [d5,f5]@2 [c5,e5]@3 [g4,c5]@2, ~@15 [c4,e4]@2 [e4,g4]@7 ~@8]/4", // Am G F G F Em Dm Bm …
  O: "[c4,e4] [e4,g4]@2 [e4,g4] ~@3 [e4,g4]", // C Em
  P: "[[a4,c5] [a4,c5]@2 [a4,c5]@2 [g4,b4]@2 [f4,a4]@2 [e4,g4]@2 [e4,g4]@5]/2", // Am G F Em
  Q: "[[a4,c5]!3 [a4,c5]@2 [g4,b4]@2 [f4,a4]@2 [f4,a4] [g4,b4] [f4,a4]@2 [e4,g4]@2 ~ [e5,g5]!5 [d5,f5]@2 [b4,d5]@2 [d5,f5]@2 [c5,e5]@2 [a4,c5]@3, ~@15 [c4,e4]@2 [e4,g4]@7 ~@8]/4", // Am G F G F Em Dm Bm …
  R: "[[b4,d5]!3 [b4,d5]@2 [a4,c5]@2 [a4,c5]@2 [g4,b4]@2 [f4,a4]@2 [e4,g4]@2 [d4,f4]]/2", // Bm Am G F Em Dm
  S: "[d4,f4,c6] g5 e5 e6 g5 e5 d6 g5, ~ e4@7, ~ c4@3 c4@4", T: "b5 g5 f5 d6 g5 f5 c6 g5", U: "c6 g5 e5 e6 g5 e5 d6 g5",
  V: "b5 g5 f5 d6 g5 f5 [c4,c6] [d4,g5]", // C G5
  W: "[[a4,c5]!3 [a4,c5]@2 [g4,b4]@2 [f4,a4]@2 [f4,a4] [g4,b4] [f4,a4]@2 [e4,g4]@2 ~ [e5,g5]!5 [d5,f5]@2 [b4,d5]@2 ~@7, ~@15 [c4,e4]@2 [e4,g4]@7 ~@8]/4", // Am G F G F Em Dm Bm …
})).s("gm_acoustic_guitar_nylon").gain(0.35).pan(1)

// bass · acoustic bass · "Bass"
const bass = note(`<
  A B C B C D E F G H I J K L E F G H I J M N O P Q R S R@2 T@2 P Q R S R@2 T S U@2 B C B C D E F G H I J K L E F G H I
  J M N O P Q R S R@2 T@2 P Q R S R@2 T S U@2 B V P Q R S R@2 T@2 P Q R S R@2 T ~
>`.pickRestart({
  A: "~@3 g2", B: "c3@3 c3@3 g2@2", C: "g2@3 g2@3 g2@2", D: "c3@3 c3 c3@4", E: "g2@3 g2 g2@4", F: "c3@3 c3 g2@4",
  G: "e2@3 e2 a2@2 e2@2", H: "f2@3 f2 f2@4", I: "c2@3 c2 c2@4", J: "d2@3 d2 d2@4", K: "g2@3 g2!3 a2 b2",
  L: "c3@3 c3@2 c3@3", M: "a2@3 a2 a2@4", N: "d2@3 d2 d2@3 d2", O: "g2@3 g2@2 g2 a2 b2", P: "c3@3 c3@2 c3@2 e3",
  Q: "f3@3 f3@2 f3@2 c3", R: "f2@3 f2@2 f2@2 f2", S: "c3@3 c3@2 c3@2 c3", T: "c3@3 c3@2 c3@2 g2",
  U: "g2@3 g2@2 g2@2 g2", V: "g2@3 g2 g2@2 g2@2",
})).s("gm_acoustic_bass").gain(0.35).pan(0)

// drums · kick
const kick = s("bd").struct("<~@5 A@17 B A@17 B C ~@3 A@17 B A@18 C ~ A@15 ~>".pickRestart({
  A: "x ~@2 x!2 ~@2 x", B: "x ~@2 x!2 ~ x!2", C: "x",
})).gain(0.22).pan(0.7)

// drums · rim
const rim = s("rim").struct("<~@5 [~ x ~ x]!17 [~ x ~@2] ~@22 [~ x ~ x]!17 [~ x ~@2] ~@36>").gain(0.25).pan(0.7)

// drums · snare
const snare = s("sd").struct("<~@23 A@15 B C A ~@22 A@15 B A@2 ~@2 A@15 ~>".pickRestart({
  A: "~ x ~ x", B: "~@4 x ~ x!3 ~ x ~ x ~ x ~", C: "x!2 ~ x",
})).gain(0.22).pan(0.7)

// drums · hihat
const hihat = s("hh").struct("<~@5 A@7 B A@7 B A@20 C ~@3 A@6 D A@7 D A@21 C ~ A@15 ~>".pickRestart({
  A: "x!8", B: "x!5 ~ x!2", C: "x", D: "x!2 ~ x!5",
})).gain(0.25).pan(0.7)

// drums · open hat
const open_hat = s("oh").struct("<~@12 A ~@7 A ~@30 B ~@7 B ~@39>".pickRestart({
  A: "~@5 x ~@2", B: "~ x ~@2",
})).gain(0.25).pan(0.7)

// drums · crash
const crash = s("cr").struct("<~@41 x ~@21 x ~@17 x ~@17>").gain(0.22).pan(0.7)

// drums · ride
const ride = s("rd").struct("<~ [x!16]!3 [x!13 ~ x ~] ~@36 [x!16]!4 ~@36 [x!16]!2 ~@16>").gain(0.25).pan(0.7)

stack(acoustic_guitar_nylon, bass, kick, rim, snare, hihat, open_hat, crash, ride)