mirror of
https://github.com/Haskell-Things/ImplicitCAD.git
synced 2024-09-11 04:55:41 +03:00
remove dead code.
This commit is contained in:
parent
1b8babdfa3
commit
b4d2618b2f
@ -1,33 +0,0 @@
|
||||
-- Implicit CAD. Copyright (C) 2011, Christopher Olah (chris@colah.ca)
|
||||
-- Copyright (C) 2016, Julia Longtin (julial@turinglace.com)
|
||||
-- Released under the GNU AGPLV3+, see LICENSE
|
||||
|
||||
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||
{-# LANGUAGE FlexibleInstances #-}
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE TypeSynonymInstances #-}
|
||||
{-# LANGUAGE UndecidableInstances #-}
|
||||
|
||||
module Graphics.Implicit.Export.Symbolic.CoerceSymbolic2 (coerceSymbolic2) where
|
||||
|
||||
import Graphics.Implicit.Definitions
|
||||
import Graphics.Implicit.Export.DiscreteAproxable
|
||||
|
||||
import Graphics.Implicit.Operations
|
||||
import Graphics.Implicit.Primitives
|
||||
|
||||
coerceSymbolic2 :: SymbolicObj2 -> BoxedObj2
|
||||
coerceSymbolic2 (EmbedBoxedObj2 boxedObj) = boxedObj
|
||||
coerceSymbolic2 (RectR r a b) = rectR r a b
|
||||
coerceSymbolic2 (Circle r ) = circle r
|
||||
coerceSymbolic2 (PolygonR r points) = polygonR r points
|
||||
coerceSymbolic2 (UnionR2 r objs) = unionR r (fmap coerceSymbolic2 objs)
|
||||
coerceSymbolic2 (IntersectR2 r objs) = intersectR r (fmap coerceSymbolic2 objs)
|
||||
coerceSymbolic2 (DifferenceR2 r objs) = differenceR r (fmap coerceSymbolic2 objs)
|
||||
coerceSymbolic2 (Complement2 obj) = complement $ coerceSymbolic2 obj
|
||||
coerceSymbolic2 (Shell2 w obj) = shell w $ coerceSymbolic2 obj
|
||||
coerceSymbolic2 (Translate2 v obj) = translate v $ coerceSymbolic2 obj
|
||||
coerceSymbolic2 (Scale2 s obj) = scale s $ coerceSymbolic2 obj
|
||||
coerceSymbolic2 (Rotate2 a obj) = rotateXY a $ coerceSymbolic2 obj
|
||||
coerceSymbolic2 (Outset2 d obj) = outset 2 $ coerceSymbolic2 obj
|
||||
|
@ -1,39 +0,0 @@
|
||||
-- Implicit CAD. Copyright (C) 2011, Christopher Olah (chris@colah.ca)
|
||||
-- Copyright (C) 2016, Julia Longtin (julial@turinglace.com)
|
||||
-- Released under the GNU AGPLV3+, see LICENSE
|
||||
|
||||
{-# LANGUAGE MultiParamTypeClasses#-}
|
||||
{-# LANGUAGE FlexibleInstances#-}
|
||||
{-# LANGUAGE FlexibleContexts#-}
|
||||
{-# LANGUAGE TypeSynonymInstances#-}
|
||||
{-# LANGUAGE UndecidableInstances #-}
|
||||
|
||||
-- We just want to export the instance...
|
||||
module Graphics.Implicit.Export.Symbolic.CoerceSymbolic3 (coerceSymbolic3) where
|
||||
|
||||
import Graphics.Implicit.Definitions
|
||||
import Graphics.Implicit.Export.DiscreteAproxable
|
||||
|
||||
import Graphics.Implicit.Operations
|
||||
import Graphics.Implicit.Primitives
|
||||
|
||||
import Graphics.Implicit.Export.Symbolic.CoerceSymbolic2
|
||||
|
||||
coerceSymbolic3 :: SymbolicObj3 -> BoxedObj3
|
||||
coerceSymbolic3 (EmbedBoxedObj3 boxedObj) = boxedObj
|
||||
coerceSymbolic3 (Rect3R r a b) = rect3R r a b
|
||||
coerceSymbolic3 (Sphere r ) = sphere r
|
||||
coerceSymbolic3 (UnionR3 r objs) = unionR r (fmap coerceSymbolic3 objs)
|
||||
coerceSymbolic3 (IntersectR3 r objs) = intersectR r (fmap coerceSymbolic3 objs)
|
||||
coerceSymbolic3 (DifferenceR3 r objs) = differenceR r (fmap coerceSymbolic3 objs)
|
||||
coerceSymbolic3 (Complement3 obj) = complement $ coerceSymbolic3 obj
|
||||
coerceSymbolic3 (Shell3 w obj) = shell w $ coerceSymbolic3 obj
|
||||
coerceSymbolic3 (Translate3 v obj) = translate v $ coerceSymbolic3 obj
|
||||
coerceSymbolic3 (Scale3 s obj) = scale s $ coerceSymbolic3 obj
|
||||
coerceSymbolic3 (Outset3 d obj) = outset d $ coerceSymbolic3 obj
|
||||
coerceSymbolic3 (Rotate3 rot obj) = rotate3 rot $ coerceSymbolic3 obj
|
||||
coerceSymbolic3 (Rotate3V rot axis obj) = rotate3v rot axis $ coerceSymbolic3 obj
|
||||
coerceSymbolic3 (ExtrudeR r obj h) = extrudeR r (coerceSymbolic2 obj) h
|
||||
coerceSymbolic3 (ExtrudeRMod r mod obj h) = extrudeRMod r mod (coerceSymbolic2 obj) h
|
||||
coerceSymbolic3 (ExtrudeOnEdgeOf obj1 obj2) = extrudeOnEdgeOf (coerceSymbolic2 obj1) (coerceSymbolic2 obj2)
|
||||
|
Loading…
Reference in New Issue
Block a user