Keith McKay schrieb am 07.12.2024 um 13:29:

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

path Tcircle; Tcircle := tcircle;
draw Tcircle scaled 20 shifted(0,24) withcolor red;
pen TcirclePen ; TcirclePen := makepen Tcircle ;
draw ((0,1) -- (1,1)) scaled 10 withpen TcirclePen shifted (12,12) withcolor red;
draw ((0,0) -- (0,1)) scaled 10 withpen TcirclePen rotated 90 shifted (12,12) withcolor red;
draw ((1,0) -- (1,1)) scaled 10 withpen TcirclePen rotated 270 shifted (12,12) withcolor red;
draw ((0,0) -- (1,0)) scaled 10 withpen TcirclePen rotated 180 shifted (12,12) withcolor red;

This is the first thing I tried but it doesn't work with pens.

The following example shows how the curve gets rounder with the number of steps.

\starttext

\doloopoverlist
{90,60,45,30,20,15,10,5,1}
{\recursestring:
   \startMPcode
    draw ((-1cm,0)--(5cm,0)) shifted (0,1cm) withcolor (1,0,0);
    pen testpen ; testpen := makepen ((1,0){up} for i = 1 step \recursestring\space until 181 : .. ((1,0) rotated i) endfor -- cycle) ;
    draw (0,0)--(4cm,0) withpen testpen scaled 1cm;
    \stopMPcode
    \blank}

\stoptext

Wolfgang