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
___________________________________________________________________________________
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
___________________________________________________________________________________
