summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/parafusoprojxy.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/parafusoprojxy.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/parafusoprojxy.mp64
1 files changed, 64 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/parafusoprojxy.mp b/Master/texmf-dist/doc/metapost/featpost/example/parafusoprojxy.mp
new file mode 100644
index 00000000000..e43c2966674
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/parafusoprojxy.mp
@@ -0,0 +1,64 @@
+% parafusoprojxy.mp
+% L. Nobre G.
+% 2009
+
+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 thexyline( expr TheVal ) =
+ begingroup
+ numeric par[], cred, cgre, param;
+ par0 = 0;
+ par1 = 6*360;
+ par2 = 0.3;
+ par3 = 850;
+ param = par0+TheVal*(par1-par0);
+ cred = -par2*cosd( param );
+ cgre = param/par3;
+ ( (cred,cgre,0) )
+ endgroup
+enddef;
+
+f := (3,5,15);
+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 := 0.65;
+ label.rt( "X", rp( xend ) );
+ label.lft( "Y", rp( yend ) );
+ emptyline( false, 1, black, 0.7background, 700, 0.8, 2, thexyline );
+ drawarrow rp( zbeg )--rp( zend );
+ label.bot( "Z", rp( zend ) );
+endfig;
+
+end;
+
+
+