changeset 5711:0c292b4af488

[project @ 2006-03-23 03:22:18 by jwe]
author jwe
date Thu, 23 Mar 2006 03:22:18 +0000
parents 8bf74c0b2cbf
children 93856a571283
files doc/ChangeLog doc/interpreter/images/sparseimages.m
diffstat 2 files changed, 12 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/doc/ChangeLog
+++ b/doc/ChangeLog
@@ -1,7 +1,7 @@
 2006-03-22  John W. Eaton  <jwe@octave.org>
 
-	* interpreter/sparse.txi: Always use @image to include image files.
-
+	* interpreter/sparse.txi: Undo previous change.
+	Always use @image to include image files.
 	* interpreter/Makefile.in: Eliminate stamp files.
 	(clean, mostlyclean, distclean, maintainer-clean): Now
 	double-colon targets.
@@ -9,14 +9,13 @@
 	(octave.info, octave.dvi, octave.pdf, HTML/index.html): Depend on it.
 	* interpreter/images/Makefile.in: Explicitly list images to be
 	created and their dependencies.
-	* interpreter/images/sparseimages.m: Delete dirc arg.
-	Sleep for 1 second before returning from main function.
+	* interpreter/images/sparseimages.m (sparseimage): Delete dirc arg.
+	Sleep for 1 second before returning.
+	(txtimages): Also create gplot.txt and grid.txt.
 	(sparseimages): Don't redirect output here.
 	New arg, nm.  Only output a single figure at a time.
 	(bury_output): New function.  Use it before plotting commands and
 	after every print function.
-
-	* interpreter/sparse.txi: Undo previous change.
 	* Makefile.in (conf.texi): New target.
 	(DISTFILES): Include conf.texi in the list.
 	(all, dist): Depend on conf.texi.
--- a/doc/interpreter/images/sparseimages.m
+++ b/doc/interpreter/images/sparseimages.m
@@ -41,6 +41,13 @@
 function txtimages(nm,n,typ)
   a = 10*speye(n) + sparse(1:n,ceil([1:n]/2),1,n,n) + ...
       sparse(ceil([1:n]/2),1:n,1,n,n);
+  if (strcmp (nm, "gplot") || strcmp (nm, "grid"))
+    fid = fopen (sprintf ("%s.txt", nm), "wt");
+    fputs (fid, "+---------------------------------+\n");
+    fputs (fid, "| Image unavailable in text mode. |\n");
+    fputs (fid, "+---------------------------------+\n");
+    fclose (fid);
+  endif
   if (strcmp (nm, "spmatrix"))
     printsparse(a,strcat("spmatrix.",typ));
   endif