summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/standard/unperfectionremoved.mp
blob: 1829b9e7787da8e423e529a3d9f4c5343c68814a (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
29
30
31
32
33
34
% unperfectionremoved.mp
% L. Nobre G.
% 2003

%input featpost3Dplus2D;

Spread := 70;
f := (13,4,3);

beginfig(1);
	numeric i, len;
	numeric fws, NumLines, linex, inray, outay, axray;
	numeric wang;
	path oneline;
	color axe, aroc; 	
	len := 0.6;
	wang := 60;
	axe := (0,cosd(90-wang),sind(90-wang));
	fws := 4;
	outay := 0.45*fws;
	inray := 0.7*outay;
	NumLines := 30;
	for i=0 upto NumLines:
	    linex := fws*(i/NumLines-0.5);
	    oneline := rp((linex,0.5*fws,-0.5*fws))
                     --rp((linex,-0.5*fws,-0.5*fws))
                     --rp((linex,-0.5*fws,0.5*fws));
	    draw oneline withcolor (0.7*background);
	endfor;
	aroc := outay*(0,cosd(wang),sind(wang))-0.5*(0,fws,fws);
	rigorousdisc( inray, true, aroc, outay, axe*len );
endfig;

end.