% borderframetest.mp % L. Nobre G. % 2003 input featpost3Dplus2D; beginfig(0); Spread := 45; numeric theframefrach, theframefracw, Shifts; path theframebord; Shifts := 105mm; theframefrach = 0.2927; theframefracw = 0.39; z1 = Shifts*(1-theframefracw,1-theframefrach); z2 = Shifts*(1+theframefracw,1-theframefrach); z3 = Shifts*(1+theframefracw,1+theframefrach); z4 = Shifts*(1-theframefracw,1+theframefrach); theframebord = z1--z2--z3--z4--cycle; show z1; show z2; show z3; show z4; draw theframebord withcolor background withpen pencircle scaled 0; clip currentpicture to theframebord; endfig; end;