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

Diff of /mcclim/recording.lisp

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

revision 1.90 by hefner1, Fri Sep 12 20:25:14 2003 UTC revision 1.91 by moore, Wed Oct 1 21:35:27 2003 UTC
# Line 1137  were added." Line 1137  were added."
1137                      ;; coord-seq is a coord-vector. So we morph a possible                      ;; coord-seq is a coord-vector. So we morph a possible
1138                      ;; coord-seq argument into a vector.                      ;; coord-seq argument into a vector.
1139                      (let (,@(when (member 'coord-seq args)                      (let (,@(when (member 'coord-seq args)
1140                                    (list `(coord-seq                                    `((coord-seq
1141                                            (transform-positions (medium-transformation medium)                                       (if (vectorp coord-seq)
1142                                                                 (if (vectorp coord-seq)                                           coord-seq
1143                                                                     coord-seq                                           (coerce coord-seq 'vector))))))
                                                                  (coerce coord-seq 'vector)))))))  
1144                        (make-instance ',class-name                        (make-instance ',class-name
1145                                       :stream stream                                       :stream stream
1146                                       ,@arg-list))))                                       ,@arg-list))))
# Line 1187  were added." Line 1186  were added."
1186           (coordinate= (slot-value record 'point-y) point-y))))           (coordinate= (slot-value record 'point-y) point-y))))
1187    
1188  (def-grecording draw-points ((coord-seq-mixin gs-line-style-mixin) coord-seq)  (def-grecording draw-points ((coord-seq-mixin gs-line-style-mixin) coord-seq)
1189    ;; coord-seq has already been transformed    (let ((transformed-coord-seq (transform-positions coord-seq))
1190    (let ((border (graphics-state-line-style-border graphic medium)))          (border (graphics-state-line-style-border graphic medium)))
1191      (coord-seq-bounds coord-seq border)))      (setf (slot-value graphic 'coord-seq) transformed-coord-seq)
1192        (coord-seq-bounds transformed-coord-seq border)))
1193    
1194  (def-grecording draw-line ((gs-line-style-mixin)  (def-grecording draw-line ((gs-line-style-mixin)
1195                             point-x1 point-y1 point-x2 point-y2)                             point-x1 point-y1 point-x2 point-y2)
# Line 1232  were added." Line 1232  were added."
1232           (coordinate= (slot-value record 'point-y2) point-y2))))           (coordinate= (slot-value record 'point-y2) point-y2))))
1233    
1234  (def-grecording draw-lines ((coord-seq-mixin gs-line-style-mixin) coord-seq)  (def-grecording draw-lines ((coord-seq-mixin gs-line-style-mixin) coord-seq)
1235    (let ((border (graphics-state-line-style-border graphic medium)))    (let ((transformed-coord-seq (transform-positions coord-seq))
1236      (coord-seq-bounds coord-seq border)))          (border (graphics-state-line-style-border graphic medium)))
1237        (setf coord-seq transformed-coord-seq)
1238        (coord-seq-bounds transformed-coord-seq border)))
1239    
1240  ;;; (setf output-record-position) and predicates for draw-lines-output-record  ;;; (setf output-record-position) and predicates for draw-lines-output-record
1241  ;;; are taken care of by methods on superclasses.  ;;; are taken care of by methods on superclasses.
# Line 1351  were added." Line 1353  were added."
1353    
1354  (def-grecording draw-polygon ((coord-seq-mixin gs-line-style-mixin)  (def-grecording draw-polygon ((coord-seq-mixin gs-line-style-mixin)
1355                                coord-seq closed filled)                                coord-seq closed filled)
1356    (let ((border (graphics-state-line-style-border graphic medium)))    (let ((transformed-coord-seq (transform-positions coord-seq))
1357      (polygon-record-bounding-rectangle          (border (graphics-state-line-style-border graphic medium)))
1358       coord-seq closed filled line-style border (medium-miter-limit medium))))      (setf coord-seq transformed-coord-seq)
1359        (polygon-record-bounding-rectangle transformed-coord-seq
1360                                           closed filled line-style border
1361                                           (medium-miter-limit medium))))
1362    
1363  (defrecord-predicate draw-polygon-output-record (closed filled)  (defrecord-predicate draw-polygon-output-record (closed filled)
1364    (and (if-supplied (closed)    (and (if-supplied (closed)

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

  ViewVC Help
Powered by ViewVC 1.1.5