Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv5509

Modified Files: graphics.lisp Log Message: Fix draw-arrow* when applied directly to a medium (it assumed a sheet).

--- /project/mcclim/cvsroot/mcclim/graphics.lisp 2007/02/05 02:58:46 1.57 +++ /project/mcclim/cvsroot/mcclim/graphics.lisp 2007/07/19 06:52:51 1.58 @@ -572,14 +572,13 @@ (p end) (q start)

- (medium (sheet-medium sheet)) - (line-style (medium-line-style medium)) + (line-style (medium-line-style sheet)) ;; FIXME: I believe this thickness is in "line-style-units", ;; which are only coincidentally the same as pixel coorindates ;; on screen backends, using :normal units. There is no function ;; documented for converting the units to stream coordinates. (thickness (multiple-value-bind (dx dy) - (transform-distance (invert-transformation (medium-transformation medium)) + (transform-distance (invert-transformation (medium-transformation sheet)) (line-style-thickness line-style) 0) (sqrt (+ (* dx dx) (* dy dy)))))