module CV.LightBalance where
import Foreign.C.Types
import Foreign.Ptr
import System.IO.Unsafe
import CV.Image
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))))))))