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

adding a toy for the very end

Browse Source
This commit is contained in:
Danny Yoo 2011-07-23 01:08:44 -04:00
parent 52eaf29993
commit f308024718
1 changed files with 50 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
racketcon/talk.rkt
View File

@ -3,14 +3,14 @@
(require (planet dyoo/whalesong/js)) (require (planet dyoo/whalesong/js))
(require (planet dyoo/whalesong/world)) (require (planet dyoo/whalesong/world))
(define scaling-factor .75)
(define-struct world (index scaling rotate))
;; A slide is either a simple string or an image. ;; A slide is either a simple string or an image.
(define font-size 50) (define font-size 50)
(define-struct label (id slide))
(define slides (define slides
(list (list
@ -48,28 +48,58 @@
(define (key w a-key) (define (key w a-key)
(cond (cond
[(key=? a-key "left") [(key=? a-key "left")
(my-max (sub1 w) 0)] (make-world (my-max (sub1 (world-index w)) 0)
[(key=? a-key "right") (world-scaling w)
(my-min (add1 w) (sub1 (length slides)))] (world-rotate w))]
[(or (key=? a-key "right") (key=? a-key " ") (key=? a-key "enter"))
(make-world (my-min (add1 (world-index w))
(sub1 (length slides)))
(world-scaling w)
(world-rotate w))]
[(key=? a-key "up")
(make-world (world-index w)
(+ (world-scaling w) .1)
(world-rotate w))]
[(key=? a-key "down")
(make-world (world-index w)
(- (world-scaling w) .1)
(world-rotate w))]
[(key=? a-key "r")
(make-world 0 1 0)]
[(key=? a-key "q")
(make-world (world-index w)
(world-scaling w)
(modulo (- (world-rotate w) 1) 360))]
[(key=? a-key "w")
(make-world (world-index w)
(world-scaling w)
(modulo (+ (world-rotate w) 1) 360))]
[else w])) [else w]))
(define (draw w) (define (draw w)
(scale scaling-factor (rotate (world-rotate w)
(let ([a-slide (list-ref slides w)] (scale (world-scaling w)
[bg (BACKGROUND)]) (let ([a-slide (list-ref slides (world-index w))]
(cond [bg (BACKGROUND)])
[(string? a-slide) (cond
(place-image (text a-slide font-size "black") [(string? a-slide)
(quotient (image-width bg) 2) (place-image (text a-slide font-size "black")
(quotient (image-height bg) 2) (quotient (image-width bg) 2)
bg)] (quotient (image-height bg) 2)
bg)]
[(image? a-slide) [(image? a-slide)
(place-image a-slide (place-image a-slide
(quotient (image-width bg) 2) (quotient (image-width bg) 2)
(quotient (image-height bg) 2) (quotient (image-height bg) 2)
bg)])))) bg)])))))
(define (tick w) (define (tick w)
w) w)
@ -87,7 +117,7 @@
(big-bang 0 (big-bang (make-world 0 1 0)
(on-key key) (on-key key)
(on-tick tick) (on-tick tick)
(to-draw draw)) (to-draw draw))