diff --git a/hayfever/hayfever2.scm b/hayfever/hayfever2.scm
index 275f776..00eacff 100644
--- a/hayfever/hayfever2.scm
+++ b/hayfever/hayfever2.scm
@@ -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))