Ticket #1848: 0003-cairo-Expose-cairo_matrix_t-accessors.patch

cairo/0.1.18/cairo.scm

@@ -283 +283 @@
   (set! make-cairo-matrix-type
     (lambda () (maker (make-blob sizeof-cairo-matrix)))))
 
+(define-record-printer (cairo-matrix-type m out)
+  (for-each (lambda (x) (display x out))
+                    (list "#<cairo-matrix "
+                          (cairo-matrix-xx m)" "
+                          (cairo-matrix-yx m)" "
+                          (cairo-matrix-xy m)" "
+                          (cairo-matrix-yy m)" "
+                          (cairo-matrix-x0 m)" "
+                          (cairo-matrix-y0 m)">")))
+
 (define-foreign-type cairo_matrix_t scheme-pointer cairo-matrix-type-buffer)
 
 (define (cairo-transform/matrix ctx v)
@@ -298 +308 @@
                        (f64vector-ref v 5))
     (cairo-transform ctx matrix)))
 
+(define cairo-matrix-xx (foreign-lambda* double ((cairo_matrix_t m)) "C_return(((cairo_matrix_t *)m)->xx);"))
+(define cairo-matrix-yx (foreign-lambda* double ((cairo_matrix_t m)) "C_return(((cairo_matrix_t *)m)->yx);"))
+(define cairo-matrix-xy (foreign-lambda* double ((cairo_matrix_t m)) "C_return(((cairo_matrix_t *)m)->xy);"))
+(define cairo-matrix-yy (foreign-lambda* double ((cairo_matrix_t m)) "C_return(((cairo_matrix_t *)m)->yy);"))
+(define cairo-matrix-x0 (foreign-lambda* double ((cairo_matrix_t m)) "C_return(((cairo_matrix_t *)m)->x0);"))
+(define cairo-matrix-y0 (foreign-lambda* double ((cairo_matrix_t m)) "C_return(((cairo_matrix_t *)m)->y0);"))
+
+(define cairo-matrix-xx-set! (foreign-lambda* void ((cairo_matrix_t m) (double v)) "((cairo_matrix_t *)m)->xx = v;"))
+(define cairo-matrix-yx-set! (foreign-lambda* void ((cairo_matrix_t m) (double v)) "((cairo_matrix_t *)m)->yx = v;"))
+(define cairo-matrix-xy-set! (foreign-lambda* void ((cairo_matrix_t m) (double v)) "((cairo_matrix_t *)m)->xy = v;"))
+(define cairo-matrix-yy-set! (foreign-lambda* void ((cairo_matrix_t m) (double v)) "((cairo_matrix_t *)m)->yy = v;"))
+(define cairo-matrix-x0-set! (foreign-lambda* void ((cairo_matrix_t m) (double v)) "((cairo_matrix_t *)m)->x0 = v;"))
+(define cairo-matrix-y0-set! (foreign-lambda* void ((cairo_matrix_t m) (double v)) "((cairo_matrix_t *)m)->y0 = v;"))
 
 ; accessors for each element might be nice, but probably not
 ; immediately necessary