    {-# LINE 2 "./Graphics/Rendering/Cairo/Internal/Surfaces/SVG.chs" #-}
    -----------------------------------------------------------------------------
    -- |
    -- Module : Graphics.Rendering.Cairo.Internal.Surfaces.SVG
    -- Copyright : (c) Duncan Coutts 2007
    -- License : BSD-style (see doc/COPYRIGHT)
    --
    -- Maintainer : p.martini@neuralnoise.com
    -- Stability : experimental
    -- Portability : portable
    --
    -- Rendering SVG images.
    -----------------------------------------------------------------------------

    module Graphics.Rendering.Cairo.Internal.Surfaces.SVG where

    import Graphics.Rendering.Cairo.Types
    {-# LINE 18 "./Graphics/Rendering/Cairo/Internal/Surfaces/SVG.chs" #-}

    import Foreign
    import Foreign.C

    {-# LINE 23 "./Graphics/Rendering/Cairo/Internal/Surfaces/SVG.chs" #-}

    svgSurfaceCreate :: FilePath -> Double -> Double -> IO (Surface)
    svgSurfaceCreate a1 a2 a3 =
      withCAString a1 $ \a1' ->
      let {a2' = cFloatConv a2} in
      let {a3' = cFloatConv a3} in
      svgSurfaceCreate'_ a1' a2' a3' >>= \res ->
      mkSurface res >>= \res' ->
      return (res')
    {-# LINE 27 "./Graphics/Rendering/Cairo/Internal/Surfaces/SVG.chs" #-}

    foreign import ccall safe "cairo_svg_surface_create"
      svgSurfaceCreate'_ :: ((Ptr CChar) -> (CDouble -> (CDouble -> (IO (Ptr Surface)))))