MetaFun - Pragma ADE

path p ; p := (0,0) -- (2cm,3cm) ;
drawpath p ; drawpoints p ;
p := p shortened 1cm ;
drawpath p ; drawpoints p ;
p := p shortened -1cm ;
drawpath p ; drawpoints p ;
Here are a few more drawing helpers. Even if you don't need them you might at some point take
a look at their definitions to see what happens there. First we give a square round corners with
roundedsquare:
path p ; p := roundedsquare(2cm,4cm,.25cm) ;
drawpath p ; drawpoints p ;
Next we draw a square-like circle (or circle-like square) using tensecircle:
path p ; p := tensecircle(2cm,4cm,.25cm) ;
drawpath p ; drawpoints p ;
Some extensions Welcome to MetaPost
55