Re: Minor bounding box problem

• To: Scott McKay <SWM@stony-brook.scrc.symbolics.com>
• Subject: Re: Minor bounding box problem
• From: Randy Coulman <coulman@skdad.usask.ca>
• Date: Tue, 25 Aug 92 9:46:30 CST
• Cc: Clim Users Mailing List <clim@BBN.COM>
• In-Reply-To: <19920825153108.0.SWM@SUMMER.SCRC.Symbolics.COM>; from "Scott McKay" at Aug 25, 92 11:31 am

>
>    Date: Thu, 20 Aug 1992 16:16 EDT
>    From: Jeff Close <jclose@chesapeake.ads.com>
>
>       I have defined a new border type with the following:
>       
>       (clim:define-border-type :ellipse (stream left top right bottom)
>	 (let ((cx (/ (+ left right) 2))
>	       (cy (/ (+ top bottom) 2))
>	       (rx (+ 8 (/ (- right left) 2)))
>	       (ry (+ 8 (/ (- bottom top) 2))) )
>	   (clim:draw-ellipse* stream cx cy rx 0 0 ry :filled nil))
>	 )
> 

Actually, changing the "/"s above to "truncate"s got the bounding box to line
up correctly.  However, all bounding boxes still seem to be off a bit.  The
top and left edges will line up exactly, while the bottom and left edges will
be about 1 pixel outside of the object.  That's not a big deal, however.

>
>I would say that the CLX back-end is drawing the ellipse a little too
>big, rather than that the bounding box is too small.
>


-- 
Randy A. Coulman                |       ARIES Laboratory
                                |       Department of Computational Science
coulman@cs.Usask.ca             |       University of Saskatchewan
                                |       Saskatoon, SK   S7N 0W0             

• Re: Minor bounding box problem
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

• Prev: Re: Strange (to me) behavior with define-command
• Next: Re: Strange (to me) behavior with define-command
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)