MetaFun - Pragma ADE

The graphic extends beyond the bounding box, but the bounding box determines the placement
and therefore the spacing around the graphic. We can get rid of the artwork outside the bounding
box by clipping it.
fill fullcircle scaled 2cm withcolor .625yellow ;
clip currentpicture to unitsquare scaled 1cm ;
The resulting picture is just as large but shows less of the picture.
1.18 Some extensions
We will now encounter a couple of transformations that can make your life easy when you use
METAPOST for making graphics like the ones demonstrated in this document. These transformations
are not part of standard METAPOST, but come with METAFUN.
A very handy extension is enlarged. Although you can feed it with any path, it will return a
rectangle larger or smaller than the boundingbox of that path. You can specify a pair or a numeric.
path p ; p := fullsquare scaled 2cm ;
drawpath p ; drawpoints p ;
p := (p shifted (3cm,0)) enlarged (.5cm,.25cm) ;
drawpath p ; drawpoints p ;
There are a few more alternatives, like bottomenlarged, rightenlarged, topenlarged and
leftenlarged.
The cornered operator will replace sharp corners by rounded ones (we could not use rounded
because this is already in use).
path p ; p := ((1,0)--(2,0)--(2,2)--(1,2)--(0,1)--cycle)
xysized (4cm,2cm) ;
drawpath p ; drawpoints p ;
p := (p shifted (5cm,0)) cornered .5cm ;
drawpath p ; drawpoints p ;
Some extensions Welcome to MetaPost
51