Add shading for shapes and the floor

2023-03-15 18:24:09 +00:00
parent 21f87b96d8
commit 989140d46e
16 changed files with 158 additions and 69 deletions
@@ -44,12 +44,11 @@ pairToSV = uncurry ShapeV
 makeLenses ''ShapeV
 makeLenses ''ShapeObj
 makeLenses ''ShapeType
--type Shape' = Stream (Of ShapeObj) IO ()

 type Shape = [ShapeObj]

 nShapeVerxComp :: Int
-nShapeVerxComp = 8
+nShapeVerxComp = 12

 deriveJSON defaultOptions ''ShapeType
 deriveJSON defaultOptions ''ShapeV