summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp24
1 files changed, 12 insertions, 12 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp b/Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp
index 91b807e5c8c..8b26ba4f44b 100644
--- a/Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp
+++ b/Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp
@@ -1,12 +1,12 @@
% nemdirector.mp
% L. Nobre G.
-% 2003
+% 2013
input featpost3Dplus2D;
verbatimtex
\documentclass{article}
-%\usepackage{mathpazo}
+\usepackage{lucidabr}
\begin{document}
etex
@@ -17,18 +17,17 @@ beginfig(1);
numeric cylength, cyradius, zoneradi, zoneleng;
numeric i, angsdev, halfnum, directlen, arrthick;
numeric vcx, vcy, vcz, xcurr, ycurr, thickfact;
- numeric atwo, zcurr, aone, apos;
+ numeric atwo, zcurr, aone, apos, anul;
color lenvec, currpos, tippos;
path arrpath;
picture tmppict;
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Nu
+ anul := 0;
+ angsdev := 7;
cylength := 0.45;
cyradius := 0.1;
zoneradi := 2;
zoneleng := 4;
directlen := 5.6;
- angsdev := 12;
halfnum := 130;
thickfact := 5;
arrthick := Spread*ps( (0,0,0), thickfact );
@@ -42,7 +41,7 @@ beginfig(1);
xcurr := -zoneradi*cosd( apos )*uniformdeviate( 1 );
ycurr := zoneradi*sind( apos )*uniformdeviate( 1 );
aone := uniformdeviate( 360 );
- atwo := angsdev*normaldeviate;
+ atwo := anul+angsdev*normaldeviate;
vcz := cosd( atwo );
vcy := sind( atwo )*sind( aone );
vcx := sind( atwo )*cosd( aone );
@@ -59,7 +58,7 @@ beginfig(1);
xcurr := zoneradi*cosd( apos )*uniformdeviate( 1 );
ycurr := zoneradi*sind( apos )*uniformdeviate( 1 );
aone := uniformdeviate( 360 );
- atwo := angsdev*normaldeviate;
+ atwo := anul+angsdev*normaldeviate;
vcz := cosd( atwo );
vcy := sind( atwo )*sind( aone );
vcx := sind( atwo )*cosd( aone );
@@ -69,10 +68,11 @@ beginfig(1);
endfor;
NL:= halfnum;
director_invisible( true, thickfact, false );
- label.ulft(btex $\vec{n}$ etex scaled 8.5 rotated 90, rp(tippos) );
- tmppict := currentpicture rotated -90;
- currentpicture := nullpicture;
- draw tmppict;
+ label.urt(btex $\vec{n}$ etex scaled 8.5, rp(tippos) );
+% label.ulft(btex $\vec{n}$ etex scaled 8.5 rotated 90, rp(tippos) );
+% tmppict := currentpicture rotated -90;
+% currentpicture := nullpicture;
+% draw tmppict;
endfig;
verbatimtex