anchor.diff:    (tx double-float)
     (ty double-float))
   
  -(defbinding matrix-scale () nil
  +(defbinding matrix-scale (matrix sx &optional (sy sx)) nil
     (matrix matrix :in/return)
     (sx double-float)
     (sy double-float))
  
positive.code:        (funcall stream 
  	(map-c-vector 'vector #'identity data '(unsigned-byte 8) length)))))
    :success)
  
  
  ;; Image Surface
  
negative.code:      (stride
        :allocation :virtual 
        :getter "cairo_image_surface_get_stride"
        :reader surface-stride
        :type int))
      (:metaclass surface-class))
  
  