Hi Wolfgang

I thought using the metapost variable tcircle as a pen would work but for some reason it does not give rounded corners for the square in the first MPpage. Not a solution unfortunately.

Best Wishes

Keith

Hi,

are there now better ways to create rounded pens without adding many support points?

\starttext

\startMPpage[offset=1dk]

path Halfcircle ; Halfcircle = (1,0){up} for i = 1 upto 180 : .. ((1,0) rotated i) endfor -- cycle ;

draw Halfcircle scaled 10 shifted (0,12) ;

pen HalfcirclePen ; HalfcirclePen := makepen Halfcircle ;

draw ((0,1) -- (1,1)) scaled 10 withpen HalfcirclePen ;
draw ((0,0) -- (0,1)) scaled 10 withpen HalfcirclePen rotated 90 ;
draw ((1,0) -- (1,1)) scaled 10 withpen HalfcirclePen rotated 270 ;
draw ((0,0) -- (1,0)) scaled 10 withpen HalfcirclePen rotated 180 ;

\stopMPpage

\startMPpage[offset=1dk]

path RoundedRectangle ; RoundedRectangle = (-1,0){up} for i = 180 step -1 until 89 : .. ((1,0) rotated i) endfor -- (1,1){down} for i = 360 step -1 until 269 : .. ((1,0) rotated i shifted (0,1)) endfor -- cycle ;

draw RoundedRectangle scaled 10 shifted (0,12) ;

pen RoundedRectanglePen ; RoundedRectanglePen := makepen RoundedRectangle ;

draw ((1,0) -- (1,1)) scaled 10 withpen RoundedRectanglePen reflectedabout (up,down) rotated 270 ;
draw ((0,0) -- (1,0)) scaled 10 withpen RoundedRectanglePen rotated 180 ;

\stopMPpage

\stoptext

Wolfgang

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive  : https://github.com/contextgarden/context
wiki     : https://wiki.contextgarden.net
___________________________________________________________________________________