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

%input featpost3Dplus2D;
 
numeric altura;
altura = 1;

f := (2,3,1.8+altura);
Spread := 125;
LightSource := 0.7*(4,-1,4);
ShadowOn := true;

def helixone( expr TheVal ) = 
	begingroup
		numeric par[], cred, cblu, param;
		par1 = 3*360;
		par2 = 0.3;
		par3 = 0.8;
		param = par1*TheVal;
		cred = par2*cosd( param );
		cblu = par2*sind( param );
		( (cred,cblu,par3*(-1+TheVal)+altura) )
	endgroup 
enddef;

def helixtwo( expr TheVal ) = 
	begingroup
		numeric par[], cred, cblu, param;
		par1 = 3*360;
		par2 = 0.1;
		par3 = 0.8/3;
		param = par1*TheVal;
		cred = par2*cosd( param );
		cblu = par2*sind( param );
		( (cred+0.2,cblu,par3*TheVal+altura) )
	endgroup 
enddef;

beginfig(1); 
  emptyline( false, 0.91, black, 0.5background, 360, 0.88, 2, helixone );
  emptyline( true, 0.91, black, 0.5background, 120, 0.88, 2, helixtwo );
  drawarrow rp((0.5,0,altura))--rp((0.32,0,altura));
endfig;

end;