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

remove old code

Browse source
This commit is contained in:
nek0 2017-02-26 02:15:03 +01:00
parent e59ecbd1e1
commit f155e1832b
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/InGame.hs
View file

@ -118,19 +118,6 @@ updateGame sec = do
drawGame :: Affection UserData ()
drawGame = do
-- ud <- getAffection
-- liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink
-- present
-- (GeglRectangle (floor $ fst $ sPos $ ship ud) (floor $ snd $ sPos $ ship ud) 50 50)
-- (buffer ud)
-- False
-- mapM_ (\h -> do
-- let s = 100 `div` hDiv h
-- present
-- (GeglRectangle (floor $ fst $ hPos h) (floor $ snd $ hPos h) s s)
-- (buffer ud)
-- False
-- ) (haskelloids ud)
ud <- getAffection
liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink
present