3 files changed, 59 insertions, 0 deletions

diff --git a/Setup.hs b/Setup.hs
new file mode 100644
index 0000000..9a994af
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/axis-of-eval.cabal b/axis-of-eval.cabal
new file mode 100644
index 0000000..2942f16
--- /dev/null
+++ b/axis-of-eval.cabal
@@ -0,0 +1,21 @@
+-- Initial axis-of-eval.cabal generated by cabal init.  For further 
+-- documentation, see http://haskell.org/cabal/users-guide/
+
+name:                axis-of-eval
+version:             0.0.0.1
+-- synopsis:            
+-- description:         
+homepage:            axis.childrenofmay.org
+license:             AllRightsReserved
+license-file:        LICENSE
+author:              Andrew Cady
+maintainer:          d@childrenofmay.org
+-- copyright:           
+category:            Sound
+build-type:          Simple
+cabal-version:       >=1.8
+
+executable axis-of-eval
+  -- main-is:             
+  -- other-modules:       
+  build-depends:       base ==4.5.*
\ No newline at end of file
diff --git a/axis.hs b/axis.hs
new file mode 100644
index 0000000..b59a6f6
--- /dev/null
+++ b/axis.hs
@@ -0,0 +1,36 @@
+import FRP.Netwire hiding (when)
+import Prelude hiding ((.), id)
+import Data.Time.Clock
+import Control.Wire hiding (when)
+import Control.Wire.Session
+import Control.Monad
+import qualified Graphics.UI.SDL as SDL
+
+netwireIsCool :: (Monad m) => Wire (Timed NominalDiffTime ()) () m a String
+netwireIsCool =
+    for 2.5 . pure "Once upon a time..." -->
+    for 3   . pure "... games were completely imperative..." -->
+    for 2   . pure "... but then..." -->
+    for 10  . (pure "Netwire 5! " <> anim) -->
+    netwireIsCool
+
+  where
+    anim =
+        holdFor 0.5 . periodic 1 . pure "Hoo..." <|>
+        pure "...ray!"
+
+--main :: IO ()
+--main = testWire clockSession_ netwireIsCool
+
+main = SDL.withInit [SDL.InitVideo, SDL.InitTimer, SDL.InitJoystick] $ do
+  loop clockSession_ netwireIsCool ""
+  where
+  loop s w x = do
+    (ds, s') <- stepSession s
+    (ex, w') <- stepWire w ds (Right x)
+    let x' = either (const "") id ex
+    Control.Monad.when (x /= x' && x /= "") $ putStrLn x
+    let framerate = 30
+    let delay = 1000 `div` framerate - 1000 * (floor $ dtime ds)
+    SDL.delay (delay)
+    loop s' w' x'