/[cl-cairo2]/transformations.lisp
ViewVC logotype

Diff of /transformations.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 6 by tpapp, Thu Jun 21 09:07:42 2007 UTC revision 7 by tpapp, Thu Jul 12 14:01:08 2007 UTC
# Line 138  Line 138 
138    "Define a matrix transformation function with matrix and args,    "Define a matrix transformation function with matrix and args,
139    which returns the new matrix."    which returns the new matrix."
140    `(export    `(export
141      (defun ,(prepend-intern "trans-matrix-init-" name :replace-dash nil) (matrix ,@args)      (defun ,(prepend-intern "trans-matrix-" name :replace-dash nil) (matrix ,@args)
142        (with-trans-matrix-in-out matrix matrix-pointer        (with-trans-matrix-in-out matrix matrix-pointer
143          (,(prepend-intern "cairo_matrix_" name)          (,(prepend-intern "cairo_matrix_" name)
144            matrix-pointer            matrix-pointer
# Line 169  Line 169 
169     (with-trans-matrix-in matrix matrix-pointer     (with-trans-matrix-in matrix matrix-pointer
170       (with-x-y       (with-x-y
171         (cairo_matrix_transform_point matrix-pointer xp yp)))))         (cairo_matrix_transform_point matrix-pointer xp yp)))))
   
   
   

Legend:
Removed from v.6  
changed lines
  Added in v.7

  ViewVC Help
Powered by ViewVC 1.1.5