summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/coordsys/putfile.
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/coordsys/putfile.')
-rw-r--r--Master/texmf-dist/doc/latex/coordsys/putfile.26
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;