chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8155d4e
)
Added functions to copy paths
author
espen
<espen>
Fri, 19 Oct 2007 10:12:25 +0000
(10:12 +0000)
committer
espen
<espen>
Fri, 19 Oct 2007 10:12:25 +0000
(10:12 +0000)
cairo/cairo.lisp
patch
|
blob
|
blame
|
history
diff --git
a/cairo/cairo.lisp
b/cairo/cairo.lisp
index 7310818a726ec34c0faeaa54419272d608d5a92e..b743c776a555f397d2086877f8e8ca315e2da1a1 100644
(file)
--- a/
cairo/cairo.lisp
+++ b/
cairo/cairo.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: cairo.lisp,v 1.1
6 2007-10-16 07:48:39
espen Exp $
+;; $Id: cairo.lisp,v 1.1
7 2007-10-19 10:12:25
espen Exp $
(in-package "CAIRO")
(in-package "CAIRO")
@@
-326,11
+326,12
@@
(defclass context (ref-counted-object)
(:unref %destroy))
(:unref %destroy))
-;; (defclass path (proxy)
-;; ()
-;; (:metaclass proxy-class))
-
- )
+ (defclass path (struct)
+ ((status :allocation :alien :type status)
+ (data :allocation :alien :type pointer)
+ (length :allocation :alien :type int))
+ (:metaclass proxy-class)
+ (:unref %path-destroy)))
;;; Cairo context
;;; Cairo context
@@
-453,6
+454,19
@@
(defbinding show-page () nil
;;; Paths
;;; Paths
+(defbinding %path-destroy () nil
+ (location pointer))
+
+(defbinding copy-path () path
+ (cr context))
+
+(defbinding copy-path-flat () path
+ (cr context))
+
+(defbinding append-path () nil
+ (cr context)
+ (path path))
+
(defbinding get-current-point () nil
(cr context)
(x double-float :out)
(defbinding get-current-point () nil
(cr context)
(x double-float :out)