Mercurial > hg > octave-lyh

diff scripts/plot/__go_draw_axes__.m @ 7161:cfa0602094e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-12 19:51:56 by jwe]
author jwe
date Mon, 12 Nov 2007 19:51:56 +0000
parents 89a929a3ebfd
children f2ba4aa9a5f9
line wrap: on
line diff
--- a/scripts/plot/__go_draw_axes__.m
+++ b/scripts/plot/__go_draw_axes__.m
@@ -765,7 +765,18 @@
 	        fwrite (plot_stream, palette_data, "float32");
               endif
 	    else
-	      fputs (plot_stream, "set palette defined (0 \"dark-blue\", 1 \"blue\", 2 \"cyan\", 3 \"yellow\", 4 \"red\" , 5 \"dark-red\");\n");
+	      fputs (plot_stream, "set palette defined (");
+	      for i = 1: columns(palette_data)
+		col = floor(palette_data(2:end,i).' * 255);
+	        if (i == 1)
+		  fputs (plot_stream, sprintf("%d \"#%02X%02X%02X\"", i - 1, 
+					      col(1), col(2), col(3)));
+		else
+		  fputs (plot_stream, sprintf(", %d \"#%02X%02X%02X\"", i - 1, 
+					      col(1), col(2), col(3)));
+		endif
+	      endfor
+	      fputs (plot_stream, ");\n");
 	    endif
 	    fputs (plot_stream, "unset colorbox;\n");
 	  endif