From 261aa3937ac7a768c332313ee352b7b68c00cec5 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Sat, 2 Jan 2010 21:47:08 +0000
Subject: [PATCH] performance bug, more fixes

svn: r17463
---
 collects/2htdp/private/world.ss       |   45 +-
 collects/2htdp/tests/perform-robby.ss |   21 +
 collects/2htdp/tests/perform-whack.ss | 1361 +++++++++++++++++++++++++
 collects/2htdp/tests/profile-robby.ss |   14 +
 4 files changed, 1431 insertions(+), 10 deletions(-)
 create mode 100644 collects/2htdp/tests/perform-robby.ss
 create mode 100644 collects/2htdp/tests/perform-whack.ss
 create mode 100644 collects/2htdp/tests/profile-robby.ss

diff --git a/collects/2htdp/private/world.ss b/collects/2htdp/private/world.ss
index 2a26e7679b..989450c601 100644
--- a/collects/2htdp/private/world.ss
+++ b/collects/2htdp/private/world.ss
@@ -210,6 +210,10 @@
        (rec    on-receive))
       
       (define drawing #f) ;; Boolean; is a draw callback scheduled?
+      (define (set-draw#!) (set! draw# (random 3)) (set! drawing #f))
+      (define draw# 0) 
+      (set-draw#!)
+      
       (define-syntax-rule (def/pub-cback (name arg ...) transform)
         ;; Any ... -> Boolean
         (define/public (name arg ...) 
@@ -218,6 +222,13 @@
              (with-handlers ([exn? (handler #t)])
                (define tag (format "~a callback" 'transform))
                (define nw (transform (send world get) arg ...))
+               (define (d) (pdraw) (set-draw#!))
+               ;; ---
+               ;; [Listof (Box [d | void])]
+               (define w '()) 
+               ;; set all to void, then w to null 
+               ;; when a high priority draw is scheduledd
+               ;; --- 
                (when (package? nw)
                  (broadcast (package-message nw))
                  (set! nw (package-world nw)))
@@ -230,14 +241,24 @@
 		     (when draw (pdraw))
 		     (callback-stop! 'name)
 		     (enable-images-button))
-		   (let ([changed-world? (send world set tag nw)])
-		     (unless changed-world?
-                       #;
-		       (when draw (pdraw)) 
-                       (when (and draw (not drawing)) 
-                         (set! drawing #t)
-                         (queue-callback (lambda () (pdraw) (set! drawing #f))
-                                         #f)) ;; low priority, otherwise it's too fast
+                   (let ([changed-world? (send world set tag nw)])
+		     (unless changed-world? 
+                       (when draw 
+                         (cond
+                           [(not drawing)
+                            (set! drawing #t)
+                            (let ([b (box d)])
+                              (set! w (cons b w))
+                              ;; low priority, otherwise it's too fast
+                              (queue-callback (lambda () (unbox b)) #f))]
+                           [(< draw# 0)
+                            (set-draw#!)
+                            (for-each (lambda (b) (set-box! b void)) w)
+                            (set! w '())
+                            ;; high!!  the scheduled callback didn't fire
+                            (queue-callback (lambda () (d)) #t)]
+                           [else 
+                            (set! draw# (- draw# 1))]))
 		       (when (pstop)
 			 (when last-picture 
 			   (set! draw last-picture)
@@ -259,9 +280,13 @@
       (def/pub-cback (prec msg) rec)
       
       ;; ----------------------------------------------------------------------
-      ;; draw : render this world 
-      (define/private (pdraw) (show (ppdraw)))
+      ;; -> Void 
+      ;; draw : render the given world or this world (if #f)
+      (define/private (pdraw) 
+        (show (ppdraw)))
       
+      ;; -> Scene
+      ;; produce the scene for the this state
       (define/private (ppdraw)
         (check-scene-result (name-of draw 'your-draw) (draw (send world get))))
       
diff --git a/collects/2htdp/tests/perform-robby.ss b/collects/2htdp/tests/perform-robby.ss
new file mode 100644
index 0000000000..15f9503631
--- /dev/null
+++ b/collects/2htdp/tests/perform-robby.ss
@@ -0,0 +1,21 @@
+#lang scheme
+(require 2htdp/universe 2htdp/image)
+
+(define (slow)
+  (let sloop ([n (expt 2 22)])
+    (unless (zero? n)
+      (sloop (- n 1)))))
+
+(define (update-world w)
+  (slow)
+  (- w 1))
+
+(define (render w)
+  (circle 30 'solid (if (odd? w) 'red 'green)))
+
+(big-bang 10
+          (on-tick update-world)
+          (on-draw render)
+          (stop-when zero?))
+
+(printf "done\n")
diff --git a/collects/2htdp/tests/perform-whack.ss b/collects/2htdp/tests/perform-whack.ss
new file mode 100644
index 0000000000..07cbda281d
--- /dev/null
+++ b/collects/2htdp/tests/perform-whack.ss
@@ -0,0 +1,1361 @@
+#reader(lib"read.ss""wxme")WXME0108 ## 
+#|
+   This file uses the PLT Scheme editor format.
+   Open this file in DrScheme version 4.2.3.8 or later to read it.
+
+   Most likely, it was created by saving a program in DrScheme,
+   and it probably contains a program with non-text elements
+   (such as images or comment boxes).
+
+            http://www.plt-scheme.org
+|#
+ 44 7 #"wxtext\0"
+3 1 6 #"wxtab\0"
+1 1 8 #"wxmedia\0"
+4 1 8 #"wximage\0"
+2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
+1 0 16 #"drscheme:number\0"
+3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
+1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
+1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
+0 0 19 #"drscheme:sexp-snip\0"
+0 0 40 #"(lib \"image-core.ss\" \"2htdp\" \"private\")\0"
+1 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
+1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0"
+0 0 29 #"drscheme:bindings-snipclass%\0"
+1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
+1 0 22 #"drscheme:lambda-snip%\0"
+1 0 8 #"gb:core\0"
+5 0 10 #"gb:canvas\0"
+5 0 17 #"gb:editor-canvas\0"
+5 0 10 #"gb:slider\0"
+5 0 9 #"gb:gauge\0"
+5 0 11 #"gb:listbox\0"
+5 0 12 #"gb:radiobox\0"
+5 0 10 #"gb:choice\0"
+5 0 8 #"gb:text\0"
+5 0 11 #"gb:message\0"
+5 0 10 #"gb:button\0"
+5 0 12 #"gb:checkbox\0"
+5 0 18 #"gb:vertical-panel\0"
+5 0 9 #"gb:panel\0"
+5 0 20 #"gb:horizontal-panel\0"
+5 0 33 #"(lib \"readable.ss\" \"guibuilder\")\0"
+1 0 56
+#"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browser\")\0"
+1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
+1 0 26 #"drscheme:pict-value-snip%\0"
+0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
+2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
+1 0 18 #"drscheme:xml-snip\0"
+1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
+1 0 21 #"drscheme:scheme-snip\0"
+2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
+1 0 10 #"text-box%\0"
+1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
+1 0 15 #"test-case-box%\0"
+2 0 1 6 #"wxloc\0"
+          0 0 93 0 1 #"\0"
+0 75 1 #"\0"
+0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
+#"Standard\0"
+0 75 23 #"Lucida Sans Typewriter\0"
+0 12 90 -1 90 -1 1 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24
+#"framework:default-color\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15
+#"text:ports out\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
+-1 2 15 #"text:ports err\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17
+#"text:ports value\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
+-1 2 27 #"Matching Parenthesis Style\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
+-1 2 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:symbol\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
+#"framework:syntax-color:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+38 #"framework:syntax-color:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
+#"framework:syntax-color:scheme:string\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
+#"framework:syntax-color:scheme:constant\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
+#"framework:syntax-color:scheme:parenthesis\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
+#"framework:syntax-color:scheme:error\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 36
+#"framework:syntax-color:scheme:other\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
+38 #"drscheme:check-syntax:lexically-bound\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 28
+#"drscheme:check-syntax:set!d\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
+#"drscheme:check-syntax:imported\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 4 1
+#"\0"
+0 70 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 4 4 #"XML\0"
+0 70 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 8 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 8 24
+#"drscheme:text:ports err\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 4 1
+#"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
+-1 4 1 #"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
+-1 4 1 #"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
+-1 0 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 200 0 0 0 0 0 -1 -1 0 1
+#"\0"
+0 75 23 #"Lucida Sans Typewriter\0"
+0.0 12 90 -1 90 -1 1 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 22 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 15 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 4 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 14 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 19 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 22 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 14 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
+22 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
+15 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
+14 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
+19 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
+15 1 #"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 20 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 19 1
+#"\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 17 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
+20 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1
+0 1 #"\0"
+0 75 7 #"Monaco\0"
+0.0 14 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 0 1 #"\0"
+0 75 1 #"\0"
+0.0 10 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 0 1 #"\0"
+0 75 12 #"Courier New\0"
+0.0 10 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 2 1 #"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 2 1 #"\0"
+0 71 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 100 0 0 0
+0 -1 -1 2 41 #"profj:syntax-colors:scheme:block-comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+35 #"profj:syntax-colors:scheme:keyword\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 139 0 139 0
+0 0 -1 -1 2 37 #"profj:syntax-colors:scheme:prim-type\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 139 0 139 0
+0 0 -1 -1 2 38 #"profj:syntax-colors:scheme:identifier\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
+#"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 34 139 34 0
+0 0 -1 -1 2 34 #"profj:syntax-colors:scheme:string\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 34 139 34 0
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:literal\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 34 139 34 0
+0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:comment\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
+33 #"profj:syntax-colors:scheme:error\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:default\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 37
+#"profj:syntax-colors:scheme:uncovered\0"
+0 -1 1 #"\0"
+1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 35
+#"profj:syntax-colors:scheme:covered\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 139 0 139 0
+0 0 -1 -1 20 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 4 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 0 -1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 2 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 65 105 225 0
+0 0 -1 -1 0 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
+0 -1 17 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 17 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 255 165 0 0
+0 0 -1 -1 24 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
+-1 -1 24 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 -1 -1 0 1 #"\0"
+0 75 12 #"Courier New\0"
+0.0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 24 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 255 165 0 0
+0 0 -1 -1 0 1 #"\0"
+0 75 15 #"Lucida Console\0"
+0.0 15 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
+255 255 1 -1 14 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 0 0 0
+-1 -1 20 1 #"\0"
+0 -1 1 #"\0"
+1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 0 0 0
+-1 -1           0 480 0 4 3 85
+(
+ #";; The first three lines of this file were inserted by DrScheme. The"
+ #"y record metadata"
+) 0 0 4 29 1 #"\n"
+0 0 4 3 85
+(
+ #";; about the language level of this file in a form that our tools ca"
+ #"n easily process."
+) 0 0 4 29 1 #"\n"
+0 0 4 3 183
+(
+ #"#reader(lib \"htdp-intermediate-reader.ss\" \"lang\")((modname whack"
+ #"-a-mole) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#"
+ #"t constructor repeating-decimal #f #t none #f ())))"
+) 0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 7 #"require"
+0 0 51 3 1 #" "
+0 0 14 3 14 #"2htdp/universe"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 7 #"require"
+0 0 51 3 1 #" "
+0 0 14 3 10 #"htdp/image"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 14 3 3 #"req"
+0 0 14 3 1 #"u"
+0 0 14 3 3 #"ire"
+0 0 4 3 1 #" "
+0 0 14 3 7 #"profile"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 17 3 1 #";"
+0 0 17 3 51 #"; If the following constant is set to 16 or higher,"
+0 0 4 29 1 #"\n"
+0 0 17 3 66
+#";; the window locks up and it appears that the only events getting"
+0 0 4 29 1 #"\n"
+0 0 17 3 72
+(
+ #";; through are tick events.  At 12, it's sluggish but almost accepta"
+ #"ble."
+) 0 0 4 29 1 #"\n"
+0 0 4 29 1 #"\n"
+0 0 17 3 6 #";; I c"
+0 0 17 3 4 #"an n"
+0 0 17 3 3 #"ow "
+0 0 17 3 6 #"do 24 "
+0 0 17 3 2 #"an"
+0 0 17 3 13 #"d it is okay "
+0 0 4 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 4 3 1 #" "
+0 0 14 3 9 #"num-grass"
+0 0 4 3 1 #" "
+0 0 20 3 2 #"24"
+0 0 22 3 1 #")"
+0 0 14 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 17 3 35 #";; world is a (make-world num posn)"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 13 #"define-struct"
+0 0 51 3 1 #" "
+0 0 14 3 5 #"world"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"mole-time"
+0 0 51 3 1 #" "
+0 0 14 3 8 #"mousepos"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 17 3 74
+(
+ #";; Interp: time the mole will remain onscreen, and current mouse pos"
+ #"ition."
+) 0 0 51 29 1 #"\n"
+0 0 17 3 11 #";; Example:"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 6 #"world1"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"make-world"
+0 0 51 3 1 #" "
+0 0 20 3 4 #"1000"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 17 3 17 #";; Mouse handler:"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"accept-mouse"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"m-x"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"m-y"
+0 0 51 3 1 #" "
+0 0 14 3 10 #"event-type"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 2 #"  "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"make-world"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 15 #"world-mole-time"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 22 3 1 #")"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 9 #"make-posn"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"m-x"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"m-y"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 17 3 16 #";; Tick handler:"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"update-world"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 2 #"  "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"make-world"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"sub1"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 15 #"world-mole-time"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 14 #"world-mousepos"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 17 3 25 #";;;; Graphical constants:"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 6 #"hammer"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"circle"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"3"
+0 0 51 3 1 #" "
+0 0 19 3 7 #"\"solid\""
+0 0 51 3 1 #" "
+0 0 19 3 8 #"\"yellow\""
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"mole-look"
+0 0 51 3 1 #" "
+0 3          29 51 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0           9 500
+(
+ #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0(\0\0\0(\b"
+ #"\6\0\0\0\214\376\270m\0\0\17\277IDATx\234U\230k\214]Wy"
+ #"\206\237\265\326\336\373\334\317\231\273\347\342"
+ #"xl\217\355\330\236\304\271\30r\241I(4D\242\210\224[TAT\252B\213"
+ #"\250Z\225V \265\245\250J\372\243\5!ZU\324I\243\240\"~\320?\5\251"
+ #"R)PZn\201\224\204\220\330\220\200"
+ #"\215=c\317\214\347\342\271\234\231s?{\357u\353\217}\306\241[Zgk\237"
+ #"}\373\276o\275\353}\337o\213\207?"
+ #"3\355\363\371\34*\b\b\303\200\270\0373>1\306\316v\235~?fo\247\201"
+ #"\aN\335v\2340\214\350t;\24\2539\312\3452?}~\221\365\327:\264\256"
+ #"[Z\365>\2\b\303\220^7\2452T \356\367\31>\224\343\370\203\243\24\306"
+ #"<\345J\t\23;\n\305<8(\225K\354\356\356\21\4\1A\240\270\276\264\6"
+ #"\2\202 \240Z\253P\e\252\22\214O\214r}y\215\332P\215r\271\210\265\226"
+ #"\265\325\rJ\345\"\"\26\234\274\3558\227/-\222\313G4\232M\232\365\16/"
+ #"|e\227\e?\325\34\21%\346gG8q|\210[\177c\2040T\b)\20"
+ #"B\240\265\243\321N\270\270T\347\207_Z\347r\322\340\360\275%&\356\b(U"
+ #"r\324\206j\320\355\22\205\21A\240X"
+ #"_\337\344\304\251c\\\372\305\25\216\36"
+ #";\314\302\345\253\250@!\336\373\314I"
+ #"\337\355\364(\226\n\264\232mJ\345\""
+ #"I\234\"\a/\212\343\204\326^\233\273"
+ #"\357\277\235\205\237\255s\376\213;\234\316"
+ #"\225\270w~\234\a\316\316`\275\0)AJ\204T\b\1\2\201\0\20\240\4\24"
+ #"C\305s?Y\345\271\363k<\277\276\306\331\17MP\233\216p\32"
+ #"F\307\206YYZ\5\340\370\255s\264\333\35\352;\273T*e\372"
+) 500
+(
+ #"\375\30\361\340\223\243\376\310\334,/\375"
+ #"\350\2G\216\335\302\322\302*GO\314b\214aj\372\0ZkzI\227\265\363"
+ #"=^|j\215O\276\357\24s\207\207\361J!T@\30\5\204A\200\n\2\244"
+ #"\224\203\n\2^\340\275\303{\2175\26)<\241\202kKM\376\354\251\3479\371"
+ #"\201\n\367\277\373V\256_]\343\300\344"
+ #"\4\265\241\32\255f\213\265\325\r\206\206"
+ #"k\\\271t\215b)OP*\227\330\336\252s\372\314\t\232\215\26g\336p\n"
+ #"\357\34J\5\354l\327Im\302\302\217"
+ #"\366\330\370j\3023\37\235\247a$\315~J!\37\21\205\1B\tP\203\300\224"
+ #"D\n\1B\200\367\b$\316:\204\24h\353\350\3655C#!\337\370\364#\274"
+ #"\357S\337!\312/Q\2365\364z}\326V78q\362\30\336{\272\235\36\0"
+ #"\371|\169>1\312\310\350\20\306\30F\307\206i7;\224\312ez\275>\371"
+ #"b\216R\276\306\306\177$\374\371\273\16"
+ #"\262\\\217I\265\3059\217G\200\a\357"
+ #"E6\0\234\307y\360\16\262\303A\260d\347=`R\307\302F\213s\177z\17"
+ #"\313_\355\242|H\30\5\314\35?\302\325\205%\16\3362M.\27q\313\3544"
+ #"\225j\31\271\267\333 M5\345r\211"
+ #"\225\2455\246\17N\321l\264\20B\220"
+ #"\352\204\27\276|\203\273\17\344i%\32"
+ #"m\f\316\372l\332\234\317^\352<\316"
+ #";\274\363X\357p\316\341\234\305:\207w.K\306\373\233{\353<\306Z\366z"
+ #"}\368\\\345\322\327c:\235\16+Kk\24\213\5\244\224\24\212y\272\335\36"
+ #"\215\275&\262\333\355a\255%I\22\242\\\304\312\322*\245R\221\\!bea"
+ #"\e.\264\271o\276L\242\301Z\217\321"
+ #"\26c\34\3269\214v\30\347\261\326\242\215%\325\206TkRc\320"
+ #"\332\222ZCj,\332z\254u\30\353\320\326b\255\243\333\323\274\365\r"
+) 500
+(
+ #"\243\24\27\f\215\235>;\333u\204\24lo\325\351vz\344r\21\225j\5Y"
+ #"\e\252b\264\301\30K\24\205\0\\]XBHOc\301RP\202~\352qx"
+ #"\274\27\244\326`lv\275\266\26\243S\2646\244iJ\232\32\2224%Itv"
+ #"\234\30\214\326h\2551&\273\307\30\207"
+ #"\31$\320\350\246\224\2\301\362O\232L"
+ #"\35\32\247\323\356\322n\265\251\326*Xk\251\rU\220\373T\22\4\1B\b\274"
+ #"\367L\3372E\263\323d\365E\303o\336Y\315\2t\36\353\a\323j\34\316Z"
+ #"tjH\22C\22k\3428%\211\23\222~B\322\217\211\343\204$I\210\223\224"
+ #"d\20\2543\26\234\305XK\2525\255v\314\273\356\31f\373<tz\35\2228"
+ #"fxd\210\255\315\35\242(bc}\213`\237\265{\335\36C\303U\362\371<"
+ #"\251N\t|\36\263\231\22\237p8$"
+ #"\336\201\302\263\262\325\347\347\327\353<|"
+ #"\367\1f\247\207\260\6\234s\203\344\30"
+ #"\360_\306\241b\2600\2)\20\336\261\272\325\342\233?^\345\366C\25\16T%"
+ #"\3269\372\336\342\353\26a\2\242\274 "
+ #"_\310c\214\305Z\213\224\202\300\271\254"
+ #"\344J)\366v\233(\325\301y\213O\n\34)(R\v^\200\363\16\353<\271"
+ #"@\262\266\323\347\v__\344\276\371q"
+ #"\336r\367\24\245B\2041\373\321\r\30"
+ #"\32\220B\240\224\240\3353|\357\345u"
+ #"~\370\352\26\271@p\327\3412\306z"
+ #"\254\5\357a\256\244\220\272Hu4\300"
+ #"\30C\251\\\244T*\262\266\272A\260\267\333 \212\"\342Ay;\355.\326i"
+ #"\222\246\300\222\5\6`\275$\265\236\261"
+ #"Z\310\357\275\355 \347\257v\370\336\205"
+ #"M^\370\305.\357y\350 \267\317\215\340\274\307\r(F\n\360Rp\341J\203"
+ #"\177\177n\205^lx\350\3161\316\316\325\20\336\322"
+ #"\353k\274w8\357\321\316!}\200\224\2\253\35\255"
+) 500
+(
+ #"f\233f\243\305\370\304(Am\250zsyom\356\340\234\343\300\324\4k\355"
+ #"6\220e\350\274G9\217s\216T;"
+ #"\362y\305\257\3379\312\275\363\243|\347"
+ #"\225M\276\364\315\253\34\231\336\342#\357"
+ #"<6\340=0\326\363\354\327\26\270\266"
+ #"\336\341\336\323c<|\367\4\371\0:"
+ #"\275\224Tg\364\343\234\317`\340 \227\217P\312\323kw\tT@.\37!\204"
+ #"\3100X\337\331\243\337\217\251TJ\f"
+ #"\217\324h5\333\244q\2\36\234\361x"
+ #"\225=\304;\207\263\36g\35\335\276!\237\vy\367\3\a9{r\214\345\e]"
+ #"\234s\200\0042\316;u\250\306\333\357"
+ #"\235\346\226\261\34Il\351\367\r\306f"
+ #"\317\360\326\341<\b\aB\b\32\273Mr#E\234s\f\217\324h6\332\331\342"
+ #"\225R\320\357\307\224\313Er\371\34\235"
+ #"v\227\211\351q\322V\2035\277\205%CzF\302\22GF\310\312y\214u\364"
+ #"S\303\364h\236\231\261\302\0\16\16|"
+ #"\2464o\272m\24\357\34\375$\3\275"
+ #"\331't\3470\36\254\363\b\357\311\270"
+ #"\1\2420\344\372\316:C\303UJ\345"
+ #"\"[7\266\221\235v\227\261\361\21\362"
+ #"\205<\365\372.Q1`\341\312\"\327\236\337E\6\31\355x\227=\304y\237U"
+ #"\321{\34\356&\206\314\200\e\235\333\377"
+ #"\317\341\275\305X\203\266\231\272\230\301\377"
+ #"vp\277'3\22\336\273L\2\235\245X+P\e\251p\345\3225\322$%\214"
+ #"B\202 \314V\216\220\260w\275G\375"
+ #"\242\245\363\212g\375\347{L\217\2078\357\1\221i\254\a;\220+\3472u@"
+ #"\n\224R\204\201@\16\354\226\367\36c"
+ #",\251\31H\342`\270A\242\336;\234\313\256\23@P\220,}y\e\333\202\311"
+ #"#5N\237\231 \ns\31\6\3030due\235\343\267\317\322\276\356\270"
+ #"\372\265zVn\221\211\277\24\2\ax\353\260\312\21Z\211\302#\274\5\349"
+) 500
+(
+ #"\341i\367\341\277\277\277F\247\327\307X"
+ #"K)\237cv\246\306\203\267\r\23\353"
+ #"\4\213Gx\201\360\231\\Z\347\301y"
+ #"\224\204^\354\351\244\216\355\206e\353\331"
+ #"\e\314\377\266f~f\234\244\255)WJ\4\235v\227\203\263Sl\2564h\274"
+ #"`\310\221\341<u\260\326\260\0247b\346\306rD\221B\t0&\345\302\225\6"
+ #"\224&\tKcX\24\2778\377\"\367\237\310Q=\30\240D@j<W\326\267"
+ #"xfEs\372\324)\222~\35\323\335a\262\22425V\306K\350\30\307\345\325"
+ #"\36\27\327b\272\211c2'(y\317"
+ #"\316w\333\310\267\317\320\3557\221\262\204"
+ #"x\364\363s>**\276\3657\213\244"
+ #"\313\26\251 \222`\235\300\252\201\24\b"
+ #"\301\361\251\34\207F\24u?\311\307>\365Y\36~\370aFje~\360\277\257"
+ #"\360\261\307\316rx&\217q\257\323\264"
+ #"\302\260ffy\361\302\2\316\303\362\312"
+ #"\6\237\371\333\277\346\342\17\376\25\355\24"
+ #"\257-\367H\255\347\310xH+v\314:Gj,k]I\373\220\344\241OL"
+ #"\22\312\34\201\f\241\261li/[B\5J\n\20\36/\340@Eqr2b"
+ #"q\307pi-\346\247\313\236O\376\325"
+ #"\373y\317\243\357 \b\202\314X,\376"
+ #"\222\335&\24\3136\363\177\3\2226\332"
+ #"\260\331\333\30\30C\313\370H\231\371\333"
+ #"\356\340\231g\277\210\360\226\371C\5\216"
+ #"O\344(\347\340\271\313=\224PT\2"
+ #"\301\250\364l.\e\322\255\210\374A\201"
+ #"\272\353\375SO\374\327\223\v\310\276G"
+ #"(\201\222\36\205\304\1\371Pr\313\220bz$GD\312;>\360G\374\313\27"
+ #"\236\341\225W^\341\267\36}\224\335\335"
+ #"]\356\270m\236\363WV\370\366\367/\20HK/\261,\337\260\264]\221'?"
+ #"\375O\23486\207\367\236\337\371\340\a9\367\3249\236"
+ #">w\216\346\316\22g\306\272x!\260\6V\366R\206\21"
+) 500
+(
+ #"D\n\214sx\3\257\276\274\307]\357"
+ #"\235B<\366\364\355\376\337\376\360UB"
+ #"\231e\256D&\356\306z\306\252\212339\202P\360\322\245.Wvb\256\\"
+ #"\3729\233[[\314\315\315\241\323\24\251"
+ #"\24\265Z\215\37\277\3642\377t\356\363"
+ #"\364\373}\36y\333#<\376\370\343H"
+ #"\1q\34\23\4\1\213\213\213\214\217\217"
+ #"s\346\314\35|\350\367?\214\276\374\25R\27!q\374h\261\307!/(\206\236"
+ #"V\342\331Ia\261gy\347\337\37'hluo\272\16qS\332\308\223l"
+ #"\312R\3Q\16>\376\361\217s\361\342k\274\365-oa|l\2148\216\1\250"
+ #"\357\35403u\200\177\374\334\347\220J"
+ #"\21\3071\33376\260\3a\316\347\363"
+ #"\274\360\342\213\374\317\267\277\315\233\37z"
+ #"3\27_\273\300\221 S\0341@\255\367\36o=\271P\22\31C\4\244=O"
+ #"\220\352\364\246\t\361b?\310\f\203\355"
+ #"\304\363\263\265\204z\317\221hx\372\237"
+ #"\317\361\320\3\17R)\225\330\333\331!"
+ #"\325\232\233\233\20\344\302\20\244\304h\215"
+ #"\265\366\346\251~\30R*\24p\326r\356\351g\330\335\335\346RA2R\16\230"
+ #"\254H\22\233\3315%\5rP\226\20"
+ #"2\251\213\202\20G6\265\336\201\6\254"
+ #"\313*\232\364-\326I\246\252\212\231\221"
+ #"\220^\234\222\313\3479rx\216T\e\2146x<RJ\362\271\2_\377\326w"
+ #"\371\317o~\203'>\371\227T\253e"
+ #"\214\326x\262\226\340\2367\274\221n\354\330\\\371;\3569Tfe[\263\276g"
+ #"\270^\327X\347i\n\230*H\16\25 \n\24\n\203\265\226`\277\n\36\201\20"
+ #"\231GSY\3659PU\334>\23\1\2\25\bF\313Ez7\236\343O>\372"
+ #"=\16\35\235gr\346\b\371B\211\335\235\r\226\256]bDmqv\252"
+ #"\304_|\342w\231>t\232\311\351"
+ #"\375\363\353\\[\274D\321\336\340\376\243"
+) 500
+(
+ #"U\264\225T\362\212\223S\216^lyy%A%\236\255\3041\21\202\20\22\0"
+ #"\235\30\2\37\245\3[\225\31\316Pe"
+ #"\213\305\271\f\224\3328\20\2\207\4\341"
+ #"(\26\"\336tR\241\365\25\222\353\277"
+ #"$\1J\271\200\373\216\344\310\205#8"
+ #"\17\217\334\35\321\351.\321\273q\205\226"
+ #"\361\24\2\301\331\203!R\16\221\244\16"
+ #"k\34\306\202\321\216HB(a\266 \310+\205\366\220\30\217\3\306gk\4\23"
+ #"\2635j3\273\264\326\fb\20\334>h\361\36\357\301\343Qdf\324Z\2171"
+ #"\236(\f)\26$J\n\204\24x\a\375\304\355\303\2210\f\251\5\341\300<d"
+ #"\367\245\332\r\332N\237I\236\3658A&\245\b\300!U\200\351ir\223\2U"
+ #"\262\310\306v\233S\217\215\f\f\317@\aD\266`^7\a\f\332\313\314\375j"
+ #"\343\320\326\221\32Gb-\251\266hm\a\335\236A\e\203NM\326\355\351L!"
+ #"\264\261h\223\231\b\347\262\26\324\r,"
+ #"\227\367\340\360\b\251\200L\237\317|\3440q;E\26r\5*\263\222\23\2776"
+ #"\212\261\334l\262\31P\215\277\331x;"
+ #"\254\a\253A[\213N]\326\373\246\226T;\22cI\323\314q\247iv\234h"
+ #"G\242\a\327\16\332Mc|\346r\254\3038;\260hY[\213\200^3%\272"
+ #"\277\306\324\251\0226u\4\273\365\6*"
+ #"\220\234\371\360\30\233W\233\2647\f\201"
+ #"\332\257\340\300&\261\317\2116\333k\t"
+ #"j\340\210\245@\b\207\360\"3\323\373"
+ #"\233\3/\366\23\315\340\341\34\3\253\226"
+ #"M\265\265\29\230;\347\300'\216\326\301<\247?|\200\356^\237j\255B\340"
+ #"\275GJE}s\217\273\376x\224\227"
+ #"\377a\233\316\216\333o-\262\a\337\4"
+ #"\200\300x\217\227\16\347\5\316\200P"
+ #"\22\4\310\233\276\370u\303\340\366\3\365.\303\331`v"
+ #"\366\203\315\222\367\2036\2\266\16DL\377\301\b\322A"
+) 500
+(
+ #"\234\30z:F\26\212\5\224R8\v\371B\310cO\275\221\243\367\17\343<8"
+ #"\313\300=\373A\307\226\rm\375\3538"
+ #"\324\206T\233l\212\177e$\373\237B"
+ #"\214!\265\16\255\35\251\366h\3\326dx66\373|\"bO\353\326\220\371'"
+ #"\217#\204\241\335\350\22\4\1C\3035"
+ #"\324\201\373\324\23\307o=\212\20 \205\344\306\215M\216\275u\214hD`W!"
+ #"\327K3^\222\331j\306\263\277\354\262"
+ #"\335~5|\306\241\356W\216\263\4\301"
+ #"Y1p\324\274\236\250\365\330\256\243\245"
+ #"\24\243\357\256q\327\207\216\241{\t\325"
+ #"J\225 \bH\222\224v\273\203\272\353}3O\244iJ\261X \356\307\b!"
+ #"\311\205y\302aC\365\336\220\256\n\321"
+ #"\333\6\333\266\4\210\254\237\270\211\317A"
+ #"\0^\f\272\276\327\207\333?g\375\377"
+ #"\v\312%\2368\366$9E\377\316\34\217|\366!\362c\340bG\273\325\245Z"
+ #"\253\220$)\315F\v\2555\342\361/"
+ #"\335\341\313\2252\313\327\256\337\\\255\0"
+ #"\245r\221N\247\313\344-\23\270\24V"
+ #"_\332f\365;\353\214\366\363\230n\202"
+ #"\362\36\2512\f\356\343\365W7\277\377\343=X\320\36D! 8\\\"\177\246"
+ #"\210\232\361D\305\200J\261\314\360\360\20"
+ #"7\3267)\226\n\304qB\232\244H)\351v{\210\307\236=\355\373\275>a"
+ #"\24\342\234C\247\232\251\231I._\\"
+ #"\240T.\21\4\212\332p\25\213a\267"
+ #"\321\242\265\326\247\32\24\250\277\332F\355"
+ #"\bt\263\207\213\r\312B(%2\0+\300!\260\241 \254\26h\347z\4\263"
+ #"\202\3\307&)OE4\353-\362a\236(\n)\24\362\364\3731\355V\a\245"
+ #"\24\205B\236\\>\207\265\226\235\355]\202B!\217\20\240\265A\bA\230\vY"
+ #"\274|\rc\262\317_\333[u\256/\257\243\224\342\320"
+ #"\321\31\222ZB\"\22\336\370\221yv\367\366\20J\320"
+) 88
+(
+ #"h\264\251\324\31247\273\324/\246\fM\226\tg\22\306F\206I\23\315\336N"
+ #"\203\221\241!t\242\t\\\310Hm\230N\273K}{\227(\27\321\330m11"
+ #"9\306\330\370\bB\b\366v\et:]j\265\n\377\a\236"
+ #"\235\2\375mi\4d\0\0\0\0IEND\256B`\202"
+) 0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 10 #"grass-look"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"put-pinhole"
+0 0 51 3 1 #" "
+0 3          31 51 1 #"\0"
+2 -1.0 -1.0 0.0 0.0 0          10 500
+(
+ #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0(\0\0\0(\b"
+ #"\6\0\0\0\214\376\270m\0\0\21\300IDATx\234=\230\331\217\34\211}"
+ #"\337?uwU\365Q}\367\364\334\34rx\314\236\334\325J{Jk\371H,"
+ #"\310\27\344+p`\310F\202 ~\260_\374\224\27\"\17\371\a\364\22\4\360S"
+ #"\20\344\200a#\216rm$mV\226\245\365.\315].\271\344\222\\\222\303a"
+ #"OO\367\364U\335]\367\351\207\36\261"
+ #"^\v\5\374\352\367\373\376\276\307O\370"
+ #"\265\357\355\345A\20bU\313H\222D\30F\354\356m\263\230/\231Nf\314\355"
+ #"\5\213\371\222f\253N\24\305\244iJ"
+ #"\357\311\200\257\275u\225\351d\206a\352"
+ #"\210\242\210a\32\364{\3fS\233f"
+ #"\253\316\243/\217\250\325+\344y\316\245"
+ #"\203}~\376|\374\263O8\351E\374\342\257>O\251\\\342t8\"K3\232"
+ #"\355\6\207\217\216\330\273\260K\340\a\334"
+ #"\377\342!\242( \354\375\v\362?\370"
+ #"\356o\362?\377\373{\24\313&\212\242"
+ #"\260\261\331EVd\306\243\t\313\205C\24\305$qL\275Q\243Z\263(\226\212"
+ #"<\270\367\220\311h\306\305+{,\27\16s{\301\333\337x\235\321h\202\263t"
+ #"\330;\277K\24\307Da\304r\351\0"
+ #"\220&)\212\252\260\276\336A\224$\376"
+ #"\313\177\374k\252\2652f\321$\bB\352\215*\273{\333<\372\362\220$N\30"
+ #"\217\246\b\177\3627\357\344\337\377\353\37"
+ #"\363\366\273/\361\364\250O\241\240\261\273"
+ #"\267\r\300pp\312\334^\260\276\261\306\243/\17\251XeN\ac\362<\307Y"
+ #"\372\374\301\37}\207\277\372\257\337\247\331"
+ #"\256s\360\374%>\370\341Oy\375\355WI\222\224\345bI\226et7\326\230"
+ #"\333\213g\0354M\203;\267\357\221\246){\27v"
+ #"i\267\233\304IB\222$\234\34\17x\357\373\267\250"
+) 500
+(
+ #"T\341\215w^b\271t\220\322\215\321\265<K\350n\264q]\2178N\350\35"
+ #"\35\23G\21\206\2413\233\330\364{C.\37\354\343,]\3224E\323\v\304Q"
+ #"\314\217\336\273\305?\373\303o\261\276\261"
+ #"\306lf\223e\31\207\217\216h4\353"
+ #"\250\232J\357\250\217,\313H\222D\236"
+ #"\347\0\374\354o\257\323h\326\220$\tQ\24q]\17g\351\20\370!\375\343\1"
+ #"\337\376\255w(Wt\246\23\233(\212"
+ #"\221\253\365\nq\234\20E1\206\241\363"
+ #"\372[\257\1\360\321\207\377\200\256\353l"
+ #"n\257\323\357\r\320\r\235\235s[|\370\223\353DQL\255^\341\235_x\216"
+ #"\a\367\37\242\353:Y\226Q\3205\322"
+ #"\264\310\203{\217\320\365\2\227\17\366\231"
+ #"Mm\222$A\222$\314\242\211\242\310"
+ #"\210\222H\263\335x\206\265\237\27\277\261"
+ #"\325\345\223\353\237\341\271\36\333\273\233D"
+ #"Q\214\360\335\377\374\225\334\367}\306\243"
+ #")i\2322\354\217Q5\205J\265L\255n\241i*\206i\360\243\377\373\21\377"
+ #"\344\333o\1p\373\346\35\336\374\372\327"
+ #"\370\273\17>\244\273\321\341\306Gw\350n4X\314\35\332kM&\243)\255N"
+ #"\203\a_<\341\352k\a$IJ\30\204\224+%\332\235\26\213\305\222R\251\310"
+ #"t2C+h\24\n\32\256\353\361\360\301!\262,q~\377\34O\36?\245T"
+ #".\"\374\356_\34\344\0\222$\241\252*wn\337C\24ETU\341\360\341\230"
+ #"\257\377\342\313\344yN\30F\344y\316"
+ #"\361\323\23\236\177\351\n\267>\275\303\301"
+ #"\v\227\350\35\365\21\4\201\331\324f\357"
+ #"\302\16\247\3031\233\333\353|\364\323O"
+ #"0\314\2\257\275~\225<\317\31\16F\b\202@\253\335\340t8F\222D6\267"
+ #"7\270}\363.\222$\3428.\233[\3534\333\r\36|\361\220\345\322a"
+ #":\266\221^\374\255\265k\0\236\3473\36M(\227\213\244iJ\232\246H"
+) 500
+(
+ #"RN\263]'I\22\26s\aEU\310\262\fY\226\310s\230Mm\4A@"
+ #"Qd\n\5\rQ\24I\342\204R\271H\222$(\212L\265f1\31OI\323"
+ #"\fE\221I\223\24Q\24\250\326\252\330"
+ #"S\233\351tF\273\323\"\216\343g\243"
+ #"\236\333\v\3428\241\331\252!\aA\310ljcU+\b\202@\30Fg\30\263"
+ #"\260gKfS\233b\311$\317s\306\243)\353\e\35\354\331\34Y\226\360<\37"
+ #"\303\320)\225\213\344y\316b\276D\222"
+ #"Dt\275\200\246\251X\325\nQ\0301\36MQ\24\5\331*\341\272\36\205\202F"
+ #"\222$\4A\300tl\223\304\t\202(\3428\36q\24S*\27)W\212\24\n"
+ #"\5\304~o\200i\32\230\246\1\300\311\361)q\24\243\0254\332k\r\246\23\e"
+ #"\3234\2517\252\224\313E\3020\242T"
+ #".\342\373\1\335\3656Y\226a\317\346"
+ #"\317 0\267\27\364\236\366I\222\224\376\361\200\311xJ\275Q#\216cDQ$"
+ #"MSDQ\344\356\31\224:\335\26\313"
+ #"\271\213\242\310\344Yv\366^\240\273\276"
+ #"\306d<E\252^\315\257\275\360\362\1\303\301)\17\276x\312\363/]d}\263"
+ #"K\277w\362l\363F\247\23\362,c\261pX\316\227\250\232\212=[\340\271\36"
+ #"Y\236\21\307\t\272\241S\3205\242(\306u}\232\255:\256\343!\b\"\366l"
+ #"\216\242(\317\260-\212\"\25\253\314b\276$\212b.^>\217\353x\230Ec"
+ #"\5\223$\5\300\266\27\210{\373\333<\270\367\20EUh\257Y\350z\1\263\250"
+ #"\3\20G1\273{\333\4~\300\334^\240\353\5TMe:\2661\213\6I\222"
+ #"\220\245\31\345r\211\243\307=\6\375S"
+ #"t\275@\22\307\364\216\372di\6@\236eH\222\304\351`D\251\\\"\317s"
+ #"\254j\5\253Z\301\367|\3020D\226%d"
+ #"E\306uW\205\16\a#\312\225\22r\261h\""
+) 500
+(
+ #"\3132\242(0\35\317Q\324>W\236\273D\236\3474Zu\6'C\256~\345"
+ #"E\362<\307\236\331\314\355%\202.\20"
+ #"\3071a\20Q\337\2501\34\2140\212\3063*\t\303\350\31\320\223$\241\323m"
+ #"3\350\17\2517j(\212B\256\347\374"
+ #"\335\a\37\321\335h\223\246\253\t\344y"
+ #"\216(\212\310\262\214\357\ah\5\25I\22\21\3030BQd\236<\356a\26u"
+ #"\366.\354\"\b\260wa\27{6'\3132\36>x\314\341\243#\356\337}\264"
+ #"\332\364J\t\263hR\3205\312\225\22"
+ #"\316\322\347\345W^\0\340\351\223c\302"
+ #" DU\25\254j\205F\263\316\326\366"
+ #"\6\252\246R\253W\271\373\371}\346\366"
+ #"\202r\245\310r\341\20G1\213\371\22"
+ #"\317\363\211\302\210$I\20E\221F\263"
+ #"\316b\356 \275\362;\e\327\216{'"
+ #"\234\236L\371\205_y\eY\226\370\374"
+ #"\326=\266\266\327\211\242\bY\226Y."
+ #"\34\362<C+\250\314m\207\365\315\16"
+ #"\25\253L\305*\263\\\272\210\242\210\246"
+ #"\251\214G\23\\\307#\212b6w\326\231Mf$Ir\266h\6\243\323\361\252"
+ #"\203y\316\336\205]\3428F\325T\fS'\216\23\262,G\222$\234\245\203 "
+ #"\bh\5\rY\325TDQD\24\5\202 @U\25*V\231\e\37\337\244\331"
+ #"n\20\205\21\323\261\315W^\177\tY"
+ #"\226q\35\217\273\267\277\244\275\326\340t"
+ #"8\302u|\32M\213{w\37\220\3479\252\252\20\307)\272^\240Z\263\220d"
+ #"\211\345\302!\313\24\262,\347\305\253\317"
+ #"\341{>\177\373\376\207\274\362\332\213\244"
+ #"i\212=\233\243i*\235n\233,\315\30\16F\330\2639[\333\eHW\177{"
+ #"\343Z\22'\324\352\25\202 @\24$*V\t{6\247\337\e\342:\36V\255"
+ #"L\265Za6\265\251\326,\232\255:A\20\221g9"
+ #"FQg<\232\341.\3\2420FQd\3428>\303"
+) 500
+(
+ #"hH\226e|\363\227\277\316\347\267\357\21G1\256\3432\36M\251\325-\6'"
+ #"\247t7\326\330\336\331d2\231\221&)Y\226R,\232x\236\217 \bH\372"
+ #"e\367Z\265^ec\263K\232d\fNN\231Nl$I\244\325i\0\2k"
+ #"\335\26\206\251\363\340\336!V\265\314t"
+ #"b\223\347\31\212\252\322l\325\361=\237"
+ #"R\331\240\325ip:\230P\261\212T*e\234\245\313\302^\"\313\22\256\353Q"
+ #"*\27Y.]\262,\5\4\6\375\21\252\246\340:.\366l\301\340xH\226\347"
+ #"DQDvFk\322\333\337\335\277vr< \a\32\315:\375\336\200\212Ub"
+ #"\377\342\371\225S6\f \243P\320\310"
+ #"\363\214(\212\317\n\314\231N\246|y"
+ #"\357\204\356F\203\235s[\310\262D\305*\242j\5*V\tA\20h\2575\371"
+ #"\364\372\347\354]\330\346\352\253/\362\350"
+ #"\313C|/@\325T\366/\355q\373\323{\244YJ\305*\23\3071\25\253L"
+ #"\24\306\b\202@\232fH\277\372\247\257"
+ #"\\\e\234\f\321\n\32\276\347\23E!\223\361\24UU9:<b{w\325\376"
+ #"\2337\356S*\353,\227\36V\265D\222\2444\2325Z\35\213\271\275\244b\225"
+ #"\371\361\17oQkT8z\334\303\367Wd\255(2\305\322\212\354\1\372\307\3"
+ #"\332\235&\273{;h\5\r\243\270\262j\253\361{H\222\204\246\251g\324'\""
+ #"5\277\312\265\316Z\233+\317]<\263;2\262\242q:\34\323\352\264\21E\211"
+ #"\303GO0\f\203j\315\302s=DQ\344t0\341\340\205K\b\202\310h8"
+ #"A\323d\332k\26\236\347\263\275\333\345\213\333}\252u\23YV\220d\231~o"
+ #"\200Q\3241\f\235\336\321\tfQ\347\372\2077\261je\2043\211\235\214=D"
+ #"![\21\266\343r\341\342\36\322\205_\261\256"
+ #"!p\246\245\31\272\241\243i\32\345J\31\323"
+) 500
+(
+ #",p:\34\323]os\365\325\347\370\344\372g\354]\330E\24\5\372O\207\324"
+ #"\352\25\246\23\eE\225Q\24\205\212U"
+ #"\241\331\254\343\373!\325\272\301\334^P"
+ #"\253W\250\325\353t\272-\310s&g\0360\317s:\335\26\237\335\270OAW"
+ #"\211\243\230\213\a;L'6\263\311|\245Tq\202\264\366\246rmm\275\303\215"
+ #"\217n\22\370\1\315V\3MS\231\214"
+ #"\2478\216\313\326\316\6\245r\221'\207"
+ #"=~N\352\222$\221\2461\236\27\260"
+ #"\265\275\301|\276D\24E\4Q\340\350"
+ #"\260\217a\26\350\254\265\210\242\30\317\363"
+ #"I\323\204v\273\305\223\303\247\224+%\252\265U\332[\353vh\266,TM\245"
+ #"\336\250\322Yk\363\370\341\21\315v\235"
+ #"Z\335\302q\\\244\356\233\312\265R\311"
+ #"$\212cj\365*\323\311\214 \b\260gs\254j\31Y\226\t\303\bg\351 "
+ #"\2122y\266Jf\203\376)\305\222\301b\341\340{>\216\343\242\252\n99\335"
+ #"\215\3163\v\267R#\210\343\210V\273"
+ #"\311\370tL\24\256\322\336I\177\205}"
+ #"\327\361\230\214&<y\364\224<\317\271"
+ #"|p\1Y\226\250\325\253\210\333\273\e\370\276O\226\345L'\253\3740\36M1"
+ #"L\35Y\226\t\202\200/\356<\240\240\27\20\204\34Q\2248\35\216)WV\213"
+ #"\262\230/\21E\tI\222q]\237\321p\202=\233\223\304\t\237}r\227j\255"
+ #"J\222$x\256O\24\306\344\271\200\242(X\3252\v{\311\350tB\232\246\30"
+ #"\246\201Y4h\266\353\210\242\310b\276"
+ #"d2\236\256\2648\216R\254j\231R\311<\v\341:Y\226\223\246)\256\343\261"
+ #"\265\263A\34G\344\271\200\343\270\204A"
+ #"\204\242\256\272\331\3564q\226\16\252\246"
+ #"\242(2\25\253\204\252*\4A\210\347\6H\222D\305*\243\25\n\364"
+ #"\236\366\320u\235$\211\211\242\230K\a\347y\353\235\257R\256\2240L\35"
+) 500
+(
+ #"\3034\320\365\2\307\275\23\34\307%\b"
+ #"B\304\300\17\311\262\4\337\v\320\r\235"
+ #"\265n\233\205\275\304s}\322$\245\337\e\"\313\22a\20\23\4>V\265\202a"
+ #"\26\210\302\30I\226Y\314\27\30\246\376,\367\26K&A\20P*\2278\177q"
+ #"\e\327\361V?\266\\\222\304)\216\343 \212\"q\24#I\22\363\371\2028\212"
+ #"9|\370t\25i\v\332\252\243\206N\271RB\214\242\b\255P\300u\\\6\375"
+ #"\341\231L%\4~\300\341\243\36/\274"
+ #"|\200\353\270\b\2\214\6\23\306\247S\\\307CQUL\263H\226\201,KH"
+ #"\222H\236\347\370~\300t2g6\265i\265\233dY\202\347.\317\212.\"I"
+ #"\3423\31\213\242\230O\256\177F\20\204"
+ #"\354_\336c\347\334\26a\20\262\261\331"
+ #"\245V\257b\317\346\210V\265\2\b\b\202@\263\335\340\341\375CTU\3010u"
+ #"4MA7\n\204aJ\20Dl\355\256\343,\35$I\3044\rdEB\24"
+ #"A\20\4\26\366\2224\315\20E\201Ri\25\274N\372\247t7:Tk\26\0"
+ #"Y\226\261sn\v\317]\25\370\364\3111fq\225wdY\302uV\316HV"
+ #"d\216\236\34\263sn\vq:\261\211"
+ #"\302\210b\251\210a\350T\353\26\312\231\2273K&?\370\337?\301Y:\314&"
+ #"sJ\345\"\316\322'I\4\3224\341\370\250\377\314p\252\232\302d4\303u<"
+ #"\252\265\n\255v\203\223\343\23|/8"
+ #"\343Xp\35\27\327q\331\335\333\"\3132\352\215*Vue\333\312\2252Q\264"
+ #"Jv\223\361\224$\216\261\252\25\244\363"
+ #"\277\\\2716\31O\261\2542\276\347\3"
+ #"\2\363\331\234(\212\361\275\200\347_\276"
+ #"H\30\206\344\371\312\26Uke\2420"
+ #"\3050Uj\315\32\316\302\241\337\263\331\277\274K\30\370\244\311j\271"
+ #"\nz\201\354L\273\2535\2138N(\226L\346\366\342Yp2L}"
+) 500
+(
+ #"\345\320\1A\340\314t\24\31\217\246\264"
+ #":M\246\223\31\322\273\377\362\312\265O>~\314ra3\235\314Y.\34Z\235"
+ #"\6\343\341\214bI\347\235w\337\244\337"
+ #"?\241\331j\220$)y\16\215\246\205\357\207DaD\243YG\24S\16\37\36"
+ #"\263\267\277\213a\32<\376\362\210f\273"
+ #"\201n\350\370\276\217(\211t\326Z\b"
+ #"\202\2602\265\256\217\357\373,\27\16a"
+ #"\30b\230\6w>\273\217\357\373\254o"
+ #"\254\201\300*\346\236N\220eY\346\265"
+ #"7\366W\256Y\0Q\20\250\326,\352\325*3\333\246\331j\340\314W\324\" "
+ #"\340-=Z\235&\375\336\20\323\324y\370\340\220w\336\375*\267n\336%\n#"
+ #"t\323$\216s\352\215\32\236\353Q*"
+ #"\231\314\347\v\2420\242\177|\202\263\364"
+ #"\2507\253$I\212\347z\254u\333\210\222H\331*R\255Y\224\312ETM%"
+ #"I\22\342(F\354\35\35\23\305\21[\233\353\324\353\26\265Z\205,KQt\225"
+ #"\235\363;\374\267\377\364W\34\37\215\221D\21I\2218wq\233\303\307=^}"
+ #"\375\25n\177:F\310\341\307?\372\220"
+ #"\265\365\16\222,\361\371\315;\\:\330"
+ #"\345\311\343\36K\307\341\302\245\363<~"
+ #"\360\4E\225\361\275\220\235\275M$IF\222D\316\357\357>\313\"\27.\356b"
+ #"U\313Dq\314\255O>\307s=\2224Cx\347\3376r\243d\220\2041\265"
+ #"F\225<\313\311\362\224\34\221\305\334A"
+ #"\327\24\256<\177\211\243\307G$B\216"
+ #"c;\274\365\2157\370\331O\256\263\277"
+ #"\277\215$)|\360\376\207\324\233\26\222(\"\b9\5\275H\340\373\224kEN"
+ #"\216N\330\334Z\347\301\375\207\204AB"
+ #"\255Q\"\2122\302(\342\312\301>7\376\376\26\2)\227_\270H\226\345\204Q"
+ #"D\32\245\244Y\212Y1\221\256|\273yM\24\5"
+ #"Dqu\257\23%\tA\20\211\302\20\337\367h\265\233"
+) 500
+(
+ #"\374\315_\376\204\335\v\35\226s\227f"
+ #"\253\311\17\376\317\a\253[\n\2\255v"
+ #"\235\223\223\1\205B\2014IY\333\350\262\260m\f\263\300h8er:\341\270"
+ #"\177\312\271\363;\224*E*V\5M\323\330\332^\247\323ia\224\f\266v\267"
+ #"\b\202\220(\212)\26M\262\354\354$\374\345S\304V\273A\253\325\244T61"
+ #"\f\235<\317\t\374\0Y\225\271\362\374"
+ #"%\0\276\361K/\362?\376\362\26\25"
+ #"\253J\251\\\342;\277\377\233|\375\233"
+ #"_\343\335o\276\311\372F\227(\214\30"
+ #"\235\216\320\215\2?\376\341O\321\r\235"
+ #",\3M\321X:\21/]\275\202\246\251<\367\374e\262,\343\312\301EF\303"
+ #"1\377\341{\337G\222%>\372\351\rN\207cdY\342\343\237}J\226e|"
+ #"z\375\26\313\205\273\32\261\252\251\24\n"
+ #"\32G\207\307t7:\317\244k6\265"
+ #"\31\236\214\371\326o\374\22\213\371\202~"
+ #"\357\4\317\v\351\256wx\375\3157\370"
+ #"\367\337\373\v\262,\345\317\377\315\237\361"
+ #"\303\367~\300x8\306q=\20\4\302"
+ #" D\3234\276\365\353\377\224\217\377\376"
+ #"\343\325\267n\300\332z\233\e\37=\341\327\177\373\r<\327c1_\322;\32\0"
+ #"9\305\262I\275Yess\235(Z\5/\351\233\377\352\271k\272^\240l\225"
+ #"\271|\260\217\357\373\334\374\207{\354]"
+ #"\330\242X2\251\325-\306\243\t\225J"
+ #"\205\2337\356\360\235\337\3735\3428\346"
+ #"\375\37\274\317\306\326\32\325Z\231\367\377"
+ #"\337\377\307q\274g\324\22E\21\317\275"
+ #"x\205A\177\200 \346\334\275\365\200\177"
+ #"\376\307\277\307\366N\27\253f\321\356\224"
+ #"\370\374\326\27\234;\277\303\315\ew\370"
+ #"\327\177\372G\224\255\"\212,3\267\227"
+ #"<y\374\24\303\324\321u\35\341\e\377"
+ #"\256\235\227\212&\275\243\23^\375\332K\fONI\323\224"
+ #"\351\304&\360C\266v\327I\342\204\356\306\32\233[\353\274\367"
+) 101
+(
+ #"\277~\304\325\257\274\310\255\233w\0\320"
+ #"\365\2\321\331\311\354\311\243\36\222|v"
+ #"\276\360\2\314\242N\275Q\343\350\360\30"
+ #"Q\249|\350\261\265[\240\240k\254"
+ #"o\256\321;\352\263\266\336\246\337\e\340"
+ #":>\347\316o\321l7\270{\373>\27.\236\343t8\346\37"
+ #"\1\177\211o\367\4 \2,\0\0\0\0IEND\256B`\202"
+) 0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 7 #"sc-size"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 1 #"*"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"image-width"
+0 0 51 3 1 #" "
+0 0 14 3 10 #"grass-look"
+0 0 22 3 1 #")"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"num-grass"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 17 3 42 #";; Functions for building the grass field:"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"mt-row"
+0 0 51 3 1 #" "
+0 0 14 3 8 #"num-left"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 2 #"  "
+0 0 22 3 1 #"("
+0 0 14 3 2 #"if"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 2 #"<="
+0 0 51 3 1 #" "
+0 0 14 3 8 #"num-left"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 6 #"      "
+0 0 14 3 10 #"grass-look"
+0 0 51 29 1 #"\n"
+0 0 51 3 6 #"      "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"overlay/xy"
+0 0 51 3 1 #" "
+0 0 14 3 10 #"grass-look"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"image-width"
+0 0 51 3 1 #" "
+0 0 14 3 10 #"grass-look"
+0 0 22 3 1 #")"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 51 29 1 #"\n"
+0 0 51 3 18 #"                  "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"mt-row"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"sub1"
+0 0 51 3 1 #" "
+0 0 14 3 8 #"num-left"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-mt"
+0 0 51 3 1 #" "
+0 0 14 3 8 #"num-left"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 2 #"  "
+0 0 22 3 1 #"("
+0 0 14 3 2 #"if"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 2 #"<="
+0 0 51 3 1 #" "
+0 0 14 3 8 #"num-left"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"1"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 6 #"      "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"mt-row"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"num-grass"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 6 #"      "
+0 0 22 3 1 #"("
+0 0 14 3 10 #"overlay/xy"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"mt-row"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"num-grass"
+0 0 22 3 1 #")"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"image-height"
+0 0 51 3 1 #" "
+0 0 14 3 10 #"grass-look"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 18 #"                  "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-mt"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 4 #"sub1"
+0 0 51 3 1 #" "
+0 0 14 3 8 #"num-left"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"simple-mt"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 12 #"nw:rectangle"
+0 0 51 3 1 #" "
+0 0 14 3 7 #"sc-size"
+0 0 51 3 1 #" "
+0 0 14 3 7 #"sc-size"
+0 0 51 3 1 #" "
+0 0 19 3 7 #"\"solid\""
+0 0 51 3 1 #" "
+0 0 19 3 7 #"\"brown\""
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 2 #"mt"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"place-image"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"make-mt"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"num-grass"
+0 0 22 3 1 #")"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 51 3 1 #" "
+0 0 20 3 1 #"0"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"simple-mt"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 17 3 16 #";; Draw handler:"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"render"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 2 #"  "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"place-image"
+0 0 51 3 1 #" "
+0 0 14 3 6 #"hammer"
+0 0 51 29 1 #"\n"
+0 0 51 3 15 #"               "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"posn-x"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 14 #"world-mousepos"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 15 #"               "
+0 0 22 3 1 #"("
+0 0 14 3 6 #"posn-y"
+0 0 51 3 1 #" "
+0 0 22 3 1 #"("
+0 0 14 3 14 #"world-mousepos"
+0 0 51 3 1 #" "
+0 0 14 3 3 #"wrl"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 3 15 #"               "
+0 0 22 3 1 #"("
+0 0 14 3 11 #"place-image"
+0 0 51 3 1 #" "
+0 0 14 3 9 #"mole-look"
+0 0 51 3 1 #" "
+0 0 20 3 2 #"50"
+0 0 51 3 1 #" "
+0 0 20 3 2 #"50"
+0 0 51 3 1 #" "
+0 0 14 3 2 #"mt"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 51 29 1 #"\n"
+0 0 22 3 1 #"("
+0 0 15 3 6 #"define"
+0 0 51 3 1 #" "
+0 0 14 3 11 #"final-state"
+0 0 4 29 1 #"\n"
+0 0 4 3 2 #"  "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"profi"
+0 0 14 3 2 #"le"
+0 0 51 29 1 #"\n"
+0 0 4 3 3 #"   "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"big-bang"
+0 0 51 3 1 #" "
+0 0 14 3 6 #"world1"
+0 0 51 29 1 #"\n"
+0 0 4 3 13 #"             "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"on-tick"
+0 0 51 3 1 #" "
+0 0 14 3 12 #"update-world"
+0 0 22 3 1 #")"
+0 0 51 29 1 #"\n"
+0 0 4 3 13 #"             "
+0 0 22 3 1 #"("
+0 0 14 3 8 #"on-mouse"
+0 0 51 3 1 #" "
+0 0 14 3 12 #"accept-mouse"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 13 #"             "
+0 0 22 3 1 #"("
+0 0 14 3 5 #"state"
+0 0 4 3 1 #" "
+0 0 14 3 4 #"true"
+0 0 22 3 1 #")"
+0 0 4 29 1 #"\n"
+0 0 4 3 13 #"             "
+0 0 22 3 1 #"("
+0 0 14 3 7 #"on-draw"
+0 0 51 3 1 #" "
+0 0 14 3 6 #"render"
+0 0 22 3 2 #"))"
+0 0 22 3 2 #"))"
+0 0 51 29 1 #"\n"
+0           0
diff --git a/collects/2htdp/tests/profile-robby.ss b/collects/2htdp/tests/profile-robby.ss
new file mode 100644
index 0000000000..306e633b49
--- /dev/null
+++ b/collects/2htdp/tests/profile-robby.ss
@@ -0,0 +1,14 @@
+#lang scheme/gui
+(require profile)
+(profile-thunk
+ (λ ()
+   (parameterize ([current-eventspace (make-eventspace)])
+     (let ([s (make-semaphore 0)])
+       (queue-callback
+        (λ ()
+          (dynamic-require "perform-robby.ss" #f)
+          (semaphore-post s)))
+       (semaphore-wait s))))
+ #:threads #t)
+
+