Debug bezier quad, doesn't draw straighter lines well

2021-03-12 22:17:48 +01:00
parent 95c9610b74
commit 9aa6fec418
6 changed files with 25 additions and 13 deletions
@@ -121,8 +121,8 @@ worldPictures w
                where tst x y sc t = translate x y $ scale sc sc $ color white $ text t

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