-- | The Face module just contains the definition of the 'Face' data
-- type and its two typeclass instances.
+--
module Face (
Face(..),
- center
- )
+ center )
where
-import Point
+import Point ( Point(..), scale )
data Face = Face { v0 :: !Point,
v1 :: !Point,