Sean Lee sleexyz
sleexyz
/ tidalAsLibrary.hs
Created
July 30, 2017 02:00
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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
/ tidalAsLibrary.hs
Created
July 30, 2017 02:30
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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
/ tidalAsLibrary.hs
Created
July 30, 2017 02:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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
/ tidalAsLibrary.hs
Created
July 30, 2017 02:47
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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
/ tidalAsLibrary.hs
Created
July 30, 2017 02:53
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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
/ tidalAsLibrary_2017-09-02T17:36:46-04:00.hs
Created
September 2, 2017 21:36
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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
/ live_syzygy.hs
Created
September 17, 2017 20:12
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE ParallelListComp #-} | |
| {-# LANGUAGE RebindableSyntax #-} | |
| module Live where | |
| import Control.Concurrent | |
| import Data.Word (Word8) | |
| import Data.Function ((&)) | |
| import Prelude | |
| import Data.String |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE ParallelListComp #-} | |
| {-# LANGUAGE RebindableSyntax #-} | |
| module Live where | |
| import Control.Concurrent | |
| import Data.Word (Word8) | |
| import Data.Function ((&)) | |
| import Prelude | |
| import Data.String |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE NamedFieldPuns #-} | |
| {-# LANGUAGE RebindableSyntax #-} | |
| {-# LANGUAGE PatternGuards #-} | |
| {-# LANGUAGE NamedFieldPuns #-} | |
| {-# LANGUAGE ViewPatterns #-} | |
| {-# LANGUAGE DuplicateRecordFields #-} | |
| {-# LANGUAGE OverloadedStrings #-} | |
| module Jam_sunnyvale_11_28 where |