Define shape datatype

2021-09-14 01:17:07 +01:00
parent 29f048cfdd
commit 294e01479a
18 changed files with 226 additions and 111 deletions
@@ -0,0 +1,9 @@
+module Dodge.Render.Shape
+  where
+import Dodge.Data
+import Shape
+import Geometry
+import Color
+
+worldShape :: World -> Shape
+worldShape _ = colorSh green . translateSh (V3 (-20) 200 50) . flatPoly $ rectNSWE 20 0 0 20