Add layered drawing of pictures

2021-02-24 03:35:42 +01:00
parent a853c2d946
commit 2afe40594e
4 changed files with 150 additions and 92 deletions
@@ -42,18 +42,18 @@ data RenderType

 data Picture
    = Blank
-    | Text String
-    | Polygon [Point2]
-    | PolygonCol [(Point2,RGBA)]
-    | Circle Float
-    | ThickArc Float Float Float Float
+    | Text Int String
+    | Polygon Int [Point2]
+    | PolygonCol Int [(Point2,RGBA)]
+    | Circle Int Float
+    | ThickArc Int Float Float Float Float
+    | Line Int [Point2]
    | Scale Float Float Picture
    | Translate Float Float Picture
    | Rotate Float Picture
    | SetDepth Float Picture
    | Color RGBA Picture
    | Pictures [Picture]
-    | Line [Point2]

 blank :: Picture
 {-# INLINE blank #-}