summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp75
1 files changed, 75 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp b/Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp
new file mode 100644
index 00000000000..bd37e273b67
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp
@@ -0,0 +1,75 @@
+% probtodooterr.mp
+% L. Nobre G.
+% 2003
+
+verbatimtex
+\documentclass{article}
+\begin{document}
+etex
+
+beginfig(1);
+ ahangle := 30;
+ ahlength := 5mm;
+ currentpen := pencircle scaled 1mm;
+ numeric u, ray, delta, theta, tray, vlen;
+ numeric cray, clen, chig, cfra, cang;
+ path cpat, fall, vpat, tpat, apat, rpat;
+ picture cpic;
+ u = 1mm;
+ cray = 4u;
+ clen = 27u;
+ chig = 12u;
+ cfra = 1.3;
+ cang = 15;
+ theta = 38;
+ ray = 65u;
+ delta = 12u;
+ vlen = 39u;
+ tray = 0.3ray;
+ z1 = (-clen/2,0);
+ z2 = (-clen/2+cray,chig);
+ z3 = (cray,chig);
+ z4 = (clen/2,1.5*cray);
+ z5 = (clen/2,0);
+ z6 = (-clen/2+cfra*cray,0);
+ z7 = (clen/2-cfra*cray,0);
+ z8 = (ray,0);
+ z9 = (ray+delta,0);
+ z10 = (0,ray);
+ z11 = ray*(sind(theta),cosd(theta));
+ z12 = z11+vlen*(cosd(theta),-sind(theta));
+ cpat = z1{up}..{right}z2--z3{right}..z4..{down}z5{left}...{left}z1;
+% dotlabels( 1,2,3,4,5);
+ fall = z11{dir(-theta)}..{dir(-85)}z9;
+ vpat = z11--z12;
+ rpat = origin--z11;
+ tpat = (halfcircle cutafter (origin--up)) scaled (2ray);
+ apat = ((halfcircle cutafter (origin--up))
+ cutbefore rpat) scaled (2tray);
+ draw cpat;
+ filldraw fullcircle scaled cray shifted z6;
+ filldraw fullcircle scaled cray shifted z7;
+ cpic = currentpicture;
+ currentpicture := nullpicture;
+ draw z9--tpat;
+ draw fall dashed evenly;
+ drawarrow vpat;
+ drawarrow rpat;
+ draw apat;
+ draw cpic rotated (-cang)
+ shifted ((ray+0.5cray)*(sind(cang),cosd(cang)));
+ draw origin--z10 dashed evenly;
+ label.top(btex $\theta$ etex scaled 2, point 0.5 of apat );
+ label.top(btex $l$ etex scaled 2, 0.5[z8,z9] );
+ label.lrt(btex $R$ etex scaled 2, point 0.5 of rpat );
+ label.urt(btex $\vec{v}_0$ etex scaled 2, point 0.5 of vpat );
+
+endfig;
+
+verbatimtex
+\end{document}
+etex
+
+end;
+
+