Continue changes to quadratic bezier rendering

2021-03-13 23:14:37 +01:00
parent 152d017e39
commit 3aefb8319d
4 changed files with 36 additions and 4 deletions
@@ -122,7 +122,7 @@ worldPictures w

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