From 409d3c66901be7c7e559027695a078ef59635130 Mon Sep 17 00:00:00 2001
From: Dave Griffiths <dave@pawfal.org>
Date: Mon, 27 Jul 2009 09:36:13 +0100
Subject: [PATCH] debugging...

---
 plant-eyes/jabberer.ss | 4 ++--
 plant-eyes/logic.ss    | 2 +-
 plant-eyes/view.ss     | 1 -
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/plant-eyes/jabberer.ss b/plant-eyes/jabberer.ss
index 9bb0dd5..c966309 100644
--- a/plant-eyes/jabberer.ss
+++ b/plant-eyes/jabberer.ss
@@ -5,7 +5,7 @@
 ; a class which wraps the xmpp in a thread and allows messages to be picked up
 ; and sent by the game
 
-(define debug-netloop #f)
+(define debug-netloop #t)
 
 (define jabberer%
     (class object%
@@ -17,7 +17,7 @@
             (incoming '())
             (outgoing '())
             (thr 0)
-            (debug-jab #f))
+            (debug-jab #t))
         
         (define/public (get-incoming)
             incoming)
diff --git a/plant-eyes/logic.ss b/plant-eyes/logic.ss
index c37d4fc..a910785 100644
--- a/plant-eyes/logic.ss
+++ b/plant-eyes/logic.ss
@@ -476,7 +476,7 @@
                                      (vmul (srndvec) pickup-dist-radius)))))
     
     (define/public (add-player plant)
-      (printf "new player plant added~n")
+      (printf "new player plant added ~a~n" (send plant get-id))
       (send-message 'player-plant (list
                                 (list 'plant-id (send plant get-id))
                                 (list 'pos (send plant get-pos))
diff --git a/plant-eyes/view.ss b/plant-eyes/view.ss
index 6e172dc..7dabb48 100644
--- a/plant-eyes/view.ss
+++ b/plant-eyes/view.ss
@@ -330,7 +330,6 @@
                (opacity 0.6)
                (colour col)
                (hint-depth-sort)
-               (printf "size=~a~n" size)
                (scale (* 0.12 size))
                             (when wire-mode 
                               (hint-none)