1 files changed, 13 insertions, 13 deletions
diff --git a/Master/texmf-dist/doc/latex/coordsys/putfile. b/Master/texmf-dist/doc/latex/coordsys/putfile.
index 141479c77db..b57c7952bc6 100644
--- a/Master/texmf-dist/doc/latex/coordsys/putfile.
+++ b/Master/texmf-dist/doc/latex/coordsys/putfile.
@@ -8,7 +8,7 @@
 ## 
 ## 
 ##  This is the coordsys and logsys packages
-##  Copyright 2000-04 by Mogens Lemvig Hansen,
+##  Copyright 2000-06 by Mogens Lemvig Hansen,
 ##                       mlhansen@uniserve.com
 ## 
 ## This program may be distributed and/or modified under the
@@ -23,8 +23,8 @@
 ## 
 putfile := proc(fn::{string, list(string), set(string)},
                  P::specfunc(anything, PLOT) )
-   option `Copyright 2000-04 by Mogens Lemvig Hansen`;
-   description "version 1.0";
+   option `Copyright 2000-06 by Mogens Lemvig Hansen`;
+   description "version 1.1";
    local L, fns, i, V, scl, FH, ttl, pt, path, ext;
    global StringTools;
    L := [args[3..-1]];
@@ -87,8 +87,8 @@ putfile := proc(fn::{string, list(string), set(string)},
       if scl <> [1,1] then fprintf(FH, "%% scaled %a\n", scl) fi;
       V := [ map2(op, 1, L[i]), map2(op, 2, L[i]) ];
       V := map( u-> min(op(u))..max(op(u)), V );
-      fprintf(FH, "%% horizontal range: %f..%f\n", op(V[1]));
-      fprintf(FH, "%% vertical range:   %f..%f\n", op(V[2]));
+      fprintf(FH, "%% horizontal range: %f .. %f\n", op(V[1]));
+      fprintf(FH, "%% vertical range:   %f .. %f\n", op(V[2]));
       for pt in L[i] do
          fprintf(FH, "%f \t%f\n", op(pt));
       od;
@@ -96,8 +96,8 @@ putfile := proc(fn::{string, list(string), set(string)},
    end try end do;
 end;
 `putfile/grabcurves` := proc(x)
-   option `Copyright 2000-04 by Mogens Lemvig Hansen`;
-   description "version 1.0";
+   option `Copyright 2000-06 by Mogens Lemvig Hansen`;
+   description "version 1.1";
    local L;
    if op(0, x) = 'CURVES' then
       L := [ op(x) ];
@@ -109,8 +109,8 @@ end;
 end;
 `putfile/cleancurve` := proc(CC::list, V::list)
    local C, B, pts, pt, m, i;
-   option `Copyright 2004 by Mogens Lemvig Hansen`;
-   description "version 1.0";
+   option `Copyright 2004-06 by Mogens Lemvig Hansen`;
+   description "version 1.1";
    C := select(type, CC, ['numeric', 'numeric']);
    if nops(C) < 1 then error "no numeric points in %1", C fi;
    B := C[1];
@@ -147,13 +147,13 @@ end;
       fi;
       pts := [pts];
       if C[i-1][1] < C[i][1] then
-         pts := sort(pts, (u,v)->evab(u[1]<v[1]));
+         pts := sort(pts, (u,v)->evalb(u[1]<v[1]));
       elif C[i-1][1] > C[i][1] then
-         pts := sort(pts, (u,v)->evab(u[1]>v[1]));
+         pts := sort(pts, (u,v)->evalb(u[1]>v[1]));
       elif C[i-1][2] < C[i][2] then
-         pts := sort(pts, (u,v)->evab(u[2]<v[2]));
+         pts := sort(pts, (u,v)->evalb(u[2]<v[2]));
       elif C[i-1][2] > C[i][2] then
-         pts := sort(pts, (u,v)->evab(u[2]>v[2]));
+         pts := sort(pts, (u,v)->evalb(u[2]>v[2]));
       else
          error "cannot happen";
       fi;