8 lines
163 B
Racket
8 lines
163 B
Racket
#lang racket
|
|
|
|
(require 2htdp/universe 2htdp/image)
|
|
|
|
(big-bang 0
|
|
(on-tick add1 1/28 3)
|
|
(to-draw (lambda (w) (circle (- 100 w) 'solid 'red))))
|