/[cl-cairo2]/path.lisp
ViewVC logotype

Contents of /path.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 11 - (show annotations)
Mon Aug 13 14:30:44 2007 UTC (6 years, 8 months ago) by tpapp
File size: 723 byte(s)
minor bugfixes, complete reworking of x11 support, support for cl-colors
1 (in-package :cl-cairo2)
2
3 (define-many-with-default-context
4 (new-path)
5 (new-sub-path)
6 (close-path)
7 (arc xc yc radius angle1 angle2)
8 (arc-negative xc yc radius angle1 angle2)
9 (curve-to x1 y1 x2 y2 x3 y3)
10 (line-to x y)
11 (move-to x y)
12 (rectangle x y width height)
13 (rel-move-to dx dy)
14 (rel-curve-to dx1 dy1 dx2 dy2 dx3 dy3)
15 (rel-line-to dx dy)
16 (text-path text))
17
18 (define-flexible (get-current-point pointer)
19 (with-foreign-objects ((xp :double) (yp :double))
20 (cairo_get_current_point pointer xp yp)
21 (values (mem-ref xp :double) (mem-ref yp :double))))
22
23 ;; !!! not done yet: glyph-path
24
25 ;; !!! need to write: path data type iterators, copy-path,
26 ;; !!! copy-path-flat, path-destroy, append-path

  ViewVC Help
Powered by ViewVC 1.1.5