implicit-0.0.1: Graphics/Implicit/Primitives/BoxedObj3.hs

-- Implicit CAD. Copyright (C) 2011, Christopher Olah (chris@colah.ca)
-- Released under the GNU GPL, see LICENSE

{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances, FlexibleContexts, TypeSynonymInstances, UndecidableInstances #-}

module Graphics.Implicit.Primitives.BoxedObj3 where

import Graphics.Implicit.Definitions
import Graphics.Implicit.Primitives.Definitions
import Graphics.Implicit.Primitives.Obj3


instance PrimitiveSupporter3 (Boxed3 Obj3) where
	sphere r = (sphere r, ((-r, -r, -r), (r,r,r)) )
	rect3R r a b = (rect3R r a b, ( a, b) )
	cylinder2 r1 r2 h = (cylinder2 r1 r2 h, ( (-r,-r,0), (r,r,h) ) ) where r = max r1 r2