link all new particles

This commit is contained in:
nek0 2016-12-24 08:27:09 +01:00
parent a564eed511
commit b75f20c3d5

View file

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