// Dirty Love — Zappa Frank
// 102 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 5 viola (copy of ch 1 marimba)
// note: Full arrangement: all 75 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(102/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 · marimba
const marimba = note(`<
  A B C B C B D E F B D E G H I J B C B K L M B N@3 O P J B C B C B C B C B Q R S J B C B T@3 B U@3 V W B@2 C B C B C B
  C B C B C B C B C B C B C
>`.pickRestart({
  A: "~@14 d5 [a4,c5,d#5]", B: "g4@2 a4 ~@3 [a4,d5,f#5]@8 d5 [a4,c5,d#5]", C: "g4@2 a4 ~@3 [g4,c5,e5]@8 d5 [a4,c5,d#5]",
  D: "g4@2 a4 ~@3 [g4,c5,e5]@6 ~@2 e4!2", E: "g4@2 a4 c5@2 a4 g4 e4 g4 d4@3 d4 c4@3",
  F: "a3@4 ~@2 [d4,g4,c5,e5,a5]@8 d5 [a4,c5,d#5]", G: "a3@2 ~ [a3,g4,c5,e5]@5",
  H: "[c4,g4,a#4,e5]@6 [c4,g4,a#4,e5]!4 ~@2 [c4,g4,a#4,e5]@4", // C7
  I: "[d4,a4,c5,f#5]@6 [d5,g5,b5]@2 [f5,a5] f#5 d5@2 d4 d#4 e4 e3", // D7 G F
  J: "[e4,a4,d5,f#5,b5]@6 [e4,a4,d5,f#5,b5]@2 [e4,a4,d5,f#5,b5]@6 d5 [a4,c5,d#5]", // Bm7 Adim
  K: "g4@2 a4 ~@3 [g4,c5,e5]@6 e4 ~ e4 ~", L: "g4@2 a4@2 a4 g4@2 c5@2 a4@3 g4@2 e4 ~",
  M: "g4 ~ e4 ~ d4 d4@2 c4@7 d5 [a4,c5,d#5]", // Adim
  N: "[g4@2 a4 ~@3 [g4,c5,e5]@4 e4 ~ g4 ~ a4 c5@3 a4 ~ g4 ~ e4 ~ g4 ~ e4 ~ d4 d4@2 c4@5 ~@2 [c4,g4,c5,e5]@10]/3", // C
  O: "[c4,g4,a#4,e5]@3 [c4,g4,a#4,e5] [c4,g4,a#4,e5]@3 [c4,g4,a#4,e5]", // C7
  P: "[d4,a4,c5,f#5]@6 [d4,a4,c5,f#5]!2 [d4,a4,c5,f#5]@4 [d4,a4,c5,f#5]@4", Q: "g4@2 a4 ~@3 [g4,c5,e5]@8 ~@2",
  R: "c4@2 c4 [a#4,d#5,g5]!2 [c5,f5,a5] [a#4,d#5,g5] [c5,f5,a5]", // D# F D# F
  S: "[d4,c5,f5,a5]@3 [c5,f5,a5] [d5,g5,b5]@2 [d5,a5,c6]@4 [d5,a5,c6]!4 ~@2", // Dm7 F G D7
  T: "[g4@2 a4 ~@3 [g4,c5,e5]@4 e4 ~ g4 ~ a4 c5@3 a4 ~ g4 ~ e4 ~ g4 ~ e4 ~ d4 d4@2 c4@5 ~@2 [c4,g4,c5,e5]@8 d5 [a4,c5,d#5]]/3", // C Adim
  U: "[g4@2 a4 ~@3 [g4,c5,e5]@4 e4 ~ g4 ~ a4 c5@3 a4 ~ g4 ~ e4 ~ g4 ~ e4 ~ d4 d4@2 c4@5 ~@2 [c4,g4,e5,a#5]@10]/3", // C C7
  V: "c4@4 ~@2 [c5,f#5,a5]@2 [c5,g5,a#5]@2 ~@2 c4 c#4 d4@2", // F#dim C7
  W: "~@2 [d5,a5,c6]!5 [d5,a5,c6]@5 [d5,f#5,a5]@2 [d5,f#5,a5]@2", // D7 D
})).s("gm_marimba").gain(0.4).pan(0.7)

// chords · shanai
const shanai = note(`<
  ~ A B A B A B ~@2 A B ~@5 A B A ~@10 A B ~@13 A B ~@2 A B ~@5 A B A B A B A B A B A B A B A B A B A B
>`.pickRestart({
  A: "~@3 [d4,e4,a4,b4]@5", B: "~@3 [c4,d4,g4,a4]@5",
})).s("gm_shanai").gain(0.22).pan(0.7)

// other · distortion guitar
const distortion_guitar = note(`<
  ~@12 A B C ~@2 D E F ~ G@2 H@2 I J K L M N O@2 P@2 Q R S@2 T U@2 V W ~@31
>`.pickRestart({
  A: "[d4,e4] a4!2 e4 g4 a4 c5 [g4,a4] a4 [e4,g4] a4 [d4,e4] d4 c4 [c4,d4] a3", // Dsus2 Gsus2 Em Dsus2 Csus2
  B: "[c3,g3,c4,e4]@7 [c3,g3,c4,e4]!3 ~ [c3,g3,c4,e4] [c3,g3,c4,e4]@2 [c3,g3,c4,e4]@2", // C
  C: "[d3,a3,d4,f#4]@3 [d3,a3,d4,f#4] [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]!4 [d3,a3,d4,f#4]@2 ~@4", // D
  D: "~@6 [c3,g3,c4]@8 a2!2", E: "a2@2 [a2,g3,c4,e4] [g3,c4,e4,a4] ~@2 [d3,a3,d4]@8 a2!2",
  F: "a2@2 a2!2 [c3,g3]@2 [c3,g3,c4]@6 ~@4", // C5
  G: "[~@7 e4 [e4,a4] a4 g4 e4 d5 c#5 f#4@4 a2!2 a2@2 [d3,a3,d4]@8 a2!2, ~@14 a4 ~@17]/2", // A5 D5
  H: "[a2!4 a2@2 [c3,g3,c4]@12 ~@14]/2", I: "c4@2 a3@2 c4@2 a3 g3 c4!2 a3@2 c4 g3 [g3,a3] ~",
  J: "[c3,g3,a#3,e4]@4 c3@2 c3!5 [c3,c4]!3 c3@2", // C7 C
  K: "[d3,d4]@2 [d3,d4]!2 d3@2 d3 [d3,a3,d4,f#4]!2 [d3,a3,d4,f#4]@3 [d3,a3,d4,f#4]@2 e2@2", // D
  L: "[e2,e3,a3,d4]@4 [e3,a3,d4,f#4]@2 e2 e2@2 e2 e3@2 e2!2 e3@2", M: "a2@2 a2!2 a2@2 [d3,a3,d4]@8 c4 [d3,g3]",
  N: "a2@2 a2!2 a2@2 [c3,g3,c4]@6 ~@4", // C5
  O: "[[c#5,e5,a5]@4 [e5,a5]@4 [e5,a5] a5 [g5,g6]@10 [c5,e5,a5] [g5,a5] e5 g5 a5 e5!2 a5 b5@4]/2", // A A5 G Am Gsus2
  P: "[c6@2 a5@2 c6 a5 c6 [g#5,a5] a5 [e5,g#5] a5 e5 g5 e5 [d5,d6]@6 [b4,e5] [e4,g4] c4 [e4,a4] d4 c4 d4@2 d4@2 c4 d4]/2", // Amaj7 E D E5 Em A5
  Q: "c#5 [c#5,a5] e5!2 g5 e5 c5 a4 c5 e4!2 g4 e4@2 c4 d4", R: "e4 [g4,c5] e5 a4 g4 e5 g5 d5@5 a4 c5 d5 b4",
  S: "[[a4,c5] [g4,a4] c5 g4 g4@2 [g3,a3]!2 [a3,c4] [g3,a3] g3 d3!2 a2 g2 e2@3 a2 c3 d3@2 c4 a3 c4 a3 c4 d4@2 [e4,a4] a4 g#4]/2", // Am Gsus2 Am Gsus2 A5
  T: "e4 g4 c5 g4 a#4@3 f4 [d#4,f4] [e4,g4] c4 [a#3,c4] [c4,e4] [g3,a#3] f3@2", // D#sus2 Em A#sus2 C Gm
  U: "[~ g4 a4 c5 a4 c5 a4 d5 a4 c5 d5 [f5,g5] [a4,d5] a4 [a4,c5] ~ b4 e5 d5@3 b4 [g4,d5] g4 [b4,e5] [b4,d5] e5@2 c5@4, a3@2 ~@13 [f4,e5]@2 ~@15]/2", // Fsus2 D5 Am G5 E5 Bm Fmaj7
  V: "d4@2 e4 a3 [a3,c4] [c4,d4] [e4,a4] c5 a4 g4 [c4,d4] [d4,e4] [c4,e4] g3@2 e3", // Am Csus2 A5 Csus2 Dsus2 C
  W: "c3@2 d3 e3!2 [a3,c4] a3 [c4,d4] c4 [a3,c4] g3 [d3,e3] d3@2 ~@2", // Am Csus2 Am Dsus2
})).s("gm_distortion_guitar").gain(0.62).pan(1)

// bass · slap bass 1
const bass = note(`<
  A B C B C B D E F B D E G H I J B C B D K L M N@3 O P Q R S T ~@9 U V W X Y@3 X Z@3 AA AB AC B C B C B C B C B C B C B
  C B C B C B C
>`.pickRestart({
  A: "~@14 d2 [a1,c2,d#2]", B: "g1@2 a1 ~@3 d2@8 d2 [a1,c2,d#2]", C: "g1@2 a1 ~@3 c2@8 d2 [a1,c2,d#2]",
  D: "g1@2 a1 ~@3 c2@8 e2!2", E: "g2@2 a2 c3@2 a2 g2 e2 g2 d2@3 d2 c2@3", F: "a1@4 ~@2 d2@4 a2@2 ~@2 d2 [a1,c2,d#2]",
  G: "a1@4 ~@2 a1@3 e1 g1 g#1 a1!2 a#1 b1", H: "c2@3 c2 g1@3 a1 c2!2 g1@2 c2@2 c#2 a1",
  I: "d2@2 e3@2 d3 c3 a2@2 f#2@2 d2@2 d2@2 d#2@2", J: "e2@6 e2@2 e2@6 d2 [a1,c2,d#2]",
  K: "g2 ~ a2@2 a2 g2@2 c3@2 a2@3 g2@2 e2 ~", L: "g2 ~ e2 ~ d2 d2@2 c2@7 d2 [a1,c2,d#2]",
  M: "g2@2 a2 ~@3 c3@8 d2 [a1,c2,d#2]", // Adim
  N: "[g1@2 a1 ~@3 c2@3 ~ e2 ~ g2 ~ a2 c3@3 a2 ~ g2 ~ e2 ~ g2 ~ e2 ~ d2 ~ d2 c2@5 c2@2 c2@3 c2 e1@2 g1@2 a1 b1]/3",
  O: "c2@4 c2@3 c2 g1 a1 a#1 b1 c2@2 c#2 a1", P: "d2!2 ~ d2 d2@3 e1 f#1 g1 a1@2 b1 c2 d2 a1",
  Q: "e2!2 ~@2 e2 a2 ~ e2@5 d2!2 c2@2", R: "g1@2 a1 ~@3 d2@8 [d2,d#2] [a1,c2]", S: "g1@2 a1 ~@3 c2@8 [d2,d#2] [a1,c2]",
  T: "g1@2 a1 ~@13", U: "~@12 d2@2 [d2,d#2] [c2,d2]", V: "g2@2 a2 ~@3 d3@8 [d2,d#2] [c2,d2]",
  W: "g2@2 a2 ~@3 c3@8 [d2,d#2] [c2,d2]", X: "g1@2 a1 ~@3 d2@8 [d2,d#2] [c2,d2]",
  Y: "[g1@2 a1 ~@3 c2@3 ~ e2 ~ g2 ~ a2 c3@3 a2 ~ g2 ~ e2 ~ g2 ~ e2 ~ d2@2 d2 c2@5 ~@2 c2@4 c2@2 c2@2 [d2,d#2] [c2,d2]]/3", // D#maj7 Csus2
  Z: "[g1@2 a1 ~@3 c2@3 ~ e2 ~ g2 ~ a2 c3@3 a2 ~ g2 ~ e2 ~ g2 ~ e2 ~ d2@2 d2 c2@2 e1 f1 g1 a1 b1 c2@3 e1 f1 f#1 g1 a1 a#1 b1]/3",
  AA: "c2!2 ~ c2 c2@3 c2 c3 c2 g2@2 c2!2 c#2!2", AB: "d2!2 e3 d3!2 c3 a2 f#2@2 a1 d2@2 d2@2 d#2@2",
  AC: "e2@2 e3 e2@3 d2 c2",
})).s("gm_slap_bass_1").gain(0.48).pan(0.3)

// bass · electric bass finger
const bass_2 = note("<~@31 A B C D C D C E F G H ~@33>".pickRestart({
  A: "~@6 d2@3 a1 d2@2 d2@2 [d2,d#2] [a1,c2]", B: "g1@2 a1 ~@3 c2@3 g1 c2@2 c2@2 [d2,d#2] [a1,c2]",
  C: "g1@2 a1 ~@3 d2@3 a1 e2@2 d2@2 [d2,d#2] [a1,c2]", D: "g1@2 a1 ~@3 c2@3 g1 d2@2 c2@2 [d2,d#2] [a1,c2]",
  E: "g1@2 a1 ~@3 c2@3 g1 d2@2 c2 ~ [d2,d#2] [c2,d2]", F: "c2!2 ~ c2 c2@3 c2 g1 a1 b1@2 c2@2 c#2 a1",
  G: "d2!2 ~ e1 f#1 g1 a1 c2 e2 d#2 d2 c#2 d2 a1 d#2@2", H: "e2@3 e2 d#2 d2 e2@3 e2 e2@2 ~@4",
})).s("gm_electric_bass_finger").gain(0.48).pan(0.3)

// other · clavinet
const clavinet = note("<~@31 A B C D E F G H ~@16 E F E F E F E F E F E F E F E F E F E F>".pickRestart({
  A: "g2@2 a2 g2 c3 g2 d3@3 d3 e3 ~ d3 ~ e3 ~", B: "g2@2 a2 g2 c3 a2 c3 d3 c3@2 d3 ~ c3 ~ d3 ~",
  C: "g2 a2@2 c3@2 a2 c3@3 d3 e3 ~ d3 ~ e3 ~", D: "g2!2 a2@2 ~@2 c3@2 d3 c3 a2 ~ c3 ~ d3 ~",
  E: "g2@2 a2 g2 c3 a2 d3@3 d3 e3 ~ d3 ~ e3 ~", F: "g2@2 a2 g2 c3 a2 c3@3 c3 d3 ~ c3 ~ d3 ~",
  G: "g2 a2@2 c3@2 a2 d3@3 d3 e3 ~ d3 ~ e3 ~", H: "c3!2 a2 c3!3 a2 c3!2 ~ d3 ~ c3 ~ d3 ~",
})).s("gm_clavinet").gain(0.44).pan(0.9)

// chords · bassoon
const bassoon = note(`<
  ~@18 A B ~@2 A C ~ D E F ~@16 G H ~ I G H ~@5 J K J L M N O N O N O N O N O N O N O N
>`.pickRestart({
  A: "~@4 [a4,a5]@2 [c5,c6] [a4,a5]@2 [g4,g5] [e4,e5] [d4,d5] ~@4", B: "~@6 a5@3 ~@7", C: "~@4 a5@2 a5@3 g5 e5@2 ~@4",
  D: "~@12 [e5,a5,c6] [e5,a5,c6]@3", // Am
  E: "[d5,g5,a#5]@2 [c5,e5,g5]@2 [e5,a5,c6]@2 [e5,a5,c6] [e5,a5,c6]@2 [e5,a5,c6]@3 [e5,a5,c6] [e5,a5,c6]@3", // Gm C Am
  F: "[d5,f#5,a5]@2 [d5,f#5,a5]@2 [f#5,a5,c6]@2 [f#5,a5,c6] [f#5,a5,c6]@2 [d5,f#5,a5]@3 ~@4", // D F#dim D
  G: "~@4 [e5,a5]@2 [g5,c6] [e5,a5]@2 [d5,g5] [b4,e5] [a4,d5] ~@4", H: "~@2 a5 a5@3 ~@2", I: "~ e5@3 e5 a4 ~@2",
  J: "~@3 [e5,a5,c#6]@3 ~@2", K: "~@3 [d5,g5,b5]@3 ~@2",
  L: "~@6 [g5,c6,e6]@4 [e5,a5,c6] [d4,a4,c#5,e5,a5] [a4,c#5,e5,a5,c#6] [a4,c#5,e5,a5,c6]@2 [g4,b4,d5,g5,b5]", // C Am A G
  M: "[a4,c#5,e5,a5,c#6]@4 ~@7 [e4,a4,c#5,e5,a5] [a4,c#5,e5,a5,c#6] [a4,c#5,e5,a5,c#6]@2 [a4,c#5,e5,a5,c#6]", // A
  N: "[g4,b4,d5,g5,b5]@4 ~@7 [e4,a4,c#5,e5,a5] [a4,c#5,e5,a5,c#6] [a4,c#5,e5,a5,c#6]@2 [g4,b4,d5,g5,b5]", // G A G
  O: "[a4,a5,c#6]@4 ~@6 e4 [a4,c#5,e5,a5] [a4,c#5,e5,a5,c#6] [a4,c#5,e5,a5,c#6]@2 [a4,c#5,e5,a5,c#6]", // A
})).s("gm_bassoon").gain(0.48).pan(0.6)

// drums · kick
const kick = s("bd").struct("<~ [x ~ x ~@4 x!2 ~ x ~@5]!6 ~@2 [x ~ x ~@4 x!2 ~ x ~@5]!66>").gain(0.44)

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

// drums · low tom
const low_tom = s("lt").struct("<A ~@3 B ~@2 C ~@4 B ~@7 D E ~@17 F ~ G H I ~@3 B ~@4 J ~@22>".pickRestart({
  A: "~@15 x", B: "~@14 x!2", C: "~@8 x!2 ~ x!3 ~ x", D: "~@8 x!7 ~", E: "x ~ x ~@4 x!2 ~@7", F: "~ x!3 ~ x ~@2 x ~@7",
  G: "~ x!3 ~@12", H: "~@5 x!3 ~@8", I: "~@9 x!3 ~@4", J: "~ x ~@6",
})).gain(0.44)

// drums · hihat
const hihat = s("hh").struct("<~ [x!3 ~ x!4]!3 [x!3 ~@5] [x!3 ~ x!4]!2 ~@2 [x!3 ~ x!4]!3 [x!3 ~@5] [x!3 ~ x!4]!62>")
  .gain(0.44)

// drums · mid tom
const mid_tom = s("mt").struct("<~@4 A ~@2 B ~@4 A ~@7 C ~@18 D ~@7 E ~@27>".pickRestart({
  A: "~@6 x!8 ~@2", B: "~@4 x!2 ~ x ~@8", C: "x!3 ~ x!3 ~@9", D: "~@6 x!2 ~@8", E: "~@4 x!3 ~ x!3 ~@5",
})).gain(0.44)

// drums · open hat
const open_hat = s("oh").struct("<~@14 [~@15 x] ~@60>").gain(0.44)

// drums · high tom
const high_tom = s("ht").struct("<~@7 [x!2 ~ x ~@12] ~@39 [~@3 x ~@3 x ~@3 x!5] ~@27>").gain(0.44)

// drums · crash
const crash = s("cr").struct("<~ A@6 ~ B A@2 ~ C A D C A@4 ~ E A@2 ~ A C A@17 C A@2 ~ A@3 C@3 A@21>".pickRestart({
  A: "~@3 x ~@4", B: "x", C: "x ~@2 x ~@4", D: "~ x ~@2", E: "~ x",
})).gain(0.44)

// drums · cowbell
const cowbell = s("cb").struct("<~@59 A@3 B A C D E@2 F E@3 G E@2>".pickRestart({
  A: "x!4", B: "x ~ x ~ x ~ x!2", C: "x ~ x!3 ~ x!2", D: "x ~@2 x!2 ~ x ~ x ~@2 x!2 ~@3",
  E: "x ~@2 x!2 ~ x ~ x ~@2 x!2 ~ x ~", F: "x ~@2 x!2 ~ x ~ x ~@2 x!4 ~", G: "x ~@2 x!2 ~ x!3 ~@2 x!2 ~ x ~",
})).gain(0.44)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@31 [x!16]!13 ~@31>").gain(2.22)

stack(
  marimba, shanai, distortion_guitar, bass, bass_2, clavinet, bassoon, kick, snare, low_tom, hihat, mid_tom, open_hat,
  high_tom, crash, cowbell, cabasa
)