summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/animate/files/scarab.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/animate/files/scarab.mp')
-rw-r--r--Master/texmf-dist/source/latex/animate/files/scarab.mp18
1 files changed, 5 insertions, 13 deletions
diff --git a/Master/texmf-dist/source/latex/animate/files/scarab.mp b/Master/texmf-dist/source/latex/animate/files/scarab.mp
index ff4b9ebc6a1..038157ead60 100644
--- a/Master/texmf-dist/source/latex/animate/files/scarab.mp
+++ b/Master/texmf-dist/source/latex/animate/files/scarab.mp
@@ -1,5 +1,5 @@
% Maxime Chupin, Alexander Grahn
-% 2021/04/08
+% 2022/01/21
prologues:=3;
outputtemplate := "%j_%c.mps";
@@ -75,16 +75,12 @@ for i:=0 upto 100:
endfor;
fi;
beginfig(i) %red scarabaeus segments
- setbounds currentpicture to
- (u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
pickup pencircle scaled 1pt;
draw scara withcolor red;
- clip currentpicture to
+ setbounds currentpicture to
(u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
endfig;
beginfig(i+101) %moving construction lines and labels
- setbounds currentpicture to
- (u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
draw 12[P,Q]--12[Q,P] dashed evenly;
draw O--M dashed evenly;
pickup pencircle scaled 1.4pt;
@@ -93,15 +89,13 @@ for i:=0 upto 100:
dotlabel.urt(btex $P$ etex, P);
dotlabel.llft(btex $Q$ etex,Q);
dotlabel.top(btex $M$ etex,M);
- clip currentpicture to
+ setbounds currentpicture to
(u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
endfig;
if (i/2.-floor(i/2.))=0: %gray lines every second image
beginfig(i/2+202)
- setbounds currentpicture to
- (u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
draw P--Q withcolor 0.8 white;
- clip currentpicture to
+ setbounds currentpicture to
(u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
endfig;
fi;
@@ -109,8 +103,6 @@ endfor;
%coordinate axes and stationary stuff
beginfig(253);
- setbounds currentpicture to
- (u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
path ida,mida;
drawarrow(-1.5u,0)--(1u,0);
drawarrow(0,-1.2u)--(0,1.2u);
@@ -129,7 +121,7 @@ beginfig(253);
dotlabel.rt(btex $B$ etex,B);
dotlabel.lft(btex $C$ etex,C);
dotlabel.lft(btex $D$ etex,D);
- clip currentpicture to
+ setbounds currentpicture to
(u,1.2u)--(u,-1.2u)--(-1.5u,-1.2u)--(-1.5u,1.2u)--cycle;
endfig;