[Lush-cvs] lush/lsh/libstd plotenv.lsh,1.43,1.44

[Leon B. <le...@us...>]

Update of /cvsroot/lush/lush/lsh/libstd
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31833

Modified Files:
	plotenv.lsh 
Log Message:
more compat in functions plot-lists and plot-lists-sd


Index: plotenv.lsh
===================================================================
RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** plotenv.lsh	6 Dec 2012 16:20:31 -0000	1.43
--- plotenv.lsh	6 Dec 2012 16:28:14 -0000	1.44
***************
*** 1548,1568 ****
    (let (((pc pp . aux) plot-port))
      (let ((window (==> pp window)))
!       (==> pc command '(plt-clear))
!       (each ((x lx)(y ly))
!         (==> pc command `(plt-draw ,x ,y)) )
!       (each ((x lx)(y ly))
!         (==> pc command `(plt-plot ,x ,y)) )
!       (==> pp execute) ) ) )
    
  (de plot-lists-sd (lx ly lv)
    (let (((pc pp . aux) plot-port))
      (let ((window (==> pp window)))
!       (==> pc command '(plt-clear))
!       (each ((x lx)(y ly))
!         (==> pc command `(plt-draw ,x ,y)) )
!       (each ((x lx)(y ly)(v lv))
!         (==> pc command `(plt-plot ,x ,y)) 
!         (==> pc command `(plt-sd ,x ,y ,v)) )
!       (==> pp execute) ) ) )
    
  ;; ----------------------------------------
--- 1548,1574 ----
    (let (((pc pp . aux) plot-port))
      (let ((window (==> pp window)))
!       (if  :pp:plotwindow
!           (==> pp add (new PlotCurve lx ly))
!         ;; compat
!         (==> pc command '(plt-clear))
!         (each ((x lx)(y ly))
!           (==> pc command `(plt-draw ,x ,y)) )
!         (each ((x lx)(y ly))
!           (==> pc command `(plt-plot ,x ,y)) )
!         (==> pp execute) ) ) ) )
    
  (de plot-lists-sd (lx ly lv)
    (let (((pc pp . aux) plot-port))
      (let ((window (==> pp window)))
!       (if  :pp:plotwindow
!           (==> pp add (new PlotCurve lx ly lv))
!         ;; compat
!         (==> pc command '(plt-clear))
!         (each ((x lx)(y ly))
!           (==> pc command `(plt-draw ,x ,y)) )
!         (each ((x lx)(y ly)(v lv))
!           (==> pc command `(plt-plot ,x ,y)) 
!           (==> pc command `(plt-sd ,x ,y ,v)) )
!         (==> pp execute) ) ) ) )
    
  ;; ----------------------------------------