Image.hs

   1 module Image where
   2
   3 import Data.Complex
   4
   5 data Image = Image {
   6   imgWH :: Complex Double,
   7   imgApply :: Complex Double -> IO ()
   8 }
   9
  10 instance Show Image where
  11   show img = "Image { "++show (imgWH img)++" }"
  12
  13 dummyImage = Image {
  14   imgWH = 0,
  15   imgApply = \x -> return ()
  16 }