diff --git a/Makefile b/Makefile new file mode 100644 --- /dev/null +++ b/Makefile @@ -0,0 +1,1 @@ +include ../cho-cabal-make.inc diff --git a/README b/README new file mode 100644 --- /dev/null +++ b/README @@ -0,0 +1,18 @@ +This library [1] connects '''reactive''' [2] (a functional reactive +programming library) and '''FieldTrip''' [3] (a functional 3D library). + +Please share any comments & suggestions on the discussion (talk) page at +[1]. + +You can configure, build, and install all in the usual way with Cabal +commands. + + runhaskell Setup.lhs configure + runhaskell Setup.lhs build + runhaskell Setup.lhs install + +References: + +[1] http://haskell.org/haskellwiki/reactive-fieldtrip +[2] http://haskell.org/haskellwiki/reactive +[3] http://haskell.org/haskellwiki/FieldTrip diff --git a/Setup.lhs b/Setup.lhs new file mode 100644 --- /dev/null +++ b/Setup.lhs @@ -0,0 +1,3 @@ +#!/usr/bin/env runhaskell +> import Distribution.Simple +> main = defaultMain diff --git a/reactive-fieldtrip.cabal b/reactive-fieldtrip.cabal new file mode 100644 --- /dev/null +++ b/reactive-fieldtrip.cabal @@ -0,0 +1,34 @@ +Name: reactive-fieldtrip +Version: 0.0 +Cabal-Version: >= 1.2 +Synopsis: Connect Reactive and FieldTrip +Category: Graphics, FRP +Description: + This library connects ''Reactive'' (a functional reactive + programming library) and ''FieldTrip'' (a functional 3D library). + . + Project wiki page: + . + The module documentation pages have links to colorized source code and + to wiki pages where you can read and contribute user comments. Enjoy! + . + © 2008 by Conal Elliott; BSD3 license. +Author: Conal Elliott +Maintainer: conal@conal.net +Homepage: http://haskell.org/haskellwiki/project-foo +Package-Url: http://code.haskell.org/project-foo +Copyright: (c) 2008 by Conal Elliott +License: BSD3 +Stability: experimental +build-type: Simple + +Library + hs-Source-Dirs: src + Extensions: + Build-Depends: base, reactive, reactive-glut, FieldTrip + Exposed-Modules: + FTest + + ghc-options: -Wall + +-- ghc-prof-options: -prof -auto-all diff --git a/src/FTest.hs b/src/FTest.hs new file mode 100644 --- /dev/null +++ b/src/FTest.hs @@ -0,0 +1,111 @@ +{-# OPTIONS_GHC -Wall #-} +---------------------------------------------------------------------- +-- | +-- Module : FTest +-- Copyright : (c) Conal Elliott 2008 +-- License : BSD3 +-- +-- Maintainer : conal@conal.net +-- Stability : experimental +-- +-- Test Reactive + FieldTrip +---------------------------------------------------------------------- + +module FTest where + +import Data.Monoid +import Control.Applicative + +import Graphics.FieldTrip + +import FRP.Reactive +import FRP.Reactive.GLUT.Adapter + + +main :: IO () +main = -- anim2 $ pure.pure $ txt + -- anim2 $ pure $ rotTxt <$> time + -- anim2 track + -- anim2 $ revTxt "Let's have fun!" + -- anim3 spin + anim2 $ (fmap.fmap) rotTxt (uiIntegral signFlip) + +txt :: Geometry2 +txt = utext "Reactive + FieldTrip" + + +-- Accumulate function applications on each left button press +accumLB :: a -> (a->a) -> (UI -> Behavior a) +accumLB a f ui = a `accumB` (f <$ leftButtonPressed ui) + +-- Flip between 1 & -1 on left button pres +signFlip :: UI -> Behavior Double +signFlip = accumLB 1 negate + +-- Reverse text on left button press +revTxt :: String -> (UI -> Behavior Geometry2) +revTxt str ui = utext <$> accumLB str reverse ui + +-- revTxt = (fmap.fmap.fmap) utext (flip accumLB reverse) + +rotTxt :: Double -> Geometry2 +rotTxt t = rotate2 t *% txt + +track :: Anim Geometry2 +track = (fmap.fmap) (f . uncurry Vector2) mousePosition + where + f = (uscale2 (0.5::Float) *%) . utext . show + +spin :: Anim Geometry3 +spin = spinningG $ + -- usphere + torusPair + -- flatG txt + +torusPair :: Geometry3 +torusPair = f red (1/2) `mappend` pivot3X (f green (-1/2)) + where + tor = torus 1 (2/5) + f :: Col -> R -> Geometry3 + f col dx = plasmat col (move3X dx tor) + +-- Start at zero with a velocity of one. Negate velocity on each event occurrence. +reverseVel :: (UI -> Event a) -> (UI -> Behavior Double) +reverseVel ue = uiIntegral vel + where + vel ui = 1 `accumB` (negate <$ ue ui) + +---- + +plasmat :: Col -> Filter3 +plasmat col = materialG (plastic col) + +spinningG :: Geometry3 -> Anim Geometry3 +spinningG g env = liftA2 (*%) (spinning env) (pure g) + +spinning :: Anim (Transform3 Double) +spinning = const (xf . (*2) <$> time) + where + xf t = translate3 (Vector3 (0::Double) 0 (3*sin (-t/5))) + `mappend` rotate3 t (Vector3 0.1 0.2 0.3) + `mappend` scale3 0.2 0.2 0.2 + +{-------------------------------------------------------------------- + Move to reactive-fieldtrip +--------------------------------------------------------------------} + +view :: Filter3 +view = move3Z (-3 :: R) + +type Anim a = UI -> Behavior a + +animate :: Sink a -> Sink (Anim a) +animate f anim = adaptSimple "Reactive + FieldTrip" ((fmap.fmap) f anim) + +anim2 :: Sink (Anim Geometry2) +anim2 = anim3 . (fmap.fmap) flatG + +anim3 :: Sink (Anim Geometry3) +anim3 = animate (renderWith3 gc . view) + where + gc = defaultGC { gcErr = 0.005 } diff --git a/wikipage.tw b/wikipage.tw new file mode 100644 --- /dev/null +++ b/wikipage.tw @@ -0,0 +1,15 @@ +[[Category:Packages]] +[[Category:FRP]] +[[Category:Graphics]] + +== Abstract == + +The '''reactive-fieldtrip''' library connects [[reactive]]] (a functional reactive programming library) and [[FieldTrip]]] (a functional 3D library). + +Besides this wiki page, here are more ways to find out about reactive-fieldtrip: +* Read [http://code.haskell.org/reactive-fieldtrip/doc/html/ the library documentation]. +* Get the code repository: '''darcs get http://code.haskell.org/reactive-fieldtrip'''. +* Install from [http://hackage.haskell.org/cgi-bin/hackage-scripts/package/reactive-fieldtrip Hackage]. +* See the [[reactive-fieldtrip/Versions| version history]]. + +Please leave comments at the [[Talk:reactive-fieldtrip|Talk page]].