cells-cvs

cells-cvs@common-lisp.net

721 discussions

[cells-cvs] CVS update: cell-cultures/cellodemo/cellodemo.lisp cell-cultures/cellodemo/cellodemo.lpr cell-cultures/cellodemo/demo-window.lisp
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cell-cultures/cellodemo In directory common-lisp.net:/tmp/cvs-serv15540/cellodemo Modified Files: cellodemo.lisp cellodemo.lpr demo-window.lisp Log Message: Establish Cells II (aka Cells 2.0, aka Cells) as Cells module in Cells project CVS tree Date: Fri May 6 23:18:14 2005 Author: ktilton Index: cell-cultures/cellodemo/cellodemo.lisp diff -u cell-cultures/cellodemo/cellodemo.lisp:1.4 cell-cultures/cellodemo/cellodemo.lisp:1.5 --- cell-cultures/cellodemo/cellodemo.lisp:1.4 Thu Oct 28 02:09:03 2004 +++ cell-cultures/cellodemo/cellodemo.lisp Fri May 6 23:18:14 2005 @@ -22,9 +22,16 @@ (in-package :cello) -(defun demo-image-subdir (subdir) - (merge-pathnames (make-pathname :directory `(:relative ,(string subdir))) - cl-user::*cell-cultures-graphics-directory*)) + +#+test +(list + (demo-image-subdir "shapers") + (demo-image-subdir)) + +(defun demo-image-subdir (&optional subdir) + (make-pathname :directory + (append '(:absolute "cell-cultures" "cell-cultures-user" "graphics") + (when subdir (list subdir))))) (defun demo-image-file (subdir file) (merge-pathnames file Index: cell-cultures/cellodemo/cellodemo.lpr diff -u cell-cultures/cellodemo/cellodemo.lpr:1.5 cell-cultures/cellodemo/cellodemo.lpr:1.6 --- cell-cultures/cellodemo/cellodemo.lpr:1.5 Fri Apr 8 11:11:08 2005 +++ cell-cultures/cellodemo/cellodemo.lpr Fri May 6 23:18:14 2005 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "7.0 [Windows] (Dec 28, 2004 17:34)"; cg: "1.54.2.17"; -*- +;; -*- lisp-version: "7.0 [Windows] (Apr 6, 2005 17:03)"; cg: "1.54.2.17"; -*- (in-package :cg-user) @@ -21,58 +21,10 @@ :main-form nil :compilation-unit t :verbose nil - :runtime-modules '(:cg-dde-utils :cg.base :cg.bitmap-pane - :cg.bitmap-pane.clipboard :cg.bitmap-stream - :cg.button :cg.caret :cg.check-box :cg.choice-list - :cg.choose-printer :cg.clipboard - :cg.clipboard-stack :cg.clipboard.pixmap - :cg.color-dialog :cg.combo-box :cg.common-control - :cg.comtab :cg.cursor-pixmap :cg.curve - :cg.dialog-item :cg.directory-dialog - :cg.directory-dialog-os :cg.drag-and-drop - :cg.drag-and-drop-image :cg.drawable - :cg.drawable.clipboard :cg.dropping-outline - :cg.edit-in-place :cg.editable-text - :cg.file-dialog :cg.fill-texture - :cg.find-string-dialog :cg.font-dialog - :cg.gesture-emulation :cg.get-pixmap - :cg.get-position :cg.graphics-context - :cg.grid-widget :cg.grid-widget.drag-and-drop - :cg.group-box :cg.header-control :cg.hotspot - :cg.icon :cg.icon-pixmap :cg.item-list - :cg.keyboard-shortcuts :cg.lettered-menu - :cg.lisp-edit-pane :cg.lisp-text :cg.lisp-widget - :cg.list-view :cg.mci :cg.menu :cg.menu.tooltip - :cg.message-dialog :cg.multi-line-editable-text - :cg.multi-line-lisp-text :cg.multi-picture-button - :cg.multi-picture-button.drag-and-drop - :cg.multi-picture-button.tooltip :cg.os-widget - :cg.os-window :cg.outline - :cg.outline.drag-and-drop - :cg.outline.edit-in-place :cg.palette - :cg.paren-matching :cg.picture-widget - :cg.picture-widget.palette :cg.pixmap - :cg.pixmap-widget :cg.pixmap.file-io - :cg.pixmap.printing :cg.pixmap.rotate :cg.printing - :cg.progress-indicator :cg.project-window - :cg.property :cg.radio-button :cg.rich-edit - :cg.rich-edit-pane :cg.rich-edit-pane.clipboard - :cg.rich-edit-pane.printing :cg.sample-file-menu - :cg.scaling-stream :cg.scroll-bar - :cg.scroll-bar-mixin :cg.selected-object - :cg.shortcut-menu :cg.static-text :cg.status-bar - :cg.string-dialog :cg.tab-control - :cg.template-string :cg.text-edit-pane - :cg.text-edit-pane.file-io :cg.text-edit-pane.mark - :cg.text-or-combo :cg.text-widget :cg.timer - :cg.toggling-widget :cg.toolbar :cg.tooltip - :cg.trackbar :cg.tray :cg.up-down-control - :cg.utility-dialog :cg.web-browser - :cg.web-browser.dde :cg.wrap-string - :cg.yes-no-list :cg.yes-no-string :dde) + :runtime-modules '(:cg-dde-utils :cg.base) :splash-file-module (make-instance 'build-module :name "") :icon-file-module (make-instance 'build-module :name "") - :include-flags '(:compiler :top-level :local-name-info) + :include-flags '(:local-name-info) :build-flags '(:allow-debug :purify) :autoload-warning t :full-recompile-for-runtime-conditionalizations nil Index: cell-cultures/cellodemo/demo-window.lisp diff -u cell-cultures/cellodemo/demo-window.lisp:1.6 cell-cultures/cellodemo/demo-window.lisp:1.7 --- cell-cultures/cellodemo/demo-window.lisp:1.6 Thu Oct 28 02:09:03 2004 +++ cell-cultures/cellodemo/demo-window.lisp Fri May 6 23:18:14 2005 @@ -45,7 +45,7 @@ (make-pathname :name "brushdmtl" :type "jpg") - cl-user::*cell-cultures-graphics-directory*))) + (demo-image-subdir)))) :pre-layer (c? (let ((tx-name (texture-name (^skin))) (tx-size (image-size (^skin)))) (with-layers :on +white+ @@ -72,17 +72,15 @@ (defun run-demos (demo-names start-at &rest iargs) (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) + :md-value (c-in (list start-at)) + ;:idler 'mg-glut-idle + :content demo-names + iargs) (lambda () ;;; -- not sure how much of this new reset stuff is necessary --- (cl-ftgl-reset) (cl-ftgl-init) - (wands-clear) - ;; (ogl::xfg) - ))) + (wands-clear)))) (defun run-stylish-demos (demo-names start-at &rest iargs) (with-styles ( @@ -148,12 +146,11 @@ (list (md-value lm)))) :snapshot-pathnamer (lambda (self) - (merge-pathnames - (make-pathname - :name (format nil "snap-me-~3,,,'0@A" - (snapshot-release-id self)) - :type "jpg") - cl-user::*cell-cultures-output-directory*)) + (make-pathname + :directory '(:absolute "cell-cultures" "cell-cultures-user" "output") + :name (format nil "snap-me-~3,,,'0@A" + (snapshot-release-id self)) + :type "jpg")) :pre-layer (c? (with-layers +white+

1 0

[cells-cvs] CVS update: cell-cultures/cello/cello-magick.lisp cell-cultures/cello/cello.lpr cell-cultures/cello/image.lisp cell-cultures/cello/window-callbacks.lisp cell-cultures/cello/window.lisp
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cell-cultures/cello In directory common-lisp.net:/tmp/cvs-serv15540/cello Modified Files: cello-magick.lisp cello.lpr image.lisp window-callbacks.lisp window.lisp Log Message: Establish Cells II (aka Cells 2.0, aka Cells) as Cells module in Cells project CVS tree Date: Fri May 6 23:18:12 2005 Author: ktilton Index: cell-cultures/cello/cello-magick.lisp diff -u cell-cultures/cello/cello-magick.lisp:1.3 cell-cultures/cello/cello-magick.lisp:1.4 --- cell-cultures/cello/cello-magick.lisp:1.3 Fri Oct 15 05:37:21 2004 +++ cell-cultures/cello/cello-magick.lisp Fri May 6 23:18:12 2005 @@ -84,7 +84,7 @@ (defun ix-render-wand (wand l-box) (if wand (apply 'wand-render wand (r-bounds l-box)) - (trc "ix-render-wand sees no wand" l-box))) + (trc nil "ix-render-wand sees no wand" l-box))) ;;;(defun wand-centered-bounds (wand size) ;;; (let* ((raw-w (magick-get-image-width (^mgk-wand))) Index: cell-cultures/cello/cello.lpr diff -u cell-cultures/cello/cello.lpr:1.3 cell-cultures/cello/cello.lpr:1.4 --- cell-cultures/cello/cello.lpr:1.3 Fri Oct 15 05:37:21 2004 +++ cell-cultures/cello/cello.lpr Fri May 6 23:18:12 2005 @@ -1,11 +1,10 @@ -;; -*- lisp-version: "6.2 [Windows] (Sep 3, 2004 12:04)"; common-graphics: "1.389.2.105.2.14"; -*- +;; -*- lisp-version: "7.0 [Windows] (Apr 6, 2005 17:03)"; cg: "1.54.2.17"; -*- -(in-package :common-graphics-user) +(in-package :cg-user) -(defpackage :cello (:export)) +(defpackage :CELLO) (define-project :name :cello - :application-type (intern "Standard EXE" (find-package :keyword)) :modules (list (make-instance 'module :name "cello.lisp") (make-instance 'module :name "datetime.lisp") (make-instance 'module :name "window-macros.lisp") @@ -50,7 +49,7 @@ (make-instance 'module :name "cello-magick.lisp") (make-instance 'module :name "cello-openal.lisp")) :projects (list (make-instance 'project-module :name - "..\\cells\\cells") + "c:\\0dev\\cells_2.0\\cells") (make-instance 'project-module :name "..\\cl-opengl\\cl-opengl") (make-instance 'project-module :name @@ -61,28 +60,20 @@ "..\\cl-openal\\cl-openal")) :libraries nil :distributed-files nil + :internally-loaded-files nil :project-package-name :cello :main-form 'cello::form3 :compilation-unit t :verbose nil - :runtime-modules '(:cg :drag-and-drop :lisp-widget - :multi-picture-button :common-control - :edit-in-place :outline :grid :group-box - :header-control :progress-indicator-control - :common-status-bar :tab-control :trackbar-control - :up-down-control :dde :mci :carets :hotspots - :menu-selection :choose-list :directory-list - :color-dialog :find-dialog :font-dialog - :string-dialog :yes-no-list-dialog - :list-view-control :rich-edit :drawable :ole :www - :aclwin302) + :runtime-modules nil :splash-file-module (make-instance 'build-module :name "") :icon-file-module (make-instance 'build-module :name "") - :include-flags '(:compiler :top-level :local-name-info) + :include-flags '(:local-name-info) :build-flags '(:allow-debug :purify) :autoload-warning t :full-recompile-for-runtime-conditionalizations nil :default-command-line-arguments "+cx +t \"Initializing\"" + :additional-build-lisp-image-arguments '(:read-init-files nil) :old-space-size 256000 :new-space-size 6144 :runtime-build-option :standard Index: cell-cultures/cello/image.lisp diff -u cell-cultures/cello/image.lisp:1.8 cell-cultures/cello/image.lisp:1.9 --- cell-cultures/cello/image.lisp:1.8 Sun Dec 5 05:49:59 2004 +++ cell-cultures/cello/image.lisp Fri May 6 23:18:12 2005 @@ -65,7 +65,10 @@ (progn (ogl-dsp-list-prep self) (when (every 'dsp-list (kids self)) - (let ((display-list-name (or .cache (gl-gen-lists 1))) + (let ((display-list-name (or .cache + (eko ("new disp list" + (mod (get-internal-real-time) 1000)) + (gl-gen-lists 1)))) (*ogl-shared-resource-tender* (ogl-shared-resource-tender self))) (gl-new-list display-list-name gl_compile) @@ -80,6 +83,10 @@ display-list-name))))) (gl-name :initarg :gl-name :initform nil :accessor gl-name) (renderer :initarg :renderer :initform nil :accessor renderer))) + +;;;(def-c-output dsp-list () +;;; (when old-value +;;; (gl-delete-lists old-value 1))) (defmethod not-to-be :after ((self ogl-node)) (bwhen (dl (^dsp-list)) Index: cell-cultures/cello/window-callbacks.lisp diff -u cell-cultures/cello/window-callbacks.lisp:1.5 cell-cultures/cello/window-callbacks.lisp:1.6 --- cell-cultures/cello/window-callbacks.lisp:1.5 Fri Apr 8 11:11:07 2005 +++ cell-cultures/cello/window-callbacks.lisp Fri May 6 23:18:12 2005 @@ -105,7 +105,7 @@ (trc nil "window-display > rendered w " self (glutgetwindow)) (incf (frame-ct self)) - (when (display-continuous self) + #+not (when (display-continuous self) (trc nil "window-display > continuous specified so posting redisplay" self) (glut-post-redisplay))) Index: cell-cultures/cello/window.lisp diff -u cell-cultures/cello/window.lisp:1.6 cell-cultures/cello/window.lisp:1.7 --- cell-cultures/cello/window.lisp:1.6 Fri Apr 8 11:11:07 2005 +++ cell-cultures/cello/window.lisp Fri May 6 23:18:12 2005 @@ -24,6 +24,8 @@ ;------------- Window --------------- ; + + (defmodel window (focuser ix-lit-scene control ogl-shared-resource-tender) ( (glutw :initarg :glutw :accessor glutw @@ -415,9 +417,11 @@ ((or (c-stopped) (zerop (glut-get-window)))) ;;(format t "before main loop ~a | ~&" (glut-get-window)) - (glutmainloopevent) + (progn ;; time + (glutmainloopevent)) (setf (tick-count new-window) (os-tickcount)) - (sleep 0.05))))) + (sleep 0.05) + )))) (defmethod ix-paint :around ((self window)) (flet ((projection ()

1 0

[cells-cvs] CVS update: cells/utils-kt/debug.lisp cells/utils-kt/defpackage.lisp cells/utils-kt/detritus.lisp cells/utils-kt/flow-control.lisp cells/utils-kt/quad.lisp cells/utils-kt/strings.lisp cells/utils-kt/utils-kt.asd cells/utils-kt/utils-kt.lpr
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cells/utils-kt In directory common-lisp.net:/tmp/cvs-serv14248/utils-kt Added Files: debug.lisp defpackage.lisp detritus.lisp flow-control.lisp quad.lisp strings.lisp utils-kt.asd utils-kt.lpr Log Message: Establish Cells II (aka Cells 2.0, aka Cells) as Cells module in Cells project CVS tree Date: Fri May 6 23:05:56 2005 Author: ktilton

1 0

[cells-cvs] CVS update: cells/doc/01-Cell-basics.lisp cells/doc/cell-doc.lisp cells/doc/hw.lisp
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cells/doc In directory common-lisp.net:/tmp/cvs-serv14248/doc Added Files: 01-Cell-basics.lisp cell-doc.lisp hw.lisp Log Message: Establish Cells II (aka Cells 2.0, aka Cells) as Cells module in Cells project CVS tree Date: Fri May 6 23:05:55 2005 Author: ktilton

1 0

06 May '05

Update of /project/cells/cvsroot/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv14248/cells-test Added Files: boiler-examples.lisp build-sys.lisp cells-test.lpr df-interference.lisp echo-setf.lisp hello-world-q.lisp hello-world.lisp internal-combustion.lisp lazy-propagation.lisp output-setf.lisp person.lisp synapse-testing.lisp test-cyclicity.lisp test-family.lisp test-kid-slotting.lisp test-lazy.lisp test.lisp Log Message: Establish Cells II (aka Cells 2.0, aka Cells) as Cells module in Cells project CVS tree Date: Fri May 6 23:05:52 2005 Author: ktilton

1 0

[cells-cvs] CVS update: cells/README.txt cells/asdf.lisp cells/cell-types.lisp cells/cells-test.asd cells/cells.asd cells/cells.lisp cells/cells.lpr cells/constructors.lisp cells/defmodel.lisp cells/defpackage.lisp cells/family-values.lisp cells/family.lisp cells/fm-utilities.lisp cells/initialize.lisp cells/integrity.lisp cells/link.lisp cells/load.lisp cells/md-slot-value.lisp cells/md-utilities.lisp cells/model-object.lisp cells/optimization.lisp cells/propagate.lisp cells/slot-utilities.lisp cells/synap
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cells In directory common-lisp.net:/tmp/cvs-serv14248 Added Files: README.txt asdf.lisp cell-types.lisp cells-test.asd cells.asd cells.lisp cells.lpr constructors.lisp defmodel.lisp defpackage.lisp family-values.lisp family.lisp fm-utilities.lisp initialize.lisp integrity.lisp link.lisp load.lisp md-slot-value.lisp md-utilities.lisp model-object.lisp optimization.lisp propagate.lisp slot-utilities.lisp synapse-types.lisp synapse.lisp test.lisp Log Message: Establish Cells II (aka Cells 2.0, aka Cells) as Cells module in Cells project CVS tree Date: Fri May 6 23:05:45 2005 Author: ktilton

1 0

[cells-cvs] CVS update: Directory change: cells/utils-kt
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cells/utils-kt In directory common-lisp.net:/tmp/cvs-serv14166/utils-kt Log Message: Directory /project/cells/cvsroot/cells/utils-kt added to the repository Date: Fri May 6 23:04:24 2005 Author: ktilton New directory cells/utils-kt added

1 0

[cells-cvs] CVS update: Directory change: cells/doc
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cells/doc In directory common-lisp.net:/tmp/cvs-serv14166/doc Log Message: Directory /project/cells/cvsroot/cells/doc added to the repository Date: Fri May 6 23:04:23 2005 Author: ktilton New directory cells/doc added

1 0

[cells-cvs] CVS update: Directory change: cells/cells-test
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv14166/cells-test Log Message: Directory /project/cells/cvsroot/cells/cells-test added to the repository Date: Fri May 6 23:04:23 2005 Author: ktilton New directory cells/cells-test added

1 0

[cells-cvs] CVS update: Module imported: cells
by ktilton＠common-lisp.net 06 May '05

06 May '05

Update of /project/cells/cvsroot/cells In directory common-lisp.net:/tmp/cvs-serv14118 Log Message: Status: Vendor Tag: tcvs-vendor Release Tags: tcvs-release No conflicts created by this import Date: Fri May 6 23:03:24 2005 Author: ktilton New module cells added

1 0

← Newer
1
...
46
47
48
49
50
51
52
...
73
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-cvs