[cello-cvs] CVS cello/cellodemo

[ktilton]

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)