MetaFun - Pragma ADE

230
endfor ;
\stopMPdrawing
This compares well to the text as typeset by TEX:
MetaPost is Fun!
We can now use the values in pos to position the pictures according to what TEX considered to be
the best (relative) position.
\startMPdrawing
for i=1 upto n :
draw pic[i] shifted (pos[i],0) ;
draw boundingbox pic[i] shifted (pos[i],0)
withpen pencircle scaled .25pt withcolor red ;
endfor ;
\stopMPdrawing
That this correction is adequate, is demonstrated in the next graphic. If you look closely, you will
see that for instance the ‘o' is moved to the left, under the capital ‘P'.
MetaPost is Fun!
When we want to position the pictures along a circle, we need to apply some rotations, especially
because we want to go clockwise. Since we don't want to use ‘complicated' math or more advanced
METAPOST code yet, we will do it in steps.
M etaPostisFun!
\startMPdrawing
for i=1 upto n:
pic[i] := pic[i] rotatedaround(origin,-270) ;
endfor ;
\stopMPdrawing
We will now center the pictures around the baseline. Centering comes down to shifting over half
the height of the picture. This can be expressed by:
ypart -.5[ulcorner pic[i],llcorner pic[i]]
but different ways of calculating the distance are possible too.
\startMPdrawing
for i=1 upto n :
pic[i] := pic[i]
shifted (0,ypart -.5[ulcorner pic[i],llcorner pic[i]]) ;
endfor ;
\stopMPdrawing
Typesetting in METAPOST TEX text