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