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;