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

Diff of /mcclim/medium.lisp

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

revision 1.28 by gilbert, Tue Feb 26 16:12:08 2002 UTC revision 1.29 by brian, Sun Apr 21 12:41:14 2002 UTC
# Line 321  Line 321 
321            :initform nil                 ; this means that medium is not linked to a sheet            :initform nil                 ; this means that medium is not linked to a sheet
322            :reader medium-sheet            :reader medium-sheet
323            :writer (setf %medium-sheet) ))            :writer (setf %medium-sheet) ))
324    (:documentation "The basic class, on which all CLIM mediums are built.") )    (:documentation "The basic class, on which all CLIM mediums are built."))
325    
326  (defclass ungrafted-medium (basic-medium) ())  (defclass ungrafted-medium (basic-medium) ())
327    
# Line 559  Line 559 
559                            radius-2-dx radius-2-dy                            radius-2-dx radius-2-dy
560                            start-angle end-angle filled)))))                            start-angle end-angle filled)))))
561    
562    (defmethod medium-draw-oval* :around ((medium basic-medium) center-x center-y
563                                             radius-x radius-y filled)
564      (let* ((ellipse (make-elliptical-arc* center-x center-y
565                                            radius-x 0
566                                            0 radius-y))
567             (transformed-ellipse (transform-region (medium-transformation medium)
568                                                    ellipse))
569             (start-angle (ellipse-start-angle transformed-ellipse))
570             (end-angle (ellipse-end-angle transformed-ellipse)))
571        (multiple-value-bind (center-x center-y) (ellipse-center-point* transformed-ellipse)
572          (call-next-method medium center-x center-y radius-x radius-y filled))))
573    
574    (defmethod medium-draw-circle* :around ((medium basic-medium) center-x center-y
575                                             radius start-angle end-angle fill)
576      (let* ((ellipse (make-elliptical-arc* center-x center-y
577                                            radius 0
578                                            0 radius
579                                            :start-angle start-angle
580                                            :end-angle end-angle))
581             (transformed-ellipse (transform-region (medium-transformation medium)
582                                                    ellipse))
583             (start-angle (ellipse-start-angle transformed-ellipse))
584             (end-angle (ellipse-end-angle transformed-ellipse)))
585        (multiple-value-bind (center-x center-y) (ellipse-center-point* transformed-ellipse)
586          (call-next-method medium center-x center-y radius start-angle end-angle filled))))
587    
588  (defmethod medium-draw-text* :around ((medium basic-medium) string x y  (defmethod medium-draw-text* :around ((medium basic-medium) string x y
589                                        start end                                        start end
590                                        align-x align-y                                        align-x align-y

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

  ViewVC Help
Powered by ViewVC 1.1.5