summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/repeated/borderframetest.mp
blob: 1c2331bdc179d6a578b5d620ee866859bf5d53aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
% 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;