anchor.diff:      ((eql ink +background-ink+)
        (setf ink (medium-background medium))))
     (multiple-value-bind (red green blue) (clim:color-rgb ink)
  -    (gfg:make-color :red (truncate (* red 256))
  -		    :green (truncate (* green 256))
  -		    :blue (truncate (* blue 256)))))
  +    (gfg:make-color :red (min (truncate (* red 256)) 255)
  +		    :green (min (truncate (* green 256)) 255)
  +		    :blue (min (truncate (* blue 256)) 255))))
   
   (defun target-of (medium)
     (let ((sheet (medium-sheet medium)))
  
positive.code:     ()))
  
  (defmethod medium-draw-point* ((medium graphic-forms-medium) x y)
    ())
  
  (defmethod medium-draw-points* ((medium graphic-forms-medium) coord-seq)
    ())
  
  (defmethod medium-draw-line* ((medium graphic-forms-medium) x1 y1 x2 y2)
    ())
  
  ;; FIXME: Invert the transformation and apply it here, as the :around
  ;; methods on transform-coordinates-mixin will cause it to be applied
  ;; twice, and we need to undo one of those. The
  ;; transform-coordinates-mixin stuff needs to be eliminated.
  (defmethod medium-draw-lines* ((medium graphic-forms-medium) coord-seq)
    (let ((tr (invert-transformation (medium-transformation medium))))
      (declare (ignore tr))
      nil))
  
  (defmethod medium-draw-polygon* ((medium graphic-forms-medium) coord-seq closed filled)
    #+nil (gfs::debug-format "draw-polygon ~a ~a ~a~%" coord-seq closed filled)
    (when (target-of medium)
      (gfw:with-graphics-context (gc (target-of medium))
        (let ((points-list (coordinates->points coord-seq))
  	    (color (ink-to-color medium (medium-ink medium))))
  	(setf (gfg:background-color gc) color
  	      (gfg:foreground-color gc) color)
          (if filled
            (gfg:draw-filled-polygon gc points-list)
            (gfg:draw-polygon gc points-list))))
      (add-medium-to-render medium)))
  
  (defmethod medium-draw-rectangle* ((medium graphic-forms-medium) left top right bottom filled)
    #+nil (gfs::debug-format "draw-rectangle ~a ~a ~a ~a ~a~%" left top right bottom filled)
    (when (target-of medium)
      (gfw:with-graphics-context (gc (target-of medium))
        (let ((rect (coordinates->rectangle left top right bottom))
  	    (color (ink-to-color medium (medium-ink medium))))
  	(setf (gfg:background-color gc) color
  	      (gfg:foreground-color gc) color)
          (if filled
            (gfg:draw-filled-rectangle gc rect)
            (gfg:draw-rectangle gc rect))))
      (add-medium-to-render medium)))
  
  (defmethod medium-draw-rectangles* ((medium graphic-forms-medium) position-seq filled)
    ())
  
  (defmethod medium-draw-ellipse* ((medium graphic-forms-medium) center-x center-y
  				 radius-1-dx radius-1-dy
  				 radius-2-dx radius-2-dy
  				 start-angle end-angle filled)
    ())
  
  (defmethod medium-draw-circle* ((medium graphic-forms-medium)
  				center-x center-y radius start-angle end-angle
  				filled)
    ())
  
  (defmethod text-style-ascent (text-style (medium graphic-forms-medium))
    (let ((font (font-of medium)))
  
negative.code: ;; -*- Mode: Lisp; Package: CLIM-GRAPHIC-FORMS -*-
  
  ;;; (c) 2006 Jack D. Unrue (jdunrue (at) gmail (dot) com)
  ;;; based on the null backend by:
  