justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Improve bezier curve rendering

Browse Source
This commit is contained in:
justin
2021-03-13 14:09:49 +01:00
parent 8f3b5d0bfe
commit 152d017e39
7 changed files with 40 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Picture/Data.hs
+2 -2
View File
@@ -22,7 +22,7 @@ import Data.Traversable
data RenderType
= RenderPoly [(Point3,Point4)]
| RenderBezQ [(Point3,Point4,Float)]
| RenderBezQ [(Point3,Point4,Point3)]
| RenderText [(Point3,Point4,Point3)]
| RenderArc (Point3,Point4,Point4)
| RenderLine [(Point3,Point4)]
@@ -75,7 +75,7 @@ data Picture
= Blank
| Text Int String
| Polygon Int [Point2]
| BezierQuad Int [(Point2,RGBA,Float)]
| BezierQuad Int [(Point2,RGBA,Point2,Float)]
| PolygonCol Int [(Point2,RGBA)]
| Circle Int RGBA RGBA Float
| ThickArc Int Float Float Float Float