Thank you Dan, that was very helpful! I haven't used that function big-bang but
it seems quite simple.
I also add that counter what you suggested. It take some time to figure out how
I convert that counter's value to image.
--
#lang racket
(require 2htdp/universe)
(require 2htdp/image)
(struct world (foreground background count) )
(define counter 0)
(define (random-color)
(make-color (random 255) (random 255) (random 255)))
(define (random-state current)
(world (random-color) (random-color)
(set! counter (add1 counter))))
(define (SUPER state)
(overlay/offset (text (number->string counter) 30 "black")
160 180
(overlay (text "SUPER" 105 (world-foreground state))
(circle 200 "solid" (world-background state)))
))
(big-bang (random-state null)
(on-tick random-state 0.3) ; change the image every 0.3 seconds
(to-draw SUPER))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
