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)
|
;(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))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue