diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/nemdirector.mp | 24 |
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 |