2 files changed, 9 insertions, 18 deletions
diff --git a/Master/texmf-dist/source/latex/animate/animate.tex b/Master/texmf-dist/source/latex/animate/animate.tex
index b85eaa7b504..6d3101f084a 100644
--- a/Master/texmf-dist/source/latex/animate/animate.tex
+++ b/Master/texmf-dist/source/latex/animate/animate.tex
@@ -174,7 +174,6 @@ scale=<factor>
 bb=<llx> <lly> <urx> <ury>
 viewport=<llx> <lly> <urx> <ury>
 trim=<left> <bottom> <right> <top>
-clip
 hiresbb
 interpolate
 pagebox=...
@@ -348,10 +347,10 @@ viewport=<llx> <lly> <urx> <ury>
 trim=<left> <bottom> <right> <top>
 \end{verbatim}
 (\verb+\animategraphics+ only.) Crops graphic at the edges. The four lengths specify the amount to be removed from or, if negative values have been provided, to be added to each side of the graphic.
-\begin{verbatim}
-clip
-\end{verbatim}
-(\verb+\animategraphics+ only.) Clips the graphic to the (possibly modified) bounding box.
+%\begin{verbatim}
+%clip
+%\end{verbatim}
+%(\verb+\animategraphics+ only.) Clips the graphic to the (possibly modified) bounding box.
 \begin{verbatim}
 pagebox=...
 hiresbb
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;