From b4d2618b2fcf1331a306ab3df3dd2c9c9f2d8db9 Mon Sep 17 00:00:00 2001 From: Julia Longtin Date: Sat, 11 Jan 2020 01:19:44 +0000 Subject: [PATCH] remove dead code. --- .../Export/Symbolic/CoerceSymbolic2.hs | 33 ---------------- .../Export/Symbolic/CoerceSymbolic3.hs | 39 ------------------- 2 files changed, 72 deletions(-) delete mode 100644 Graphics/Implicit/Export/Symbolic/CoerceSymbolic2.hs delete mode 100644 Graphics/Implicit/Export/Symbolic/CoerceSymbolic3.hs diff --git a/Graphics/Implicit/Export/Symbolic/CoerceSymbolic2.hs b/Graphics/Implicit/Export/Symbolic/CoerceSymbolic2.hs deleted file mode 100644 index 089ba88..0000000 --- a/Graphics/Implicit/Export/Symbolic/CoerceSymbolic2.hs +++ /dev/null @@ -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 - diff --git a/Graphics/Implicit/Export/Symbolic/CoerceSymbolic3.hs b/Graphics/Implicit/Export/Symbolic/CoerceSymbolic3.hs deleted file mode 100644 index 7ccec97..0000000 --- a/Graphics/Implicit/Export/Symbolic/CoerceSymbolic3.hs +++ /dev/null @@ -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) -