47 lines
1.1 KiB
Racket
47 lines
1.1 KiB
Racket
#lang planet dyoo/whalesong
|
|
|
|
(require (planet dyoo/whalesong/resource)
|
|
(planet dyoo/whalesong/web-world))
|
|
|
|
(define-resource index.html)
|
|
(define-resource style.css)
|
|
|
|
(define (tick w v)
|
|
(modulo (add1 w) 10))
|
|
|
|
|
|
;; pick-block: view number -> view
|
|
;; Focus the view on block i.
|
|
(define (pick-block v i)
|
|
(view-focus v (format "~a" i)))
|
|
|
|
|
|
(define (draw w v)
|
|
(define v1 (update-view-attr
|
|
(pick-block v w)
|
|
"class"
|
|
"selectedBlock"))
|
|
(define v2 (update-view-attr
|
|
(pick-block v1 (modulo (sub1 w) 10))
|
|
"class"
|
|
"offsetBlock"))
|
|
(define v3 (update-view-attr
|
|
(pick-block v2 (modulo (add1 w) 10))
|
|
"class"
|
|
"offsetBlock"))
|
|
(define v4 (update-view-attr
|
|
(pick-block v3 (modulo (- w 2) 10))
|
|
"class"
|
|
"block"))
|
|
(define v5 (update-view-attr
|
|
(pick-block v4 (modulo (+ w 2) 10))
|
|
"class"
|
|
"block"))
|
|
v5)
|
|
|
|
|
|
(big-bang 0
|
|
(initial-view index.html)
|
|
(on-tick tick)
|
|
(to-draw draw))
|