From b75f20c3d59945a349cbf2e2cf1bfbc7138fe21a Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 24 Dec 2016 08:27:09 +0100 Subject: [PATCH] link all new particles --- examples/example03.hs | 7 +++++++ 1 file changed, 7 insertions(+) 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