From 0487bce0aed22eac50b238432e6fe51933390596 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 23 Apr 2012 21:09:09 -0500
Subject: [PATCH] remove bounce

---
 main.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/main.rkt b/main.rkt
index fe1a878..c9ca8f7 100644
--- a/main.rkt
+++ b/main.rkt
@@ -17,6 +17,7 @@
 (define p1 (lt-superimpose (ghost p2) (vl-append (t "In 6000+ files of") (t "Racket source code ..."))))
 
 (define (langs)
+  (define p1+p2 (vl-append 10 p1 p2))
   (slide/staged [#;hudak one two] 
                 ;#:title "Files in Racket" 
                 ;#:layout 'tall
@@ -24,7 +25,8 @@
                   [(eq? stage-name 'hudak)
                    (mini-slide (vr-append 60 hudak-quote perlis-quote))]
                   [(eq? stage-name 'one)
-                   (langs-pict #f #:picts (list p1))]
+                   (langs-pict #f #:picts (list (lt-superimpose p1 (ghost p1+p2))))]
                   [else
-                   (langs-pict (vl-append 10 p1 p2))])))
+                   (langs-pict p1+p2)])))
 
+(langs)