Lisp HUG Maillist Archive

(LWW 6.1) line-joint-style

Unable to parse email body. Email id is 12158

Re: (LWW 6.1) line-joint-style

Hi Nick!

Try with some line thickness:

(let ((o (capi:contain (make-instance 'capi:output-pane))))
 (gp:draw-rectangle o 100 100 100 100 :line-joint-style :bevel :thickness 20)               
 (gp:draw-rectangle o 130 130 100 100 :line-joint-style :miter :thickness 20)
 (gp:draw-rectangle o 160 160 100 100 :line-joint-style :round :thickness 20))


Best,
Cam

On 1 mars 2013, at 10:32, Nick Levine <ndl@ravenbrook.com> wrote:

> 
> Even under a maginifer, I can't see any difference when I set the
> line-joint-style of a rectangle.
> 
> (let ((o (capi:contain (make-instance 'capi:output-pane))))
>  (gp:draw-rectangle o 100 100 100 100 :line-joint-style :bevel)               
>  (gp:draw-rectangle o 130 130 100 100 :line-joint-style :miter)
>  (gp:draw-rectangle o 160 160 100 100 :line-joint-style :round))
> 
> Am I missing something?
> 
> - nick
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html
> 


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html


Updated at: 2020-12-10 08:35 UTC