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

Diff of /mcclim/medium.lisp

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

revision 1.29 by brian, Sun Apr 21 12:41:14 2002 UTC revision 1.30 by gilbert, Sun Apr 28 06:19:26 2002 UTC
# Line 565  Line 565 
565                                          radius-x 0                                          radius-x 0
566                                          0 radius-y))                                          0 radius-y))
567           (transformed-ellipse (transform-region (medium-transformation medium)           (transformed-ellipse (transform-region (medium-transformation medium)
568                                                  ellipse))                                                  ellipse)))
          (start-angle (ellipse-start-angle transformed-ellipse))  
          (end-angle (ellipse-end-angle transformed-ellipse)))  
569      (multiple-value-bind (center-x center-y) (ellipse-center-point* transformed-ellipse)      (multiple-value-bind (center-x center-y) (ellipse-center-point* transformed-ellipse)
570        (call-next-method medium center-x center-y radius-x radius-y filled))))        (call-next-method medium center-x center-y radius-x radius-y filled))))
571    
572  (defmethod medium-draw-circle* :around ((medium basic-medium) center-x center-y  (defmethod medium-draw-circle* :around ((medium basic-medium) center-x center-y
573                                           radius start-angle end-angle fill)                                           radius start-angle end-angle filled)
574    (let* ((ellipse (make-elliptical-arc* center-x center-y    (let* ((ellipse (make-elliptical-arc* center-x center-y
575                                          radius 0                                          radius 0
576                                          0 radius                                          0 radius
# Line 663  Line 661 
661  ;;;;;;;;;  ;;;;;;;;;
662    
663  (defmethod engraft-medium ((medium basic-medium) port sheet)  (defmethod engraft-medium ((medium basic-medium) port sheet)
664      (declare (ignore port))
665    (setf (%medium-sheet medium) sheet)    (setf (%medium-sheet medium) sheet)
666    #||    #||
667    (medium-foreground medium) (medium-foreground sheet)    (medium-foreground medium) (medium-foreground sheet)
# Line 676  Line 675 
675    )    )
676    
677  (defmethod degraft-medium ((medium basic-medium) port sheet)  (defmethod degraft-medium ((medium basic-medium) port sheet)
678      (declare (ignore port sheet))
679    (setf (%medium-sheet medium) nil))    (setf (%medium-sheet medium) nil))
680    
681  (defmethod allocate-medium ((port port) sheet)  (defmethod allocate-medium ((port port) sheet)

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

  ViewVC Help
Powered by ViewVC 1.1.5