-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./CV/LightBalance.chs" #-}{-#LANGUAGE ForeignFunctionInterface, ViewPatterns#-}
module CV.LightBalance where

import Foreign.C.Types
import Foreign.Ptr

import System.IO.Unsafe
import CV.Image
{-# LINE 9 "./CV/LightBalance.chs" #-}

f::Int -> CInt
f = fromIntegral
x2cylinder (f->w,f->h) m s c = unsafePerformIO $creatingImage (vignettingModelX2Cyl w h 
                            (realToFrac m) (realToFrac s) (realToFrac c))
cos4cylinder   (f->w,f->h) = unsafePerformIO $creatingImage (vignettingModelCos4XCyl w h)
cos4vignetting (f->w,f->h) = unsafePerformIO $creatingImage (vignettingModelCos4 w h)
threeB (f->w,f->h) b1 b2 b3 = unsafePerformIO $ creatingImage (vignettingModelB3 w h b1 b2 b3)
twoPar (f->w,f->h) sx sy m = unsafePerformIO $ creatingImage (vignettingModelP w h sx sy m)


foreign import ccall safe "CV/LightBalance.chs.h vignettingModelX2Cyl"
  vignettingModelX2Cyl :: (CInt -> (CInt -> (CDouble -> (CDouble -> (CDouble -> (IO (Ptr (BareImage))))))))

foreign import ccall safe "CV/LightBalance.chs.h vignettingModelCos4XCyl"
  vignettingModelCos4XCyl :: (CInt -> (CInt -> (IO (Ptr (BareImage)))))

foreign import ccall safe "CV/LightBalance.chs.h vignettingModelCos4"
  vignettingModelCos4 :: (CInt -> (CInt -> (IO (Ptr (BareImage)))))

foreign import ccall safe "CV/LightBalance.chs.h vignettingModelB3"
  vignettingModelB3 :: (CInt -> (CInt -> (CDouble -> (CDouble -> (CDouble -> (IO (Ptr (BareImage))))))))

foreign import ccall safe "CV/LightBalance.chs.h vignettingModelP"
  vignettingModelP :: (CInt -> (CInt -> (CDouble -> (CDouble -> (CDouble -> (IO (Ptr (BareImage))))))))