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

Diff of /mcclim/medium.lisp

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

revision 1.44 by brian, Wed Sep 11 08:00:20 2002 UTC revision 1.45 by moore, Tue Sep 24 01:56:30 2002 UTC
# Line 654  Line 654 
654  (defmethod medium-draw-points* ((medium basic-medium) coord-seq)  (defmethod medium-draw-points* ((medium basic-medium) coord-seq)
655    (let ((tr (invert-transformation (medium-transformation medium))))    (let ((tr (invert-transformation (medium-transformation medium))))
656      (with-transformed-positions (tr coord-seq)      (with-transformed-positions (tr coord-seq)
657        (map-repeated-sequence nil 2        (do-sequence ((x y) coord-seq)
658                               (lambda (x y)          (medium-draw-point* medium x y)))))
                                (medium-draw-point* medium x y))  
                              coord-seq))))  
659    
660  (defmethod medium-draw-lines* ((medium basic-medium) position-seq)  (defmethod medium-draw-lines* ((medium basic-medium) position-seq)
661    (let ((tr (invert-transformation (medium-transformation medium))))    (let ((tr (invert-transformation (medium-transformation medium))))
662      (with-transformed-positions (tr position-seq)      (with-transformed-positions (tr position-seq)
663        (map-repeated-sequence nil 4        (do-sequence ((x1 y1 x2 y2) position-seq)
664                               (lambda (x1 y1 x2 y2)          (medium-draw-line* medium x1 y1 x2 y2)))))
                                (medium-draw-line* medium x1 y1 x2 y2))  
                              position-seq))))  
665    
666  (defmethod medium-draw-rectangles* ((medium basic-medium) coord-seq filled)  (defmethod medium-draw-rectangles* ((medium basic-medium) coord-seq filled)
667    (let ((tr (invert-transformation (medium-transformation medium))))    (let ((tr (invert-transformation (medium-transformation medium))))
668      (with-transformed-positions (tr coord-seq)      (with-transformed-positions (tr coord-seq)
669        (map-repeated-sequence nil 4        (do-sequence ((x1 y1 x2 y2) coord-seq)
670                               (lambda (x1 y1 x2 y2)          (medium-draw-rectangle* medium x1 y1 x2 y2 filled)))))
                                (medium-draw-rectangle* medium  
                                                        x1 y1 x2 y2  
                                                        filled))  
                              coord-seq))))  
671    
672    
673  ;;; Other Medium-specific Output Functions  ;;; Other Medium-specific Output Functions

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

  ViewVC Help
Powered by ViewVC 1.1.5