Implement poking using Verx lists

src/Picture/Data.hs

@@ -1,13 +1,13 @@
 {-# LANGUAGE TemplateHaskell #-}
 --{-# LANGUAGE Strict #-}
-{-# LANGUAGE DeriveGeneric #-}
 module Picture.Data
     where
 import Geometry.Data
 
-import GHC.Generics (Generic)
-import Control.DeepSeq
-import Data.Foldable
+import Control.Lens
+--import GHC.Generics (Generic)
+--import Control.DeepSeq
+--import Data.Foldable
 --import qualified Data.List as L
 --import Data.Monoid
 --import Data.Traversable
@@ -15,7 +15,6 @@ import Data.Foldable
 --import qualified Data.Sequence as Se
 --import qualified Data.DList as DL
 --import qualified Data.Vector as V
-import Control.Lens
 --import Control.Monad 
 
 data Verx = Verx
@@ -32,10 +31,9 @@ data VertexType
     | ArcV      !Point3
     | EllV
 
-type RGBA = Point4
+type RGBA  = Point4
 type Color = Point4
 
-
 flat2 :: V2 a -> [a]
 flat2 (V2 x y) = [x,y]
 flat3 :: V3 a -> [a]
@@ -57,8 +55,4 @@ tflat4 (x,y,z,w) = [x,y,z,w]
 
 type Picture = [Verx]
 
-blank :: Picture
-{-# INLINE blank #-}
-blank = []
-
 makeLenses ''Verx