blob: 4d81af39d7631ee0ebb786ae905b30dcfc513a30 (
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;
|