>>>>> "Raymond" == Raymond Toy <raymond.toy@ericsson.com> writes:
>>>>> "Valery" == Valery Pipin <pip@iszf.irk.ru> writes:
Valery> Viktor says that he already fixed it cvs. Yet another bug. The following did
Raymond> Oh, ok. It does seem fixed because I get lowercase for everything.
Valery> work for me two days ago.
Valery> plot3d(float(aai[2](o,beta)),[o,0.01,10.],[beta,0.01,10.],[gnuplot_pm3d,
Valery> true],[gnuplot_preamble, "set pm3d at b"]);
Valery> Now it complains about option "set pm3d at b". You can simply try
Raymond> Ah, ok. Probably forgot to call print-invert-case or something in
Raymond> plot3d. The actual error is that gnuplot doesn't understand the
Raymond> command "SET PM3D AT B".
I think the following patch fixes this issue. get-plot-option-string
needed a call to print-invert-case. And the test for the title being
"DEFAULT" should be "default".
I'll check this in shortly. There are probably other case issues
lurking here.
Ray
Index: plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.42
diff -u -r1.42 plot.lisp
--- plot.lisp 19 Oct 2004 12:05:00 -0000 1.42
+++ plot.lisp 16 Nov 2004 17:40:25 -0000
@@ -95,8 +95,8 @@
(val-list (if ($listp val)
(cdr val)
`(,val))))
- (format nil "~a"
- (stripdollar (nth (mod (- index 1) (length val-list)) val-list)))))
+ (print-invert-case
+ (stripdollar (nth (mod (- index 1) (length val-list)) val-list)))))
(defun check-list-items (name lis type length)
(or (eql (length lis) length)
@@ -1812,7 +1812,7 @@
(let ((string (coerce (mstring orig-fun) 'string)))
(cond ((< (length string) 20) string)
(t (format nil "Function"))))))
- (if (equal title "DEFAULT")
+ (if (equal title "default")
(setf title (format nil "title '~a'" plot-name)))
(format $pstream "splot '-' ~a ~a~%" title
(get-plot-option-string '$gnuplot_curve_styles 1)))