diff options
author | Karl Berry <karl@freefriends.org> | 2014-10-10 22:04:00 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-10-10 22:04:00 +0000 |
commit | 2afe81e876627e6ab68d6f8999467e2559ad70b1 (patch) | |
tree | 94a7ba24efbcc65ac990ad2e2a7a4c5790fce4a8 /Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp | |
parent | ca3d251e96e4ab3ac745a18d1a8ef843a8cd803a (diff) |
featpost (10oct14)
git-svn-id: svn://tug.org/texlive/trunk@35346 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp b/Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp index e2cf2281f2d..b30e6b04377 100644 --- a/Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp +++ b/Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp @@ -1,6 +1,6 @@ % keplernewtonfeynman.mp % L. Nobre G. -% 2013 +% 2014 %input featpost3Dplus2D; @@ -8,27 +8,31 @@ prologues := 0; %verbatimtex \documentclass{article}\usepackage{mathpazo}\begin{document} etex +ahangle := 30; + beginfig(1); - numeric u, abratio, foc, pang, auxang, refdist, stepang, factor; + numeric u, abratio, foc, pang, auxang, refdist, stepang, factor, thang; pair secofod, ocirpoi, midpoi, tpoi, dirplu, dirmin; pen poipen; color mygrey; path thecircle; - stepang = 4.3; + thang = -45; + stepang = 4; poipen = pencircle scaled 1mm; mygrey = 0.5*(red+green); u = 1cm; - abratio = 0.5*(1+sqrt(5)); + %abratio = 0.5*(1+sqrt(5)); + abratio = 1.2; foc = u*(abratio +-+ 1); refdist = 2*u*abratio; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - factor = 1.5; - secofod = (refdist,0)*factor; - secofod := (2foc,0); + factor = 1.02; + secofod := 2*foc*dir(thang); thecircle = fullcircle scaled 2refdist; + pickup pencircle scaled 0; %draw fullcircle scaled 2u xscaled abratio shifted (foc,0); - draw thecircle; - draw secofod withpen poipen; + %draw thecircle; + draw secofod withpen poipen withcolor blue; for pang = stepang step stepang until 360: ocirpoi := refdist*dir(pang); midpoi := 0.5[secofod,ocirpoi]; @@ -39,11 +43,11 @@ beginfig(1); tpoi = whatever*dir(pang); tpoi = whatever[midpoi,midpoi+dirplu]; %draw ocirpoi--secofod withcolor mygrey; - draw tpoi withpen poipen withcolor red; + %draw tpoi withpen poipen withcolor red; drawarrow tpoi--(tpoi+abs(midpoi-secofod)*dirplu/factor); endfor; clip currentpicture to (thecircle scaled (factor**2)); - draw origin withpen poipen; + draw origin withpen poipen withcolor green; endfig; verbatimtex \end{document} etex |