Define shape datatype

src/Picture/Data.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Picture.Data
     where
@@ -27,8 +28,6 @@ textNum     = ShadNum 3
 arcNum      = ShadNum 4
 ellNum      = ShadNum 5
 type Picture = [Verx]
-type RGBA  = Point4
-type Color = Point4
 flat2 :: V2 a -> [a]
 flat2 (V2 x y) = [x,y]
 flat3 :: V3 a -> [a]