texlive[66998] Master/texmf-dist: repere (3may23)

[commits+karl at tug.org]

Revision: 66998
          http://tug.org/svn/texlive?view=revision&revision=66998
Author:   karl
Date:     2023-05-03 22:11:18 +0200 (Wed, 03 May 2023)
Log Message:
-----------
repere (3may23)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/metapost/repere/README.md
    trunk/Master/texmf-dist/doc/metapost/repere/repere-doc.pdf
    trunk/Master/texmf-dist/metapost/repere/repere.mp

Modified: trunk/Master/texmf-dist/doc/metapost/repere/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/metapost/repere/README.md	2023-05-03 17:03:03 UTC (rev 66997)
+++ trunk/Master/texmf-dist/doc/metapost/repere/README.md	2023-05-03 20:11:18 UTC (rev 66998)
@@ -1,4 +1,4 @@
-Package repere - Version 23.05 - May 2, 2023
+Package repere - Version 23.05.b - May 2, 2023
 
 ---
 

Modified: trunk/Master/texmf-dist/doc/metapost/repere/repere-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/metapost/repere/repere.mp
===================================================================
--- trunk/Master/texmf-dist/metapost/repere/repere.mp	2023-05-03 17:03:03 UTC (rev 66997)
+++ trunk/Master/texmf-dist/metapost/repere/repere.mp	2023-05-03 20:11:18 UTC (rev 66998)
@@ -2,7 +2,7 @@
 %%                        repere.mp                           %%
 %%   Macros pour la construction de figures dans un repère    %%
 %%                    o.peault at posteo.net                     %%
-%%                 Version 23.05 (Mai 2023)                   %%
+%%                Version 23.05.b (Mai 2023)                  %%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 % This work may be distributed and/or modified under the conditions of
@@ -2421,11 +2421,11 @@
     endfor
   elseif nom="_val":
     if deb=_suiterecdeb_:
-      draw etiquettex.@#(arrondi(10**_prec,un));
+      draw etiquettex.@#(arrondidec(_prec,un));
       deb:=deb+1;un:=_suiterecfonc_(un)
     fi;
     for i=deb upto fin:
-      lab:="$\num{" &  decimal(arrondi(10**_prec,un)) & "}$";
+      lab:="$\num{" &  decimal(arrondidec(_prec,un)) & "}$";
       draw projectionx.@#((un,un),lab,-taillegrad);
       un:=_suiterecfonc_(un);
     endfor
@@ -2475,7 +2475,7 @@
       deb:=deb+1;
     fi;
     for i=deb-1 upto fin-1:
-      lab:="$\num{" &  decimal(arrondi(10**_prec,un)) & "}$";
+      lab:="$\num{" &  decimal(arrondidec(_prec,un)) & "}$";
       draw projectiony.@#((un,_suiterecfonc_(un)),lab,-taillegrad);
       un:=_suiterecfonc_(un);
     endfor
@@ -4451,7 +4451,14 @@
 
 
 %%%%%%%%%%%%%%% MATHS %%%%%%%%%%%%%%%%%
+vardef arrondidec(expr n,x)=  % arrondi de x à 10^-n
+   save pp;
+   numeric pp;
+   pp:= 1  for i=1 upto n: *10 endfor;
+   round(pp*x)/pp
+enddef;
 
+
 vardef arrondi(expr p,x)=              %arrondi de x au p-ième
 %  round((x-floor(x))*p)/p+floor(x)
   round(p*x)/p