Implement color for quadratic bezier curves

2021-03-12 19:10:14 +01:00
parent 4ed72e263b
commit 918f7d23b8
8 changed files with 38 additions and 14 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 (-200,200) (-200,-200) (200,200) ]
+testPic w = [setLayer 1 $ onLayerL [99] $ bezierQuad white red 5 50 (-200,200) (-200,-200) (00,00) ]
 -- $ uncurry translate (mouseWorldPos w)