/[mcclim]/mcclim/medium.lisp
ViewVC logotype

Diff of /mcclim/medium.lisp

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

revision 1.51 by gilbert, Wed May 28 18:50:52 2003 UTC revision 1.52 by hefner1, Mon Mar 8 03:33:36 2004 UTC
# Line 657  Line 657 
657      (with-transformed-positions (tr coord-seq)      (with-transformed-positions (tr coord-seq)
658        (call-next-method medium coord-seq closed filled))))        (call-next-method medium coord-seq closed filled))))
659    
660    (defun expand-rectangle-coords (left top right bottom)
661      "Expand the two corners of a rectangle into a polygon coord-seq"
662      (vector left top right top right bottom left bottom))
663    
664  (defmethod medium-draw-rectangle* :around ((medium transform-coordinates-mixin) left top right bottom filled)  (defmethod medium-draw-rectangle* :around ((medium transform-coordinates-mixin) left top right bottom filled)
665    (let ((tr (medium-transformation medium)))    (let ((tr (medium-transformation medium)))
666      (if (rectilinear-transformation-p tr)      (if (rectilinear-transformation-p tr)
667          (multiple-value-bind (left top right bottom)          (multiple-value-bind (left top right bottom)
668              (transform-rectangle* tr left top right bottom)              (transform-rectangle* tr left top right bottom)
669            (call-next-method medium left top right bottom filled))            (call-next-method medium left top right bottom filled))
670          (medium-draw-polygon* medium (list left top          (medium-draw-polygon* medium (expand-rectangle-coords left top right bottom)
                                            left bottom  
                                            right bottom  
                                            right top)  
671                                t filled))) )                                t filled))) )
672    
673  (defmethod medium-draw-rectangles* :around ((medium transform-coordinates-mixin) position-seq filled)  (defmethod medium-draw-rectangles* :around ((medium transform-coordinates-mixin) position-seq filled)

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

  ViewVC Help
Powered by ViewVC 1.1.5