Permalink
Browse files

Added ORIGIN cenum and IMAGE-ORIGIN convenience function.

  • Loading branch information...
1 parent 6cbc97b commit 9bd437cfc58bb22318608e8a00ea4260f822fb38 @jtza8 jtza8 committed with Josh Marchán Feb 25, 2011
Showing with 12 additions and 0 deletions.
  1. +7 −0 il.lisp
  2. +1 −0 package.lisp
  3. +4 −0 utilities.lisp
View
@@ -150,6 +150,13 @@
(:image-origin #x0DFE)
(:image-channels #x0DFF))
+(defcenum origin
+ (:origin-set #x0600)
+ (:origin-lower-left #x0601)
+ (:origin-upper-left #x0602)
+ (:origin-mode #x0603))
+
+
(define-foreign-type pathname-string-type ()
()
(:actual-type :string)
View
@@ -26,6 +26,7 @@
#:image-type
#:image-bytes-per-pixel
#:image-bits-per-pixel
+ #:image-origin
#:copy-palette
#:clear-image
;; bindings
View
@@ -68,6 +68,10 @@
(with-bound-image id
(get-integer :image-bits-per-pixel)))
+(defun image-origin (&optional (id :current-image))
+ (with-bound-image id
+ (foreign-enum-keyword 'origin (get-integer :image-origin))))
+
(defmacro define-deprecated-image-fun (deprecated new)
`(progn (declaim (inline ,deprecated))
(defun ,deprecated (id)

0 comments on commit 9bd437c

Please sign in to comment.