some flags for demoing

This commit is contained in:
Dave Griffiths 2009-04-28 09:42:21 +01:00
parent 72d38a7bcf
commit e355094c67

View file

@ -13,8 +13,10 @@
;(set! plant2 #t) ;(set! plant2 #t)
(define debug-jab #t) (define debug-jab #t)
(define debug-netloop #f)
(define pollen-particles 300) (define pollen-particles 300)
(define max-pollen-radius 12) (define max-pollen-radius 12)
(define suck-pollen-radius 8)
(define deterministic #f) (define deterministic #f)
(define minimal-mode #f) (define minimal-mode #f)
(define jid "plant0000003@fo.am") (define jid "plant0000003@fo.am")
@ -239,7 +241,7 @@
(when deterministic (when deterministic
(flxseed 3) (flxseed 3)
(random-seed 10) ; 2 5 (random-seed 11) ; 2 5
) )
@ -340,7 +342,7 @@
(with-primitive pollen (with-primitive pollen
(pdata-index-fold (pdata-index-fold
(lambda (i p c r) (lambda (i p c r)
(cond ((< (vdist pos p) (/ size 10)) (cond ((< (vdist pos p) 0.5)
(pdata-set! "p" i (vector -1000 0 0)) (pdata-set! "p" i (vector -1000 0 0))
(cons c r)) (cons c r))
((< (vdist pos p) size) ((< (vdist pos p) size)
@ -467,7 +469,7 @@
(let ((pos (vtransform (vector 0 0 0) (let ((pos (vtransform (vector 0 0 0)
(with-primitive (component-root (list-ref flower-list flower)) (with-primitive (component-root (list-ref flower-list flower))
(get-global-transform))))) (get-global-transform)))))
(send world suck-pollen pos 5))) (send world suck-pollen pos suck-pollen-radius)))
(super-new) (super-new)
(init))) (init)))
@ -516,6 +518,7 @@
(with-xmpp-session jid pass (with-xmpp-session jid pass
(set-xmpp-handler 'message message-handler) (set-xmpp-handler 'message message-handler)
(let loop () (let loop ()
(when debug-netloop (printf ".~n"))
(when (not (null? outgoing)) (when (not (null? outgoing))
(for-each (for-each
(lambda (msg) (lambda (msg)
@ -894,7 +897,7 @@
(define (animate) (define (animate)
(send n update w) (send n update w)
(send w update n) (send w update n)
(sleep 0.01)) (sleep 0.01))
(every-frame (animate)) (every-frame (animate))