First implementation of quadratic bezier curve shader

src/Dodge/Rendering.hs

@@ -75,6 +75,7 @@ worldPictures w
 --                        , itLabels
                         , ppLabels
                         , btLabels
+                        , testPic w
                         ]
     where
           decPicts      = IM.elems $ _decorations w
@@ -119,6 +120,11 @@ 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] $ color red $ bezierQuad (-90,0) (90,-50) (-200,200) ]
+-- $ uncurry translate (mouseWorldPos w) 
+
+
 hudDrawings :: World -> Picture
 hudDrawings w = setLayer 1 $ (onLayer InvLayer) 
                         $ pictures
@@ -463,8 +469,6 @@ displayHP n w = translate (halfWidth w-80) (halfHeight w-20) $
                     scale 0.2 0.2 $ text $ reverse $ take 5 $ (++ repeat ' ') $ reverse $ show
                     $ _crHP $ _creatures w IM.! n
 
-testPic w = blank
-
 wallsForGloom :: World -> [(Point2,Point2,Point2,Point2)]
 wallsForGloom w = map (linePairs . _wlLine) $ filter (not . _wlIsSeeThrough)
                         $ filter wallCastsShadow