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

Diff of /mcclim/medium.lisp

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

revision 1.32 by mikemac, Mon May 20 20:18:03 2002 UTC revision 1.33 by adejneka, Tue May 28 07:59:14 2002 UTC
# Line 561  Line 561 
561                            radius-2-dx radius-2-dy                            radius-2-dx radius-2-dy
562                            start-angle end-angle filled)))))                            start-angle end-angle filled)))))
563    
 (defmethod medium-draw-oval* :around ((medium basic-medium) center-x center-y  
                                          radius-x radius-y filled)  
   (let* ((ellipse (make-elliptical-arc* center-x center-y  
                                         radius-x 0  
                                         0 radius-y))  
          (transformed-ellipse (transform-region (medium-transformation medium)  
                                                 ellipse)))  
     (multiple-value-bind (center-x center-y) (ellipse-center-point* transformed-ellipse)  
       (call-next-method medium center-x center-y radius-x radius-y filled))))  
   
564  (defmethod medium-draw-circle* :around ((medium basic-medium) center-x center-y  (defmethod medium-draw-circle* :around ((medium basic-medium) center-x center-y
565                                           radius start-angle end-angle filled)                                           radius start-angle end-angle filled)
566    (let* ((ellipse (make-elliptical-arc* center-x center-y    (let* ((ellipse (make-elliptical-arc* center-x center-y

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

  ViewVC Help
Powered by ViewVC 1.1.5