// Two Princes — Spin Doctors
// 108 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 107 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(108/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 · distortion guitar · "Gtr I"
const distortion_guitar = note(`<
  ~@2 A B A B A C A B A B A B A B ~@4 A B A B A B A B D@2 E F G A B A B A B A B H I H I H I H I D@2 E F@3 A B A B A B A
  B D@2 E F@2 J K ~@15 A B A B A B A B ~@8 A B A B A B
>`.pickRestart({
  A: "[d3,a3,d4,f#4,a4,d5]@2 [d3,a3,d4,f#4,a4,d5] ~@6 [d4,f#4,b4]@3 [d4,f#4,b4] ~@3, ~@7 [b2,f#3,b3]@5 ~@4", // D Bm B5
  B: "[a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4] ~@6 [b3,d4,g4]@3 [b3,d4,g4] ~@3, ~@7 [g2,d3,g3]@5 ~@4", // A G G5
  C: "[a2,e3,a3,c#4,e4,a4]@2 [a2,e3,a3,c#4,e4,a4] ~@6 [b3,d4,g4]@3 [b3,d4,g4] ~@3, ~@7 [d3,g3]@5 ~@4", // A G G5
  D: "[[g2,d3,g3,b3,d4,g4]@8 ~ [g2,d3,g3,b3,d4,g4] ~@2 [g2,d3,g3,b3,d4,g4]!2 ~ [d3,a3,d4,f#4]@3 [d3,a3,d4,f#4] ~ [d3,a3,d4,f#4]!2 ~ [d3,a3,d4,f#4] ~ [e3,g3,c4,e4] ~ [d3,a3,d4,f#4] ~@2 [g2,d3,g3]!2]/2", // G D C D G5
  E: "[g2,d3,g3,b3,d4,g4]@11 ~ [g2,d3,g3,b3,d4,g4]!2 ~@2", F: "[a2,e3,a3,c#4,e4,a4]@11 ~@5",
  G: "[a2,e3,a3,c#4,e4,a4]@5 ~@11", // A
  H: "[d3,a3,d4,f#4,a4,d5]@2 [d3,a3,d4,f#4,a4,d5] ~@4 [b2,f#3,b3,d4,f#4,b4]@2 [b2,f#3,b3,d4,f#4,b4] ~@2 [b2,f#3,b3,d4,b4] ~@3", // D Bm
  I: "[a2,e3,a3,c#4,e4,a4] ~ [a2,e3,a3,c#4,e4,a4] ~@4 [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4] ~@2 [g2,d3,g3,b3,d4,g4] ~@3", // A G
  J: "a2@2 [d3,g3,c4]@3 ~ [e3,a3]@3 ~ c4@3 ~ a3 ~", K: "[d3,a3,d4,f#4]@5 ~@11",
})).s("gm_distortion_guitar").gain(0.4)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@2 A B C D E F G F G F H I C J K L K L G F G F H I C J M N O P Q G F G F H I C J K L R S T U V W X Y Z AA AB AC G F G
  F H I C J M N O P AD AE AF ~@7 K L K L K L K L G F G F G F G F G F G F G F G F G F G F G F
>`.pickRestart({
  A: "d2 ~ d2 ~@4 b1 ~ b1!2 ~@2 e1 b1 g1", B: "a1 e1 a1 ~@4 g1 ~ a1 b1 ~ b1 a1 d2 b1",
  C: "d2 b1 d2 ~@4 b1 ~ a1 b1 ~ b1!2 ~ g1", D: "a1 e1 a1 ~@3 a1 g1 ~ a1 b1 ~ b1 a1 d2 b1",
  E: "d2 e2 d2 ~@4 b1 ~ b1!2 ~@3 b1 g1", F: "a1 ~ a1 ~@4 g1 ~ a1 b1 ~ b1 a1 d2 b1",
  G: "d2 ~ d2 ~@4 b1 ~ b1!2 ~@3 b1 g1", H: "d2 e2 d2 ~@3 d2 b1 ~ b1!2 ~@3 b1 g1",
  I: "a1 ~ a1 ~@3 a1 g1 ~ a1 b1!3 a1 d2 b1", J: "e1 f#1 a1 ~@3 a1 g1 ~ a1 b1 ~ b1 a1 d2 b1",
  K: "d2 ~ d2 ~@3 d2 b1 ~ b1!2 ~@3 b1 g1", L: "a1 ~ a1 ~@3 a1 g1 ~ a1 b1 ~ b1 a1 d2 b1",
  M: "g1@3 ~ g1!2 ~ g1 ~ a1 b1 ~ b1 a1 d2 b1", N: "d2 b1 d2 ~ d3@2 ~ d2 ~ c2 ~ a1 d2!2 ~@2",
  O: "g2 d2 g1 ~ g2 ~ g1!2 ~ g1 ~ g1!5", P: "a1@11 ~@5", Q: "a1 ~", R: "d2 ~ d2 ~@3 d2 b1 ~ a1 b1!5 g1",
  S: "a1 e1 a1 ~@3 a1 g1 ~ a1 b1!2 e2 b1 d2 b1", T: "e2 b1 d2 b1 d2 ~ d2 b1 ~ a1 b1 ~ b1!2 ~ b1",
  U: "a1 e1 a1 ~@3 a1 g1 ~ a1 b1!3 a1 d2 b1", V: "d2 b1 d2 ~@3 d2 b1 ~ b1!2 a1 b1!2 ~ b1",
  W: "a1 e1 a1 ~@3 a1 g1 ~ a1 b1 a1 b1 a1 d2 b1", X: "g1@3 ~ g2!2 ~ g1 ~ g1!3 a1 g1 b1 a1",
  Y: "d2 b1 d2 ~ d3!2 d2!2 ~ d2!2 a1 d2!2 ~ a1", Z: "g2 d2 g1 ~ g2!2 e1 g1 ~ e1 g1 e1 g1!4",
  AA: "a1 ~ a1 ~ f#2 ~ a2 a1 ~ d2 e2 ~ a1 d2 e2 e1", AB: "a1 ~ a1 ~ f#2 g2 ~ g2 a2 e2 a1 ~ e2 a1 d2 e2",
  AC: "a1@8 ~@2 e1 ~ a1 ~@3", AD: "a1", AE: "~@2 a1@3 ~ a1@3 ~ a1@4 ~@2", AF: "d2@5 ~@11",
})).s("gm_electric_bass_finger").gain(0.71)

// chords · overdriven guitar · "Guitar II"
const overdriven_guitar = note(`<
  ~@16 A B A C ~@21 D E F@2 G@3 H I J K L M N@2 ~@21 A B A C A B A C ~@8 A B A C A B A C ~@6
>`.pickRestart({
  A: "e3 ~ a3 [d4,f#4] ~@3 [a3,d4,a4,d5] ~ [a3,d4,a4,d5]@3 [a3,d4,a4,d5] ~@2 [a3,c#4,e4,a4], ~ f#3@2 ~@13", // D D5 A
  B: "~ [a3,c#4,e4,a4]@3 [a3,c#4,e4,a4] [a3,c#4,e4,a4]@2 [g3,b3,d4,g4] ~ [g3,c4,d4,g4] ~ [g3,b3,d4,g4]@4 ~", // A G Gsus4 G
  C: "~ [a3,c#4,e4,a4]@2 ~@2 [a3,c#4,e4,a4]!3 ~ [g3,b3,d4,g4]!3 ~ [b3,d4,g4]!2 ~", // A G
  D: "d3 ~ d3 ~ d3!2 ~ f3 ~ d3 ~ d3 ~ d3!2 ~", E: "d3!3 ~ d3!2 ~ f3@2 ~@4 d3@2 ~",
  F: "[d3 ~ d3 ~@2 d3 ~ f3 ~ d3 ~ g3 ~ d3 ~ a3@2 ~ c4 g3 c4!2 ~ d4@3 ~@3 d4 e4 d4]/2",
  G: "[e4 ~ d5 ~@3 b3 ~ b4!2 ~ b4 ~ d5 ~ b4@2 ~ a4@3 ~ a4!2 b4 ~ c#5 b4 ~ a4 ~ e4@2 ~ d4@3 ~ d4!2 b3!4 ~ d4 ~ b3]/3",
  H: "~ b3 ~ a3 ~ a2!2 g3 ~ a3 b3 d4 e4 d4 g4 d4", I: "a4 ~ d5 g4@3 ~ a4@2 c5 a4 ~ g4 e4 g4 a4",
  J: "~ a4 g#4 g4 f4 d4 c4 a3 g#3 g3 f#3 d3 ~ d3 ~ d4", K: "e4 d4 g4 e4 g4 a4 g4 a4@3 d5 g4@2 ~ b4@2",
  L: "~ d5 b4 ~ a4 f#4 a4!2 ~ f#4 a4!2 ~ e5@3", M: "f5 e5@2 ~ d5 ~ b4@2 c5 b4@2 ~ a4 ~ e5@2",
  N: "[~ e5 ~ e5 ~ e5 ~ e5@2 ~ e5 ~ d5 e5 d5@7 ~@11]/2",
})).s("gm_overdriven_guitar").gain(0.46)

// drums · snare
const snare = s("sd").struct("<A B C@30 B C@21 B C@13 B C@7 B C@15 B C@7 B C@6>".pickRestart({
  A: "~@15 x", B: "x!7 ~@2 x!2 ~@5", C: "~ x ~@2 x ~@4 x ~@2 x ~@3",
})).gain(0.59)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@2 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B ~ A B A B A B A B A B A B A B A B A B A B A ~ A B A B
  A B A B A B A B@2 ~ B@7 ~ B@15 ~ B@7 ~ B@6
>`.pickRestart({
  A: "x!8", B: "x!7 ~",
})).gain(0.59)

// drums · mid tom
const mid_tom = s("mt").struct("<~ A B@30 A B@21 A B@13 A B@7 A B@15 A B@7 A B@6>".pickRestart({
  A: "~@7 x!2 ~@2 x ~@2 x!2", B: "x ~ x ~@4 x ~@8",
})).gain(0.59)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@3 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@2 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@3 A ~ A ~ A
  ~ A ~ A ~ A@2 ~ A@7 ~ A@15 ~ A@7 ~ A@6
>`.pickRestart({
  A: "~@7 x",
})).gain(0.59)

// drums · high tom
const high_tom = s("ht").struct("<~ A ~@30 A ~@21 A ~@13 A ~@7 A ~@15 A ~@7 A ~@6>".pickRestart({
  A: "~@12 x!2 ~@2",
})).gain(0.66)

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

stack(distortion_guitar, bass, overdriven_guitar, snare, hihat, mid_tom, open_hat, high_tom, crash)