summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp77
1 files changed, 77 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp b/Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp
new file mode 100644
index 00000000000..138a94293aa
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp
@@ -0,0 +1,77 @@
+% some2Dvecs.mp
+% L. Nobre G.
+% 2002
+
+verbatimtex
+\documentclass{article}
+\begin{document}
+etex
+
+beginfig(1);
+ numeric hsize, qsize, nsize, ldist;
+ numeric alray, beray, alang, beang;
+ numeric stampnum, initang, i, stepang, stampoffset;
+ pair hvec, qvec, nvec;
+ path Hvec, Qvec, Nvec, alarc, bearc, vertic;
+ picture labelstr, labelpic;
+ color mycolor;
+ picture stamp;
+ bboxmargin := 4mm;
+ stampnum = 36;
+ stampoffset = 0.42mm;
+ alang = 6;
+ beang = 17;
+ hsize = 6mm;
+ qsize = 3*hsize;
+ nsize = 4*hsize;
+ ldist = 3.17*hsize;
+ alray = 2*0.735*nsize;
+ beray = 2*0.6*qsize;
+ mycolor = (0.8,0.7,1);
+% drawoptions( withcolor mycolor );
+ hvec = hsize*left;
+ qvec = qsize*(-sind(beang),cosd(beang));
+ nvec = nsize*(-sind(alang),cosd(alang));
+ Hvec = origin--hvec;
+ Qvec = origin--qvec;
+ Nvec = origin--nvec;
+ vertic = origin--ldist*up;
+ alarc = fullcircle scaled alray
+ cutbefore vertic cutafter Nvec;
+ bearc = fullcircle scaled beray
+ cutbefore vertic cutafter Qvec;
+ drawarrow Hvec;
+ drawarrow Qvec;
+ drawarrow Nvec;
+ draw alarc;
+ draw bearc;
+ draw vertic dashed evenly;
+ draw unitsquare scaled (0.2*hsize);
+ labelstr = btex
+ $2,\!4\times 1,\!8\,\mbox{mm}^2$
+ etex;
+ label.rt( labelstr, ldist*right );
+% label.lft( btex $\vec{n}_0$ etex, nvec );
+ label.lft( btex $x$ etex, nvec );
+ label.lft( btex $\vec{q}$ etex, qvec );
+ label.top( btex $\vec{B}$ etex, hvec );
+ label.urt( btex $-0.48^\circ$ etex, point 1 of alarc );
+ label.lft( btex $6^\circ$ etex, point 1 of bearc );
+ stamp = currentpicture;
+ fill bbox stamp withcolor (0.85,0.85,0);
+ initang = 180/stampnum;
+ stepang = 2*initang;
+ drawoptions();
+ for i=0 upto (stampnum-1):
+ draw stamp
+ shifted (stampoffset*dir(initang+i*stepang))
+ withcolor white;
+ endfor;
+ draw stamp;
+endfig;
+
+verbatimtex
+\end{document}
+etex
+
+end.