anchor.diff:  ;;; Fall-through Methods For Multiple Objects Drawing Functions
   
   (defmethod medium-draw-points* ((medium basic-medium) coord-seq)
  +  ;; WRONG! 
     (let ((tr (invert-transformation (medium-transformation medium))))
       (with-transformed-positions (tr coord-seq)
         (loop for (x y) on coord-seq by #'cddr
               do (medium-draw-point* medium x y)))))
   
   (defmethod medium-draw-lines* ((medium basic-medium) position-seq)
  +  ;; WRONG! 
     (let ((tr (invert-transformation (medium-transformation medium))))
       (with-transformed-positions (tr position-seq)
         (loop for (x1 y1 x2 y2) on position-seq by #'cddddr
               do (medium-draw-line* medium x1 y1 x2 y2)))))
   
   (defmethod medium-draw-rectangles* ((medium basic-medium) coord-seq filled)
  +  ;; WRONG! 
     (let ((tr (invert-transformation (medium-transformation medium))))
       (with-transformed-positions (tr coord-seq)
         (loop for (x1 y1 x2 y2) on coord-seq by #'cddddr
  
positive.code: 			     :text-size size)))))
  ) ; end eval-when
  
  (defconstant *default-text-style* (make-text-style :fix :roman :normal))
  
  (defconstant *smaller-sizes* '(:huge :very-large :large :normal
  			       :small :very-small :tiny :tiny))
  
  (defun find-smaller-size (size)
    (if (numberp size)
        (max (round (* size 0.75)) 6)
      (cadr (member size *smaller-sizes*))))
  
  (defconstant *larger-sizes* '(:tiny :very-small :small :normal
  
negative.code: ;;; Line-Style class
  
  (defclass line-style ()
    ())
  
  (defclass standard-line-style (line-style)
    ((unit        :initarg :line-unit
  	        :initform :normal
  	        :reader line-style-unit
                  :type (member :normal :point :coordinate))
     (thickness   :initarg :line-thickness
  	        :initform 1
  	        :reader line-style-thickness
                  :type real)
     (joint-shape :initarg :line-joint-shape
  		:initform :miter
  		:reader line-style-joint-shape
                  :type (member :miter :bevel :round :none))
     (cap-shape   :initarg :line-cap-shape
  	        :initform :butt
  	        :reader line-style-cap-shape
                  :type (member :butt :squere :round :no-end-point))
     (dashes      :initarg :line-dashes
  	        :initform nil
  	        :reader line-style-dashes
                  :type (or (member t nil)
                            sequence)) ))
  
  (defmethod line-style-p ((x line-style))
    (declare (ignorable x))
    t)
  
  (defmethod line-style-p ((x t))
    (declare (ignorable x))
    nil)
  
  (defun make-line-style (&key (unit :normal) (thickness 1)
  			     (joint-shape :miter) (cap-shape :butt)
  