Small cleanup, delete unneeded code

2021-03-12 21:17:24 +01:00
parent 918f7d23b8
commit 95c9610b74
3 changed files with 3 additions and 196 deletions
@@ -121,8 +121,9 @@ worldPictures w
                where tst x y sc t = translate x y $ scale sc sc $ color white $ text t

 testPic :: World -> [Picture]
-testPic w = [setLayer 1 $ onLayerL [99] $ bezierQuad white red 5 50 (-200,200) (-200,-200) (00,00) ]
-- $ uncurry translate (mouseWorldPos w) 
+testPic w = [blank]
+    -- [setLayer 1 $ onLayerL [99] $ bezierQuad white red 5 50 (-200,200) (-200,-200) (00,00) ]
+    -- $ uncurry translate (mouseWorldPos w) 


 hudDrawings :: World -> Picture