December 2004 - cells-cvs@common-lisp.net

[cells-cvs] CVS update: cell-cultures/cello/cello.lisp cell-cultures/cello/image.lisp
by ktilton＠common-lisp.net 05 Dec '04

05 Dec '04

Update of /project/cells/cvsroot/cell-cultures/cello In directory common-lisp.net:/tmp/cvs-serv7571/cello Modified Files: cello.lisp image.lisp Log Message: Cleaning up Date: Sun Dec 5 05:50:00 2004 Author: ktilton Index: cell-cultures/cello/cello.lisp diff -u cell-cultures/cello/cello.lisp:1.3 cell-cultures/cello/cello.lisp:1.4 --- cell-cultures/cello/cello.lisp:1.3 Thu Oct 28 02:08:56 2004 +++ cell-cultures/cello/cello.lisp Sun Dec 5 05:49:59 2004 @@ -33,3 +33,4 @@ #:cl-ftgl #:cl-magick)) +(in-package :cello) Index: cell-cultures/cello/image.lisp diff -u cell-cultures/cello/image.lisp:1.7 cell-cultures/cello/image.lisp:1.8 --- cell-cultures/cello/image.lisp:1.7 Wed Nov 17 13:31:24 2004 +++ cell-cultures/cello/image.lisp Sun Dec 5 05:49:59 2004 @@ -60,24 +60,24 @@ (defmodel ogl-node () ((dsp-list :initarg :dsp-list :accessor dsp-list :initform (c-formula (:lazy :until-asked) - (assert *w*) - (assert (not *ogl-listing-p*)) - (time (progn (ogl-dsp-list-prep self) - (when (every 'dsp-list (kids self)) - (let ((display-list-name (or .cache (gl-gen-lists 1))) - (*ogl-shared-resource-tender* - (ogl-shared-resource-tender self))) - - (gl-new-list display-list-name gl_compile) - (trc nil "starting display list" display-list-name self) - (let ((*ogl-listing-p* self) - *selecting* *render-clip-l* *render-clip-r* *render-clip-t* *render-clip-b*) - (with-metrics (nil nil "(funcall renderer)" self) - (ix-paint self))) - (trc nil "finished display list" display-list-name self) - (gl-end-list) - (setf (redisplayp (ogl-node-window self)) t) - display-list-name)))))) + (assert *w*) + (assert (not *ogl-listing-p*)) + (progn + (ogl-dsp-list-prep self) + (when (every 'dsp-list (kids self)) + (let ((display-list-name (or .cache (gl-gen-lists 1))) + (*ogl-shared-resource-tender* + (ogl-shared-resource-tender self))) + (gl-new-list display-list-name gl_compile) + (trc nil "starting display list" display-list-name self) + (let ((*ogl-listing-p* self) + *selecting* *render-clip-l* *render-clip-r* *render-clip-t* *render-clip-b*) + (with-metrics (nil nil "(funcall renderer)" self) + (ix-paint self))) + (trc nil "finished display list" display-list-name self) + (gl-end-list) + (setf (redisplayp (ogl-node-window self)) t) + display-list-name))))) (gl-name :initarg :gl-name :initform nil :accessor gl-name) (renderer :initarg :renderer :initform nil :accessor renderer)))

1 0

[cells-cvs] CVS update: cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp
by ktilton＠common-lisp.net 05 Dec '04

05 Dec '04

Update of /project/cells/cvsroot/cell-cultures/cell-cultures-user/config In directory common-lisp.net:/tmp/cvs-serv7571/cell-cultures-user/config Modified Files: cell-cultures-config.lisp Log Message: Cleaning up Date: Sun Dec 5 05:49:57 2004 Author: ktilton Index: cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp diff -u cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.2 cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.3 --- cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.2 Wed Nov 17 13:31:22 2004 +++ cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp Sun Dec 5 05:49:56 2004 @@ -14,7 +14,7 @@ (make-pathname :name "asdf":type "lisp") *dev-init*)))) -#-uffi +#+makessymbolshardfind (progn (push (merge-pathnames (make-pathname :directory '(:relative "uffi"))

1 0

[cells-cvs] CVS update: cells/doc/use-cases/uc-ring-net.html cells/doc/use-cases/uc-ring-net.lisp cells/doc/use-cases/uc-ring-net.pdf cells/doc/use-cases/uc-ring-net.rtf
by ktilton＠common-lisp.net 01 Dec '04

01 Dec '04

Update of /project/cells/cvsroot/cells/doc/use-cases In directory common-lisp.net:/tmp/cvs-serv18186/doc/use-cases Removed Files: uc-ring-net.html uc-ring-net.lisp uc-ring-net.pdf uc-ring-net.rtf Log Message: Cleaning up Date: Wed Dec 1 09:43:30 2004 Author: ktilton

1 0

[cells-cvs] CVS update: cells/doc/01-Cell-basics.lisp cells/doc/cells-read-me.txt cells/doc/hw.lisp
by ktilton＠common-lisp.net 01 Dec '04

01 Dec '04

Update of /project/cells/cvsroot/cells/doc In directory common-lisp.net:/tmp/cvs-serv18186/doc Removed Files: 01-Cell-basics.lisp cells-read-me.txt hw.lisp Log Message: Cleaning up Date: Wed Dec 1 09:43:23 2004 Author: ktilton

1 0

[cells-cvs] CVS update: cells/cells-test/boiler-examples.lisp cells/cells-test/cells-test.asd cells/cells-test/df-interference.lisp cells/cells-test/hello-world-q.lisp cells/cells-test/hello-world.lisp cells/cells-test/internal-combustion.lisp cells/cells-test/lazy-propagation.lisp cells/cells-test/person.lisp cells/cells-test/test-cyclicity.lisp cells/cells-test/test-family.lisp cells/cells-test/test-kid-slotting.lisp cells/cells-test/test.lisp
by ktilton＠common-lisp.net 01 Dec '04

01 Dec '04

Update of /project/cells/cvsroot/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv18186/cells-test Removed Files: boiler-examples.lisp cells-test.asd df-interference.lisp hello-world-q.lisp hello-world.lisp internal-combustion.lisp lazy-propagation.lisp person.lisp test-cyclicity.lisp test-family.lisp test-kid-slotting.lisp test.lisp Log Message: Cleaning up Date: Wed Dec 1 09:43:13 2004 Author: ktilton

1 0

[cells-cvs] CVS update: cells/asdf.lisp cells/build-sys.lisp cells/build.lisp cells/calc-n-set.lisp cells/cell-types.lisp cells/cells.asd cells/cells.lisp cells/dataflow-management.lisp cells/debug.lisp cells/defmodel.lisp cells/detritus.lisp cells/family-values.lisp cells/family.lisp cells/flow-control.lisp cells/fm-utilities.lisp cells/initialize.lisp cells/link.lisp cells/md-slot-value.lisp cells/md-utilities.lisp cells/model-object.lisp cells/optimization.lisp cells/propagate.lisp cells/qells.lisp cells
by ktilton＠common-lisp.net 01 Dec '04

01 Dec '04

Update of /project/cells/cvsroot/cells In directory common-lisp.net:/tmp/cvs-serv18186 Removed Files: asdf.lisp build-sys.lisp build.lisp calc-n-set.lisp cell-types.lisp cells.asd cells.lisp dataflow-management.lisp debug.lisp defmodel.lisp detritus.lisp family-values.lisp family.lisp flow-control.lisp fm-utilities.lisp initialize.lisp link.lisp md-slot-value.lisp md-utilities.lisp model-object.lisp optimization.lisp propagate.lisp qells.lisp qrock.lisp slot-utilities.lisp strings.lisp strudel-object.lisp synapse.lisp Log Message: Cleaning up Date: Wed Dec 1 09:42:55 2004 Author: ktilton

1 0

[cells-cvs] CVS update: cello/glbind/ffx/arrays.lisp cello/glbind/ffx/build.lisp cello/glbind/ffx/callbacks.lisp cello/glbind/ffx/definers.lisp cello/glbind/ffx/ffx.asd
by ktilton＠common-lisp.net 01 Dec '04

01 Dec '04

Update of /project/cells/cvsroot/cello/glbind/ffx In directory common-lisp.net:/tmp/cvs-serv18151/glbind/ffx Removed Files: arrays.lisp build.lisp callbacks.lisp definers.lisp ffx.asd Log Message: Cleaning up Date: Wed Dec 1 09:42:24 2004 Author: ktilton

1 0