From 6f1d50e6773637d88fd5f086667d9e3de66eb439 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 27 Jul 2011 16:28:43 -0400
Subject: [PATCH] changing the rain example to take the whole page

---
 examples/rain-world-program.rkt | 20 +++++++++++---------
 image/private/kernel.js         |  7 ++++---
 world/kernel.js                 |  5 +++--
 3 files changed, 18 insertions(+), 14 deletions(-)

diff --git a/examples/rain-world-program.rkt b/examples/rain-world-program.rkt
index d9ff4ae..65b4fa7 100644
--- a/examples/rain-world-program.rkt
+++ b/examples/rain-world-program.rkt
@@ -1,14 +1,16 @@
 #lang planet dyoo/whalesong
 
-(require (planet dyoo/whalesong/world))
+(require (planet dyoo/whalesong/world)
+         (planet dyoo/whalesong/js))
+
+;; Occupy the whole screen.
+(void (call-method body "css" "margin" 0))
+(void (call-method body "css" "padding" 0))
+(void (call-method body "css" "overflow" "hidden"))
 
 
 ;; Rain falls down the screen.
-(define WIDTH 640)
-(define HEIGHT 480)
-
 (define GRAVITY-FACTOR 1)
-(define BACKGROUND (empty-scene WIDTH HEIGHT))
 
 
 
@@ -22,7 +24,7 @@
 ;; random-drop-particle: drop
 ;; Generates a random particle.
 (define (random-drop)
-  (make-drop (make-posn (random WIDTH) 0)
+  (make-drop (make-posn (random (viewport-width)) 0)
              (+ 5 (random 10)) ;; Get it falling at some random velocity
              (random-choice (list "gray" "darkgray"
                                   "white" "blue" 
@@ -68,7 +70,7 @@
 ;; Makes the drops descend.
 (define (drop-descend a-drop)
   (cond
-    [(> (posn-y (drop-posn a-drop)) HEIGHT)
+    [(> (posn-y (drop-posn a-drop)) (viewport-height))
      a-drop]
     [else
      (make-drop (posn-descend (drop-posn a-drop) (drop-velocity a-drop))
@@ -87,7 +89,7 @@
 ;; Produces true if the drop has fallen to the floor.
 (define (on-floor? a-drop)
   (> (posn-y (drop-posn a-drop))
-     HEIGHT))
+     (viewport-height)))
 
 (define (not-on-floor? a-drop) (not (on-floor? a-drop)))
 
@@ -119,7 +121,7 @@
 
 ;; draw: world -> scene
 (define (draw w)
-  (my-foldl place-drop BACKGROUND (world-sky w)))
+  (my-foldl place-drop (empty-scene (viewport-width) (viewport-height)) (world-sky w)))
 
 
 
diff --git a/image/private/kernel.js b/image/private/kernel.js
index 9d4e92b..d24b96a 100644
--- a/image/private/kernel.js
+++ b/image/private/kernel.js
@@ -119,9 +119,10 @@ var makeCanvas = function(width, height) {
     canvas.width = width;
     canvas.height = height;
 
-    canvas.style.width = canvas.width + "px";
-    canvas.style.height = canvas.height + "px";
-    
+    $(canvas).css('width', canvas.width + "px");
+    $(canvas).css('height', canvas.height + "px");
+    $(canvas).css('padding', '0px');
+
     // KLUDGE: IE compatibility uses /js/excanvas.js, and dynamic
     // elements must be marked this way.
     if (window && typeof window.G_vmlCanvasManager != 'undefined') {
diff --git a/world/kernel.js b/world/kernel.js
index 18683af..969d074 100644
--- a/world/kernel.js
+++ b/world/kernel.js
@@ -27,9 +27,9 @@ var bigBang = function(MACHINE, initW, handlers) {
 
     var oldArgcount = MACHINE.argcount;
 
-    var outerToplevelNode = $('<span/>').get(0);
+    var outerToplevelNode = $('<span/>').css('padding', '0px').get(0);
     MACHINE.params.currentOutputPort.writeDomNode(MACHINE, outerToplevelNode);
-    var toplevelNode = $('<span/>').appendTo(outerToplevelNode).get(0);
+    var toplevelNode = $('<span/>').css('padding', '0px').appendTo(outerToplevelNode).get(0);
 
     var configs = [];
     var isOutputConfigSeen = false;
@@ -298,6 +298,7 @@ ToDraw.prototype.toRawHandler = function(MACHINE, toplevelNode) {
     var cssFunction = function(w, k) { 
         if (reusableCanvas) {
  	    k([[reusableCanvas, 
+                ["padding", "0px"],
  		["width", reusableCanvas.width + "px"],
  		["height", reusableCanvas.height + "px"]]]);
         } else {