diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/rigorousfearpath.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/rigorousfearpath.mp | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/rigorousfearpath.mp b/Master/texmf-dist/doc/metapost/featpost/example/rigorousfearpath.mp new file mode 100644 index 00000000000..a91913fc749 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/rigorousfearpath.mp @@ -0,0 +1,66 @@ +% rigorousfearpath.mp +% L. Nobre G. +% 2003 + +input featpost3Dplus2D; + +beginfig(1); + numeric sfr, radfac, ind; + color xv, yv, zv, Ve[]; + path p[]; + f := 2*(5,2,3); + Spread := 50; + csr := 0.47; + clr := 0.57; + xv := (csr,0,0); + yv := (0,csr,0); + zv := (0,0,csr); + Ve1 := (-1,-1,-1); + Ve2 := (-1,1,-1); + Ve3 := (1,-1,-1); + Ve4 := (1,1,-1); + Ve5 := (-1,-1,1); + Ve6 := (-1,1,1); + Ve7 := (1,-1,1); + Ve8 := (1,1,1); + Ve9 := (0,0,0); + for ind=1 upto 8: + p[ind] := rigorousfearpath( Ve[ind], csr ); + endfor; + p9 := rigorousfearpath( Ve9, clr ); + unfill p1; + draw p1; + draw rp(Ve1+yv)--rp(Ve2-yv); + draw rp(Ve1+xv)--rp(Ve3-xv); + unfill p2; + draw p2; + unfill p3; + draw p3; + draw rp(Ve4-yv)--rp(Ve3+yv); + draw rp(Ve4-xv)--rp(Ve2+xv); + unfill p4; + draw p4; + draw rp(Ve1+zv)--rp(Ve5-zv); + draw rp(Ve2+zv)--rp(Ve6-zv); + unfill p9; + draw p9; + draw rp(Ve3+zv)--rp(Ve7-zv); + draw rp(Ve4+zv)--rp(Ve8-zv); + unfill p5; + draw p5; + draw rp(Ve5+yv)--rp(Ve6-yv); + draw rp(Ve5+xv)--rp(Ve7-xv); + unfill p6; + draw p6; + unfill p7; + draw p7; + draw rp(Ve8-yv)--rp(Ve7+yv); + draw rp(Ve8-xv)--rp(Ve6+xv); + unfill p8; + draw p8; +endfig; + +verbatimtex \end{document} etex + +end; + |