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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
% parafuso.mp
% L. Nobre G.
% 2005
%input featpost3Dplus2D;
def theline( expr TheVal ) =
begingroup
numeric par[], cred, cgre, cblu, param;
par0 = 0;
par1 = 6*360;
par2 = 0.3;
par3 = 850;
param = par0+TheVal*(par1-par0);
cred = -par2*cosd( param );
cblu = par2*sind( param );
cgre = param/par3;
( (cred,cgre,cblu) )
endgroup
enddef;
def loxodrome( expr TheVal ) =
begingroup
numeric cred, cgre, cblu, alpha, theta, ratio, radio;
ratio = 22;
radio = 2;
theta = ratio*180*TheVal;
alpha = 170*TheVal-85;
cred = radio*cosd(theta)*cosd(alpha);
cgre = radio*sind(theta)*cosd(alpha);
cblu = radio*sind(alpha);
( (cred,cgre,cblu) )
endgroup
enddef;
f := (2,4,1.8);
Spread := 77;
ShadowOn := false;
beginfig(1);
numeric axsize, zaxpos, zaxlen;
color xbeg, xend, ybeg, yend, zbeg, zend;
axsize = 0.85;
zaxpos = 0.55;
zaxlen = 2.1;
pickup pencircle scaled 1.5pt;
xbeg = (axsize,0,0);
xend = (-axsize,0,0);
ybeg = (0,0,-axsize);
yend = (0,0,axsize);
zbeg = (zaxpos,-zaxpos,0);
zend = (zaxpos,zaxlen,0);
drawarrow rp( xbeg )--rp( xend );
drawarrow rp( ybeg )--rp( yend );
% defaultfont := "putr8r";
defaultscale := 1.95;
label.rt( "A", rp( xend ) );
label.lft( "B", rp( yend ) );
emptyline( false, 1, black, 0.5background, 1000, 0.82, 2, theline );
drawarrow rp( zbeg )--rp( zend );
label.bot( "C", rp( zend ) );
endfig;
beginfig(2);
numeric axsize, zaxpos, zaxlen;
color xbeg, xend, ybeg, yend, zbeg, zend;
axsize = 0.85;
zaxpos = 0.55;
zaxlen = 2.1;
pickup pencircle scaled 1.5pt;
xbeg = (axsize,0,0);
xend = (-axsize,0,0);
ybeg = (0,0,-axsize);
yend = (0,0,axsize);
zbeg = (zaxpos,-zaxpos,0);
zend = (zaxpos,zaxlen,0);
drawarrow rp( xbeg )--rp( xend );
drawarrow rp( ybeg )--rp( yend );
% defaultfont := "putr8r";
defaultscale := 0.65;
label.rt( "X", rp( xend ) );
label.lft( "Y", rp( yend ) );
closedline( false, 70, 0.5, 0.95, theline );
drawarrow rp( zbeg )--rp( zend );
label.bot( "Z", rp( zend ) );
doitnow;
endfig;
f := (2,4,2.8);
beginfig(3);
NCL := 0;
Nobjects := 0;
closedline( false, 270, 0.5, 0.85, loxodrome );
doitnow;
endfig;
end;
|
