TidalCyclesStateOfConsciousness.tidal

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"

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").