MetaFun - Pragma ADE

draw_basics ;
draw_circles ;
draw_intersection ;
draw_bisector ;
draw_midpoint ;
bb := boundingbox currentpicture ;
currentpicture := nullpicture ;
enddef ;
def stop_everything =
setbounds currentpicture to bb ;
enddef ;
\stopbuffer
In figure 13.5 we demonstrate the effect of this redefinition. For this purpose we scale down the
graphic to a comfortable 40%, of course by using an additional buffer. We also visualize the bounding
box.
\startbuffer[h]
def stop_everything =
setbounds currentpicture to bb ;
draw bb withpen pencircle scaled .5pt withcolor .625yellow ;
currentpicture := currentpicture scaled .4 ;
enddef ;
\stopbuffer
The graphic itself is defined as follows. Watch how we use the default buffer to keep the definitions
readable.
\startbuffer
\startcombination[5*1]
{\processMPbuffer[a,b,c,h,d,e,f,g,1]} {step 1}
{\processMPbuffer[a,b,c,h,d,e,f,g,2]} {step 2}
{\processMPbuffer[a,b,c,h,d,e,f,g,3]} {step 3}
{\processMPbuffer[a,b,c,h,d,e,f,g,4]} {step 4}
{\processMPbuffer[a,b,c,h,d,e,f,g,5]} {step 5}
\stopcombination
\stopbuffer
\placefigure
[here][fig:1 till 5]
{The five graphics, each with the same bounding box.}
{\getbuffer}
As the original purpose of these graphics was not to show them side by side, but to present them
as field stack in a document to be viewed at the computer screen. For this purpose we have to
define the graphics as symbols.
\definesymbol[step 1][{\processMPbuffer[a,b,c,d,e,f,g,1]}]
\definesymbol[step 2][{\processMPbuffer[a,b,c,d,e,f,g,2]}]
Growing graphics A few applications
301