cairo-0.12.1: Graphics/Rendering/Cairo/Internal/Drawing/Cairo.chs
-----------------------------------------------------------------------------
-- |
-- Module : Graphics.Rendering.Cairo.Internal.Drawing.Cairo
-- Copyright : (c) Paolo Martini 2005
-- License : BSD-style (see cairo/COPYRIGHT)
--
-- Maintainer : p.martini@neuralnoise.com
-- Stability : experimental
-- Portability : portable
--
-- The cairo drawing context functions.
-----------------------------------------------------------------------------
module Graphics.Rendering.Cairo.Internal.Drawing.Cairo where
{#import Graphics.Rendering.Cairo.Types#}
import Foreign
import Foreign.C
{#context lib="cairo" prefix="cairo"#}
{#fun create { withSurface* `Surface' } -> `Cairo' Cairo #}
{#fun reference { unCairo `Cairo' } -> `()' #}
{#fun destroy { unCairo `Cairo' } -> `()' #}
{#fun save { unCairo `Cairo' } -> `()' #}
{#fun restore { unCairo `Cairo' } -> `()' #}
{#fun status as status { unCairo `Cairo' } -> `Status' cToEnum#}
{#fun get_target as getTarget { unCairo `Cairo' } -> `Surface' mkSurface*#}
{#fun push_group as ^ { unCairo `Cairo' } -> `()' #}
{#fun push_group_with_content as ^ { unCairo `Cairo', cFromEnum `Content' } -> `()' #}
{#fun pop_group as ^ { unCairo `Cairo' } -> `Pattern' Pattern #}
{#fun pop_group_to_source as ^ { unCairo `Cairo' } -> `()' #}
{#fun set_source_rgb as setSourceRGB { unCairo `Cairo', `Double', `Double', `Double' } -> `()'#}
{#fun set_source_rgba as setSourceRGBA { unCairo `Cairo', `Double', `Double', `Double', `Double' } -> `()'#}
{#fun set_source as setSource { unCairo `Cairo', unPattern `Pattern' } -> `()'#}
{#fun set_source_surface as setSourceSurface { unCairo `Cairo', withSurface* `Surface', `Double', `Double' } -> `()'#}
{#fun get_source as getSource { unCairo `Cairo' } -> `Pattern' Pattern#}
{#fun set_antialias as setAntialias { unCairo `Cairo', cFromEnum `Antialias' } -> `()'#}
{#fun get_antialias as getAntialias { unCairo `Cairo' } -> `Antialias' cToEnum#}
setDash context xs offset = withArrayLen (map (cFloatConv) xs) $ \len ptr ->
{#call set_dash#} context ptr (cIntConv len) (cFloatConv offset)
{#fun set_fill_rule as setFillRule { unCairo `Cairo', cFromEnum `FillRule' } -> `()'#}
{#fun get_fill_rule as getFillRule { unCairo `Cairo' } -> `FillRule' cToEnum#}
{#fun set_line_cap as setLineCap { unCairo `Cairo', cFromEnum `LineCap' } -> `()'#}
{#fun get_line_cap as getLineCap { unCairo `Cairo' } -> `LineCap' cToEnum#}
{#fun set_line_join as setLineJoin { unCairo `Cairo', cFromEnum `LineJoin' } -> `()'#}
{#fun get_line_join as getLineJoin { unCairo `Cairo' } -> `LineJoin' cToEnum#}
{#fun set_line_width as setLineWidth { unCairo `Cairo', `Double' } -> `()'#}
{#fun get_line_width as getLineWidth { unCairo `Cairo' } -> `Double'#}
{#fun set_miter_limit as setMiterLimit { unCairo `Cairo', `Double' } -> `()'#}
{#fun get_miter_limit as getMiterLimit { unCairo `Cairo' } -> `Double'#}
{#fun set_operator as setOperator { unCairo `Cairo', cFromEnum `Operator' } -> `()'#}
{#fun get_operator as getOperator { unCairo `Cairo' } -> `Operator' cToEnum#}
{#fun set_tolerance as setTolerance { unCairo `Cairo', `Double' } -> `()'#}
{#fun get_tolerance as getTolerance { unCairo `Cairo' } -> `Double'#}
{#fun clip as clip { unCairo `Cairo' } -> `()'#}
{#fun clip_preserve as clipPreserve { unCairo `Cairo' } -> `()'#}
{#fun reset_clip as resetClip { unCairo `Cairo' } -> `()'#}
{#fun fill as fill { unCairo `Cairo' } -> `()'#}
{#fun fill_preserve as fillPreserve { unCairo `Cairo' } -> `()'#}
{#fun fill_extents as fillExtents { unCairo `Cairo', alloca- `Double' peekFloatConv*, alloca- `Double' peekFloatConv*, alloca- `Double' peekFloatConv*, alloca- `Double' peekFloatConv* } -> `()'#}
{#fun in_fill as inFill { unCairo `Cairo', `Double', `Double' } -> `Bool' cToBool#}
{#fun mask as mask { unCairo `Cairo', unPattern `Pattern' } -> `()'#}
{#fun mask_surface as maskSurface { unCairo `Cairo', withSurface* `Surface', `Double', `Double' } -> `()'#}
{#fun paint as paint { unCairo `Cairo' } -> `()'#}
{#fun paint_with_alpha as paintWithAlpha { unCairo `Cairo', `Double' } -> `()'#}
{#fun stroke as stroke { unCairo `Cairo' } -> `()'#}
{#fun stroke_preserve as strokePreserve { unCairo `Cairo' } -> `()'#}
{#fun stroke_extents as strokeExtents { unCairo `Cairo', alloca- `Double' peekFloatConv*, alloca- `Double' peekFloatConv*, alloca- `Double' peekFloatConv*, alloca- `Double' peekFloatConv* } -> `()'#}
{#fun in_stroke as inStroke { unCairo `Cairo', `Double', `Double' } -> `Bool' cToBool#}
{#fun copy_page as copyPage { unCairo `Cairo' } -> `()'#}
{#fun show_page as showPage { unCairo `Cairo' } -> `()'#}