// The Tell-Tale Heart — The Alan Parsons Project
// 162 bpm, 12/8, key C minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: track names are the Roland MT-32 patch names at their program numbers ("Shakuhachi" on 107, "Elec Gtr 2" on 62, "ElecPiano1" on 3, "Elec Gtr 1" on 61, "Syn Bass 3" on 30, "Elec Gtr 2" on 62, "Str Sect 2" on 49, "Chorale" on 34), so with no bank select the whole file is read through the MT-32 patch table: ch 2 "Shakuhachi" Shakuhachi -> shakuhachi; ch 3 "Elec Gtr 2" Elec Gtr 2 -> overdriven guitar; ch 4 "ElecPiano1" Elec Piano 1 -> epiano1; ch 5 "Elec Gtr 1" Elec Gtr 1 -> electric guitar clean; ch 5 "Elec Gtr 1" Cello 2 -> cello; ch 6 "Syn Bass 3" Syn Bass 3 -> synth bass 1; ch 7 "Elec Gtr 2" Elec Gtr 2 -> overdriven guitar; ch 9 "Chorale" Chorale -> choir aahs
// note: Full arrangement: all 139 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(162/6)

// 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 · overdriven guitar · "Elec Gtr 2"
const overdriven_guitar = note(`<
  ~@4 A@4 ~@2 B C D ~@2 B C D E@4 F@2 G H A@4 ~@2 B C D ~@2 B C@3 I@2 ~@58 A@4 ~@2 B C D ~@2 B C J@4 K@2 L M A@4 ~@2 B
  C@5 N O@3 P
>`.pickRestart({
  A: "[[g3,c4] ~ [bb3,eb4] ~ [g3,c4] ~ [f3,bb3]@3 ~ [g3,c4] ~ [bb3,eb4]@3 ~ [g3,c4] ~ [bb3,eb4]@3 ~ [c4,f4]@6 ~@2 [c4,f4]@4 ~@2 [c4,f4]@3 ~ [bb3,eb4]@6 ~@2]/2", // C5 Eb5 C5 Bb5 C5 Eb5 C5 Eb5 …
  B: "~@9 [f3,bb3,d4,f4]@2 ~", C: "[eb3,ab3,c4,eb4]@15 ~ [f3,bb3,d4,f4]@6 ~@2", D: "[eb3,ab3,c4,eb4]@5 ~",
  E: "[[a3,c4,e4]@4 ~@2 [a3,c4,e4]@3 ~ [a3,c4,e4]@8 [a3,c4,e4]@10 ~@2 [a3,c4,e4]@9 ~ [a3,c4,e4]@6 ~@2]/2", // Am
  F: "[[b3,d4,gb4]@9 ~ [b3,d4,gb4]@6 ~@2 [b3,d4,gb4]@10 ~@2 [b3,d4,gb4]@9 ~ [b3,d4,gb4]@6 ~@2]/2", // Bm
  G: "[b3,d4,gb4]@9 ~ [b3,d4,gb4]@6 ~@2 [b3,d4,gb4]@4 ~@2", H: "[b3,d4,gb4] ~@5", I: "[[eb3,ab3,c4,eb4]@8 ~ g3@2 ~]/2",
  J: "[[a3,c4,e4]@4 ~@2 [a3,c4,e4]@3 ~ [a3,c4,e4]@6 ~@2 [a3,c4,e4]@10 ~@2 [a3,c4,e4]@4 ~@2 [a3,c4,e4]@3 ~ [a3,c4,e4]@6 ~@2]/2", // Am
  K: "[[a3,c4,e4]@9 ~ [a3,c4,e4]@6 ~@2 [a3,c4,e4]@10 ~@2 [a3,c4,e4]@9 ~ [a3,c4,e4]@6 ~@2]/2", // Am
  L: "[a3,c4,e4]@9 ~ [a3,c4,e4]@6 ~@2 [a3,c4,e4]@4 ~@2", M: "[a3,c4,e4]@5 ~",
  N: "[eb3,ab3,c4,eb4]@2 ~ [f3,bb3,d4,f4]@2 ~ [eb3,ab3,c4,eb4]@2 ~ [f3,bb3,d4,f4]@2 ~", // Ab Bb Ab Bb
  O: "[ab3,c4,eb4,ab4]@2 ~ [bb3,d4,f4,bb4]@2 ~ [ab3,c4,eb4,ab4]@2 ~ [bb3,d4,f4,bb4]@2 ~", P: "[c4,eb4,g4] ~@5",
})).s("gm_overdriven_guitar").gain(0.27).pan(0.9)

// chords · epiano1 · "ElecPiano1"
const epiano1 = note(`<
  ~@8 A B C ~@2 A B C ~@14 A B C ~@2 A B C ~@67 A B C ~@2 A B C ~@13 A B C ~@7 D@2 E
>`.pickRestart({
  A: "[g3,c4]@3 ~ [bb3,eb4]@6 ~@8 [c4,eb4] ~ [eb4,g4] ~ [f4,a4] ~", // C5 Eb5 Cm Eb F
  B: "[g4,bb4]@3 ~ [eb4,g4] ~ [f4,a4]@3 ~ [d4,f4] ~ [eb4,g4]@3 ~ [c4,eb4] ~ [d4,f4]@3 ~ [bb3,d4] ~", C: "[c4,eb4] ~@2",
  D: "[ab3,c4,eb4,ab4]@2 ~ [bb3,d4,f4,bb4]@2 ~ [ab3,c4,eb4,ab4]@2 ~ [bb3,d4,f4,bb4]@2 ~", E: "[c4,eb4,g4] ~@5",
})).s("gm_epiano1").gain(0.44).pan(0.9)

// chords · electric guitar clean · "Elec Gtr 1"
const electric_guitar_clean = note(`<
  ~@8 A B C D E A F C D E G@4 H@3 I ~@4 A B C D E A F C D@3 J@2 ~@62 A B C D E A F C D ~@12 A B C D@5 ~@5
>`.pickRestart({
  A: "[c4,eb4,g4]@5 ~", B: "[c4,eb4,g4]@3 [bb3,d4,f4]@2 ~ [c4,eb4,g4]@2 ~ [bb3,d4,f4]@2 ~",
  C: "[c4,eb4,g4]@8 ~ [bb3,d4,f4]@2 ~", D: "[ab3,c4,eb4]@15 ~ [bb3,d4,f4]@6 ~@2", E: "[ab3,c4,eb4]@5 ~",
  F: "[c4,eb4,g4]@2 ~ [bb3,d4,f4]@2 ~ [c4,eb4,g4]@2 ~ [bb3,d4,f4]@2 ~", G: "[a3,c4,e4]@7 ~@5 [a3,c4,e4]@7 ~@5",
  H: "[b3,d4,gb4]@2 ~ [b3,d4,gb4]@2 ~", I: "[b3,d4,gb4] ~@5", J: "[[ab3,c4,eb4]@3 ~]/2",
})).s("gm_electric_guitar_clean").gain(0.35).pan(0.1)

// other · cello · "Elec Gtr 1"
const cello = note("<~@69 A@32 ~@38>".pickRestart({
  A: "[[c2,c3]@11 ~]/2", // C
})).s("gm_cello").gain(0.06).pan(0.1)

// bass · synth bass 1 · "Syn Bass 3"
const bass = note(`<
  A@10 B C D A@2 B E F G H@3 I@3 J A@6 B C D A@2 B E K@2 L@2 M N O@2 P Q R@2 S T@7 U@4 V@2 W@8 A@34 B X Y@4 Z@8 AA A@6 B
  AB@4 AC AD@3 AE AF
>`.pickRestart({
  A: "c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~",
  B: "c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ bb2@4 ~@2", C: "ab2@15 ~ bb2@6 ~@2",
  D: "ab2@3 ~ ab2 ~ ab2@3 ~ ab2 ~ ab2@3 ~ ab2 ~ ab2@3 ~ bb2 ~", E: "ab2@2 ~@2 ab2 ~ ab2@3 ~ ab2 ~ ab2@2 ~@2 bb2@6 ~@2",
  F: "ab2@2 ~@2 ab2 ~ ab2@3 ~ ab2 ~ ab2@2 ~@2 ab2 ~ ab2@2 ~@2 ab2 ~",
  G: "[a2,e3]@2 ~@2 [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@2 ~@2 [a2,e3] ~ [a2,gb3]@2 ~@2 [a2,gb3] ~", // A5 D A5 D
  H: "[a2,e3]@2 ~@2 [a2,e3] ~ [a2,gb3]@2 ~@2 [a2,gb3] ~ [a2,e3]@2 ~@2 [a2,e3] ~ [a2,gb3]@2 ~@2 [a2,gb3] ~", // A5 D A5 D
  I: "[b2,gb3]@3 ~ [b2,gb3] ~ [b2,ab3]@3 ~ [b2,ab3] ~ [b2,gb3]@3 ~ [b2,gb3] ~ [b2,ab3]@3 ~ [b2,ab3] ~", // B5 E B5 E
  J: "[b2,gb3]@4 ~@12 b2 ~ b2@3 ~@3", K: "ab2@3 ~ ab2 ~ ab2@3 ~ ab2 ~ ab2@3 ~ bb2@6 ~@2",
  L: "[[ab1,ab2]@8 ~ [g1,g2]@2 ~]/2", M: "[c2,c3]@8 ~ g2@2 ~", N: "eb2@2 ~ g2@2 ~ d2@2 ~ g2@2 ~",
  O: "[[c2,c3]@8 ~ g2@2 ~]/2", P: "c2@8 ~ g2@2 ~", Q: "c3@2 ~ c2@2 ~ [bb1,bb2]@4 ~@2",
  R: "[[ab1,ab2]@14 ~ ab2@2 ~ bb2@2 ~ bb1@2 ~]/2", S: "[ab1,ab2]",
  T: "[~@3 bb2 ~@2 c3 ~@2 eb3 ~@5 eb3 ~@2 ab1 ~@2 [bb1,bb2] ~@2 [c2,c3]@16 ~@2 g2@4 ~@2 eb2@4 ~@2 g2@4 ~@2 d2@4 ~@2 g2@4 ~@2 [c2,c3]@32 ~@4 [bb1,bb2]@8 ~@4 ab1@32 ~@4 [bb1,bb2]@8 ~@4, ab2@3 ab2@17 ab2@8, ~ ab3@13]/7", // Bb C Bb
  U: "[ab1@8 ~ [bb1,bb2]@2 ~, ab2]/2", V: "[~@9 bb2@2 ~, ab2]/2",
  W: "[ab1@44 ~@4 c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~, ab2]/8",
  X: "~@8 bb2@3 ~, ab2",
  Y: "[ab2@4 ab2@2 ab2@4 ab2@2 ab2@4 ab2@2 ~@4 bb2 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~ bb2@4 ~@2, ~@3 ab2@13]/4",
  Z: "[ab2@4 ab2@2 ab2@4 ab2@2 ~@4 bb2@6 ~@2 [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [a2,e3]@3 ~ [a2,e3] ~ [a2,gb3]@3 ~ [a2,gb3] ~ [b2,gb3]@3 ~ [b2,gb3] ~ [b2,ab3]@4 b2 ~ [b2,gb3]@3 ~ [b2,gb3] ~ [b2,ab3]@4 b2 ~ [b2,gb3]@3 ~ [b2,gb3] ~ [b2,ab3]@4 b2 ~ [b2,gb3]@3 ~ [b2,gb3] ~ [b2,ab3]@4 b2 ~ [b2,gb3]@3 ~ [b2,gb3] ~ [b2,ab3]@4 b2 ~ [b2,gb3]@3 ~ [b2,gb3] ~ ab3@4 b2 ~, ~ ab2@15, ~@130 ab3@8 ~@4 ab3@8 ~@4 ab3@8 ~@4 ab3@8 ~@4 ab3@8 b2@3 ~@3]/8", // A5 D A5 D A5 D A5 D …
  AA: "[b2,gb3]@5 ~", AB: "~@2 bb2, ab2", AC: "~@16 bb2@7 ~, ab2", AD: "~@3 bb2@2 ~@4 bb2@2 ~, ab2!2",
  AE: "~@3 bb2@2 ~@4 bb2@2 ~, ab2@2 ~", AF: "c3 ~@5",
})).s("gm_synth_bass_1").gain(0.27).pan(0.1)

// other · overdriven guitar · "Elec Gtr 2"
const overdriven_guitar_2 = note("<~@18 A B A B C D E F ~@88 A B A B E D E G ~@17>".pickRestart({
  A: "e4@2 ~ c4@2 ~", B: "a3@2 ~ c4@2 ~", C: "ab4@2 ~ d4@2 ~", D: "b3@2 ~ d4@2 ~", E: "gb4@2 ~ d4@2 ~", F: "b3 ~@5",
  G: "b3@5 ~",
})).s("gm_overdriven_guitar").gain(0.39)

// chords · string ensemble 2 · "Str Sect 2"
const string_ensemble_2 = note("<~@43 A@2 B C D@2 E F G@2 H@4 I@4 J@4 K@2 L@2 M@28 N@4 ~@35 O P Q>".pickRestart({
  A: "[[g3,c4,eb4]@11 ~]/2", B: "[g4,bb4]@2 ~ eb4@2 ~ [f4,a4]@2 ~ d4@2 ~", C: "[eb4,g4]@2 ~ c4@2 ~ [d4,f4]@2 ~ bb3@2 ~",
  D: "[~@12 bb3@4 ~@20 d4@3 ~ eb4@3 ~ d4@3 ~, [g3,eb4]@8 ~ [f3,bb3]@2 ~, c4@3 c4@5]/2", // Cm Bb5
  E: "~@9 [ab4,c5]@2 ~, c4, [eb3,ab3]@5 ~", F: "[eb3,g3,ab4,c5]@8 ~@4 d4@3 ~ eb4@3 ~ d4@3 ~, c4, ~@3 [f3,bb3]@2 ~",
  G: "[~@9 d4@2 ~, c4, [eb3,ab3]@11 ~]/2", // Ab5
  H: "[[g3,eb4]@22 ~@2 [g4,bb4]@2 ~ eb4@2 ~ [f4,a4]@2 ~ d4@2 ~ [eb4,g4]@2 ~@4 [d4,f4]@2 ~ bb3@2 ~, c4@13 c4@3]/4", // Cm Gm F Eb Dm
  I: "[[eb3,ab3,eb4]@8 ~ [f3,bb3,d4,f4]@2 ~, c4]/2", // Ab5 Bb
  J: "[eb3@14 ~ eb3@2 ~ f3@2 ~ e3@2 ~@16 eb3@2 ~ f3@2 ~ e3@2 ~, c4@9 c4@7, [ab3,eb4]@8 ~ [bb3,d4]@2 ~ eb3@7 ~@5, ~@27 [ab3,eb4]@13 ~@2 [bb3,d4,f4]@4 ~@2]/4", // Ab5 Bb Ab5 Bb
  K: "[[eb3,ab3,eb4]@11 ~, c4]/2", L: "[[eb4,g4,c5] ~@15, c4]/2", M: "[[eb4,g4,c5]@11 ~, c4]/2",
  N: "[[eb4,g4,c5]@11 ~ [eb4,g4,c5]@11 ~, c4@23 ~]/4", // Cm
  O: "[eb4,ab4,c5,eb5]@2 ~ [f4,bb4,d5,f5]@2 ~ [eb4,ab4,c5,eb5]@2 ~ [f4,bb4,d5,f5]@2 ~", // Ab Bb Ab Bb
  P: "[ab4,c5,eb5,ab5]@2 ~ [bb4,d5,f5,bb5]@2 ~ [ab4,c5,eb5,ab5]@2 ~ [bb4,d5,f5,bb5]@2 ~", Q: "[c5,eb5,g5,c6] ~@5",
})).s("gm_string_ensemble_2").gain(0.24).pan(0.9)

// drums · kick
const kick = s("bd").struct(`<
  A@3 B A@3 B A@2 C@2 A@3 C@2 A@8 B A@3 B A@2 C@2 A@3 C@4 D ~@24 E A@33 B A@3 B A@2 C@2 A@3 C A@8 B A@3 B A@2 C@6 A@3 F
  ~
>`.pickRestart({
  A: "x!2", B: "x ~@5 x ~@4 x", C: "x ~ x!2", D: "x", E: "~@11 x", F: "x ~@2 x ~ x",
})).gain(0.47)

// drums · snare
const snare = s("sd").struct(`<
  A@3 B A@3 B A@8 C@2 A@7 B A@3 B A@8 C@3 D ~@24 E C A@32 B A@3 B A@8 C A@7 B A@3 B A@3 C@5 F@3 G D
>`.pickRestart({
  A: "~ x ~ x", B: "~@3 x ~@5 x!2 ~", C: "x!2 ~ x", D: "x", E: "~@9 x!2 ~", F: "x!4", G: "x ~@2 x ~@2 x ~@2 x ~ x",
})).gain(0.59)

// drums · hihat
const hihat = s("hh").struct("<[x!12]!41 x ~ [x!4]!23 [x ~@2 x ~@2 x ~@2 x!3] [x!12]!71 ~>").gain(0.41)

// drums · crash
const crash = s("cr").struct(`<
  ~@4 A ~@3 A ~ B C A ~@2 B C A ~@8 A ~@3 A ~ B C A ~@2 B C@3 A ~@25 A ~@33 A ~@3 A ~ B C A ~@2 B A ~@8 A ~@3 A ~ B C@5
  ~@4 A
>`.pickRestart({
  A: "x", B: "~@3 x", C: "x ~@2 x",
})).gain(0.47)

// drums · ride
const ride = s("rd").struct("<~@43 [~ x]!24 ~@72>").gain(0.29)

stack(
  overdriven_guitar, epiano1, electric_guitar_clean, cello, bass, overdriven_guitar_2, string_ensemble_2, kick, snare,
  hihat, crash, ride
)