Tidal Experiments

video pallette

-- Make sure you have the nes and beep2 sample sets to play this stuff

-- Hippy Hoppy
-- d1 $ (sound "{[hh:8*4,[bd:2 sn:2 bd:2 sn:2]/2], null hh:3 cp:2}")

-- -- Hippy Glitchy
-- d1 $ (sound "{[glitch:6*4,[glitch glitch:7 glitch glitch:7]/2], null glitch:4 glitch:3}")


-- -- Dancy beepy
-- d1 $ stack [ (smash 3 [2,4] $ sound "bleep:2")  , sound "{[glitch:6*4,[glitch glitch:7 glitch glitch:7]/2], null glitch:4 glitch:3}"]

-- Doomy bassy 
-- d1  $ slow 10 (sound.cat. (fmap p) $  ( (( ( (++) "bass1:") . show) <$>  [1 .. 11] ) ))

-- cooler beeps
d1 $ sound "beep2:0 beep2:1 beep2:2 beep2:3 beep2:4"

-- video game madness
d1 $ stack [ (smash 5 [2,4] $ sound.slow 5 $ (every 32 (\_-> "emerge:17") "nes") ),(smash 3 [2,4] $ sound (every 12 (\_-> "bleep:2") "nes") ) , sound "{[glitch:6*4,[glitch glitch:7 glitch glitch:7]/2], nes  glitch:4 nes:25}" , (sound "[bass1:1 bass1:3]/2" ), degradeBy 0.30 $ iter 4 $ sound (every 4 (\_ -> "{arpy:1 arpy:1 arpy:3  arpy:4, [beep2:11 beep2:0]}}*2") $ "arpy:1 arpy:1 arpy:3  arpy:4") ] 


-- nes waaay too kick ass bass space drums
d1 $ sound "nes:173"
d1 $ sound "nes:163"


-- nes scratcy nutso 
d1 $ sound "nes:153"
d1 $ sound "nes:143"
d1 $ sound "nes:133"

-- nes sword fight
d1 $ sound "nes:123"

-- nes splosions
d1 $ sound "nes:113"


d1 $ stack [degradeBy 0.10 $ whenmod 8 0 (\_-> iter 4 $ sound "{nes*4,[nes:173 [nes:163*2]]}*2" ) $ (sound $ "{nes*4,[nes:172 [nes:163*2]]}"), degradeBy 0.2 $ every 7 (\_-> sound "{[beep2:0*3] beep2:11,emerge:9}") (sound "[nes:21*3] beep2:11") ]