blob: 9acdd2c041a694139d9dc3f76492bebb74285019 (
plain) (
tree)
|
|
#lang racket
(require 2htdp/universe 2htdp/image)
(define WIDTH 300)
(define HEIGHT 325)
(define (add-3-to-state current-state)
(+ current-state 3))
(define (draw-a-ufo-onto-an-empty-scene current-state)
(place-image IMAGE-of-UFO (/ WIDTH 2) current-state
(empty-scene WIDTH HEIGHT)))
(define IMAGE-of-UFO (bitmap/file "resources/zarking-ufo.png"))
(define (state-is-300 current-state)
(>= current-state 300))
(big-bang 0
(on-tick add-3-to-state)
(to-draw draw-a-ufo-onto-an-empty-scene)
(stop-when state-is-300))
|