Thanks Wolfgang your solution works great!

Keith

On 31/12/2025 12:30, Wolfgang Schuster wrote:
Snip >


\startMPinitializations
picture Circle[];
\stopMPinitializations

\startbuffer
\startMPpage
if unknown Circle[\recurselevel] :
   Circle[\recurselevel] := image (
     draw unitsquare scaled 80 ;
     draw unitcircle scaled \recurselevel ;
   ) ;
fi ;
draw Circle[\recurselevel] ;
\stopMPpage
\stopbuffer

\starttext
\dostepwiserecurse{1}{80}{1}{\getbuffer}
\dostepwiserecurse{79}{2}{-1}{\getbuffer}
\stoptext

Wolfgang

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

maillist : [email protected] / 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
___________________________________________________________________________________

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

maillist : [email protected] / 
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
___________________________________________________________________________________

Reply via email to