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

Contents of /path.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 11 - (hide 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 tpapp 1 (in-package :cl-cairo2)
2    
3     (define-many-with-default-context
4 tpapp 11 (new-path)
5     (new-sub-path)
6 tpapp 1 (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