Remove RenderType datatype
This commit is contained in:
+1
-8
@@ -1,7 +1,7 @@
|
||||
module Polyhedra
|
||||
where
|
||||
import Geometry
|
||||
import Geometry.Data
|
||||
--import Geometry.Data
|
||||
import Geometry.Vector3D
|
||||
import Polyhedra.Data
|
||||
import Picture.Data
|
||||
@@ -96,12 +96,5 @@ polysToPic = pictures . concatMap polyToPics
|
||||
polyToEdges :: Polyhedra -> [(Point3,Point3,Point3,Point3)]
|
||||
polyToEdges = constructEdges . map (map fst) . _pyFaces
|
||||
|
||||
-- rendering for silhouette
|
||||
polyToRender :: Polyhedra -> [RenderType]
|
||||
polyToRender = map (Render3 . tflat4) . polyToEdges
|
||||
-- rendering for shape
|
||||
polyToGeoRender :: Polyhedra -> [RenderType]
|
||||
polyToGeoRender = map (Render3 . polyToTris . map fst) . _pyFaces
|
||||
|
||||
polyToGeoRender' :: Polyhedra -> [Point3]
|
||||
polyToGeoRender' = concatMap (polyToTris . map fst) . _pyFaces
|
||||
|
||||
Reference in New Issue
Block a user