Grafik i Racket

Grafikmotorer IV
Det händer inte så mycket... Vi provar en
intressantare renderingsfunktion:
(define *angle* 0.0)
(define (render-fn canvas dc)
(send dc translate 50 50)
(send dc rotate *angle*)
(send dc draw-rectangle -25 -25 50 50)
(send dc rotate (- *angle*))
(send dc translate (- 50) (- 50)))
(tick!) blir nu:
(define (tick!)
(set! *angle* (+ *angle* (/ 1 6.28))))
(send *my-canvas* refresh))