Skip to content

Instantly share code, notes, and snippets.

View sleexyz's full-sized avatar

Sean Lee sleexyz

158 followers · 652 following
View GitHub Profile
@sleexyz
sleexyz / live_syzygy.hs
Created September 17, 2017 20:12
stackMod :: [ Signal a -> Signal a] -> Signal a -> Signal a
stackMod mods sig = mconcat $ ($sig) <$> mods
sig :: Signal Word8
sig =
-- nest [ embed (12 * x + y) | x <- [0..1] >>= replicate 4 | y <- cycle [12, 7, 10, -5]]
nest [ embed (5 * x) | x <- [0..12] >>= replicate 1 ]
& fmap (`mod` 30) & fmap (`mod` 20)
& fmap (`mod` 20) & fmap (`mod` 14)
& stackMod
@sleexyz
sleexyz / tidalAsLibrary_2017-09-02T17:36:46-04:00.hs
Created September 2, 2017 21:36
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 30, 2017 02:53
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 30, 2017 02:47
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 30, 2017 02:41
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 30, 2017 02:30
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 30, 2017 02:00
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 29, 2017 21:21
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
-- Runs computation once. Persists across ghci sessions.
runOnce :: Word32 -> IO a -> IO a
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 23, 2017 01:42
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.
@sleexyz
sleexyz / tidalAsLibrary.hs
Created July 22, 2017 20:26
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
import Prelude
import Sound.Tidal.Context
import qualified Foreign.Store as ForeignStore
import Data.Word (Word32)
import Data.String (fromString)
import Control.Arrow ((>>>))
-- Runs computation once. Persists across ghci sessions.