0. #lang racket
1. ;; The first three lines of this file were inserted by DrRacket. They record metadata
2. ;; about the language level of this file in a form that our tools can easily process.
3. #reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname WIPPROJECT05) (read-case-sensitive #t) (teachpacks ((lib "image.rkt" "teachpack" "2htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "image.rkt" "teachpack" "2htdp")) #f)))
4. (require 2htdp/image)
5. (require 2htdp/universe)
6.  
7.  
8. (define-struct tile [x num])
9. (: make-tile (Integer Integer -> Tile))
10.  
11. (define-struct world [tiles time])
12. (: make-world ((ListOf Tile) Integer -> World))
13.  
14. (: random-tiles (Number -> (ListOf Tile)))
15. (define (random-tiles c)
16.   (cond [(= 0 c) empty]
17.         [else
18.          (let*
19.               ([x (random 4)]
20.               [num c]
21.               [a (make-tile x num)])
22.               (cons a (random-tiles (- c 1))))]))
23.  
24.  
25.  
26. (define BUILD (make-world (random-tiles 25) 0))
27.  
28.  
29.  
30. (define Image (signature (predicate image?)))
31.  
32.  
33.  
34. (define (draw-tiles tiles w)
35.   (cond
36.     [(empty? tiles) (empty-scene 240 360)]
37.     [(cons? tiles) (place-image
38.                     (overlay (rectangle 60 100 "outline" "white")
39.                              (rectangle 60 100 "solid" "black"))
40.                             (+ 30 (* (tile-x (first tiles)) 60))
41.                             (+ (+ (* (tile-num (first tiles)) -100) (world-time w)) 200)
42.                 (draw-tiles (rest tiles) w))]))
43.  
44.  
45. (: draw-world (World -> Image))
46. (define (draw-world w)
47. (draw-tiles (world-tiles w) w))
48.  
49. (: tick-world (World -> World))
50. (define (tick-world w)
51.   (make-world (world-tiles w) (+ 5 (world-time w))))
52.  
53. (big-bang BUILD
54.   (to-draw draw-world)
55.   (on-tick tick-world 0.03))

=>