chiark
/
gitweb
/
~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added functions to copy paths
[clg]
/
cairo
/
cairo.lisp
diff --git
a/cairo/cairo.lisp
b/cairo/cairo.lisp
index f81c895e23ba66906076fd1626a51bd5467ae625..82b310798ca44f1b5d6f77bf3a5cb507f8a04029 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)