Poke word8 colors for shapes

src/Shape/Data.hs

@@ -8,10 +8,12 @@
 
 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 }
@@ -52,11 +54,13 @@ makeLenses ''ShapeType
 
 type Shape = [Surface]
 
-nShapeVerxComp :: Int
-nShapeVerxComp = sum shapeVerxSizes
+shapeVerxSize = sizeOf (0 :: Float) * 8 + 4 * sizeOf (0 :: Word8)
 
-shapeVerxSizes :: [Int]
-shapeVerxSizes = [4,4,4]
+--nShapeVerxComp :: Int
+--nShapeVerxComp = sum shapeVerxSizes
+--
+--shapeVerxSizes :: [Int]
+--shapeVerxSizes = [4,4,4]
 
 deriveJSON defaultOptions ''ShadowFidelity
 deriveJSON defaultOptions ''ShapeType