diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:45:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:45:48 +0000 |
commit | 5dc602d16c5be2fd035b254ca23484a90aebd6dc (patch) | |
tree | 72efb15fba318cc2096a8cc6999ed3fa0bff317d /Master/texmf-dist/doc/metapost/featpost/example/repeated/twoupcones.mp | |
parent | b4fc5f639874db951177ec539299d20908adb654 (diff) |
doc 5
git-svn-id: svn://tug.org/texlive/trunk@81 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/repeated/twoupcones.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/repeated/twoupcones.mp | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/repeated/twoupcones.mp b/Master/texmf-dist/doc/metapost/featpost/example/repeated/twoupcones.mp new file mode 100644 index 00000000000..cc9b697dd37 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/repeated/twoupcones.mp @@ -0,0 +1,51 @@ +% twoupcones.mp +% L. Nobre G. +% 2004 + +%input featpost3Dplus2D; + +verbatimtex +\documentclass{article} +\usepackage{beton,concmath,ccfonts} +\begin{document} +etex + +f := 3*(2,1,0.5); + +beginfig(1); + numeric raya, rayb, heia, heib, rang, marg, u; + color cena, cenb, vera, verb, auxa, auxb, pora, porb, poha, pohb; + u = 0.38; + raya = 1u; + rayb = 2u; + heia = 0.65u; + marg = 0.2u; + rang = 60; + heib = heia*rayb/raya; + cena = (raya*(1+marg),0,0); + cenb = (-rayb*(1+marg),0,0); + auxa = cena + raya*(cosd(rang),sind(rang),0); + auxb = cenb + rayb*(cosd(rang),sind(rang),0); + pora = 0.5[auxa,cena]; + porb = 0.5[auxb,cenb]; + vera = cena+heia*blue; + verb = cenb+heib*blue; + poha = 0.5[cena,vera]; + pohb = 0.5[cenb,verb]; + verygoodcone(true,cenb,blue,rayb,verb); + draw rp(verb)--rp(cenb)--rp(auxb) dashed evenly; + label.urt(btex $h_1$ etex, rp(pohb)); + label.urt(btex $R_1$ etex, rp(porb)); + verygoodcone(true,cena,blue,raya,vera); + draw rp(vera)--rp(cena)--rp(auxa) dashed evenly; + label.urt(btex $h_2$ etex, rp(poha)); + label.urt(btex $R_2$ etex, rp(pora)); +endfig; + +verbatimtex +\end{document} +etex + +end; + + |