diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp b/Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp new file mode 100644 index 00000000000..45b31f78dec --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp @@ -0,0 +1,69 @@ +% xcmplaca2buraquads.mp +% L. Nobre G. +% 2008 + +verbatimtex +\documentclass{article} +\usepackage{palatino,concmath,ccfonts} +\begin{document} +etex + +beginfig(1); + numeric fy, tf, fl, tk, fu, fd; + fy = 0.25+uniformdeviate( 0.35 ); + tf = 0.4*fy/sqrt(2.0); + fl = 0.3*tf+uniformdeviate( 0.7*tf ); + tk = fl/sqrt(2.0); + fu = tk+uniformdeviate( 0.24-tk ); + fd = 0.26+uniformdeviate( 0.24-tk ); + numeric u,h,w; + u = 5mm; + w = 10u; + h = 11*u*fy; + drawarrow origin--(0,h); + drawarrow origin--(w,0); + label.lft( btex $y$ etex, (0,h) ); + label.bot( btex $x$ etex, (w,0) ); + numeric marg, tl; + tl = 0.05*h; + marg = 0.1*w; + numeric xzero, yzero, xum, xdois, yum, ydois, lado, ang; + xzero = w-marg; + yzero = h-marg; + xum = fu * xzero; + xdois = fd * xzero; + yum = 0.7 * yzero; + ydois = 0.3 * yzero; + lado = fl * xzero; + ang = 10+uniformdeviate( 26 ); + path placa, quadrad, quadrum, quadois; + placa = origin--(xzero,0)--(xzero,yzero)--(0,yzero)--cycle; + fill placa withcolor 0.5white; + draw placa; + quadrad = (origin--(lado,0)--(lado,lado)--(0,lado)--cycle) + shifted (-0.5*lado*(1,1)) rotated ang; + quadrum = quadrad shifted (xum,yum); + quadois = quadrad shifted (xdois,ydois); + unfill quadrum; + draw quadrum; + unfill quadois; + draw quadois; + z1 = (xum,0); + z2 = (xdois,0); + z3 = (xzero,0); + z4 = (0,yzero); + draw z1--(z1+tl*up); + draw z2--(z2+tl*up); + draw z3--(z3+tl*up); + draw z4--(z4+tl*right); + label.lft( btex $y_0$ etex, z4 ); + label.bot( btex $x_1$ etex, z1 ); + label.bot( btex $x_2$ etex, z2 ); + label.bot( btex $x_0$ etex, z3 ); +endfig; + +verbatimtex +\end{document} +etex + +end. |