{-# LANGUAGE StrictData #-}
--{-# LANGUAGE TemplateHaskell #-}
module ShapePicture.Data
    where
import Shape
import Picture
--import Control.Lens

type SPic =  (Shape, Picture)

_spShape :: SPic -> Shape
_spShape = fst
_spPicture :: SPic -> Picture
_spPicture = snd
