module Graphics.Image.Interface.Vector (
VU(..), VS(..),
fromUnboxedVector, toUnboxedVector,
fromStorableVector, toStorableVector,
toIx, fromIx
) where
import Data.Vector as V (convert)
import Graphics.Image.Interface
import Graphics.Image.Interface.Vector.Generic
import Graphics.Image.Interface.Vector.Unboxed
import Graphics.Image.Interface.Vector.Storable
instance Exchangable VU VS where
exchange _ (VUImage (VScalar px)) = VSImage (VScalar px)
exchange _ (VUImage (VImage m n v)) = VSImage (VImage m n (V.convert v))
instance Exchangable VS VU where
exchange _ (VSImage (VScalar px)) = VUImage (VScalar px)
exchange _ (VSImage (VImage m n v)) = VUImage (VImage m n (V.convert v))