Login with: Twitter
Github

patternlib


  

unce by sometimesmusic

density (123/120) $ stack [ sometimesBy (1/3) (whenmod 8 7 ((|*| speed (density 3 (scale 1 1.5 (saw)))).(stut 4 0.3 (-1/2)))) $ sometimesBy (1/3) (whenmod 8 7 (# hcutoff 1000)) $ s "[bd*2,~ sn:1]", sometimesBy (1/3) (whenmod 4 3 (|*| gain 0)) $ s "[~ 808:2]*2" |*| gain "0.8" |*| speed "0.95", whenmod 4 3 (stut' 2 (1/2) ((|*| speed "2").(# hcutoff 1800))) $ outside 8 (whenmod 2 1 ((|*| up (slow 8 "[0,12]")).(|*| gain "0.9"))) $ outside 16 (whenmod 2 1 ((|*| up (slow 8 "[0,19]")).(|*| gain "0.9"))) $ s "<jvbass>*8" |*| gain (density 2 (scale 0.6 1.1 (saw))) |*| gain "1.08" # n (slow 8 "<[0 1 2 3 5 4 3 2] [0 1 2 3 0 1 2 3] [[0 1]*12 [0 -1]*4]>"), when (\x -> (mod x 16) < 12) (|*| gain "0") $ stut 4 0.5 (-1/16) $ slow 4 $ (rev) $ chop 32 $ s "cc" |*| speed "1" |*| gain (density 2 (scale 0.6 1 (saw))) |*| gain "0.85" # unit "c" # hcutoff 500, (0.01 <~) $ whenmod 8 0 (|*| gain (density 2 (scale 0.7 1.1 (saw)))) $ stut 8 0.125 4 $ slow 32 $ s "cc:2" # attack 0.53 # hcutoff 500, (0.01 <~) $ whenmod 8 0 (|*| gain (density 2 (scale 0.6 1.1 (saw)))) $ stut 8 0.2 2 $ slow 16 $ s "crow" # cutoff 1000 # hcutoff 200 ]
 > <
log in to make a new pattern from this