;; 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.17 2007-10-19 10:12:25 espen Exp $
+;; $Id: cairo.lisp,v 1.21 2008-01-10 13:32:34 espen Exp $
(in-package "CAIRO")
:accessor matrix-y0 :type double-float))
(:metaclass struct-class))
+ (defclass font-extents (struct)
+ ((ascent :allocation :alien :reader font-extents-ascent :type double-float)
+ (descent :allocation :alien :reader font-extents-descent :type double-float)
+ (height :allocation :alien :reader font-extents-height :type double-float)
+ (max-x-advance :allocation :alien :reader font-extents-max-x-advance :type double-float)
+ (max-y-advance :allocation :alien :reader font-extents-max-y-advance :type double-float))
+ (:metaclass struct-class))
(defclass text-extents (struct)
((x-bearing :allocation :alien :reader text-extents-x-bearing :type double-float)
:type double-float)
(font-matrix
:allocation :virtual
- :getter "cairo_get_font_matrix"
+ :getter font-matrix
:setter "cairo_set_font_matrix"
- :accessor font-matrix
+ :writer (setf font-matrix)
:type matrix)
(font-options
:allocation :virtual
- :getter "cairo_get_font_options"
+ :getter font-options
:setter "cairo_set_font_options"
- :accessor font-options
+ :writer (setf font-options)
:type font-options)
(font-face
:allocation :virtual
:setter "cairo_set_font_face"
:accessor font-face
:type font-face)
+ #?(pkg-exists-p "cairo" :atleast-version "1.4")
+ (scaled-font
+ :allocation :virtual
+ :getter "cairo_get_scaled_font"
+ :setter "cairo_set_scaled_font"
+ :accessor scaled-font
+ :type scaled-font)
(operator
:allocation :virtual
:getter "cairo_get_operator"
(cr context)
(size double-float))
+(defbinding (font-matrix "cairo_get_font_matrix") () nil
+ (cr context)
+ ((make-instance 'matrix) matrix :in/return))
+
+(defbinding (font-options "cairo_get_font_options") () nil
+ (cr context)
+ ((make-instance 'font-options) font-options :in/return))
+
(defbinding show-text () nil
(cr context)
(text string))
(defbinding show-glyphs () nil
(cr context)
- (glyphs (vector glyph))
+ (glyphs (vector (inlined glyph)))
((length glyphs) int))
-(defbinding font-extents () boolean
- (cr context))
+(defbinding font-extents (cr &optional (extents (make-instance 'font-extents))) nil
+ (cr context)
+ (extents font-extents :in/return))
(defbinding text-extents (cr text &optional (extents (make-instance 'text-extents))) nil
(cr context)
(matrix matrix)
(x double-float :in/out)
(y double-float :in/out))
+
+
+;; Version information
+
+(defbinding %version () int)
+
+(defun version ()
+ (let ((version (%version)))
+ (values
+ (mod (truncate version 10000) 100)
+ (mod (truncate version 100) 100)
+ (mod version 100))))
+
+(defbinding version-string () (static string))