plutovg/canvas

(canvas-create [s :int] :ptr<void>)

allocate a drawing context that writes into surface s.

(let [r (canvas-create s)]
    (if (ok? r) (let [c (ok-val r)] ...) (println "create failed")))

Since: PV0

(canvas-destroy [c :int] :void)

release a canvas allocated by canvas-create.

(canvas-destroy c)

Since: PV0

(canvas-set-source-color [c :int r :float g :float b :float a :float] :void)

set the current paint to a solid RGBA color.

(canvas-set-source-color c 1.0 0.0 0.0 1.0)  ; opaque red

Since: PV0

(canvas-fill-rect [c :int x :float y :float w :float h :float] :void)

fill an axis-aligned rectangle with the current paint.

(canvas-fill-rect c 10.0 10.0 100.0 50.0)

Since: PV0

(canvas-move-to [c :int x :float y :float] :void)

start a new subpath at (x, y).

(canvas-move-to c 10.0 10.0)

Since: PV1

(canvas-line-to [c :int x :float y :float] :void)

append a straight line from the current point to (x, y).

(canvas-line-to c 100.0 10.0)

Since: PV1

(canvas-quad-to [c :int x1 :float y1 :float x :float y :float] :void)

append a quadratic Bezier from the current point to (x, y) via control (x1, y1).

(canvas-quad-to c 50.0 0.0 100.0 50.0)

Since: PV1

(canvas-cubic-to [c :int x1 :float y1 :float x2 :float y2 :float x :float y :float] :void)

append a cubic Bezier from the current point.

(canvas-cubic-to c 25.0 0.0 75.0 0.0 100.0 50.0)

Since: PV1

(canvas-close-path [c :int] :void)

close the current subpath with a straight line to its origin.

(canvas-close-path c)

Since: PV1

(canvas-rect [c :int x :float y :float w :float h :float] :void)

append an axis-aligned rectangle subpath to the current path.

(canvas-rect c 0.0 0.0 100.0 50.0)

Since: PV1

(canvas-ellipse [c :int cx :float cy :float rx :float ry :float] :void)

append an axis-aligned ellipse subpath.

(canvas-ellipse c 50.0 50.0 30.0 20.0)

Since: PV1

(canvas-circle [c :int cx :float cy :float r :float] :void)

append a circle subpath (convenience for canvas-ellipse with rx == ry).

(canvas-circle c 50.0 50.0 25.0)

Since: PV1

(canvas-fill [c :int] :void)

fill the current path with the current paint, then clear the path.

(canvas-rect c 0.0 0.0 100.0 50.0)
  (canvas-fill c)

Since: PV1

(canvas-stroke [c :int] :void)

stroke the current path with the current paint, then clear the path.

(canvas-rect c 0.0 0.0 100.0 50.0)
  (canvas-stroke c)

Since: PV1

(canvas-clip [c :int] :void)

intersect the clip region with the current path, then clear the path.

(canvas-circle c 50.0 50.0 25.0)
  (canvas-clip c)

Since: PV1

(canvas-add-path [c :int path :int] :void)

append a pre-built path to the canvas's current path.

(canvas-add-path c my-path)

Since: PV2

(canvas-fill-path [c :int path :int] :void)

fill a pre-built path without disturbing the

Since: PV2

(canvas-stroke-path [c :int path :int] :void)

stroke a pre-built path without disturbing the

Since: PV2

(canvas-save [c :int] :void)

push the current drawing state (transform, paint, stroke

Since: PV4

(canvas-restore [c :int] :void)

pop the most recently saved drawing state.

Since: PV4

(canvas-translate [c :int tx :float ty :float] :void)

prepend a translation to the current transform.

Since: PV4

(canvas-scale [c :int sx :float sy :float] :void)

prepend a scale to the current transform.

Since: PV4

(canvas-rotate [c :int radians :float] :void)

prepend a rotation (in radians) to the current transform.

Since: PV4

(canvas-transform [c :int a :float b :float cc :float d :float e :float f :float] :void)

multiply the current transform by a raw 2D matrix.

Since: PV4

(canvas-reset-transform [c :int] :void)

reset the current transform to the identity.

Since: PV4

(canvas-set-line-width [c :int w :float] :void)

set the stroke width in surface units.

Since: PV4

(canvas-set-line-cap [c :int cap :cstr] :void)

set the stroke end-cap style.

Since: PV4

(canvas-set-line-join [c :int join :cstr] :void)

set the stroke join style.

Since: PV4

(canvas-set-miter-limit [c :int limit :float] :void)

set the miter-limit ratio for ":miter" joins.

Since: PV4

(dash-array-create :ptr<void>)

allocate an empty dash-length buffer.

Since: PV4

(dash-array-add [dashes :int length :float] :void)

append a dash-segment length.

Since: PV4

(dash-array-count [dashes :int] :int)

return the number of dash lengths added.

Since: PV4

(dash-array-destroy [dashes :int] :void)

release a dash-array buffer.

Since: PV4

(canvas-set-dash-offset [c :int offset :float] :void)

set the phase offset into the dash pattern.

Since: PV4

(canvas-set-dash-array [c :int dashes :int] :void)

set the dash pattern to the lengths in a

Since: PV4

(canvas-set-fill-rule [c :int rule :cstr] :void)

set the polygon fill rule for canvas-fill.

Since: PV4

(canvas-set-operator [c :int op :cstr] :void)

set the Porter-Duff compositing operator.

Since: PV4

(canvas-set-opacity [c :int alpha :float] :void)

set the global opacity multiplier in [0.0, 1.0].

Since: PV4

(canvas-arc [c :int cx :float cy :float r :float start-angle :float sweep-angle :float] :void)

append a circular arc subpath centered at (cx, cy).

Since: PV6

(canvas-arc-to [c :int rx :float ry :float rotation :float large-arc? :bool sweep? :bool x :float y :float] :void)

append an SVG-style elliptical arc to (x, y).

Since: PV6

(canvas-round-rect [c :int x :float y :float w :float h :float rx :float ry :float] :void)

append a rounded-corner rectangle subpath.

Since: PV6

(canvas-draw-image [c :int src :int x :float y :float w :float h :float] :void)

composite the pixels of `src` onto the canvas,

Since: PV6