diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/repeated/fis3prey.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/repeated/fis3prey.mp | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/repeated/fis3prey.mp b/Master/texmf-dist/doc/metapost/featpost/example/repeated/fis3prey.mp new file mode 100644 index 00000000000..c1b32219687 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/repeated/fis3prey.mp @@ -0,0 +1,128 @@ +% fis3prey.mp +% L. Nobre G. +% IYP (2005) + +%input featpost3Dplus2D; + +verbatimtex +\documentclass{article} +\usepackage{beton} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +beginfig(1); + Spread := 50; + f := (4,6,3.5); + path malhacub, rama, ramb, ramc, malhatet; + pen grossa, nuclear, negat; + color p[]; + numeric lengax, lscal, arrowmarg, arrowshift; + pair tx, ty, tz; + lengax = 0.7; + lscal = 2; + arrowshift = 0.85; + arrowmarg = 0.13; + grossa = pencircle scaled 2.7pt; + nuclear = pencircle scaled 2.1pt; + negat = pencircle scaled 1.8pt; + p1 = (1,1,-1); + p2 = (-1,1,-1); + p3 = (-1,-1,-1); + p4 = (1,-1,-1); + p5 = (1,1,1); + p6 = (-1,1,1); + p7 = (-1,-1,1); + p8 = (1,-1,1); + + p0 = p2 + arrowshift*N((1,0,1)) + arrowmarg*N((-1,0,1)); + p9 = p5 - arrowshift*N((1,0,1)) + arrowmarg*N((-1,0,1)); + + z1 = rp(p1); + z2 = rp(p2); + z3 = rp(p3); + z4 = rp(p4); + z5 = rp(p5); + z6 = rp(p6); + z7 = rp(p7); + z8 = rp(p8); + + z0 = rp(p0); + z9 = rp(p9); + + tx = rp( p1 - (lengax,0,0) ); + ty = rp( p1 - (0,lengax,0) ); + tz = rp( p1 + (0,0,lengax) ); + + malhacub = z1--z2--z3--z4--z1--z5--z6--z7--z8--z5; + malhatet = z2--z7--z4--z5--cycle; + rama = z2--z6; + ramb = z3--z7; + ramc = z4--z8; + drawoptions( dashed evenly ); + draw malhacub; + draw rama; + draw ramb; + draw ramc; + drawoptions( withpen grossa ); + draw malhatet; + + drawarrow z1--tx withpen negat; + drawarrow z1--ty withpen negat; + drawarrow z1--tz withpen negat; + label.lrt(btex $x$ etex scaled lscal, tx); + label.llft(btex $y$ etex scaled lscal, ty); + label.lft(btex $z$ etex scaled lscal, tz); + drawarrow z0--z9 withpen negat; +endfig; + +beginfig(2); + Spread := 50; + f := 2.3*(6,2,3.5); + numeric lang, cray, lpos, llen, smar; + path circ, rigcirc, lone, ltwo, carrpath; + pen pena, penb, penc; + pena = pencircle scaled 1.3mm; + penb = pencircle scaled 0.95mm; + penc = pencircle scaled 0.4mm; + color outcol, incol; + outcol = black; + incol = 0.876white; + lang = 30; + cray = 1; + lpos = 0.57; + llen = 2.2; + smar = 0.15; + circ = goodcirclepath( black, green, cray ); + rigcirc = rigorouscircle( black, green, cray+smar ); + carrpath = subpath (3.2,4.5) of rigcirc; + lone = rp((-lpos,llen*cosd(lang),llen*sind(lang))) + --rp(-(lpos,llen*cosd(lang),llen*sind(lang))); + ltwo = rp((lpos,-llen*cosd(lang),llen*sind(lang))) + --rp((lpos,llen*cosd(lang),-llen*sind(lang))); + drawarrow carrpath withpen penc withcolor outcol; + draw circ withpen pena withcolor outcol; + draw circ withpen penb withcolor incol; + draw rp((-cray,0,0))--rp((-lpos,0,0)) dashed evenly; + draw lone withpen pena withcolor outcol; + draw lone withpen penb withcolor incol; + draw rp((lpos,0,0))--rp((-lpos,0,0)) dashed evenly; + draw rp((0,0,-cray))--rp((0,0,cray)) dashed evenly; + draw ltwo withpen pena withcolor outcol; + draw ltwo withpen penb withcolor incol; + draw rp((cray,0,0))--rp((lpos,0,0)) dashed evenly; + draw subpath (1,15) of circ withpen pena withcolor outcol; + draw subpath (0,16) of circ withpen penb withcolor incol; + + + +% label.top( btex $+$ etex, point 3 of rigcirc ); + +endfig; + +verbatimtex +\end{document} +etex + +end; |