summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/standard/rigorousdiscSD.mp
blob: e9bfa7c27301bf6f6f9cdae90b199b337c3f8a0a (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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
% rigorousdiscSD.mp
% L. Nobre G. 
% 2003

%input featpost3Dplus2D;

f := 0.8*(6,3,4);

SphericalDistortion := true;
%%%%%Spread	     := 6;      

%SphericalDistortion := false;
%%%%%%Spread	     := 20; 

beginfig(1);
    color nalfa, gammacnt, vertex;
    numeric altura, grids, radius, aux, auy, i, j, numc;
    
    altura 		= 1;
    radius		= 0.5;
    grids		= 1.4;
    numc		= 7;

    for i=1 upto numc:
        aux := (i-0.5*(numc+1))*grids;
	for j=1 upto numc:
	    auy	:= (j-0.5*(numc+1))*grids;
	    if normaldeviate > 0:
	        gammacnt := (aux,auy,0);
		vertex	 := (aux,auy,altura);
	    else:
		if normaldeviate > 0:
	            gammacnt := (aux-altura/2,auy,radius);
		    vertex   := (aux+altura/2,auy,radius);
		else:
	            gammacnt := (aux,auy-altura/2,radius);
		    vertex   := (aux,auy+altura/2,radius);
		fi;
	    fi;
	    nalfa := vertex - gammacnt;
            rigorousdisc( 0, true, gammacnt, radius, nalfa );
	endfor;
    endfor;
    produce_auto_scale;
endfig;

end;