www

commit 0487bce0aed22eac50b238432e6fe51933390596
parent 543da0cb96c9b379ae835135547f13619f0b9940
Author: Robby Findler <robby@racket-lang.org>
Date:   Mon, 23 Apr 2012 21:09:09 -0500

remove bounce

Diffstat:
M
main.rkt
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git 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)