fix for plotter

Ralf Juengling <[email protected]> Fri, 6 Oct 2006 15:54:15 -0700 (PDT)
Newsgroups gmane.lisp.lush.devel
Message-ID <[email protected]>
This concerns class Plotter in libplot/plotter.lsh.
When you use default colors and add more curves to a
Plotter instance then method 'redisplay' will assign
new colors to existing curves. This is annoying. The
patch below seems to fix this. Not sure if it has any
undesired side-effects, though.

Ralf


juenglin@vihuela$ tla file-diffs lsh/libplot/plotter.lsh
--- orig/lsh/libplot/plotter.lsh
+++ mod/lsh/libplot/plotter.lsh
@@ -753,7 +753,7 @@
       (addclip (list xaxismin yaxismax (- rectw 120) (- recth 70)))
       (when curves
         (let ((curveno 0))
-        (each (((curvename . curve) curves))
+        (each (((curvename . curve) (reverse curves)))
            (when curve
              (let* ((points :curve:points)
                     (color :curve:color)



-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV