[cello-cvs] CVS cello/cellodemo

[fgoenninger]

Update of /project/cello/cvsroot/cello/cellodemo
In directory clnet:/tmp/cvs-serv18679

Modified Files:
	demo-window.lisp 
Log Message:
Changed: commented out any error-causing line...

--- /project/cello/cvsroot/cello/cellodemo/demo-window.lisp	2006/06/26 17:05:20	1.5
+++ /project/cello/cvsroot/cello/cellodemo/demo-window.lisp	2006/08/24 09:33:46	1.6
@@ -30,12 +30,9 @@
                           tu-geo
                           ;;ftgl-test
                           #+no demo-scroller)
-      ;;'tu-geo
       'tu-geo
       :skin (c? (wand-ensure-typed 'wand-texture
                   (car (md-value (fm-other :texture-picker)))))
-       :display-continuous (c-in t)
-      :clear-rgba (list 0 0 0 1)
       :lb (c-in (downs 1000)))))
 
 (defun demo-scroller ()
@@ -77,7 +74,6 @@
   (declare (ignorable start-at))
   (run-window (apply 'make-instance 'demo-window
                  :md-value (c-in (list start-at))
-                 ;:idler 'mg-glut-idle
                  :content demo-names
                  iargs)
     (lambda ()
@@ -121,17 +117,18 @@
                                         (al-chk "openal test GAIN set"))))))
                 (:keydown . "key-down")
                 (:close . "close-window"))
-    :idler nil
     :ll 0 :lt 0
     :lr (c-in (scr2log 1000))
     :lb (c-in (scr2log -1500))
-    :fixed-lighting (list (make-instance 'light
-                            :id gl_light6
-                            :enabled t
-                            :pos (make-ff-array :float 200 (downs 300) (farther 500) 1)
-                            :ambient *dusk*
-                            :diffuse *dim*
-                            :specular *bright*))
+    
+;;     :fixed-lighting (list (make-instance 'light
+;;                             :id gl_light6
+;;                             :enabled t
+;;                             :pos (make-ff-array :float 200 (downs 300) (farther 500) 1)
+;;                             :ambient *dusk*
+;;                             :diffuse *dim*
+;;                             :specular *bright*))
+    
     :recording nil #+(or) (c? (when (md-value (fm-other :record))
                      (make-recording
                       :wand (magick-wand-template)
@@ -140,14 +137,14 @@
                                  (make-pathname :name "bingo" :type "mpg")
                                  cl-user::*user-output-directory*))))
     
-    :display-continuous nil
+;;    :display-continuous nil
     :md-name :demo-w
     :title$ "Hello, world"
     :skin nil 
     :lighting :on
-    :clear-rgba (list 0 0 0 1)
-    :light-model (c? (bwhen (lm (fm-other? :light-model))
-                       (list (md-value lm))))
+;;    :clear-rgba (list 0 0 0 1)
+;;     :light-model (c? (bwhen (lm (fm-other? :light-model))
+;;                        (list (md-value lm))))
     
     :snapshot-pathnamer (lambda (self)
                           (make-pathname