// Peter Gunn Theme — The Blues Brothers
// 110 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 2 "Synth Bass" synth bass 1 (copy of ch 1 "Fretless Bass" fretless bass)
// note: Full arrangement: all 63 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(110/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 brass 1 · "Brass Accomp."
const synth_brass_1 = note(`<
  ~@6 A ~ B C D E F ~ G ~ H I J K L ~@13 M N O P Q R S T U ~ V W X Y Z AA U ~ V W X Y AB AC AD AE AF AG@2
>`.pickRestart({
  A: "[a2,c3]@5 ~@2 c3, eb3@7 ~", B: "[a2,c3,eb3]@13 ~@3", C: "c4 gb3 ~@6",
  D: "~@2 c3@2 eb3@2 f3@2 gb3@2 ~ gb3@2 gb3@2 ~", E: "gb3@2 ~ f3@2 eb3@2 ~ c3@2 ~ bb2@2 c3@2 ~", F: "g2 a2 ~@6",
  G: "[g3,a3,c4]@7 [eb3,f3,g3]", H: "[g3,a3,c4]@13 ~@3", I: "[c4,c5] [gb3,gb4] ~@6",
  J: "~@2 [c3,c4]@2 [eb3,eb4]@2 [f3,f4]@2 [gb3,gb4]@2 ~ [gb3,gb4]@2 [gb3,gb4]@2 ~", // C Eb F Gb
  K: "[gb3,gb4]@2 ~ [f3,f4]@2 [eb3,eb4]@2 ~ [c3,c4]@2 ~ [bb2,bb3]@2 [c3,c4]@2 ~", L: "[ab2,ab3] [a2,a3] ~@6",
  M: "[a4,c5,f5]@5 [a4,c5,f5] [g4,bb4,eb5] [f4,a4,c5]", N: "[a4,c5,f5]!2 [g4,bb4,eb5] [f4,a4,c5]@2 [f4,a4,c5]!3",
  O: "[a4,c5,f5]@3 ~ [g4,bb4,eb5]@2 [f4,a4,c5]@2 [a4,c5,f5]@3 ~ [g4,bb4,eb5]@2 [f4,a4,c5]@2", // F Eb F Eb F
  P: "[a4,c5,f5]!2 [g4,bb4,eb5] [f4,a4,c5]@4 ~", Q: "[c5,f5,a5]@5 [c5,f5,a5] [bb4,eb5,g5] [g4,bb4,eb5]",
  R: "[c5,f5,a5]!2 [bb4,eb5,g5] [g4,bb4,eb5]@2 [g4,bb4,eb5]!3", // F Eb
  S: "[c5,f5,a5]@3 ~ [bb4,eb5,g5]@2 [g4,bb4,eb5]@2 [c5,f5,a5]@3 ~ [bb4,eb5,g5]@2 [g4,bb4,eb5]@2", // F Eb F Eb
  T: "[c5,f5,a5]!2 [bb4,eb5,g5] [g4,bb4,eb5]@2 [g4,bb4,c5]!3", U: "[g4,a4,c5]@7 [eb4,g4,a4]", V: "[g4,a4,c5]@13 ~@3",
  W: "[c5,c6] [gb4,gb5] ~@6", X: "~@2 [c4,c5]@2 [eb4,eb5]@2 [f4,f5]@2 [gb4,gb5]@2 ~ [gb4,gb5]@2 [gb4,gb5]@2 ~",
  Y: "[gb4,gb5]@2 ~ [f4,f5]@2 [eb4,eb5]@2 ~ [c4,c5]@2 ~ [bb3,bb4]@2 [c4,c5]@2 ~", Z: "[ab3,ab4] [a3,a4] ~@6",
  AA: "~@5 [g4,a4,c5]!3", AB: "[b3,d4,gb4] [c4,eb4,g4] ~@5 f4", AC: "[b3,d4,gb4] [c4,eb4,g4] ~@5 f5",
  AD: "[b4,d5,gb5] [c5,eb5,g5] ~@5 f5", AE: "[b4,d5,gb5]@2 [c5,eb5,g5]@2 ~@6 e4 f4@2 a4 c5@2",
  AF: "[f4,ab4,c5]@3 ~ [f4,ab4,c5]@3 ~ [f4,ab4,c5]@3 ~ [f4,ab4,c5]@3 ~", // Fm
  AG: "[[f4,ab4,c5]@3 ~ [f4,ab4,c5]@3 ~ [f4,ab4,c5]@3 ~ [f4,ab4,c5]@2 [g4,b4,d5]@15 ~@3]/2", // Fm G
})).s("gm_synth_brass_1").gain(0.26)

// bass · fretless bass
const bass = note("<~@2 A@20 B C ~ D A@34 E F@2>".pickRestart({
  A: "f2@2 f2@2 g2@2 f2@2 ab2 a2 f2@2 bb2@2 a2@2", B: "f2@2 ~@10 [f1,f2]@3 ~", C: "~@5 [c2,c3]!2 ~", D: "~ f2!7",
  E: "db3@3 ~ db3@3 ~ db3@3 ~ db3@3 ~", F: "[db3@3 ~ db3@3 ~ db3@3 ~ db3@2 c3@15 ~@3]/2",
})).s("gm_fretless_bass").gain(0.47)

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

// drums · snare
const snare = s("sd").struct("<A@5 B A@7 B A@11 B A@7 B A@7 B A@7 B A@10 C D E>".pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@3 x!8", C: "x!4", D: "x ~ x ~ x ~ x!2", E: "x!5 ~@11",
})).gain(0.47)

// drums · low tom
const low_tom = s("lt").struct("<A@5 B A@7 B A@11 B A@7 B A@7 B A@7 B A@10 C D E>".pickRestart({
  A: "x ~@3 x!2 ~@2", B: "x ~@7 x!8", C: "x!4", D: "x ~ x ~ x ~ x!2", E: "~@8 x!5 ~@3",
})).gain(0.47)

// drums · pedal hat
const pedal_hat = s("hh").struct("<~@5 A ~@7 A ~@11 A ~@7 A ~@7 A ~@7 A ~@13>".pickRestart({
  A: "~ x ~@2",
})).gain(0.47)

// drums · mid tom
const mid_tom = s("mt").struct("<~@62 [~@4 x!5 ~@7]>").gain(0.47)

// drums · open hat
const open_hat = s("oh").struct("<~@5 A ~@7 A ~@11 A ~@7 A ~@7 A ~@7 A ~@11 B C>".pickRestart({
  A: "~ x ~@2", B: "~@6 x!2", C: "~@3 x",
})).gain(0.47)

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

stack(synth_brass_1, bass, kick, snare, low_tom, pedal_hat, mid_tom, open_hat, crash)