diff --git a/examples/example03.hs b/examples/example03.hs index 02ed06d..a50a4d3 100644 --- a/examples/example03.hs +++ b/examples/example03.hs @@ -4,8 +4,11 @@ import Affection import qualified SDL import qualified GEGL as G import qualified BABL as B + import qualified Data.Map.Strict as M +import Control.Monad (when) + import Foreign.C.Types import System.Random (randomRIO) @@ -154,6 +157,10 @@ update sec = do }) : (psParts $ partsys ud) } } + when (not $ null $ psParts $ partsys ud) $ + liftIO $ G.gegl_node_link + tempOver + (particleStackCont $ head $ psParts $ partsys ud) else return () SDL.WindowClosedEvent _ -> do