// Building A Mystery — Sarah McLachlan
// 81 bpm, 4/4, key D major. 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(81/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 · soprano sax · "dulcimer"
const soprano_sax = note(`<
  A B C B D B C B C B C B C E F B C B C B C B C B C G H I J B C B C B C B C K B C B C B C B C G H I J B C B C B C B C K
  L M E N O M E P B C B C B C B C B C Q R@2 ~
>`.pickRestart({
  A: "~@10 a4 ~ a4 ~ a4 ~", B: "b3 d4 [b3,d4,f#4]@2 g3 b3 [g3,b3,d4]@2", C: "a3 d4 [a3,d4,f#4]@2 a3 c#4 [a3,c#4,e4]@2",
  D: "a3 d4 [a3,d4,f#4]@2 a3 c#4 [a3,c#4]!2, ~@3 e4, ~@14 d4 ~", E: "b3 e4 [b3,e4,g4]@2 ~@2 g3 b3, ~@4 b3@3 ~",
  F: "g3@2 b3@2 ~@3 c#4 [a3,c#4,e4] ~@7, ~@4 [g3,b3,d4]@5 ~@7", G: "b3 e4 [b3,e4]@2 b3 e4 b3!2, ~@3 e4",
  H: "b3 e4 [b3,d4,g4]@2 b3 d4 b3!2, ~@3 [g3,d4]", I: "b3 e4 [b3,e4,g#4]@2 b3 e4 b3!2, ~@3 [g#3,e4]",
  J: "b3 e4 [b3,d4,g4]@2 a3 c#4!3, ~@3 [a3,e4]", K: "a3 c#4 [a3,c#4,e4]@2 a3 c#4 [a3,c#4,e4]@2",
  L: "d4 f#4 [b3,d4,f#4]@2 d4 f#4 [d4,f#4,b4]@2", M: "a3 d4 [a3,d4,f#4]@2 a3 d4 [a3,d4,f#4]@2",
  N: "b3 d4 [b3,d4,f#4]@2 b3 d4 [b3,d4,f#4]@2", O: "d4 f#4 [b3,d4,f#4]@2 c#4 e4 [a3,c#4,e4]@2",
  P: "g3@2 b3@2 ~@3 c#4 c#4@2 e4@2 [a3,c#4,e4]@4, ~@4 [g3,b3,d4]@5 ~@7", // A G
  Q: "b3 d4 [b3,d4,f#4]@2 g3 b3 [g3,d4]@2, ~@6 b3 ~", // Bm G5
  R: "[~@10 a4@17 ~@5, a3@9 e4@18 ~@5, ~ d4@26 ~@5, ~@2 f#4@25 ~@5, ~@8 c#4@19 ~@5]/2",
})).s("gm_soprano_sax").gain(0.46).pan(0.6)

// chords · distortion guitar · "gtrnylon"
const distortion_guitar = note(`<
  A B C B C D E B C B C B C F G B C B C B C B C B C H I J K B C B C B C B C L B C B C B C B C H I J K B C B C B C B C L
  ~@7 M B C B C B C B C B C N O@2 ~
>`.pickRestart({
  A: "~@5 [a3,e4,a4,d5] [a3,d4,a4,c#5] [a3,c#4,a4]", // Asus4 Dmaj7 A
  B: "[d4,f#4]@2 b3@2 [d4,f#4,b4]@3 [d4,f#4,b4] [d4,g4]@2 d4@2 [d4,g4,b4]@3 [d4,g4,b4]", // D Bm G5 G
  C: "[d4,f#4]@2 a3@2 [d4,f#4,a4]@2 ~ [d4,f#4,a4] c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4]", // D A
  D: "[d4,f#4]@2 b3@2 [d4,f#4,b4]@4 [d4,g4]@2 d4@2 [d4,g4,b4]@3 [d4,g4,b4]", // D Bm G5 G
  E: "[d4,f#4]@2 a3@2 [d4,f#4,a4]@2 ~@2 c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4]", // D A
  F: "[e4,g4]@2 ~ g4 [b3,e4,g4]@3 ~ [e4,g4]@2 [b3,e4,g4]@3 ~ e4@2, ~@2 d4@2 ~@3 b3@3 ~@3 [b3,e4,g4]@2 ~", // Em
  G: "[d4,g4]@2 ~ d4 d4@3 ~ [a3,c#4,e4] ~@7, ~ g4 [b3,g4]@4 ~@2, ~@7 d4@5 ~@4", // G5 A Em
  H: "e4@2 b3@2 [b3,e4]@3 ~ e4@2 b3@2 [b3,e4]@3 [b3,e4], ~@7 [b3,e4]@2 ~@7", // E5
  I: "[d4,g4]@2 b3@2 [g3,b3,d4]@3 ~ [d4,g4]@2 b3@2 [b3,d4,g4]@3 [b3,d4,g4], ~@7 [g3,b3,d4]@2 ~@7", // G5 G G5 G
  J: "[e4,g#4]@2 b3@2 [g#3,b3,e4]@3 ~ [e4,g#4]@2 b3@2 [b3,e4,g#4]@3 [b3,e4,g#4], ~@7 [g#3,b3,e4]@2 ~@7", // E
  K: "[d4,g4]@2 b3@2 [g3,b3,d4]@3 ~ c#4@2 e4@2 a4@2 a4@2, ~@7 [g3,b3,d4]@2 ~@3 [c#4,e4]@4", // G5 G C#m
  L: "c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4] c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4]", // A
  M: "[d4,g4]@2 d4@2 [d4,g4,b4]@3 [d4,g4,b4] c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4]", // G5 G A
  N: "[d4,f#4]@2 b3@2 [d4,f#4,b4]@3 [d4,f#4,b4] [d4,g4]@2 d4@2 [d4,g4,b4]@3 [g4,b4]", // D Bm G5 G
  O: "[[a3,a4] [a3,e4,a4,c#5]@3, [d4,f#4]]/2", // A D
})).s("gm_distortion_guitar").gain(0.26)

// other · electric guitar jazz · "gtjazz"
const electric_guitar_jazz = note(`<
  ~ A@3 B ~@10 C D@2 ~@11 E F ~@2 E F ~@2 G@2 ~@11 E F ~@2 E F ~@3 E H I@2 J@3 ~ E F ~@2 E F ~@8
>`.pickRestart({
  A: "[~@2 d5, ~ d4@8 a4@8 ~@7, ~@7 f#4@8 ~@9]/3", B: "d4", C: "f#4", D: "[f#4 g4 f#4 e4@13]/2", E: "f#4@11 ~@5",
  F: "f#4 g4 f#4 e4@4 ~", G: "[~@4 a5@4 e6@11 ~@13]/2", H: "f#4 g4 f#4 b3@4 ~", I: "[~@3 b3 d4 a3 f#3 d3@4 ~@5]/2",
  J: "[~@3 a4@4 ~@8 e4@8 ~, f#4@4 ~@3 d4@4 f#4@4 ~@9, ~@9 e4@4 d4@4 ~@7]/3",
})).s("gm_electric_guitar_jazz").gain(0.28).pan(0.9)

// bass · fretless bass · "fretlsbass"
const bass = note(`<
  ~@15 A B A B A B A B A B C D C E A B A B A B A B F G B A B A B A B C D C E A B A B A B A B H I J K L I J K M A B A B A
  B A B A B A N ~@2
>`.pickRestart({
  A: "b1 ~ b1 ~ b1 ~@2 b1 g1 ~ g1 ~ g1 ~@2 g1", B: "d1 ~ d1 ~ d1 ~@3 a1 ~ a1 ~@2 a1 ~ a1",
  C: "e1 ~ e1 ~ e1 ~@2 b0 e1 ~ e1 ~ e1 ~@2 e1", D: "g1 ~ g1 ~ g1 ~@2 d1 g1 ~ g1 ~ g1 ~@2 g1",
  E: "g1 ~ g1 ~ g1 ~@2 d1 a1 ~ a1 ~ a1 b1 c#2 d2", F: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~@2 b2 g2 e2",
  G: "b1@2 b1 ~ b1 ~@2 b1 g1 ~ g1 ~ g1 ~@2 g1", H: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~@2 a1 ~ a1",
  I: "b1 ~ b1 ~ b1 ~@2 b1 c#2 ~ c#2 ~ c#2 ~@2 c#2", J: "d2 ~ d2 ~ d2 ~@3 d2 ~ d2 ~ d2 ~ d2 ~",
  K: "e1 ~ e1 ~ e1 ~@2 e1 ~@2 e1 ~ e1 ~ e1 ~", L: "d2 ~ d2 ~ d2 ~@2 d2 e2 ~ e2 ~ e2 ~@2 e2",
  M: "g1 ~ g1 ~ g1 ~@2 g1 a1 ~ a1 ~ a1 ~@2 a1", N: "d1@11 ~@5",
})).s("gm_fretless_bass").gain(0.42)

// chords · celesta
const celesta = note(`<
  ~@15 A B A B A B A B A B C D E F A B A B A B A B G A B A B A B A B C D E F A B A B A B A B G ~@7 H A B A B A B A B A B
  A ~@3
>`.pickRestart({
  A: "[d4,f#4]@2 b3@2 [d4,f#4,b4]@3 [d4,f#4,b4] [d4,g4]@2 d4@2 [d4,g4,b4]@3 [d4,g4,b4]", // D Bm G5 G
  B: "[d4,f#4]@2 a3@2 [d4,f#4,a4]@2 ~ [d4,f#4,a4] c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4]", // D A
  C: "e4@2 b3@2 [b3,e4]@3 e4 e4@2 b3@2 [b3,e4]@3 [b3,e4], ~@7 b3@2 ~@7", // E5
  D: "[d4,g4]@2 b3@2 [g3,b3,d4]@3 d4 [d4,g4]@2 b3@2 [b3,d4,g4]@3 [b3,d4,g4], ~@7 [g3,b3]@2 ~@7", // G5 G G5 G
  E: "[e4,g#4]@2 b3@2 [g#3,b3,e4]@3 e4 [e4,g#4]@2 b3@2 [b3,e4,g#4]@3 [b3,e4,g#4], ~@7 [g#3,b3]@2 ~@7", // E G#m
  F: "[d4,g4]@2 b3@2 [g3,b3,d4]@3 ~ c#4@2 e4@2 a4@2 a4@2, ~@7 [g3,b3,d4]@2 ~@3 [c#4,e4]@4", // G5 G C#m
  G: "c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4] c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4]", // A
  H: "[d4,g4]@2 d4@2 [d4,g4,b4]@3 [d4,g4,b4] c#4@2 a3@2 [c#4,e4,a4]@3 [c#4,e4,a4]", // G5 G A
})).s("gm_celesta").gain(0.13).pan(0.9)

// chords · ocarina
const ocarina = note(`<
  ~@15 A B A B A B A B A B C D E F A B A B A B A B G A B A B A B A B C D E F A B A B A B A B G ~@7 F A B A B A B A B A B
  A ~@3
>`.pickRestart({
  A: "[b3,d4,f#4] [b3,d4,g4]", B: "[d4,f#4,a4] [c#4,e4,a4]", C: "[b3,e4]!2", D: "[b3,d4,g4]!2", E: "[b3,e4,g#4]!2",
  F: "[b3,d4,g4] [c#4,e4,a4]", G: "[c#4,e4,a4]!2",
})).s("gm_ocarina").gain(0.24)

// chords · lead 4 chiff · "chiff?"
const lead_4_chiff = note(`<
  ~@25 A B C D@2 E F E F E F E G ~@8 A B C D@2 E F E F E F E G H I J K L I J M F E F E F E F E F E F ~@3
>`.pickRestart({
  A: "[e4,b4,e5]", B: "[d4,g4,b4,d5]", C: "[e4,g#4,b4,e5]",
  D: "[~@4 [e4,a4,c#5]@4 b3 d4 [b3,d4,f#4]@2 g3 b3 [g3,b3,d4]@2, ~ e5@2 ~]/2", // A Bm G
  E: "a3 d4 [a3,d4,f#4]@2 a3 c#4 [a3,c#4,e4]@2", F: "b3 d4 [b3,d4,f#4]@2 g3 b3 [g3,b3,d4]@2",
  G: "a3 c#4 [a3,c#4,e4]@2 a3 c#4 [a3,c#4,e4]@2", H: "d4 f#4 [b3,d4,f#4]@2 d4 f#4 [d4,f#4,b4]@2",
  I: "a3 d4 [a3,d4,f#4]@2 a3 d4 [a3,d4,f#4]@2", J: "b3 e4 [b3,e4,g4]@2 ~@2 g3 b3, ~@4 b3@3 ~",
  K: "b3 d4 [b3,d4,f#4]@2 b3 d4 [b3,d4,f#4]@2", L: "d4 f#4 [b3,d4,f#4]@2 c#4 e4 [a3,c#4,e4]@2",
  M: "g3@2 b3@2 ~@3 c#4 c#4@2 e4@2 [a3,c#4,e4]@4, ~@4 [g3,b3,d4]@5 ~@7", // A G
})).s("gm_lead_4_chiff").gain(0.15).pan(0.1)

// drums · kick
const kick = s("bd").struct("<~@14 A B@22 C B@20 C B@19 D ~@2>".pickRestart({
  A: "~@8 x ~ x ~ x ~ x!2", B: "x ~@3 x!2 ~@2", C: "x!2 ~@2 x!2 ~@2", D: "x",
})).gain(0.49)

// drums · rim
const rim = s("rim").struct("<~@14 A ~ B ~@49 C ~@10 D ~@3>".pickRestart({
  A: "~@13 x ~@2", B: "~@3 x", C: "~@12 x!2 ~ x", D: "~@15 x",
})).gain(0.49)

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

// drums · hihat
const hihat = s("hh").struct("<~@14 A B C B@7 D B@3 E B@16 F B@3 E B@15 G H B@10 F ~@3>".pickRestart({
  A: "~@8 x ~ x!5 ~", B: "x!4", C: "x ~ x ~ x ~@2 x", D: "x ~@3 x ~@3 x ~@3 x!3 ~", E: "x ~@3 x ~@2 x!2 ~@2 x!2 ~ x!2",
  F: "x ~ x ~ x ~ x!2", G: "x!3 ~", H: "~@10 x!3 ~@3",
})).gain(0.49)

// drums · low tom
const low_tom = s("lt").struct("<~@16 A ~@11 B ~@20 B ~@16 C D ~@13>".pickRestart({
  A: "~@13 x ~@2", B: "~@9 x ~@3 x ~@2", C: "~@7 x ~@8", D: "x",
})).gain(0.49)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@16 A ~@11 B ~@3 C ~@3 C D ~@11 B ~@3 C ~@3 C D ~@6 E F ~@3 C ~@3 C ~ G H ~@3
>`.pickRestart({
  A: "~@11 x ~ x ~@2", B: "~@9 x ~@2 x ~@2 x", C: "~@12 x ~@2 x", D: "~@4 x ~@2 x ~@4 x ~@2 x", E: "~@13 x ~@2",
  F: "~ x ~ x", G: "x ~@11 x ~@2 x", H: "~@7 x",
})).gain(0.49)

// drums · open hat
const open_hat = s("oh").struct("<~@14 [~@4 x!4] [~ x ~ x ~ x ~ x]!62 [~ x ~ x ~ x ~@2] ~@3>").gain(0.49)

// drums · crash
const crash = s("cr").struct("<~@15 A ~ A ~@11 B C@3 B C@4 A ~@11 B C@3 B C@4 ~@8 B C@3 B C@5 D ~@3>".pickRestart({
  A: "x", B: "x!2 ~ x", C: "~ x ~ x", D: "~ x ~@2",
})).gain(0.49)

// drums · high tom
const high_tom = s("ht").struct("<~@66 [x!2] x ~@13>").gain(0.49)

// drums · tambourine
const tambourine = s("tb").struct("<~@15 A ~@13 B@9 A ~@11 B@9 ~@8 B@10 C A ~@2>".pickRestart({
  A: "x", B: "x!4", C: "x!3 ~",
})).gain(0.49)

stack(
  soprano_sax, distortion_guitar, electric_guitar_jazz, bass, celesta, ocarina, lead_4_chiff, kick, rim, snare, hihat,
  low_tom, mid_tom, open_hat, crash, high_tom, tambourine
)