suzanne.soy/lang-slide
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove bounce

Browse Source
This commit is contained in:
Robby Findler 2012-04-23 21:09:09 -05:00
parent 543da0cb96
commit 0487bce0ae
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
main.rkt
View File

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