summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/signalvertexSD.mp
blob: bbf8cb3ecbd9c2767584e9d04987fd36470a45bb (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
% signalvertexSD.mp
% L. Nobre G. 
% 2003

input featpost3Dplus2D;

% Draw a torus with NP dots, a section of 3.14*RS^2
% and a total diameter of 2*(RB+RS). The dots are placed 
% on a single closed line that turns around the $z$ axis
% NB times and around the section NS times. 
  
f := 0.45f;
                
%SphericalDistortion := true;  Spread := 11;

beginfig(1);
    NP:=2000;
    RB:=1;
    RS:=0.2;
    R3:=0.0;
    NB:=8;
    NS:=5;
    jB:=360*NB/NP;
    jS:=360*NS/NP;
    for i=1 upto NP:
        phi   :=i*jS;
        theta :=i*jB;
        first :=(RB+(RS+R3*sind(4*theta))*cosd(phi))*cosd(theta);
        second:=(RB+(RS+R3*sind(4*theta))*cosd(phi))*sind(theta);
        third :=    (RS+R3*sind(4*theta))*sind(phi);
        signalvertex( (first,second,third), 1, black );
    endfor;
endfig;

end;