Remove RenderType datatype

2021-07-30 11:53:51 +02:00
parent c67feb485f
commit 834464db51
31 changed files with 164 additions and 227 deletions
@@ -53,7 +53,7 @@ module Picture
  where
 import Geometry
 import Geometry.Vector3D
-import Geometry.Data
+--import Geometry.Data
 import Picture.Data

 --import Data.List
@@ -65,9 +65,6 @@ import Control.Lens
 black :: RGBA
 black = (V4 0 0 0 1)

--zl :: RenderType -> [(Int,RenderType)]
--zl rt = [(0,rt)]
-
 polygon :: [Point2] -> Picture
 {-# INLINE polygon #-}
 polygon ps = map (f . zeroZ) $ polyToTris ps