// The Visitors — ABBA
// 131 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: metre changes (4/4 at bar 1, 2/4 at bar 86, 4/4 at bar 86, 2/4 at bar 149, ...) are rendered on a constant 4/4 grid of one bar per cycle
// note: pitch bends are ignored
// note: Full arrangement: all 189 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(131/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 · string ensemble 1 · "Strings"
const string_ensemble_1 = note(`<
  ~@16 A@4 B@2 C@8 D E@3 F@8 G H I@3 J@2 K@3 G L@2 M N O@2 P@2 Q@2 R@2 S@4 ~@15 T@7 U@7 V@3 W@5 ~@5 X@7 Y@2 Z@6 AA@7
  ~@15 AB AC AD AE AB AC AF AG ~@8 AH AI AJ@2 AK AI AJ@2 AK AL AJ@2 AK AI AJ@2 AK AL AJ@2 AK AI AJ@2 AM
>`.pickRestart({
  A: "[~@8 c#5@2 d5@4 e5@4 f#5@2 g5@4 ~ g5@2 f#5@4 e5@4 f#5@2 g5@4 g5@2 f#5@4 [f#4,a4,d5]@4 d5@6 ~ c#5@2 e5@4, ~@20 [a4,d5]@16 ~ [a4,d5]@10 ~@4 [e4,a4]@12 ~]/4", // D D5 A5
  B: "[[c#4,e4,g4]@23 ~@4 c#5@2 d5@3]/2", // C#dim
  C: "[~ e5@4 ~@6 g5@2 f#5@4 e5@4 f#5@2 g5@4 ~ g5@2 f#5@6 [f#4,a4,d5]@2 d5@4 e5@2 [a4,c#5]@29 ~@4 c#5@2 d5@4 e5@4 f#5@2 g5@4 ~ g5@2 f#5@6 ~@4 [g4,b4]@8 [a4,c5]@8 [b4,g5]@4 ~ [b4,g5], ~@5 f#5@6 ~@33 e5@16 ~@42 e5@8 ~@18, ~@7 [a4,d5]@16 [a4,d5]@12 ~@3 [e4,a4]@6 ~@45 [a4,c5]@16 ~@23]/8", // D A G Am Em D5 A5 Am
  D: "~ [a4,f#5]@4 [g4,e5]@6 [d4,f#4]@5", // D C D
  E: "[~@3 [e4,g4]@8 ~@5 e5@2 d5@6 c#5@2 b4@6 d5@2 c#5@6 a4@4 [d4,g4]@4, ~@11 [g4,b4]@12 ~@3 [e4,g4]@19 ~@3]/3", // Em G5 G Em
  F: "[~@3 f#4@26 ~@5 e5@2 d5@6 c#5@2 ~@4 d5@6 c#5@4 [c#4,e4,a4]@4 g4@4 ~ g4@2 ~@10 [d4,f#4]@16 g4@6 ~ a4@26, ~@3 a4@14 ~@12 e4@29 ~@4 [b3,d4]@16 ~@17 [c#4,e4]@32 ~, ~@29 a4@15 b4@4 ~@80, ~@46 a4@12 ~@11 a4@14 ~@45]/8", // A D Bm C#m
  G: "~@2 c#5 d5@2 e5@2 f#5", H: "g5@2 g5 f#5@2 e5@2 f#5, [a4,d5]",
  I: "[g5@2 g5 f#5@2 [f#4,a4,d5]@2 d5@3 c#5 e5@2 [c#4,e4,g4]@11, [a4,d5]@5 ~@2 [e4,a4]@6 ~@11]/3", // D C#dim D5 A5
  J: "[~@2 c#5 d5@2 e5@2 ~@3 g5 f#5@2 e5@2 f#5, ~@7 f#5@3 ~@6, ~ [a4,d5]]/2", // D5
  K: "[g5@2 g5 f#5@3 [f#4,a4,d5] d5@2 e5 [a4,c#5]@14, [a4,d5]@6 ~ [e4,a4]@3 e5@8 ~@6]/3", // D A D5 A5
  L: "[g5@2 g5 f#5@3 ~@2 [g4,b4]@4 [a4,c5]@4, [a4,c5] ~, ~@3 e5@2 ~@3]/2", M: "[b4,g5]@2 [b4,g5] [a4,f#5]@2 [g4,e5]@3",
  N: "[d4,f#4] [e4,g4]", O: "[~@2 e5 d5@3 c#5 b4@3 d5 c#5@3 a4@2, [g4,b4]@6 ~ [e4,g4]@9]/2",
  P: "[g4@3 f#4@13, d4 ~, ~@3 a4@7 ~@6]/2",
  Q: "[~@2 e5 d5@3 c#5 ~@2 d5@3 c#5@2 [c#4,e4,a4]@2, e4@7 ~, a4@4 a4@3 ~, ~@7 b4@2 ~@7]/2", // A
  R: "[g4@2 g4 ~@5 [d4,f#4]@8, [b3,d4] ~, ~@3 a4@7 ~@6]/2", S: "[g4@3 a4@29, [c#4,e4]]/4",
  T: "[~@8 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [b4,d5]@4 [a4,c#5] [b4,d5] [c#5,e5]@14 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [g4,e5]@4 [g5,b5]@6 [f#5,a5]@2]/7", // F#m C#m C Em D C Em D …
  U: "[~@4 [e5,g5]@4 [d5,f#5] [e5,g5] [f#5,a5]@14 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [b4,d5]@4 [a4,c#5] [b4,d5] [c#5,e5]@14 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@2]/7", // Em D Em F#m C#m C Em D …
  V: "[~@4 [g4,e5]@4 [g5,b5]@6 [f#5,a5]@8 [e5,g5]@2 [d5,f#5] [e5,g5] [f#5,a5]@14 ~@8]/3", // C G F#m Em D Em F#m
  W: "[~ [c#4,e4,a4]@2 [d4,a4]@2 [c#4,e4,a4]@2 [d4,a4]@2 ~]/5", // A D5 A D5
  X: "[~@6 g5 f#5@2 e5@2 f#5 g5@2 g5 f#5@3 [f#4,a4,d5] d5@2 e5 [a4,c#5]@14 ~@2 c#5 d5@2 e5@2 f#5 g5@2 g5 f#5@3 ~@2 [g4,b4]@4, ~@4 [a4,d5]@8 [a4,d5]@6 ~ [e4,a4]@3 e5@8 ~@14 [a4,c5]@8 ~@4, ~@25 e5@2 ~]/7", // D A G D5 A5 Am
  Y: "[[a4,c5]@4 [b4,g5]@2 [b4,g5] [a4,f#5]@2 [g4,e5]@3 [d4,f#4]@4]/2", // Am Em D C D
  Z: "[[e4,g4]@4 ~@2 e5 d5@3 c#5 b4@3 d5 c#5@3 a4@2 g4@3 f#4@13 ~@2 e5 d5@3 c#5 ~@2 d5@3, ~@4 [g4,b4]@6 ~ [e4,g4]@9 d4@8 ~@8 e4@12, ~@23 a4@7 ~@6 a4@8 a4@4, ~@43 b4@2 ~@3]/6", // Em G Em
  AA: "[c#5@2 [c#4,e4,a4]@2 g4@2 g4 ~@5 [d4,f#4]@8 g4@3 a4@29 ~@4, ~ [b3,d4]@2 ~@2 [c#4,e4]@8 ~, ~ a4 ~@6]/7", // A D Bm C#m
  AB: "[c#4,a4]@3 [e4,c#5]@3 [g4,e5]@2", AC: "[b4,g5]@3 [a4,f#5]@3 [g4,e5]@2", AD: "[b4,g5]@3 [a4,f#5]@3 [b4,d5]@2",
  AE: "[a4,c#5] [b4,d5] [c#5,e5]@14", AF: "[g5,b5]@3 [f#5,a5]@3 [e5,g5]@2", AG: "[d5,f#5] [e5,g5] [f#5,a5]@14",
  AH: "~@5 e5@3", AI: "d5 c#5 b4 d5", AJ: "[c#5@2 a4@2 g4@2 a4 a4@3 ~@6]/2",
  AK: "[g4,d5] [f#4,a4,d5]@2 [e4,a4,c#5] ~ e5@3", AL: "~ c#5 b4 d5", AM: "[g4,d5] [f#4,a4,d5]@2 ~@5",
})).s("gm_string_ensemble_1").gain(0.05).pan(1)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@39 A@2 B@2 C@2 B@3 C@2 B@5 D@4 C@2 B@2 E C B@4 F G F H F G F H F G F H F G F I J D K B J D L M J D K B J D L C M B@4
  N C M B@2 N C M B@4 J D@3 L C M B O P M B@3 Q R S T U R S T U R S T U R S V@2 D@2 B@2 D@2 C W F G F H F G F I O M O I
  O M O I O M O I O M O I O M O I O M O X
>`.pickRestart({
  A: "[~@15 a2@2 ~ a3@2 a2@2 a3@2 a2@2 a3@2 a2@2 a3@2]/2", B: "a2 a3 a2 a3 a2 a3 a2 a3", C: "d2 d3 d2 d3 d2 d3 d2 d3",
  D: "e2 e3 e2 e3 e2 e3 e2 e3", E: "g2 g3 g2 g3 g2 g3 g2 g3", F: "a2!2 g2!2", G: "d3!2 a2!2",
  H: "d3 d3@2 a2 ~ a2 c#3 a2", I: "d3 d3@2 a2@2 a3 a2 a3", J: "a2 a3 a2 a3 e2 e3 e2 e3", K: "e2 e3 e2 e3 a2 a3 a2 a3",
  L: "e2 e3 e2 e3 d2 d3 d2 d3", M: "d2 d3 d2 d3 a2 a3 a2 a3", N: "a2 a3 a2 a3 d2 d3 d2 d3",
  O: "a2 a3 a2 a3 g2 g3 g2 g3", P: "g2 g3 g2 g3 d2 d3 d2 d3", Q: "a2 a3 a2 a3 a2@2 a2@2", R: "g2!2 d3!2", S: "a2!4",
  T: "g2@2 g2@2 d3 d3@2 a2", U: "~ a2 c#3 a2 a2@2 a2@2", V: "[g2@2 g2@2 d3 d3@2 a2@2 a3 a2 a3 a2 a3 a2 a3]/2",
  W: "a2 d3 d2 d3 d2 d3 d2 d3", X: "d3 d3@2 ~@5",
})).s("gm_electric_bass_finger").gain(0.25)

// other · pad sweep · "FX1"
const pad_sweep = note("<~@5 A@3 B@3 C@6 ~@172>".pickRestart({
  A: "[~@5 d4@2 c#4@9]/3", B: "[~ g3@5]/3", C: "[~ a3@83 ~@12]/6",
})).s("gm_pad_sweep").gain(0.18).pan(1)

// chords · string ensemble 2 · "FX2"
const string_ensemble_2 = note("<A@5 ~@6 B@6 ~@172>".pickRestart({
  A: "[~@12 g4@41 ~ b3@17 ~@9]/5", B: "[~@5 [e5,a5]@39 ~@4]/6",
})).s("gm_string_ensemble_2").gain(0.01).pan(0)

// other · music box · "Bell"
const music_box = note("<~@9 [~@5 e7 ~@10] ~@2 [~@14 e7!2] ~@176>").s("gm_music_box").gain(0.12)

// other · overdriven guitar · "Guitar"
const overdriven_guitar = note("<~@100 A B@2 ~@53 C D ~@31>".pickRestart({
  A: "~@4 f#4 g4 d5 e4", B: "[f#4 c5 d4 e4 a3@8 ~@4]/2", C: "f#4 g4 d5 e4 f#4 c5 d4 e4", D: "a3",
})).s("gm_overdriven_guitar").gain(0.18)

// chords · brass section · "Horns"
const brass_section = note("<~@84 A@7 B@7 C@3 ~@47 D E F G D E H I ~@33>".pickRestart({
  A: "[~@8 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [b4,d5]@4 [a4,c#5] [b4,d5] [c#5,e5]@14 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [g4,e5]@4 [g5,b5]@6 [f#5,a5]@2]/7", // F#m C#m C Em D C Em D …
  B: "[~@4 [e5,g5]@4 [d5,f#5] [e5,g5] [f#5,a5]@14 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@6 [b4,d5]@4 [a4,c#5] [b4,d5] [c#5,e5]@14 [c#4,a4]@6 [e4,c#5]@6 [g4,e5]@4 [b4,g5]@6 [a4,f#5]@2]/7", // Em D Em F#m C#m C Em D …
  C: "[~@4 [g4,e5]@4 [g5,b5]@6 [f#5,a5]@8 [e5,g5]@2 [d5,f#5] [e5,g5] [f#5,a5]@14 ~@8]/3", // C G F#m Em D Em F#m
  D: "[c#4,a4]@3 [e4,c#5]@3 [g4,e5]@2", E: "[b4,g5]@3 [a4,f#5]@3 [g4,e5]@2", F: "[b4,g5]@3 [a4,f#5]@3 [b4,d5]@2",
  G: "[a4,c#5] [b4,d5] [c#5,e5]@14", H: "[g5,b5]@3 [f#5,a5]@3 [e5,g5]@2", I: "[d5,f#5] [e5,g5] [f#5,a5]@14",
})).s("gm_brass_section").gain(0.17)

// drums · kick
const kick = s("bd").struct("<~@39 [~@15 x] [~ x!3] [x!4]!147 [x!2 ~@2]>").gain(0.15)

// drums · snare
const snare = s("sd").struct(`<
  ~@68 A B C@6 D B C@6 E C@7 F C@8 G ~@30 H C@7 H C@6 I B C@7 D B C@6 D C@7 J C@7 D C@7 K
>`.pickRestart({
  A: "~@4 x!4", B: "x!2 ~ x", C: "~ x ~ x", D: "~@2 x ~@2 x!3", E: "x ~ x ~ x ~ x!3 ~@3 x ~@3", F: "~@2 x!2 ~@2 x ~",
  G: "~@2 x!2 ~@4", H: "~ x!3 ~@2 x ~", I: "~@4 x ~@3 x ~ x ~ x ~ x!2", J: "~@4 x ~@3 x ~ x!3 ~ x ~", K: "~ x ~@2",
})).gain(0.15)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@40 [~ x ~ x]!28 [~ x ~@2] ~@32 [~@3 x] [~ x ~ x]!30 ~@57>").gain(0.1)

// drums · pedal hat
const pedal_hat = s("hh").struct(`<
  ~@39 A B C@13 D C@3 E C E C@3 D C@3 F C E C E C@7 E C@5 G C G C@3 G C@12 G C@5 G C@4 G C G C@3 G C G C@3 G C@7 H C@2 I
  C@2 G C G C G C@4 J C@6 E C K C E C H C E C J C E C@5 D C E C@3 E C@5 L
>`.pickRestart({
  A: "~@15 x", B: "~ x!7", C: "x!8", D: "x!5 ~ x!2", E: "x!7 ~", F: "x!3 ~@4 x", G: "x!3 ~ x!4", H: "x ~ x ~ x!4",
  I: "x ~ x!6", J: "x!5 ~ x ~", K: "x ~ x ~ x!2 ~@2", L: "x!3 ~@5",
})).gain(0.13)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@54 A ~@3 B ~ B ~@3 A ~@3 C ~ B ~ B ~@7 B ~@5 D ~ D ~@3 D ~@12 D ~@5 D ~@4 D ~ D ~@3 D ~ D ~@3 D ~@7 E ~@2 F ~@2 D ~
  D ~ D ~@4 G ~@6 B ~ H ~ B ~ E ~ B ~ G ~ B ~@5 A ~ B ~@3 B ~@6
>`.pickRestart({
  A: "~@5 x ~@2", B: "~@7 x", C: "~@3 x ~ x ~@2", D: "~@3 x ~@4", E: "~ x ~ x ~@4", F: "~ x ~@6", G: "~@5 x ~ x",
  H: "~ x ~ x ~@2 x!2",
})).gain(0.13)

// drums · crash
const crash = s("cr").struct("<~@69 A ~@14 B ~@3 B ~@3 C ~@3 B ~@2 B ~@48 A ~@3 A ~@2 A ~@33>".pickRestart({
  A: "x", B: "~ x", C: "x!2",
})).gain(0.13)

stack(
  string_ensemble_1, bass, pad_sweep, string_ensemble_2, music_box, overdriven_guitar, brass_section, kick, snare,
  snare_soft, pedal_hat, open_hat, crash
)