79 lines
1.5 KiB
Racket
79 lines
1.5 KiB
Racket
#lang planet dyoo/whalesong
|
|
|
|
(require (planet dyoo/whalesong/js))
|
|
(require (planet dyoo/whalesong/world))
|
|
|
|
;; A slide is either a simple string or an image.
|
|
|
|
(define font-size 50)
|
|
|
|
|
|
(define-struct label (id slide))
|
|
|
|
(define slides
|
|
(list
|
|
(above
|
|
(text "Whalesong:" 100 "black")
|
|
(text "a Racket to JavaScript Compiler" 80 "black")
|
|
(image-url "file:///home/dyoo/work/whalesong/racketcon/plt-logo.png"))
|
|
"Why Whalesong?"
|
|
"World programs on the web"
|
|
"Reusing Racket..."
|
|
"Hello world!"
|
|
"What's missing?"
|
|
"http://hashcollision.org/whalesong"))
|
|
|
|
|
|
|
|
|
|
(define (WIDTH)
|
|
(viewport-width))
|
|
|
|
(define (HEIGHT)
|
|
(viewport-height))
|
|
|
|
(define (BACKGROUND)
|
|
(empty-scene (WIDTH) (HEIGHT)))
|
|
|
|
|
|
(define (key w a-key)
|
|
(cond
|
|
[(key=? a-key "left")
|
|
(my-max (sub1 w) 0)]
|
|
[(key=? a-key "right")
|
|
(my-min (add1 w) (sub1 (length slides)))]
|
|
[else w]))
|
|
|
|
|
|
(define (draw w)
|
|
(let ([a-slide (list-ref slides w)]
|
|
[bg (BACKGROUND)])
|
|
(cond
|
|
[(string? a-slide)
|
|
(place-image (text a-slide font-size "black")
|
|
(quotient (image-width bg) 2)
|
|
(quotient (image-height bg) 2)
|
|
bg)]
|
|
|
|
[(image? a-slide)
|
|
(place-image a-slide
|
|
(quotient (image-width bg) 2)
|
|
(quotient (image-height bg) 2)
|
|
bg)])))
|
|
|
|
|
|
(define (my-max x y)
|
|
(if (> x y)
|
|
x
|
|
y))
|
|
|
|
(define (my-min x y)
|
|
(if (< x y)
|
|
x
|
|
y))
|
|
|
|
|
|
|
|
(big-bang 0
|
|
(on-key key)
|
|
(to-draw draw)) |