some flags for demoing
This commit is contained in:
parent
72d38a7bcf
commit
e355094c67
1 changed files with 7 additions and 4 deletions
|
@ -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))
|
||||
|
||||
|
|
Loading…
Reference in a new issue