summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-10-10 22:04:00 +0000
committerKarl Berry <karl@freefriends.org>2014-10-10 22:04:00 +0000
commit2afe81e876627e6ab68d6f8999467e2559ad70b1 (patch)
tree94a7ba24efbcc65ac990ad2e2a7a4c5790fce4a8 /Master/texmf-dist/doc/metapost/featpost/example/keplernewtonfeynman.mp
parentca3d251e96e4ab3ac745a18d1a8ef843a8cd803a (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.mp26
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