Move shape parameters into separate file

src/Shape/Data.hs

@@ -8,12 +8,10 @@
 
 module Shape.Data where
 
-import Foreign.Storable
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
-import Data.Word
 
 data ShapeType 
     = FlatFaces { _topBoxSize :: Int }
@@ -54,7 +52,6 @@ makeLenses ''ShapeType
 
 type Shape = [Surface]
 
-shapeVerxSize = sizeOf (0 :: Float) * 8 + 4 * sizeOf (0 :: Word8)
 
 --nShapeVerxComp :: Int
 --nShapeVerxComp = sum shapeVerxSizes