15 lines
352 B
Scheme
15 lines
352 B
Scheme
#lang scheme/base
|
|
|
|
(require 2htdp/universe
|
|
(prefix-in 2: 2htdp/image)
|
|
(prefix-in 1: htdp/image))
|
|
|
|
(define (see-full-rectangle x f)
|
|
(big-bang x
|
|
(on-tick sub1)
|
|
(stop-when zero?)
|
|
(on-draw (λ (x) (f 100 100 'outline 'black)))))
|
|
|
|
(see-full-rectangle 3 2:rectangle)
|
|
|
|
(see-full-rectangle 3 1:rectangle) |