// Wired For Sound — Richard Cliff
// 160 bpm, 4/4, key G# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (4/4 at bar 1, 3/4 at bar 36, 4/4 at bar 37, 3/4 at bar 39, ...) are rendered on a constant 4/4 grid of one bar per cycle
// note: pitch bends are ignored
// note: Full arrangement: all 157 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(160/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · [...]/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.

// bass · acoustic bass
const bass = note(`<
  ~@3 A@8 B@3 C D@2 E F G H B I B J D K E F G@2 L M N O G P Q G@2 R S T U V@2 A@8 B@3 C D@2 E F G W B X B J D@2 E F G@2
  L M Y O Z AA Q G@2 R AB T U AC AD AE AF AG AH AI AJ@2 AK@2 AL AM G AN AO O Z AP AQ AR AS AT AU@2 AV@23 AW AX AY@2 AZ@5
  BA G W AO O G BB O BC AS BD BE@2
>`.pickRestart({
  A: "ab1@3 ab1 ab2@4", B: "ab1 ~ ab2 ~ ab1 ~ ab2 ~", C: "ab1 ~ ab2 ~ ab1 ~ ab2!2", D: "gb1 ~ gb2 ~ gb1 ~ gb2 ~",
  E: "f1 ~ f2 ~ f1 ~ f1@2", F: "eb2 ~ eb2 ~ eb2 ~ eb2 bb2", G: "db2 ~ db2 ~ db2 ~ db2 ~", H: "db2 ~ db2!4 c2 bb1",
  I: "ab1 ~ ab2 ~ ab1 ~ eb2 f2", J: "ab1 ~ ab2 ~ ab2 f2 eb2 ab1", K: "gb1 ~ gb2 ~ gb1 ~ gb2 gb1",
  L: "c2 ~ c2 ~ bb1 ~ bb1 ~", M: "ab1!5 ~@3", N: "ab1 ~ ab1!3 ~ c2 ~", O: "c2 ~ c2 ~ db2 ~ db2 ~",
  P: "db2!2 c2 bb1 ab1 ~ ab1 ~", Q: "ab1 bb1 c2 ~ c2 ~ c2 ~", R: "c2 ~ c2 ~ c2 ~ c2 ~", S: "db2 ~ db2 ~ db2!2 ab2 bb2",
  T: "c2 ~ c2 ~ c2 ~ c2!2", U: "db2 ~ db2 ~ db2 ~ db2@2", V: "[ab1@7 ~]/2", W: "db2 ~ db2 ~ db2!2 c2 bb1",
  X: "ab1 ~ ab2 ~ ab1 c2 eb2 f2", Y: "ab1 ~ ab1 ~ ab1 ~ c2 ~", Z: "db2@2 ~@2 db2@2 ~@2 db2@2 ~@2 db2@2 db2!2",
  AA: "ab2 bb2 c2 bb1 ab1 ~ ab1 ~", AB: "db2 ~ db2 ~ db2 ~ ab2 bb2", AC: "ab1 ~ ab1 ~ ab1 ~ ab1 ~", AD: "ab1@3 ~",
  AE: "ab1@3 ~ ab1@3 ~", AF: "ab1@3 ~ ab1@4", AG: "bb1 db2 eb2 eb2@3 bb1 db2", AH: "eb2 eb2@3 ab1@4", AI: "ab1!2",
  AJ: "[ab1@4 bb1 db2 eb2 eb2@3 bb1 db2 eb2 eb2@2 ~]/2", AK: "[bb1 db2 eb2 b1@12 ~]/2", AL: "~ b1 b1@2 ab1 ~ ab1 ~",
  AM: "ab1!2 c2 ~ c2 ~ c2 ~", AN: "db2 ~ db2!2 ab2 bb2 c2 bb1", AO: "ab1 ~ ab1 ~ ab1 bb1 c2 ~",
  AP: "ab2 bb2 c2 bb1 c2 ~ c2 ~", AQ: "c2 ~ c2@2 db2 ~ db2 ~", AR: "db2 ~ ab2 bb2 c2 ~ c2 ~",
  AS: "c2 ~ c2!2 db2 ~ db2 ~", AT: "db2 ~ db2@2 ab1 ~ ab1 ~", AU: "[ab1 ~ ab1 ~ ab1@6 ab1@2 ab1@3 ab1]/2",
  AV: "ab2@4 ab1@3 ab1", AW: "ab2@2 eb2!2", AX: "bb1@2 db2 eb2 eb2@4", AY: "[bb1 db2 eb2@14]/2",
  AZ: "[bb1 db2 eb2@3 b1@15 ab1@16 ab1 ~ ab1!2]/5", BA: "ab1 ~ c2 ~ c2 ~ c2 ~", BB: "db2 ~ db2 ~ c2 ~ c2 ~",
  BC: "db2!2 ab2 bb2 c2 ~ c2 ~", BD: "db2 ~ db2@2 ab1@2 ab1@2", BE: "[ab1@2 ab1@2 ab1@6 ab1 ~@5]/2",
})).s("gm_acoustic_bass").gain(0.45)

// chords · drawbar organ
const drawbar_organ = note(`<
  ~@3 A B A B C D E F G@2 H@2 I@3 J@3 G@2 H@2 K@3 L@4 M N@3 O@2 P@2 Q@4 R F A B A B C D E F G@2 H@2 K@3 J@3 G@2 H@2 K@3
  L@4 M N@3 O@2 P@2 Q@4 S T ~@9 U@2 P@2 N@3 V W@2 X@8 Y@16 Z@5 AA@2 AB@6 P@2 N@3 V W@2 AC@4
>`.pickRestart({
  A: "~@2 [c5,eb5]@3 [bb4,db5]@3", B: "[ab4,c5]@3 [g4,bb4]@3 [eb4,ab4]@2", C: "~@2 [eb5,gb5]@3 [db5,f5]@3",
  D: "[c5,eb5]@3 [bb4,db5]@3 [gb4,bb4]@2", E: "[ab4,c5]@3 [bb4,db5]@3 [g4,bb4]@2", F: "[ab4,c5]",
  G: "[[ab5,c6] [bb5,db6] [c6,eb6] [db6,f6]@2 [c6,eb6] [bb5,db6] [c6,eb6]@2 [bb5,db6] [ab5,c6] [bb5,db6]@2 [ab5,c6] [eb5,ab5]@2]/2", // Ab Bbm Cm Db Cm Bbm Cm Bbm …
  H: "[[ab5,c6] [bb5,db6] [c6,eb6] [db6,f6]@2 [c6,eb6] [bb5,db6] [c6,eb6]@2 [bb5,db6] [ab5,c6] [bb5,db6]@2 [c6,eb6]@2 [bb5,db6]]/2", // Ab Bbm Cm Db Cm Bbm Cm Bbm …
  I: "[[bb5,db6]@2 [ab5,c6]@2 [gb5,bb5]@10 [bb4,db5]@4 [ab4,c5] ~ [gb4,bb4]@6 [ab4,c5]@2 [bb4,db5] ~ [ab4,c5]@4 [g4,bb4]@2 [f4,ab4]@12]/3", // Bbm Ab Gb Bbm Ab Gb Ab Bbm …
  J: "[[bb4,g5] [c5,ab5] [bb4,g5] [c5,ab5] [bb4,g5] [bb4,eb5] [eb4,bb4] [ab4,f5]@2 [g4,eb5]@2 [eb4,bb4]@3 eb4 f4@2 eb4@2 bb3!4 ~]/3", // Eb Fm Eb Fm Eb Eb5 Db Cm …
  K: "[[bb5,db6] [ab5,c6] [gb5,bb5]@5 [bb4,db5]@2 [ab4,c5] [gb4,bb4]@3 [ab4,c5] [bb4,db5] [ab4,c5]@2 [g4,bb4] [f4,ab4]@6]/3", // Bbm Ab Gb Bbm Ab Gb Ab Bbm …
  L: "[[bb4,g5] [c5,ab5] [bb4,g5] [c5,ab5] [bb4,g5] [bb4,eb5] [eb4,bb4] [ab4,f5]@2 [g4,eb5]@2 [eb4,bb4]@3 eb4 f4@2 ~ eb4!3 f4 eb4 eb4@2 [g4,c5,eb5]@3 ~ [f4,bb4,d5]@3]/4", // Eb Fm Eb Fm Eb Eb5 Db Cm …
  M: "~ [eb4,ab4,c5]!4 ~@3", N: "[[eb4,ab4]!2 [ab4,c5] [ab4,c5] [eb5,g5] [db5,f5] [c5,eb5] [bb4,db5]]/3",
  O: "[[ab4,c5]@2 [bb4,db5]@2 [eb4,ab4]@3 [eb4,ab4]@3 [ab4,c5]@3 [ab4,c5]@3]/2", // Ab Bbm Ab5 Ab
  P: "[[eb5,g5]@3 [db5,f5]@3 [c5,eb5]@3 [bb4,db5]@3 [ab4,c5]@2 [bb4,db5]@2]/2", // Eb Db Cm Bbm Ab Bbm
  Q: "[eb5 g4 eb5 g4 eb5 g4 [g4,bb4,eb5] [ab4,c5,f5]@9]/2", R: "[ab4,c5]!3 [bb4,db5]@4 [g4,bb4]",
  S: "[ab4,c5]!3 [bb4,db5]@3 [g4,bb4]@2", T: "[ab4,c5]@5 ~@3",
  U: "[~@4 [eb4,ab4]@3 [eb4,ab4]@3 [ab4,c5]@3 [ab4,c5]@3]/2", V: "[ab4,c5]@2 [bb4,db5]@2 eb5 g4 eb5 g4",
  W: "[eb5 g4 [g4,bb4,eb5] [ab4,c5,f5]@9 eb5 g4 eb5 g4]/2", // Eb Fm
  X: "[eb5 g4 [g4,bb4,eb5] [ab4,c5,f5]@9 [ab4,c5]!3 [bb4,db5]@3 [g4,bb4]@2 [ab4,c5]@5 ~@5 [c5,eb5]@3 [bb4,db5]@3 [ab4,c5]@3 [g4,bb4]@3 [eb4,ab4]@2 ~@2 [c5,eb5]@3 [bb4,db5]@3 [ab4,c5]@3 [g4,bb4]@3 [eb4,ab4]@2 ~@2 [eb5,gb5]@2]/8", // Eb Fm Ab Bbm Gm Ab Cm Bbm …
  Y: "[~ [db5,f5]@3 [c5,eb5]@3 [bb4,db5]@3 [gb4,bb4]@2 [ab4,c5]@3 [bb4,db5]@3 [g4,bb4]@2 [ab4,c5]@8 ~@2 [c5,eb5]@3 [bb4,db5]@3 [ab4,c5]@3 [g4,bb4]@3 [eb4,ab4]@2 ~@2 [c5,eb5]@3 [bb4,db5]@3 [ab4,c5]@3 [g4,bb4]@3 [eb4,ab4]@2 ~@2 [eb5,gb5]@2]/8", // Db Cm Bbm Gb Ab Bbm Gm Ab …
  Z: "[~ [db5,f5]@3 [c5,eb5]@3 [bb4,db5]@3 [gb4,bb4]@2 [ab4,c5]@3 [bb4,db5]@3 [g4,bb4]@2 [ab4,c5]@8 [bb3,db4,gb4]@12]/5", // Db Cm Bbm Gb Ab Bbm Gm Ab …
  AA: "[bb3 db4 eb4 ~ [bb3,db4,gb4]@12]/2", // Gb
  AB: "[bb3 db4 eb4 ~ [bb3,db4,eb4,gb4]@16 [ab3,c4,eb4]@16 [eb4,ab4]@3 [eb4,ab4]@3 [ab4,c5]@3 [ab4,c5]@3]/6", // Ebm7 Ab Ab5 Ab
  AC: "[eb5 g4 [g4,bb4,eb5] [ab4,c5,f5]@9 [ab4,c5]!3 [bb4,db5]@4 [g4,bb4] [ab4,c5]@7 ~@5]/4", // Eb Fm Ab Bbm Gm Ab
})).s("gm_drawbar_organ").gain(0.3).pan(0.7)

// chords · electric guitar clean
const electric_guitar_clean = note(`<
  ~@11 A@4 B@2 C D E ~ A@4 B@2 C D E ~ F G H I J K L J@2 M N M N O P ~@8 A@4 B@2 C D E ~ A@4 B@2 C D E ~ F G H I J K L
  J@2 M N M N O P ~@9 Q L J@2 H I J R S T S U V ~@24 W@7 X Y L J@2 H I J R S T S U V ~
>`.pickRestart({
  A: "~@4 [ab4,c5,eb5]@2 [ab4,c5,eb5] ~@5 [ab4,c5,eb5]@2 [ab4,c5,eb5] ~", // Ab
  B: "~@4 [gb4,bb4,db5]@2 [gb4,bb4,db5] ~@5 [gb4,bb4,db5]@2 [gb4,bb4,db5] ~", // Gb
  C: "~@4 [f4,ab4,c5]@2 [f4,ab4,c5] ~@5 [f4,ab4,c5]@2 [f4,ab4,c5] ~", // Fm
  D: "~@4 [eb4,g4,bb4]@2 [eb4,g4,bb4] ~@5 [eb4,g4,bb4]@2 [eb4,g4,bb4] ~", E: "~@4 [db4,f4,ab4]@2 [db4,f4,ab4] ~@9",
  F: "~ [c4,eb4]!3 ~ [bb3,d4]!3", G: "~ [ab3,c4]!4 ~@3",
  H: "[ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@3 ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~", // Ab
  I: "[ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 ~@2 [db4,f4,ab4]@2 [db4,f4,ab4] ~ [db4,f4,ab4]@2 [db4,f4,ab4] ~", // Ab Db
  J: "[db4,f4,ab4]@2 [db4,f4,ab4] ~ [db4,f4,ab4]@2 [db4,f4,ab4] ~ [db4,f4,ab4]@2 [db4,f4,ab4] ~ [db4,f4,ab4]@2 [db4,f4,ab4] ~", // Db
  K: "[db4,f4,ab4]@2 [db4,f4,ab4] ~ [db4,f4,ab4]@2 [db4,f4,ab4] ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~", // Db Ab
  L: "[ab4,c5,eb5]@3 ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 ~@2", // Ab
  M: "[c4,eb4,g4] ~ [c4,eb4,g4] ~ [c4,eb4,g4] ~ [c4,eb4,g4] ~", // Cm
  N: "[c4,f4,ab4] ~ [c4,f4,ab4] ~ [c4,f4,ab4] ~ [c4,f4,ab4] ~", // Fm
  O: "[c4,eb4,ab4] ~ [c4,eb4,ab4] ~ [c4,eb4,ab4] ~ [c4,eb4,ab4] ~", P: "[c4,eb4,ab4] ~",
  Q: "~@8 [ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~", // Ab
  R: "[db4,f4,ab4]@2 [db4,f4,ab4] ~ [db4,f4,ab4]@2 [db4,f4,ab4] ~ [c4,eb4,g4]@2 ~@2 [c4,eb4,g4]@2 ~@2", // Db Cm
  S: "[c4,eb4,g4] ~ [c4,eb4,g4] ~ [c4,f4,ab4] ~ [c4,f4,ab4] ~", // Cm Fm
  T: "[c4,f4,ab4] ~ [c4,f4,ab4] ~ [c4,eb4,g4] ~ [c4,eb4,g4] ~", // Fm Cm
  U: "[c4,f4,ab4] ~ [c4,f4,ab4] ~ [c4,eb4,ab4] ~ [c4,eb4,ab4] ~", V: "[c4,eb4,ab4] ~ [c4,eb4,ab4] ~ [c4,eb4,ab4]@4",
  W: "[~ [bb3,eb4,gb4]@4 [bb3,eb4,gb4]@4 [bb3,eb4,gb4]@2 [bb3,eb4,gb4]@2 [c4,eb4,ab4]]/7", // Ebm Ab
  X: "[c4,eb4,ab4]@2 [c4,eb4,ab4]!2", // Ab
  Y: "[c4,eb4,ab4]@2 [c4,eb4,ab4]@2 [c4,eb4,ab4]@2 ~@2 [ab4,c5,eb5]@2 [ab4,c5,eb5] ~ [ab4,c5,eb5]@2 [ab4,c5,eb5] ~", // Ab
})).s("gm_electric_guitar_clean").gain(0.21)

// other · overdriven guitar
const overdriven_guitar = note(`<
  ~@2 A@4 B@3 C D ~@8 E F ~@8 E G ~ H ~@12 A@4 B@3 C D ~@8 E F ~@8 E G ~ H ~@13 I@2 J@3 K@2 L@2 M ~@12 N@8 O@7 P Q@2 R@7
  ~@21
>`.pickRestart({
  A: "[~@4 c5@3 ab4@9]/2", B: "[~@4 c5@3 eb5@15 bb3@2]/3", C: "c4@3 db4@3 bb3@2", D: "c4@3 ab3", E: "~@3 g4",
  F: "~ g4@2 eb4!4 ~", G: "~ [eb4,g4]@2 [bb3,eb4]@5", H: "~@3 ab3", I: "[gb5@3 f5@3 eb5@3 db5@3 c5@2 bb4@2]/2",
  J: "[db5@2 db5@2 gb5 f5 eb5 db5]/3", K: "[c5 bb4 db5@3 db5@3]/2", L: "[db5@13 db5@3]/2", M: "db5 bb4 g3@2 ~@4",
  N: "[~@4 ab3@13 eb4 ab4@2 ab3@15 ~ ab3@16 ab3@2 ab3 ab3@2 ab3!7]/8",
  O: "[~ ab3 ab3@2 ab3@13 eb4@2 ab4 ab3@14 eb4@2 ab3@13 eb4@3 ab3@4]/7", P: "ab3@3 ~ ab3@2 ab3@2",
  Q: "[ab3 eb4 ab3@6]/2", R: "[~ eb4 ab4@2 ab3@14 eb4@2 ab3@14 eb4@2 ab3@3 ab3@3 ab3@2 ab3!2 ab3@4 ab3@2 ~@4]/7",
})).s("gm_overdriven_guitar").gain(0.4).pan(0.3)

// other · distortion guitar
const distortion_guitar = note("<~@19 A B ~@8 A ~@32 A B ~@8 A ~@16 C@2 D@3 E@2 F@2 G ~@58>".pickRestart({
  A: "~@3 eb4", B: "~ eb4@2 bb3!4 ~", C: "[eb5@3 db5@3 c5@3 bb4@3 ab4@2 f4@2]/2", D: "[gb4@2 gb4@2 eb5 db5 c5 bb4]/3",
  E: "[ab4 f4 gb4@3 gb4@3]/2", F: "[gb4@13 bb4@3]/2", G: "bb4 g4 eb3@2 ~@4",
})).s("gm_distortion_guitar").gain(0.4).pan(0.7)

// drums · kick
const kick = s("bd").struct("<~ A@9 B C A@20 D A@20 B C A@20 D A@22 E A@57 F>".pickRestart({
  A: "x!4", B: "x ~ x ~ x ~ x!2", C: "x!2 ~@2 x ~ x ~", D: "x!3 ~", E: "~@2 x!2", F: "x!2 ~@2",
})).gain(0.45)

// drums · snare
const snare = s("sd").struct(`<
  A B@9 C D@9 E D@11 ~ C F D G H I D@6 J B@7 C D@9 E D@11 ~ C F D G H I D@6 ~@2 K L M J M N J@2 O H I D C F D@6 P Q R@7
  C R@7 C R@7 S J ~ J ~ J ~ J Q H I D C F D@6 T ~
>`.pickRestart({
  A: "~@15 x", B: "x!7 ~", C: "x!8", D: "~ x ~ x", E: "~ x ~ x ~@4", F: "x ~ x ~ x ~ x!3 ~@3 x ~@3", G: "~@2 x ~ x!4",
  H: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!2", I: "x!2 ~ x", J: "x", K: "x ~@14 x", L: "x ~@10 x!2 ~@3", M: "x ~@6 x!2 ~@7",
  N: "x ~@2 x!2 ~@10 x", O: "x ~@3 x!4", P: "~ x!2 ~", Q: "~@4 x!4", R: "x!3 ~ x!4", S: "x!4 ~@4", T: "~ x ~@2",
})).gain(0.4)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~ A@9 B ~@21 C ~@12 D A@7 B ~@21 E ~@12 D F@9 ~@13 G F@7 ~ F@7 ~ F@7 ~ F H F H F H F H ~@12 G
>`.pickRestart({
  A: "~@7 x", B: "~@2 x ~@2 x ~@2", C: "~@2 x!3 ~ x ~ x ~ x ~ x ~@3", D: "~@8 x!2 ~ x!2 ~@3", E: "~ x!6 ~",
  F: "~@3 x ~@4", G: "x!2 ~ x!2 ~@11", H: "x!3 ~@5",
})).gain(0.35)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@11 A B@3 A B@2 A B@2 A B@3 A B@2 A B@2 A C ~ D B E ~ B@2 A B A B A C ~@8 A B@3 A B@2 A B@2 A B@3 A B@2 A B@2 A C ~ D
  B E ~ B@2 A B A B A ~ A B F B@6 ~@2 B@2 ~ D B G B G B G E ~@24 H B G B G B G B E ~ B@2 ~ D B G B G B G E ~
>`.pickRestart({
  A: "~ x!7", B: "x!8", C: "x", D: "~@4 x!4", E: "x!4 ~@4", F: "x!5 ~ x!2", G: "x!4 ~ x!3", H: "~@5 x!3",
})).gain(0.2)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@20 A ~@18 B ~ B ~ B ~ C ~@17 A ~@18 B ~ B ~ B ~ D ~@9 E ~@6 F ~ F ~ F G ~@7 H I ~@6 H I ~@6 H I ~@14 F ~ F ~ F G ~
>`.pickRestart({
  A: "~@4 x!3 ~", B: "~@14 x!2", C: "~@3 x!3 ~ x ~@8", D: "~@4 x!2 ~ x ~@8", E: "~ x!2 ~@5", F: "~@6 x!2 ~@8",
  G: "~@12 x!2 ~ x", H: "~@3 x", I: "~ x ~@6",
})).gain(0.4)

// drums · high tom
const high_tom = s("ht").struct("<~@88 [x!2 ~ x ~@12] ~@21 [~@8 x!2 ~ x ~@4] ~@44 [~@8 x!2 ~ x ~@4] ~>").gain(0.35)

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

stack(
  bass, drawbar_organ, electric_guitar_clean, overdriven_guitar, distortion_guitar, kick, snare, low_tom, hihat,
  mid_tom, high_tom, crash
)