Implement varying width in bezierQuad

2021-03-12 17:35:13 +01:00
parent 0489a092bc
commit 4ed72e263b
3 changed files with 19 additions and 5 deletions
@@ -121,7 +121,7 @@ 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) ]
+testPic w = [setLayer 1 $ onLayerL [99] $ color red $ bezierQuad (-200,200) (-200,-200) (200,200) ]
 -- $ uncurry translate (mouseWorldPos w)