// A Salty Dog — Procol Harum
// 101 bpm, 4/4, key B major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 62 bars on a 32-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(101/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 · synth strings 1 · "Syn Strin"
const synth_strings_1 = note(`<
  A B C D E F G H I@2 J K L M N@2 O P Q@2 E F G H I@2 J K L M N@2 O R S@2 ~@3 T E F G H I@2 J K L M N@2 O R S@2 ~@3 T U
  ~
>`.pickRestart({
  A: "[f4,g4]@2 ~@6 [f4,g4]@2 ~@6 [f4,g4]@3 ~@5 [f4,g4]@3 ~@5", // Fsus2
  B: "[e4,g4]@2 ~@6 [e4,g4]@3 ~@5 [e4,g4]@2 ~@6 [e4,g4]@2 ~@6", // Em
  C: "[d#4,g4]@2 ~@6 [d#4,g4]@3 ~@5 [d#4,g4]@3 ~@5 [d#4,g4]@2 ~@6", // D#
  D: "[d#4,f4] ~@3 [d#4,f4] ~@3 [d4,f4] ~@3 [d4,f4] ~@3", E: "[f4,g4] ~@3 [f4,g4] ~@3 [f4,g4] ~@3 [f4,g4] ~@3",
  F: "[e4,g4]@2 ~@6 [e4,g4]@3 ~@5 [e4,g4]@3 ~@5 [e4,g4]@3 ~@5", // Em
  G: "[d#4,g4]@3 ~@5 [d#4,g4]@3 ~@5 [d#4,g4]@3 ~@5 [d#4,g4]@3 ~@5", // D#
  H: "[d#4,f4]@4 ~@4 [d#4,f4]@3 ~@5 [d4,f4]@3 ~@5 [d4,f4]@4 ~@4", I: "f4@3 d#4", J: "g4@3 f4", K: "c#5",
  L: "d#5@6 e5 d#5", M: "c#5@23 ~ c#5@4 e5@4", N: "[~@32 f#5@31 ~, d#5@31 ~]/2", O: "g#5@7 f#5", P: "~@2 b4 a#4, g5",
  Q: "[b4@31 ~ b4@16 a#4@14 ~@2, f#5@63 ~]/2", R: "g5", S: "[~@16 b4@8 a#4@7 ~, f#5@63 ~]/2", T: "d#4@2 f4 f#4",
  U: "[f4,g4]", // Fsus2
})).s("gm_synth_strings_1").gain(0.3).pan(0.4)

// chords · piano · "Piano 2"
const piano = note(`<
  A B C D E F G H I J K L M N O P Q R S T U F G H I J K L M N O P V R S T W@3 ~ U F G H X J K L M N O P V Y Z AA AB@3 ~
  AC@2
>`.pickRestart({
  A: "[f3,g3]@4 ~@4 [f3,g3]@4 ~@5 [f3,g3]@4 ~@4 f3@4 ~@3, ~@12 g3@3 ~", // Fsus2
  B: "~ [e3,g3]@4 ~@4 [e3,g3]@4 ~@3 [e3,g3]@4 ~@4 [e3,g3]@4 ~@4", C: "[d#3,g3] ~ [d#3,g3] ~ [d#3,g3] ~ [d#3,g3] ~",
  D: "[d#3,f3] ~ [d#3,f3] ~ [d3,f3] ~ [d3,f3] c2", E: "[f3,g3]@4 ~@5 [f3,g3]@3 ~@4 [f3,g3]@4 ~@4 [f3,g3]@4 ~@4, c#2",
  F: "[e3,g3] ~ [e3,g3] ~ [e3,g3] ~ [e3,g3] ~", G: "[d#3,g3]@4 ~@4 [d#3,g3]@3 ~@5 [d#3,g3]@3 ~@5 [d#3,g3]@4 ~@4",
  H: "[d#3,f3]@5 ~@3 [d#3,f3]@5 ~@3 [d3,f3]@4 ~@4 [d3,f3]@4 ~@4", // D#sus2 Dm
  I: "~ [c3,f3]@4 f2@3 [c3,f3]@4 f2@4 [a#2,d#3]@4 d#2@4 [a#2,d#3]@7 ~", // F5 D#5
  J: "[c3,f3] f2 [c3,f3] f2 [a#2,d#3] d#2 [a#2,d#3] d#2", K: "[d#3,g3] a#2 [d#3,g3] a#2 [c#3,f3] g#2 [c#3,f3] g#2",
  L: "[e3,g#3] b2 [e3,g#3] b2 [e3,g#3] ~ [e3,g#3]@2, ~@5 b2@3", // E
  M: "[b2,d#3,f#3]@7 ~ [b2,d#3,f#3]@5 ~@3 [b2,d#3,f#3]@6 ~@2 [b2,d#3,f#3]@7 ~", // B
  N: "[c#3,f#3,a#3]@6 ~@2 [c#3,f#3,a#3]@5 ~@3 [c#3,f#3,a#3]@5 ~@3 [c#3,f#3,a#3]@6 ~@2", // F#
  O: "[b2,d#3,f#3]@5 ~@3 [b2,d#3,f#3]@5 ~@3 [b2,d#3,f#3]@5 ~@3 [b2,d#3,f#3]@5 ~@3", // B
  P: "[b2,d#3,f#3,a3]@3 ~ [b2,d#3,f#3,a3]@3 ~ [b2,d#3,f#3,a3]@3 ~ [b2,d#3,f#3,a3]@4", // B7
  Q: "~ [b2,e3,g#3]@6 ~ [b2,e3,g#3]@6 ~@2 [b2,e3,g#3]@6 ~@2 [b2,e3,g#3]@6 ~@2", // E
  R: "~ e3@6 ~ [b2,e3,g3]@6 ~@2 [b2,e3,g3]@6 ~@3 [e3,g3]@5 ~@2, [b2,g3]@3 ~@9 b2@3 ~", // Em
  S: "[b2,d#3,f#3]@6 ~@3 [d#3,f#3]@6 ~ [b2,d#3,f#3]@6 ~@2 [b2,d#3,f#3]@5 ~@3, ~@4 b2@3 ~@9", // B D#m B
  T: "~ [c#3,b3]@6 ~@2 [c#3,f#3,b3]@6 ~@2 [c#3,f#3,a#3]@13 ~@2, f#3@3 ~@13", // C#7 F#sus4 F#
  U: "[f3,g3]@4 ~@5 [f3,g3]@3 ~@4 [f3,g3]@4 ~@4 [f3,g3]@4 ~@4", // Fsus2
  V: "[b2,e3,g#3]@3 ~ [b2,e3,g#3]@3 ~ [b2,e3,g#3]@3 ~ [b2,e3,g#3]@3 ~", // E
  W: "[~@3 b2 [d#3,f3] b2 [f#2,f#3] ~@4 b2 a#3 f2 [d2,b3] ~@4 f#2 [c#3,c4] ~ f#2 c#2, d#4@13 ~@19 g#3@12 ~@4 d3@16 c#4@13 ~@7 a#2@9 ~@3, ~@8 d#2@16 ~@4 b2@8 ~@4 d2@12 ~@8 f2@9 ~@3 c#2@15 ~ c#4@7 ~]/3", // D#sus2 F# G C#maj7
  X: "[c3,f3]@4 f2@4 [c3,f3]@4 f2@4 [a#2,d#3]@4 d#2@4 [a#2,d#3]@7 ~", // F5 D#5
  Y: "~ e3@6 ~ [b2,e3,g3]@6 ~@2 [b2,e3,g3]@6 ~@2 [b2,e3,g3]@6 ~@2, [b2,g3]@3 ~@13", // Em
  Z: "[b2,d#3,f#3]@6 ~@2 [b2,d#3,f#3]@6 ~@2 [b2,d#3,f#3]@6 ~@2 [b2,d#3,f#3]@5 ~@3", // B
  AA: "~ [c#3,b3]@6 ~@2 b3@6 ~@2 [c#3,f#3,a#3]@13 ~@2, f#3@3 ~ [c#3,f#3]@3 ~@9", // C#7 F# F#5
  AB: "[~@3 b2 [d#3,f3] b2 [f#2,f#3] ~@4 b2 a#3 f2 [d2,b3] ~@4 f#2 [c#3,c4] ~ f#2 c#2, d#4@13 ~@19 g#3@12 ~@4 d3@16 c#4@13 ~@7 a#2@9 ~@3, ~@8 d#2@16 ~@4 b2@8 ~@4 d2@12 ~@8 f2@11 ~ c#2@15 ~ c#4@7 ~]/3", // D#sus2 F# G C#maj7
  AC: "[g3@39 ~@25, f3@3 ~@5]/2",
})).s("gm_piano").gain(0.3).pan(0.6)

// other · cello
const cello = note("<~@8 A B C D ~@8 E F@2 G ~@3 H I ~@18 J K ~@13>".pickRestart({
  A: "g#3@23 ~ g3@8", B: "f3@3 d#3", C: "c#3@7 d#3", D: "e3", E: "c#3", F: "c3/2", G: "a#2",
  H: "~@6 c#2 d#2 e2 f#2 g#2 a#2 b2 c#3 d#3 e3", I: "f#3@31 ~",
  J: "~@12 c#2 d#2 e2 ~@2 g#2 a#2 ~@2 c#3 d#3 e3@2 f#3 g#3 a#3@2 b3@2 c#4, ~@8 f#2 ~ b2 ~@5", K: "f#4@7 ~@9",
})).s("gm_cello").gain(0.37)

// other · viola
const viola = note("<~@41 [~@10 e3 f3 g3@2 e3@2] c3 [~@10 d3 d#3 f3@2 d3@2] [g#2@3 ~] ~@17>")
  .s("gm_viola").gain(0.35).pan(0.7)

// bass · contrabass · "Contrabas"
const bass = note("<~@24 A B C D E ~@10 F G H@3 A B C I ~@11 J G ~>".pickRestart({
  A: "g#2@3 g2", B: "f2@3 d#2", C: "c#2@7 d#2", D: "e2", E: "f#2@3 ~", F: "c3@15 a2@9 f#2@8", G: "~ c#2@31",
  H: "[c2@2 a#2]/3", I: "e2@15 ~", J: "c3@2 a2 f#2",
})).s("gm_contrabass").gain(0.35)

// other · violin
const violin = note("<~@40 A B C D ~@3 E F ~@13>".pickRestart({
  A: "~@10 f4 g4 g#4@2 f4@2", B: "c5@19 ~@13", C: "~@10 d#4 f4 g4@2 d#4@2", D: "a#4@31 ~",
  E: "~@12 c#2 d#2 e2 ~@2 g#2 a#2 ~@2 c#3 d#3 e3@2 f#3 g#3 a#3@2 b3@2 c#4, ~@8 f#2 ~ b2 ~@5", F: "f#4@7 ~@9",
})).s("gm_violin").gain(0.35).pan(0.3)

// chords · pizzicato strings · "Pizzicato"
const pizzicato_strings = note("<~@36 A B C ~@17 A D@2 ~@3>".pickRestart({
  A: "b2@2 ~@2 f#3 ~@3 [d#4,f#4,b4]@2 ~@6 [d#4,f#4,b4]@4 ~@12", // B
  B: "d3@2 ~@2 g#3@2 ~@2 [f4,g#4,b4]@2 ~@6 [f4,g#4,b4]@5 ~@11", // Fdim
  C: "c#3@2 ~ f#3 ~@4 [f#4,a#4,c#5]@3 ~@5 [f#4,a#4,c#5]@4 ~@12", // F#
  D: "[d3@2 ~@2 g#3@2 ~@2 [f4,g#4,b4]@2 ~@6 [f4,b4]@5 ~@10 c#3@2 ~@2 f#3 ~@4 [f#4,a#4,c#5]@3 ~@5 [f#4,a#4,c#5]@4 ~@12, ~@15 g#4@4 ~@45]/2", // Fdim F#
})).s("gm_pizzicato_strings").gain(0.25).pan(0.4)

// chords · string ensemble 1 · "Strings"
const string_ensemble_1 = note("<~@12 A@4 B@2 C@2 ~@8 D E F@2 G@4 ~@11 H D E F@2 I@4 ~@6>".pickRestart({
  A: "[b4@32 ~ a#4@31 ~@32 d#5@30 ~@2, f#4@63 ~, ~@64 b4@61 ~@3]/4", B: "[~ g#4@32 g4@30 ~, ~ [b4,e5]@62 ~]/2",
  C: "[~ b4@47 a#4@15 ~]/2", D: "[d#5,f#5]@31 ~", E: "[a#4,c#5]@31 ~", F: "[~@32 a4@31 ~, [b4,d#5]@63 ~]/2",
  G: "[g#4@32 ~ g4@30 ~@2 f#4@62 ~, b4@7 ~, e5@63 ~@2 d#5@31 ~@32]/4",
  H: "~@12 c#3 d#3 e3 ~@2 g#3 a#3 ~@2 c#4 d#4 e4@2 f#4 g#4 a#4@2 b4@2 c#5, ~@8 f#3 ~ b3 ~@5",
  I: "[g#4@32 g4@30 ~@3 f#4@62 ~, b4@7 ~, e5@63 ~@2 d#5@31 ~@32]/4",
})).s("gm_string_ensemble_1").gain(0.3).pan(0.6)

// chords · string ensemble 1 · "Strings" · soft notes
const string_ensemble_1_soft = note("<~@15 A ~@2 B@2 ~@15 C ~@19 C ~@6>".pickRestart({
  A: "a4@15 ~", B: "[f#4@63 ~]/2", C: "~@16 a#4@15 ~",
})).s("gm_string_ensemble_1").gain(0.15).pan(0.6)

// bass · acoustic bass · "Acoustic"
const bass_2 = note(`<
  ~@3 A B C D E F G H I J K L M N O J@2 B C D E F G H I P Q R S T U V W ~@4 B C D E F G H I P Q X S T U V W ~@3 Y Z@2
>`.pickRestart({
  A: "~@7 c2", B: "c#2@15 ~", C: "c2@15 ~", D: "c2@31 ~", E: "a#1@15 ~", F: "g#2@22 ~@2 g2@7 ~", G: "f2@20 ~@4 d#2@7 ~",
  H: "c#2@25 ~@3 d#2@4", I: "e2@25 ~@3 f2@2 ~@2", J: "f#2@29 ~@3", K: "f#2@11 ~@21", L: "b2@21 ~@3 f#2@3 ~ a#2@4",
  M: "b2@11 ~ b2 ~ f#2@2", N: "e2@11 ~ e2@2 f#2@2", O: "g2@29 ~@3", P: "b1@13 ~@2 b1 b1@3 ~ b1@11 ~",
  Q: "f#2@14 ~ c#2 f#2@2 ~@2 f#2@3 ~ c#2@4 f#2@4", R: "b2@13 ~@2 f#2 b2@2 ~@2 b2@3 ~ f#2@8",
  S: "b1@15 ~ b1@6 ~@2 b1@4 d#2@4", T: "e2@13 ~ b1@2 e2@4 e2@11 ~", U: "e2@7 ~ e2 ~ e2@5 ~", V: "~ b1@21 ~@3 b1@6 ~",
  W: "f#2@15 ~", X: "b2@13 ~ f#2 ~ b2@2 ~@2 b2@3 ~ f#2@8", Y: "a2@13 ~@4 f2@13 ~@2", Z: "[~ c#2@40 ~@23]/2",
})).s("gm_acoustic_bass").gain(0.35)

// chords · tremolo strings · "Tremolo S"
const tremolo_strings = note("<~@10 A B ~@14 A B ~@20 C D E@2 F@2 G ~@5 H ~>".pickRestart({
  A: "~ [d#4,g4]@31", B: "[e4,g#4]@31 ~", C: "[d#6,f#6]@31 ~", D: "[c#6,f#6]@15 ~",
  E: "[~@16 a6@15 ~, [d#6,f#6]@31 ~]/2", F: "[g#6@32 ~ g6@30 ~, e6@63 ~, ~@33 g#6 ~@30]/2", G: "~ [d#6,f#6]@31",
  H: "[f4,g4]", // Fsus2
})).s("gm_tremolo_strings").gain(0.3)

// other · blown bottle · "Bottle Bl"
const blown_bottle = note("<~@5 [~@5 d7@6 ~ g7@17 d7@3] ~@56>").s("gm_blown_bottle").gain(0.15)

// drums · kick
const kick = s("bd").struct("<~@14 A B C D C ~@9 E F G@2 D H I J ~@12 J@2 C K C L I@2 ~@6>".pickRestart({
  A: "x ~@3 x ~@2 x", B: "x ~ x!2", C: "x!2", D: "x ~@3 x!2 ~@2", E: "x ~@16 x ~@11 x ~@2",
  F: "x ~@8 x ~@6 x ~@7 x ~@3 x ~@3", G: "x!4", H: "~ x ~@14 x ~@3 x ~@11", I: "~ x ~@15 x ~@14", J: "x", K: "x!3 ~",
  L: "x ~@16 x ~@2 x ~@11",
})).gain(0.25)

// drums · snare
const snare = s("sd").struct(`<
  ~@13 A B C D@2 E F G H@2 I J K L M N O P Q R S E T ~@4 U L V W X@2 Y Z AA AB AC AD AE AF AG AH ~@6
>`.pickRestart({
  A: "~ x!2 ~@5", B: "~ x ~ x", C: "~@9 x ~@2 x ~ x ~@5 x ~ x ~@9", D: "~@9 x ~@5 x ~@8 x ~@7", E: "~@9 x ~@15 x ~@6",
  F: "~@30 x!2", G: "x ~@23 x ~@4 x ~ x", H: "x ~@23 x ~@4 x!2 ~", I: "x ~@24 x ~@4 x!2", J: "~ x ~@22 x ~@5 x ~",
  K: "x ~@23 x ~@5 x!2", L: "x ~@23 x ~@6 x", M: "x ~@4 x ~ x!2 ~@3 x!2 ~ x!2 ~@3 x!2 ~ x!3 ~ x!3 ~ x",
  N: "x ~@7 x ~@6 x ~@3 x ~@3 x ~@4 x ~@3", O: "~@7 x ~@4 x ~@7 x ~@6 x ~@4",
  P: "~@8 x ~@6 x ~@4 x ~@3 x ~@2 x ~ x ~ x", Q: "~@4 x ~ x!3 ~ x!3 ~@3", R: "~@9 x ~@5 x ~@9 x ~@5 x",
  S: "~@9 x ~@14 x ~@7", T: "~@13 x ~ x!2 ~@15", U: "~@24 x ~@4 x!2 ~", V: "x ~@2 x", W: "x ~@27 x!2 ~ x",
  X: "x ~@23 x ~@3 x!3 ~", Y: "x ~@23 x ~@3 x!2 ~ x", Z: "x ~@2 x!13", AA: "x ~ x ~ x!3 ~",
  AB: "~@8 x ~@6 x!3 ~@6 x ~@7", AC: "~@8 x ~@6 x ~@6 x ~@2 x ~@4 x ~", AD: "~@3 x ~@2 x ~@7 x ~@3 x ~@3 x ~@9",
  AE: "~@8 x ~@6 x ~@8 x ~@6 x", AF: "~@8 x ~@15 x ~@4 x!3", AG: "~@9 x ~@5 x ~@9 x ~@6", AH: "~@9 x ~@22",
})).gain(0.2)

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@15 A ~@3 B C@4 B C B D ~@7 E ~@4 C F G ~@10 C ~@8>".pickRestart({
  A: "~ x", B: "~@28 x!2 ~@2", C: "~@7 x", D: "~ x ~@6", E: "~@3 x ~@4", F: "~@21 x ~ x ~@4 x!2 ~@2",
  G: "~@20 x!2 ~ x ~@4 x!3 ~",
})).gain(0.11)

// drums · hihat
const hihat = s("hh").struct("<~@14 A B C D E ~@9 F G H I J K L ~@13 H M N O P Q R ~@7>".pickRestart({
  A: "~ x!7", B: "x ~@4 x ~@26", C: "~@4 x ~@4 x ~@2 x ~@3 x ~@3 x ~@3 x ~@3 x ~@3",
  D: "x ~@8 x ~@2 x ~@3 x ~@3 x ~@3 x ~@3 x ~@3", E: "~@29 x ~@2", F: "x ~@8 x ~@22", G: "~@5 x ~@26", H: "~ x!3 ~@4",
  I: "~ x ~@2", J: "~@13 x ~@3 x ~@3 x ~@2 x ~@4 x ~@2", K: "~ x ~@7 x ~@5 x ~@5 x ~@2 x ~@4 x ~@2",
  L: "~ x ~@7 x ~@3 x ~@3 x ~@7 x ~@6", M: "~@4 x ~@4 x ~@3 x ~@18", N: "~@5 x ~@13 x ~@12", O: "~ x ~@4 x ~@9",
  P: "~@5 x ~@2 x ~@4 x ~@2 x ~@3 x ~@3 x ~@3 x ~@3", Q: "~@4 x ~@3 x ~@3 x ~@4 x ~@3 x ~@2 x ~@7",
  R: "x ~@8 x ~@2 x ~@4 x ~@11 x ~@2",
})).gain(0.22)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@17 A B ~@9 C ~ D E A C F ~@15 G ~@3 B ~@7>".pickRestart({
  A: "~ x ~@6", B: "~@21 x ~@10", C: "~@4 x ~@8 x ~@18", D: "~@7 x ~@24", E: "~@2 x!2 ~@12", F: "~@5 x ~@26",
  G: "~@13 x ~@18",
})).gain(0.14)

// drums · low tom
const low_tom = s("lt").struct("<~@13 A ~ B ~@11 C D B E B ~@15 F D G ~ B ~@10>".pickRestart({
  A: "~@13 x!2 ~", B: "~@14 x!2", C: "~@20 x!2 ~ x!3 ~ x!3 ~ x", D: "~@29 x ~@2", E: "~@7 x", F: "x!16", G: "~@31 x",
})).gain(0.28)

// drums · mid tom
const mid_tom = s("mt").struct("<~@13 A ~ B ~@11 C D E F G ~@16 H I J K ~@10>".pickRestart({
  A: "~@8 x ~@5 x ~ x ~@5 x ~ x!2 ~@6", B: "~@8 x ~ x!6", C: "~@7 x!2 ~@6 x!2 ~@15", D: "~@20 x ~@4 x!2 ~ x ~ x ~",
  E: "~@19 x ~@2 x ~@2 x ~@3 x ~@2", F: "~@23 x ~@8", G: "~@7 x!2 ~ x!6", H: "~@17 x ~ x ~ x ~ x ~ x ~ x!2 ~@2 x",
  I: "~@19 x ~@5 x ~ x!3 ~@2", J: "~@13 x!2 ~", K: "~@10 x ~ x!2 ~@2",
})).gain(0.28)

// drums · mid tom · soft notes
const mid_tom_soft = s("mt").struct("<~@27 A B C D E ~@16 D ~ F ~@11>".pickRestart({
  A: "~@5 x ~@6 x!2 ~@18", B: "~@3 x", C: "~@24 x ~@2 x ~@4", D: "~@25 x ~@6", E: "~@3 x ~@4", F: "~@29 x ~@2",
})).gain(0.14)

// drums · open hat
const open_hat = s("oh").struct("<~@15 A ~@2 B@2 ~@8 C D C ~ A ~@2 E ~@12 C ~ F ~@4 G ~@6>".pickRestart({
  A: "~ x ~@2", B: "x", C: "~ x", D: "~@8 x ~@6 x!2 ~@15", E: "x!2", F: "~ x!2 ~", G: "x ~@16 x ~@14",
})).gain(0.28)

// drums · crash
const crash = s("cr").struct("<~@14 A ~ A ~@11 A@5 ~@15 B A C D A@2 ~@8>".pickRestart({
  A: "x", B: "x ~@20 x ~@10", C: "x ~@2 x", D: "x ~@6 x ~@8 x ~@15",
})).gain(0.28)

stack(
  synth_strings_1, piano, cello, viola, bass, violin, pizzicato_strings, string_ensemble_1, string_ensemble_1_soft,
  bass_2, tremolo_strings, blown_bottle, kick, snare, snare_soft, hihat, hihat_soft, low_tom, mid_tom, mid_tom_soft,
// … 2 more lines