Update of /project/cello/cvsroot/cello/cellodemo In directory clnet:/tmp/cvs-serv31340/cellodemo Modified Files: demo-window.lisp light-panel.lisp Log Message: --- /project/cello/cvsroot/cello/cellodemo/demo-window.lisp 2006/06/03 12:05:55 1.3 +++ /project/cello/cvsroot/cello/cellodemo/demo-window.lisp 2006/06/11 13:32:24 1.4 @@ -34,8 +34,7 @@ 'tu-geo :skin (c? (wand-ensure-typed 'wand-texture (car (md-value (fm-other :texture-picker))))) - :focus (c-in nil) - :display-continuous (c-in t) + :display-continuous (c-in t) :clear-rgba (list 0 0 0 1) :lb (c-in (downs 1000))))) --- /project/cello/cvsroot/cello/cellodemo/light-panel.lisp 2006/06/03 12:05:55 1.3 +++ /project/cello/cvsroot/cello/cellodemo/light-panel.lisp 2006/06/11 13:32:24 1.4 @@ -119,6 +119,11 @@ (starter-hedron))) +(defun make-lighting (md-name id pos) + (make-instance 'ix-light + :md-name md-name + :id id + :initial-pos pos)) (defun starter-hedron () (a-row (:outset (u8ths 1) :spacing (u8ths 1)