Determine bug in bezier curve rendering

src/Dodge/Critters.hs

@@ -364,7 +364,6 @@ startCr = basicCreature
                             ,hvAutoGun
                             ,teslaGun
                             ,latchkey 0
-                            ,frontArmour
                             ,miniGun
                             ,medkit 50
                             ,bezierGun

src/Dodge/Rendering.hs

@@ -122,7 +122,7 @@ worldPictures w
 
 testPic :: World -> [Picture]
 testPic w = --[blank]
-     [setLayer 1 $ onLayerL [99] $ bezierQuad white red 20 50 (-200,0) (0,0) (200,50) ]
+     [setLayer 1 $ onLayerL [99] $ bezierQuad white red 20 20 (00,00) (200,200) (200,000) ]
     -- $ uncurry translate (mouseWorldPos w) 
 
 

src/Dodge/Rooms.hs

@@ -548,7 +548,7 @@ deadEndRoom = Room
                  ]
     , _rmLinks = lnks
     , _rmPath  = []
-    , _rmPS    = [PS (0,-10) 0 basicLS]
+    , _rmPS    = [PS (0,-20) 0 basicLS]
     , _rmBound = rectNSWE 20 (-20) (-30) 30
     }
     where lnks = [((0,30)  ,0)