changeset 2485:eac91893f3fc

[project @ 1996-11-08 03:14:36 by jwe]
author jwe
date Fri, 08 Nov 1996 03:15:40 +0000
parents ccaffe93c32f
children 830038ee04aa
files ChangeLog doc/interpreter/special.texi octMakefile.in scripts/general/logspace.m scripts/image/Makefile.in scripts/image/saveimage.m
diffstat 6 files changed, 19 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/ChangeLog	Thu Nov 07 23:25:37 1996 +0000
+++ b/ChangeLog	Fri Nov 08 03:15:40 1996 +0000
@@ -1,5 +1,7 @@
 Thu Nov  7 12:43:36 1996  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
+	* octMakefile.in (bin-dist-tar): Delete references to octtopnm.
+
 	* configure.in (RLD_FLAG): Define if x86-linux.
 
 	* Version 1.91.
--- a/doc/interpreter/special.texi	Thu Nov 07 23:25:37 1996 +0000
+++ b/doc/interpreter/special.texi	Fri Nov 08 03:15:40 1996 +0000
@@ -197,7 +197,15 @@
 
 @deftypefn {Function File} {} logspace (@var{base}, @var{limit}, @var{n})
 Similar to @code{linspace} except that the values are logarithmically
-spaced.
+spaced from
+@iftex
+@tex
+$10^{base}$ to $10^{limit}$.
+@end tex
+@end iftex
+@ifinfo
+10^base to 10^limit.
+@end ifinfo
 
 If @var{limit} is equal to
 @iftex
--- a/octMakefile.in	Thu Nov 07 23:25:37 1996 +0000
+++ b/octMakefile.in	Fri Nov 08 03:15:40 1996 +0000
@@ -190,8 +190,6 @@
 	-strip src/octave
 	echo octave-$(version) > .fname
 	ln src/octave `cat .fname`/octave
-	-strip scripts/image/octtopnm
-	ln scripts/image/octtopnm `cat .fname`/octtopnm
 	tar chf `cat .fname`.tar `cat .fname`
 	rm -rf `cat .fname`
 .PHONY: bin-dist-tar
--- a/scripts/general/logspace.m	Thu Nov 07 23:25:37 1996 +0000
+++ b/scripts/general/logspace.m	Fri Nov 08 03:15:40 1996 +0000
@@ -20,7 +20,7 @@
 ## usage: logspace (x1, x2, n)
 ##
 ## Return a vector of n logarithmically equally spaced points between
-## x1 and x2 inclusive.
+## 10^x1 and 10^x2 inclusive.
 ##
 ## If the final argument is omitted, n = 50 is assumed.
 ##
--- a/scripts/image/Makefile.in	Thu Nov 07 23:25:37 1996 +0000
+++ b/scripts/image/Makefile.in	Fri Nov 08 03:15:40 1996 +0000
@@ -20,7 +20,7 @@
 INSTALL_PROGRAM = @INSTALL_PROGRAM@
 INSTALL_DATA = @INSTALL_DATA@
 
-SOURCES = *.m octtopnm.c
+SOURCES = *.m
 IMAGES = *.img
 
 DISTFILES = Makefile.in $(SOURCES) $(IMAGES)
@@ -34,9 +34,6 @@
 all:
 .PHONY: all
 
-octtopnm: octtopnm.o
-	$(CC) $(CPPFLAGS) $(CFLAGS) $(LDFLAGS) octtopnm.o -o octtopnm
-
 install:
 	$(top_srcdir)/mkinstalldirs $(fcnfiledir)/$(script_sub_dir)
 	for f in $(FCN_FILES_NO_DIR) ; do \
@@ -49,7 +46,6 @@
 	  $(INSTALL_DATA) $(srcdir)/$$f $(imagedir)/$$f ; \
 	done
 	$(top_srcdir)/mkinstalldirs $(archlibdir)
-#	$(INSTALL_PROGRAM) octtopnm $(archlibdir)/octtopnm
 .PHONY: install
 
 uninstall:
@@ -59,11 +55,9 @@
 	for f in $(IMAGE_FILES_NO_DIR) ; \
 	  do rm -f $(imagedir)/$$f ; \
 	done
-#	rm -f $(archlibdir)/octtopnm
 .PHONY: uninstall
 
 clean:
-	rm -f octtopnm.o octtopnm
 .PHONY: clean
 
 tags: $(SOURCES)
--- a/scripts/image/saveimage.m	Thu Nov 07 23:25:37 1996 +0000
+++ b/scripts/image/saveimage.m	Fri Nov 08 03:15:40 1996 +0000
@@ -259,7 +259,7 @@
     fid = fopen (filename, "w");
 
     fprintf (fid, "%%!PS-Adobe-2.0 EPSF-2.0\n");
-    fprintf (fid, "%%%%Creator: pnmtops\n");
+    fprintf (fid, "%%%%Creator: Octave %s (saveimage.m)\n", OCTAVE_VERSION);
     fprintf (fid, "%%%%Title: %s\n", filename);
     fprintf (fid, "%%%%Pages: 1\n");
     fprintf (fid, "%%%%BoundingBox: %d %d %d %d\n",
@@ -282,19 +282,13 @@
 
     img = map(img);
 
-    ## XXX FIXME XXX -- this would be much faster if fprintf knew about
-    ## vector arguments.
+    fmt = "%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x\n";
+    fprintf (fid, fmt, img);
 
-    count = 0;
-    for i = 1:img_sz
-      fprintf (fid, "%x", img (i));
-      if (++count == 30)
-	count = 0;
-	fprintf (fid, "\n");
-      endif
-    endfor
+    if (rem (img_sz, 30) != 0)
+      fprintf (fid, "\n" );
+    endif
 
-    fprintf (fid, "\n" );
     fprintf (fid, "grestore\n" );
     fprintf (fid, "showpage\n" );
     fprintf (fid, "%%%%Trailer\n" );