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