diff --git a/racketcon/bootstrap.gif b/racketcon/bootstrap.gif new file mode 100644 index 0000000..fc5fc93 Binary files /dev/null and b/racketcon/bootstrap.gif differ diff --git a/racketcon/fact.rkt b/racketcon/fact.rkt index daa6c20..fe8ef50 100644 --- a/racketcon/fact.rkt +++ b/racketcon/fact.rkt @@ -6,6 +6,3 @@ 1] [else (* x (fact (sub1 x)))])) - - -;;(printf "test: ~s\n" (fact 4)) \ No newline at end of file diff --git a/racketcon/hello.xhtml b/racketcon/hello.xhtml index a1146bc..2f8027b 100644 --- a/racketcon/hello.xhtml +++ b/racketcon/hello.xhtml @@ -2,7 +2,7 @@ - Example + Hello - \ No newline at end of file + diff --git a/racketcon/pacman.xhtml b/racketcon/pacman.xhtml index 041870c..4310bb9 100644 --- a/racketcon/pacman.xhtml +++ b/racketcon/pacman.xhtml @@ -2,7 +2,7 @@ - Example + Pacman - \ No newline at end of file + diff --git a/racketcon/rain.xhtml b/racketcon/rain.xhtml index 3bff218..bb0a36d 100644 --- a/racketcon/rain.xhtml +++ b/racketcon/rain.xhtml @@ -2,7 +2,7 @@ - Example + Rain - \ No newline at end of file + diff --git a/racketcon/talk.rkt b/racketcon/talk.rkt index d685e7a..020470a 100644 --- a/racketcon/talk.rkt +++ b/racketcon/talk.rkt @@ -3,6 +3,8 @@ (require (planet dyoo/whalesong/js)) (require (planet dyoo/whalesong/world)) +(define scaling-factor .75) + ;; A slide is either a simple string or an image. (define font-size 50) @@ -19,14 +21,16 @@ (scale 2 (image-url "file:///home/dyoo/work/whalesong/racketcon/plt-logo.png")) (square 20 "solid" "white") (text "Danny Yoo (dyoo@hashcollision.org)" 50 "darkblue")) - "Why Whalesong?" + (above (text "Why Whalesong?" font-size "black") + (square 20 "solid" "white") + (scale 2 (image-url "file:///home/dyoo/work/whalesong/racketcon/bootstrap.gif"))) "World programs on the web" (above (text "Reusing Racket's compiler..." font-size "black") (square 20 "solid" "white") (text "Hello world?" (floor (* font-size 2/3)) "black")) - "Web programs can use Racket" - "What's missing?" - "http://hashcollision.org/whalesong")) + "Web programs can use Racket too!" + "What's next?" + (text "http://hashcollision.org/whalesong" 80 "black"))) @@ -51,6 +55,7 @@ (define (draw w) + (scale scaling-factor (let ([a-slide (list-ref slides w)] [bg (BACKGROUND)]) (cond @@ -64,7 +69,7 @@ (place-image a-slide (quotient (image-width bg) 2) (quotient (image-height bg) 2) - bg)]))) + bg)])))) (define (tick w) w)