summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/repeated/fis3prey.mp
blob: c1b322196872ba503f74622c7d40fb808448d3f1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
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;