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

Diff of /mcclim/recording.lisp

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

revision 1.91 by moore, Wed Oct 1 21:35:27 2003 UTC revision 1.92 by hefner1, Tue Oct 7 17:12:14 2003 UTC
# Line 1186  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    (let ((transformed-coord-seq (transform-positions coord-seq))    (let ((transformed-coord-seq (transform-positions (medium-transformation medium) coord-seq))
1190          (border (graphics-state-line-style-border graphic medium)))          (border (graphics-state-line-style-border graphic medium)))
1191      (setf (slot-value graphic 'coord-seq) transformed-coord-seq)      (setf (slot-value graphic 'coord-seq) transformed-coord-seq)
1192      (coord-seq-bounds transformed-coord-seq border)))      (coord-seq-bounds transformed-coord-seq border)))
# 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 ((transformed-coord-seq (transform-positions coord-seq))    (let ((transformed-coord-seq (transform-positions (medium-transformation medium) coord-seq))
1236          (border (graphics-state-line-style-border graphic medium)))          (border (graphics-state-line-style-border graphic medium)))
1237      (setf coord-seq transformed-coord-seq)      (setf coord-seq transformed-coord-seq)
1238      (coord-seq-bounds transformed-coord-seq border)))      (coord-seq-bounds transformed-coord-seq border)))
# Line 1353  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 ((transformed-coord-seq (transform-positions coord-seq))    (let ((transformed-coord-seq (transform-positions (medium-transformation medium) coord-seq))
1357          (border (graphics-state-line-style-border graphic medium)))          (border (graphics-state-line-style-border graphic medium)))
1358      (setf coord-seq transformed-coord-seq)      (setf coord-seq transformed-coord-seq)
1359      (polygon-record-bounding-rectangle transformed-coord-seq      (polygon-record-bounding-rectangle transformed-coord-seq

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

  ViewVC Help
Powered by ViewVC 1.1.5