Add simple high pipes

2021-06-21 16:29:24 +02:00
parent 04ed034a3e
commit c2297cd114
8 changed files with 54 additions and 12 deletions
@@ -80,6 +80,7 @@ data Picture
    | Polygon Int [Point2]
    | BezierQuad Int [(Point2,RGBA,Point2,Point2)]
    | PolygonCol Int [(Point2,RGBA)]
+    | Poly3D Int [(Point3,RGBA)]
    | Circle Int RGBA RGBA Float
    | ThickArc Int Float Float Float Float
    | Line Int [Point2]