summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/steamcamera.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-12-03 16:47:39 +0000
committerKarl Berry <karl@freefriends.org>2011-12-03 16:47:39 +0000
commit97e4684a37e4899e8cdd42ab670b6e25dd319d1a (patch)
treebc263a56d75c177b79ae13c6e6ec7a3c30278dbf /Master/texmf-dist/doc/metapost/featpost/example/steamcamera.mp
parenta2c8654f8955a0d35c8b0c2d1752a506a426681b (diff)
featpost (17nov11)
git-svn-id: svn://tug.org/texlive/trunk@24738 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/steamcamera.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/steamcamera.mp58
1 files changed, 58 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/steamcamera.mp b/Master/texmf-dist/doc/metapost/featpost/example/steamcamera.mp
new file mode 100644
index 00000000000..6fd1d73d47b
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/steamcamera.mp
@@ -0,0 +1,58 @@
+% steamcamera.mp
+% L. Nobre G.
+% 2006
+
+input featpost3Dplus2D;
+
+verbatimtex
+\documentclass{article}
+\usepackage{palatino,mathpazo}
+\begin{document}
+etex
+
+Spread := 50;
+f := (3,5,2);
+
+beginfig(0);
+ numeric slabthick, camethick, blocthick, blochange;
+ numeric slabside, cameside, blocside;
+ color slabpos, camepos, blocpos;
+ numeric markmargin;
+ color lowonbloc, lowonmark, lowonextr;
+ color higonbloc, higonmark, higonextr;
+ color newlevelcenter;
+ slabthick = 0.07;
+ camethick = 0.7;
+ blocthick = 0.6;
+ slabside = 1.2;
+ cameside = 0.9;
+ blocside = 0.7;
+ blochange = 0.25;
+ markmargin = 0.04;
+ slabpos = black;
+ camepos = -0.5*(slabthick+camethick)*blue;
+ blocpos = 0.5*slabthick*blue;
+ lowonbloc = blocpos+(0,0.5*blocside,blocthick-blochange);
+ higonbloc = blocpos+(0,0.5*blocside,blocthick);
+ lowonmark = blocpos+(-0.5*slabside,0.5*blocside,blocthick-blochange);
+ higonmark = blocpos+(-0.5*slabside,0.5*blocside,blocthick);
+ lowonextr = lowonmark - markmargin*red;
+ higonextr = higonmark - markmargin*red;
+ kindofcube( false, false, camepos, 0, 0, 0, cameside, cameside, camethick );
+ kindofcube( false, false, slabpos, 0, 0, 0, slabside, slabside, slabthick );
+ rigorousdisc( 0, true, blocpos, 0.5*blocside, blocthick*blue );
+ newlevelcenter = (blocthick-blochange+0.5*slabthick)*blue;
+ draw
+ spatialhalfcircle( newlevelcenter, blue, 0.5*blocside, true )
+ dashed evenly;
+ draw rp(lowonbloc)--rp(lowonextr);
+ draw rp(higonbloc)--rp(higonextr);
+ drawdblarrow rp(lowonmark)--rp(higonmark);
+ label.rt( btex $\Delta y$ etex, rp(0.5[lowonmark,higonmark]) );
+endfig;
+
+verbatimtex
+\end{document}
+etex
+
+end. \ No newline at end of file