summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/naotocanacalote.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-08-04 23:27:56 +0000
committerKarl Berry <karl@freefriends.org>2013-08-04 23:27:56 +0000
commit45685e2c30714eae1fb1e722a26ca3d24b2f679e (patch)
tree34e73fd5f0b271a853a975e9b0afb91a1daf0715 /Master/texmf-dist/doc/metapost/featpost/example/naotocanacalote.mp
parente2b5fb5b3af29ba822d3c923b88353508331b8e7 (diff)
featpost
git-svn-id: svn://tug.org/texlive/trunk@31346 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/naotocanacalote.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/naotocanacalote.mp58
1 files changed, 58 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/naotocanacalote.mp b/Master/texmf-dist/doc/metapost/featpost/example/naotocanacalote.mp
new file mode 100644
index 00000000000..2e45276347a
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/naotocanacalote.mp
@@ -0,0 +1,58 @@
+% naotocanacalote.mp
+% L. Nobre G.
+% 2012
+
+verbatimtex \documentclass{article}\begin{document} etex
+
+beginfig(1);
+ numeric N, h, R, m, i, l, d, X, angl;
+ N = 2;
+ R = 13mm;
+ h = N*R;
+ m = 8;
+ l = 2R;
+ d = 4mm;
+ angl = 50;
+ path calotes, queda;
+ if N=1:
+ calotes = (0,h)... for i=1 upto m-1:
+ (R*(sind(i*90/m),cosd(i*90/m)))...
+ endfor {down}(R,0);
+ X = sqrt(2)*R;
+ queda = (-R,h+d)---(0,h+d){right}...{unitvector(1,-sqrt(2))}(X,d);
+ elseif N=2:
+ calotes = (0,h)... for i=1 upto 2*m-1:
+ (R*(sind(i*90/m),1+cosd(i*90/m)))...
+ endfor {left}origin;
+ X = 2R;
+ queda = (-R,h+d)---(0,h+d){right}...{unitvector(1,-2)}(X,d);
+ else:
+ calotes = (0,h)... for i=1 upto 2*m-1:
+ (R*(sind(i*90/m),2+cosd(i*90/m)))...
+ endfor for i=1 upto m-1:
+ (R*(sind(-i*90/m),cosd(i*90/m)))...
+ endfor {down}(-R,0);
+ X = sqrt(6)*R;
+ queda = (-R,h+d)---(0,h+d){right}...{unitvector(1,-sqrt(6))}(X,d);
+ fi;
+ drawoptions( withpen pencircle scaled (0.75mm) );
+ draw (-l,h)--calotes;
+ draw (-R,0)--(X+R,0);
+ drawoptions();
+ draw fullcircle scaled (2d) shifted (0,h+d);
+ draw fullcircle scaled (2d) shifted (X,d);
+ drawarrow (0,h+d)--(R,h+d);
+ label.top( btex $\vec{v}_{\mathrm{min}}$ etex, (0.6R,h+d) );
+ drawdblarrow origin--(0,h);
+ label.lft( btex $h$ etex, (0,h-0.5R) );
+ drawdblarrow (0,d)--(X,d);
+ label.top( btex $x$ etex, (0.5X,d) );
+ drawarrow (0,h-R)--(R*cosd(angl),h+R*(sind(angl)-1));
+ label.ulft( btex $R$ etex, (0.5*R*cosd(angl),h-R+0.5*R*sind(angl)) );
+ drawoptions( dashed evenly );
+ draw queda;
+endfig;
+
+verbatimtex \end{document} etex
+
+end. \ No newline at end of file