{
   "id" : "1-5dv",
   "is_private" : null,
   "code" : "// More fun with arpeggios in F Major\r\n\r\n~prog = [\\Fmajor7, \\Dm7, \\Bbmajor7, \\Cdom7]\r\n\r\n~chords = ~prog.collect({ arg item, i; ChordSymbol.asDegrees(item, Scale.major)}); // collect the chords into a 2D array\r\n\r\np = [0, 2, 1, 3]// new pattern\r\n\r\no = [0, 7, 7, 0]\r\n\r\n(\r\n~bass = Pbind(\r\n\t\\instrument, \\default,\r\n\t\\octave, 4,\r\n\t\\scale, Scale.major,\r\n\t\\dur, Pbjorklund2(6, 16) * 0.125,\r\n\t\\degree, Pseq(\r\n\t\t[\r\n\t\t\tPseq([~chords[0][0]],6),\r\n\t\t\tPseq([~chords[1][0]],6),\r\n\t\t\tPseq([~chords[2][0]]-7,6),\r\n\t\t\tPseq([~chords[3][0]],6),\r\n\t\t],\r\n\t\tinf),\r\n\t\\legato, 0.3\r\n).play;\r\n\r\n~chordtest = Pbind(\r\n\t\\instrument, \\default,\r\n\t\\scale, Scale.major,\r\n\t\\dur, 0.5,\r\n\t\\degree, Pseq(\r\n\t\t[\r\n\t\t\tPseq(~chords[0][p] + o, 1),\r\n\t\t\tPseq(~chords[1][p] + o, 1),\r\n\t\t\tPseq(~chords[2][p]-7 + o, 1),\r\n\t\t\tPseq(~chords[3][p] + o, 1),\r\n\t\t],\r\n\t\tinf)\r\n).play;\r\n)\r\n(\r\n~chordtest.stop;\r\n~bass.stop;\r\n)",
   "labels" : [],
   "ancestor_list" : [],
   "description" : "trying to improve upon [my previous attempt at making an arpeggiator](http://sccode.org/1-5dm).",
   "name" : "another primitive arpeggio sequence",
   "author" : "emergent"
}