import Fran
import BMP
import BMPRead
import MyIO

main = do -- Just (im, (w, h)) <- getImage
          --              "http://guppy.eng.kagawa-u.ac.jp/2010/AdvProg/Samples/lena.bmp"
          -- let image = lerpI (uscale 10 wavDist) yellowI im
          let image = lerpI (uscale 10 wavDist) yellowI blueI
              w = 256; h = 256;
              bmp1 = image2BMP (fromIntegral w/2, fromIntegral h/2) (w, h) image
          name <- writeOctet bmp1 "output/" ".bmp"
          putStrLn ("wrote: output/"++name)