Skip to content

Instantly share code, notes, and snippets.

@44kwm20
Created October 18, 2016 13:55
Show Gist options
  • Save 44kwm20/452bafc0a8ead20ae7e8803a5293a774 to your computer and use it in GitHub Desktop.
Save 44kwm20/452bafc0a8ead20ae7e8803a5293a774 to your computer and use it in GitHub Desktop.
bps(130/120)
let hcho = ifp ((== 0). (flip mod 4)) ( const (sound $ "hc ho")) (const (sound $ "[hc ho] hc")) $ sound "~"
d1 $ sound "{sync}%16" # nudge "0.01"
d2 $ stack[
sound "bd [~ ~ ~ bd] [~ bd bd ~][~]" # n "20" # shape "0.6" # gain "1",
stack [ whenmod 4 3 (const (sound $ "~ ~ ~ [~ [~ drum]]")) $ sound "~", sound "~ drum ~ drum " ] # shape "0.5" # gain "0.95" # n "1" # cut "2" # speed "0.9" # end "0.9" ,
stack [ whenmod 4 3 (const (sound $ "~ ~ ~ [~ [~ ho]]")) $ sound "~", wedge (6/8) (sound "hc hc hc hc hc hc") (hcho) ] # cut "1" # gain "0.9",
sound "{hh}%16" # shape "0.5" # gain "{0.85 0.8 0.9 0.8}%16" |+| gain "0.02" # n "8" # cut "3",
sound "cc:1/16" # gain "0.9"
] # nudge "{0 0.017}%16" # hcutoff "00" # delay "0.4" # delayfeedback "0.8" # (delaytime $ scale 0.001 0.01 $ slow 8 (tri1) )
d3 $ sound "breaks125:1" # shape "0.55" # gain "0.90" # unit "c" # speed "1.01"
d4 $ whenmod 16 12 ( const ( slow 4 $ sound "sn*64" # nudge "0.002" # hcutoff "300" # n "10" # shape "0.6" # cut "6" # gain ( scale 0.4 1 $(/ 64) <$> run(64)))) $ sound "~"
d5 $ sound "~ ~ [~ bass1 ~ ~] [bass1 ~]" # up "19 ! ! [[19 7]~] " |+| up "18" # n "5" # cut "4" # gain "1" # end "1" # nudge "{0 0.017}%16"
@44kwm20
Copy link
Author

44kwm20 commented Oct 22, 2016

This code not include ACID line!!

Acid line played by KORG MS-20 mini via KORG SQ-1 sequencer.
d1 generates "sync signal" for KORG SQ-1 (using my SuperCollider Synth named "sync").

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment