11 lines
682 B
Racket
11 lines
682 B
Racket
;; The first three lines of this file were inserted by DrRacket. They record metadata
|
|
;; about the language level of this file in a form that our tools can easily process.
|
|
#reader(lib "htdp-intermediate-reader.ss" "lang")((modname universe-test) (read-case-sensitive #t) (teachpacks ((lib "universe.ss" "teachpack" "2htdp") (lib "image.ss" "teachpack" "2htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "universe.ss" "teachpack" "2htdp") (lib "image.ss" "teachpack" "2htdp")))))
|
|
(define (zug state)
|
|
(overlay
|
|
(rectangle 100 state "solid" "blue")
|
|
(rectangle 100 200 "solid" "red")))
|
|
|
|
(big-bang 14
|
|
(on-tick add1)
|
|
(to-draw zug)) |