{-# LINE 1 "./GI/Cairo/Render/Internal/Surfaces/PS.chs" #-}
{-# LANGUAGE CPP #-}
module GI.Cairo.Render.Internal.Surfaces.PS where
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import GI.Cairo.Render.Types
{-# LINE 19 "./GI/Cairo/Render/Internal/Surfaces/PS.chs" #-}
import Foreign
import Foreign.C
{-# LINE 24 "./GI/Cairo/Render/Internal/Surfaces/PS.chs" #-}
psSurfaceCreate :: (FilePath) -> (Double) -> (Double) -> IO ((Surface))
psSurfaceCreate a1 a2 a3 =
withCAString a1 $ \a1' ->
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
psSurfaceCreate'_ a1' a2' a3' >>= \res ->
mkSurface res >>= \res' ->
return (res')
{-# LINE 28 "./GI/Cairo/Render/Internal/Surfaces/PS.chs" #-}
psSurfaceSetSize :: (Surface) -> (Double) -> (Double) -> IO ()
psSurfaceSetSize a1 a2 a3 =
withSurface a1 $ \a1' ->
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
psSurfaceSetSize'_ a1' a2' a3' >>
return ()
{-# LINE 32 "./GI/Cairo/Render/Internal/Surfaces/PS.chs" #-}
foreign import ccall safe "GI/Cairo/Render/Internal/Surfaces/PS.chs.h cairo_ps_surface_create"
psSurfaceCreate'_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO (SurfacePtr)))))
foreign import ccall safe "GI/Cairo/Render/Internal/Surfaces/PS.chs.h cairo_ps_surface_set_size"
psSurfaceSetSize'_ :: ((SurfacePtr) -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ()))))