nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

experiment

Browse source
This commit is contained in:
nek0 2016-12-28 00:30:32 +01:00
parent 76a1bf69de
commit 786e4395b7
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Main.hs
View file

@ -180,6 +180,16 @@ draw = do
traceM "drawing" traceM "drawing"
ud <- getAffection ud <- getAffection
liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink
-- mintr <- liftIO $ gegl_rectangle_intersect
-- (GeglRectangle 0 0 800 600)
-- (GeglRectangle (floor $ fst $ sPos $ ship ud) (floor $ snd $ sPos $ ship ud) 50 50)
-- maybe (return ()) (\intr ->
-- present
-- (GeglRectangle (floor $ fst $ sPos $ ship ud) (floor $ snd $ sPos $ ship ud) 50 50)
-- (buffer ud)
-- False
-- ) mintr
-- XXX: above part crashes regularly for no apparent reason
present present
(GeglRectangle 0 0 800 600) (GeglRectangle 0 0 800 600)
(buffer ud) (buffer ud)