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

Diff of /mcclim/recording.lisp

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

revision 1.16 by adejneka, Sun Jul 22 07:52:33 2001 UTC revision 1.17 by adejneka, Tue Jul 24 02:25:18 2001 UTC
# Line 559  recording stream. If it is T, *STANDARD- Line 559  recording stream. If it is T, *STANDARD-
559             finally (return (values min-x min-y max-x max-y)))))             finally (return (values min-x min-y max-x max-y)))))
560    
561  (def-grecording draw-rectangle (left top right bottom filled)  (def-grecording draw-rectangle (left top right bottom filled)
562    (bounding-rectangle* (make-rectangle* left top right bottom)))    ;; FIXME!!! If the rectangle is a line/point, MAKE-RECTANGLE* gives +NOWHERE+,
563      ;; and BOUNDING-RECTANGLE* signals an error.
564      (bounding-rectangle* (transform-region transform
565                                             (make-rectangle* left top right bottom))))
566    
567  (def-grecording draw-ellipse (center-x center-y  (def-grecording draw-ellipse (center-x center-y
568                                radius-1-dx radius-1-dy radius-2-dx radius-2-dy                                radius-1-dx radius-1-dy radius-2-dx radius-2-dy
569                                start-angle end-angle filled)                                start-angle end-angle filled)
570    (bounding-rectangle* (make-ellipse* center-x center-y    (bounding-rectangle* (transform-region transform
571                                        radius-1-dx radius-1-dy radius-2-dx radius-2-dy                                           (make-ellipse* center-x center-y
572                                        :start-angle start-angle                                                          radius-1-dx radius-1-dy radius-2-dx radius-2-dy
573                                        :end-angle end-angle)))                                                          :start-angle start-angle
574                                                            :end-angle end-angle))))
575    
576  (def-grecording draw-text (string point-x point-y start end  (def-grecording draw-text (string point-x point-y start end
577                             align-x align-y toward-x toward-y transform-glyphs)                             align-x align-y toward-x toward-y transform-glyphs)

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5