anchor.diff:  ;;;   Created: 1998-09-29
   ;;;    Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
   ;;;   License: LGPL (See file COPYING for details).
  -;;;       $Id: transforms.lisp,v 1.30 2005-11-22 11:40:02 gbaumann Exp $
  +;;;       $Id: transforms.lisp,v 1.31 2005-12-16 16:42:15 rgoldman Exp $
   ;;; --------------------------------------------------------------------------------------
   ;;;  (c) copyright 1998,1999,2003 by Gilbert Baumann
   ;;;  (c) copyright 2000 by 
  
positive.code:                                     origin-x origin-y  (+ origin-x c) (+ origin-y s)  (- origin-x s) (+ origin-y c)) )))
  
  (defun make-scaling-transformation (scale-x scale-y &optional origin)
    (make-scaling-transformation* scale-x scale-y 
                                  (if origin (point-x origin) 0)
                                  (if origin (point-y origin) 0)))
  
negative.code:                value)))
  
  (defun compose-translation-with-transformation (transformation dx dy)
    (compose-transformations transformation (make-translation-transformation dx dy)))
  
  (defun compose-scaling-with-transformation (transformation sx sy &optional origin)
    (compose-transformations transformation (make-scaling-transformation sx sy origin)))
  
  (defun compose-rotation-with-transformation (transformation angle &optional origin)
    (compose-transformations transformation (make-rotation-transformation angle origin)))
  
  (defun compose-transformation-with-translation (transformation dx dy)
    (compose-transformations (make-translation-transformation dx dy) transformation))
  
  (defun compose-transformation-with-scaling (transformation sx sy &optional origin)
    (compose-transformations (make-scaling-transformation sx sy origin) transformation))
  
  (defun compose-transformation-with-rotation (transformation angle &optional origin)
    (compose-transformations (make-rotation-transformation angle origin) transformation))
  
  (defmacro with-translation ((medium dx dy) &body body)
    `(with-drawing-options (,medium :transformation (make-translation-transformation ,dx ,dy))
  