summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp37
1 files changed, 37 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp b/Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp
new file mode 100644
index 00000000000..cd5ec29dbfe
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp
@@ -0,0 +1,37 @@
+verbatimtex
+\documentclass{article}
+\usepackage{palatino}
+\usepackage{concmath}
+\usepackage{ccfonts}
+\begin{document}
+etex
+
+beginfig(1);
+ numeric u, dist, desv, rayf, aux;
+ u = 1cm;
+ dist = 2u;
+ desv = 1.5u;
+ rayf = 1.2;
+ ahangle := 30;
+ aux = (rayf-1.0)*u;
+ z1 = (dist,desv);
+ z2 = (dist,-0.5u);
+ z3 = (dist-aux,0.33*desv);
+ z4 = (dist-aux,0.67*desv);
+ drawdblarrow origin--(dist,0);
+ drawarrow subpath (1,2) of fullcircle scaled (rayf*u);
+ drawarrow z3--z4;
+ pickup pencircle scaled 2pt;
+ draw fullcircle scaled u;
+ pickup pencircle scaled 5pt;
+ draw z2--z1 withcolor 0.5white;
+ label.urt(btex $i_2$ etex, (0,0.5*rayf*u) );
+ label.llft(btex $i_1$ etex, z4 );
+ label.top(btex $l$ etex, (0.5*dist,0) );
+endfig;
+
+verbatimtex
+\end{document}
+etex
+
+end. \ No newline at end of file