cells-devel April 2004

cells-devel@common-lisp.net

3 participants
4 discussions

[cells-devel] I'm Back
by Kenny Tilton 26 Apr '04

26 Apr '04

On the Cello side, the 1000-GF dispatch bottleneck is gone, and that does seem to have improved things by 20% or so. But I still get 10fps. This I presume is the step-function effect: I will not see a change in fps until I get fast enough to reach the next step in improvement, like 20fps. My next effort will be to implement display lists just at the widget level, so the containers (stacks and rows) will still go through their logic on each frame, but when it is time to draw a slider track or slider thumb (possibly even the combo) those will be done by display-lists. Stay tuned. kt -- Home? http://tilton-technology.com Cells? http://www.common-lisp.net/project/cells/ Cello? http://www.common-lisp.net/project/cello/ Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film Your Project Here! http://alu.cliki.net/Industry%20Application

2 5

[cells-devel] hiatus for relo
by Kenny Tilton 22 Apr '04

22 Apr '04

I'll be out of e-touch for a couple of days until I get reconnected (Friday according to plan) to the information superhighway. See ya then. kenny

1 0

[cells-devel] ANNC: PortaCello3
by Kenny Tilton 17 Apr '04

17 Apr '04

I just uploaded PortaCello3.zip with .sig to: ftp://common-lisp.net/pub/project/cello Check out also the new scroller screen shot, now scrolling the lovely work of our own David Steuber, which he has made available with attribution under the Creative Commons license. ftp://common-lisp.net/pub/project/cello/mandel-scroller.jpg That same GIF happens to be a fine texture for shapes, including a sierpinski sponge, itself a fractal: ftp://common-lisp.net/pub/project/cello/mandel-sponge.jpg David explains that the lossy nature of JPG kills the image quality, so to see the above really well you have to... download and port Cello to your environment. :) The code as stands runs under AllegroCL (lprs included) and Lispworks on windows, and a reasonable facsimile has in the past been made to run under AllegroCL/Linux by Frank Goenninger. Speaking of AllegroCL lprs, the install notes just talk about the ASDF build process. Anyone using ACL can -- after adjusting configuration.lisp according to the install notes -- just run /dv//cello/cellodemo/cellodemo.lpr. Look for a PortaCello4 maintenance release, after which Kenny goes to work on his own project and porting proceeds only as others do ports. Future releases will continue, but will be KennyCellos, ie, just what he uses day-to-day. Eventually this will include a Mac OS X port, but that could be a lonnnnnnngggggg time from now. kenny -- Home? http://tilton-technology.com Cells? http://www.common-lisp.net/project/cells/ Cello? http://www.common-lisp.net/project/cello/ Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film Your Project Here! http://alu.cliki.net/Industry%20Application

1 0

[cells-devel] Unbound cells
by Thomas F. Burdick 14 Apr '04

14 Apr '04

I have a couple models where I'd like to have unbound slots that normally have cv cells in them. NIL is a valid value, so I can't just say "nil is the invalid value." What I'm doing is using a special invalid-value object when I'd normally have an unbound slot: (defconstant +unbound+ '+unbound+) (deftype %nil () '(or nil (eql +unbound+))) (defmacro define-unbound-methods (&body slot-specs) (loop for (class slot opt-accessor) in slot-specs for accessor = (or opt-accessor slot) collect `(defmethod ,accessor :around ((object ,class)) (let ((value (call-next-method))) (if (eq value +unbound+) (error 'slot-unbound :instance object :name ',slot) value))) into methods finally (return `(progn ,@methods)))) (defun cv_ () (cv +unbound+)) (defmodel my-handler (araneida:handler) ((user-id :accessor user-id :initarg user-id :initform (cv_) :documentation "user id or NIL if the user didn't supply valid credentials") (homepage :accessor homepage :initarg homepage :initform (c?_ (aif (id (^user-id)) (make-homepage-for-user id) (create-user-account)))))) (define-unbound-methods (my-handler userid)) (defmethod handle-request-authentication ((handler my-handler) method request) (setf (user-id h) ...)) If user-id is unbound, it means that authentication hasn't been performed yet, so it would be a program error to try to use its value at that point. It seems like it wouldn't be too hard to put the concept of unbound slots into Cells itself, so that storing the unbound-slot value would work fine, but reading it would signal a slot-unbound error. Add cell-makunbound and cell-boundp, and it would be the normal CLOS semantics again. Does this sound like a good idea? Or is there a more idiomatically Cells way of doing this, and I'm wandering too far down The Dark Path of Lazyness?

2 5

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-devel April 2004