[Openmcl-devel] Simple Agent-based Engine 0.2

Raffael Cavallaro raffaelcavallaro at mac.com
Sat May 30 15:01:06 UTC 2009


On May 30, 2009, at 10:31 AM, Bill St. Clair wrote:

> Attribute parameters get evaluated and PRINC'd, so you don't need the
> quotes around the numbers:

Thank you very much! This list is amazing.

Here's what I have in case anyone else is interested in an s- 
expression syntax for Alex's work using Bill St. Clair's suggestion of  
cl-who.

I've called the macro slui for s-expression lisp user interface:

;; after loading the xlui init file
;; and asdf-installing cl-who of course

(in-package :xlui)

(asdf:oos 'asdf:load-op :cl-who)

(defmacro slui (s-expression)
   `(let* ((*read-eval* t)
           (cl-who:*html-empty-tag-aware-p* nil))
      (read-from-string
       (cl-who:with-html-output-to-string
           (s nil :indent t)
         ,s-expression))))

;; example usage after loading
;; XMLisp/sources/XLUI/examples/3D/agents/Who is Talking.lisp :

#|

(slui
  (:chatty-window
   :track-mouse t :title "Objects" :margin 0
   (:agent-3d-view :name "scene"
                   (:cube :texture "crate.png")
                   (:sphere :x 2.0)
                   (:sphere :x 3.0 :texture "earth.png")
                   (:cube :size 3.0 :z -3.5 :texture "crate.png")
                   (:cube :x 5 :roll 45.0)
                   (:sky-dome :pitch 90))))

|#

warmest regards,

Ralph



Raffael Cavallaro
raffaelcavallaro at me.com








More information about the Openmcl-devel mailing list