Determine bug in bezier curve rendering

2021-03-13 12:58:20 +01:00
parent 9aa6fec418
commit 8f3b5d0bfe
5 changed files with 37 additions and 22 deletions
@@ -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)