Improve cursor rendering

2021-03-08 00:25:57 +01:00
parent c9ae76594b
commit 79b6a4fc32
4 changed files with 23 additions and 53 deletions
@@ -70,6 +70,7 @@ data Picture
    | Circle Int Float
    | ThickArc Int Float Float Float Float
    | Line Int [Point2]
+    | LineCol Int [(Point2,RGBA)]
    | Pictures [Picture]
    | OverPic (Point3 -> Point3) (Point2 -> Point2) Float (Point4 -> Point4) Picture
    | OnLayer Int Picture