-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathex098.rkt
248 lines (192 loc) · 8.51 KB
/
ex098.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
;; 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-beginner-reader.ss" "lang")((modname ex098) (read-case-sensitive #t) (teachpacks ((lib "image.rkt" "teachpack" "2htdp") (lib "universe.rkt" "teachpack" "2htdp") (lib "batch-io.rkt" "teachpack" "2htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "image.rkt" "teachpack" "2htdp") (lib "universe.rkt" "teachpack" "2htdp") (lib "batch-io.rkt" "teachpack" "2htdp")) #f)))
; Constants
(define BASE-UNIT 5) ; 1 bu = 5 px
(define HEIGHT (* 40 BASE-UNIT))
(define WIDTH HEIGHT)
(define BACKGROUND
(overlay/align "center" "bottom"
(rectangle WIDTH BASE-UNIT "solid" "brown")
(empty-scene WIDTH HEIGHT "darkblue")))
(define UFO-RADIUS (* 2 BASE-UNIT))
(define UFO-WIDTH (* 4 UFO-RADIUS))
(define UFO-X-CENTER (/ UFO-WIDTH 2))
(define UFO
(overlay (rectangle UFO-WIDTH BASE-UNIT "solid" "green")
(circle UFO-RADIUS "solid" "green")))
(define TANK-HEIGHT (* 3 BASE-UNIT))
(define TANK-WIDTH (* 2 TANK-HEIGHT))
(define TANK-X-CENTER (/ TANK-WIDTH 2))
(define TANK-Y-CENTER (/ TANK-HEIGHT 2))
(define Y-TANK (- HEIGHT TANK-Y-CENTER BASE-UNIT))
(define TANK (rectangle TANK-WIDTH TANK-HEIGHT "solid" "darkgreen"))
(define MISSILE-SIZE (* 2 BASE-UNIT))
(define MISSILE-CENTER (/ MISSILE-SIZE 2))
(define MISSILE-LAUNCH-Y (- Y-TANK TANK-Y-CENTER MISSILE-CENTER))
(define MISSILE (triangle MISSILE-SIZE "solid" "red"))
(define EXPLOSION-INNER (* 2 BASE-UNIT))
(define EXPLOSION-OUTER (* 2 EXPLOSION-INNER))
(define EXPLOSION
(overlay (radial-star 15 EXPLOSION-INNER EXPLOSION-OUTER "outline" "red")
(radial-star 15 EXPLOSION-INNER EXPLOSION-OUTER "solid" "yellow")))
(define MESSAGE-HEIGHT (* 10 BASE-UNIT))
(define MESSAGE-TEXT-SIZE 16)
(define MESSAGE-VICTORY "VICTORY!")
(define MESSAGE-DEFEAT "DEFEAT!")
(define V-UFO BASE-UNIT) ; The UFO descends at a speed of 1 bu/tick
(define V-MISSILE (* 2 V-UFO)) ; The missile ascends at 2x the speed of the UFO
; A UFO is a Posn.
; interpretation (make-posn x y) is the UFO's location
; (using the top-down, left-to-right convention)
(define-struct tank [loc vel])
; A Tank is a structure:
; (make-tank Number Number).
; interpretation (make-tank x dx) specifies the position:
; (x, Y-TANK) and the tank's speed: dx pixels/tick
; A Missile is a Posn.
; interpretation (make-posn x y) is the missile's place
; Example structures
(define t75 (make-tank 75 3))
(define t56 (make-tank 56 3))
(define t125 (make-tank 125 -3))
(define t170 (make-tank 170 -3))
(define u10x50y (make-posn 10 50))
(define u56x112y (make-posn 56 112))
(define u56x10y (make-posn 56 10))
(define u106x185y (make-posn 106 190))
(define m56xly (make-posn 56 MISSILE-LAUNCH-Y))
(define m56x112y (make-posn 56 112))
; Example images
(define tr75 (place-image TANK 75 Y-TANK BACKGROUND))
(define tr56 (place-image TANK 56 Y-TANK BACKGROUND))
(define tr125 (place-image TANK 125 Y-TANK BACKGROUND))
(define tr170 (place-image TANK 170 Y-TANK BACKGROUND))
(define ur10x50y (place-image UFO 10 50 BACKGROUND))
(define ur56x112y (place-image UFO 56 112 BACKGROUND))
(define ur56x10y (place-image UFO 56 10 BACKGROUND))
(define ur106x185y (place-image UFO 106 190 BACKGROUND))
(define mr56xly (place-image MISSILE 56 MISSILE-LAUNCH-Y BACKGROUND))
(define mr56x112y (place-image MISSILE 56 112 BACKGROUND))
(define-struct aim [ufo tank])
(define-struct fired [ufo tank missile])
; A SIGS is one of:
; – (make-aim UFO Tank)
; – (make-fired UFO Tank Missile)
; interpretation represents the complete state of a
; space invader game
; Example states
(define s1 (make-aim u10x50y t75))
(define s2 (make-aim u56x10y t56))
(define s3 (make-fired u56x10y t56 m56xly))
(define s4 (make-fired u56x112y t56 m56x112y))
(define s5 (make-fired u106x185y t125 m56x112y))
; SIGS -> Image
; renders the given game state on top of BACKGROUND
; for examples see figure 32
(define (si-render s)
(cond
[(aim? s)
(tank-render (aim-tank s)
(ufo-render (aim-ufo s) BACKGROUND))]
[(fired? s)
(tank-render
(fired-tank s)
(ufo-render (fired-ufo s)
(missile-render (fired-missile s)
BACKGROUND)))]))
(check-expect (si-render s1)
(tank-render t75 (ufo-render u10x50y BACKGROUND)))
(check-expect (si-render s2)
(tank-render t56 (ufo-render u56x10y BACKGROUND)))
(check-expect (si-render s3)
(tank-render t56
(ufo-render u56x10y
(missile-render m56xly BACKGROUND))))
(check-expect (si-render s4)
(tank-render t56
(ufo-render u56x112y
(missile-render m56x112y BACKGROUND))))
(check-expect (si-render s5)
(tank-render t125
(ufo-render u106x185y
(missile-render m56x112y BACKGROUND))))
; Tank Image -> Image
; adds t to the given image im
(define (tank-render t im)
(place-image TANK (tank-loc t) Y-TANK im))
(check-expect (tank-render t75 BACKGROUND) tr75)
(check-expect (tank-render t56 BACKGROUND) tr56)
(check-expect (tank-render t125 BACKGROUND) tr125)
(check-expect (tank-render t170 BACKGROUND) tr170)
; UFO Image -> Image
; adds u to the given image im
(define (ufo-render u im)
(place-image UFO (posn-x u) (posn-y u) im))
(check-expect (ufo-render u10x50y BACKGROUND) ur10x50y)
(check-expect (ufo-render u56x112y BACKGROUND) ur56x112y)
(check-expect (ufo-render u56x10y BACKGROUND) ur56x10y)
(check-expect (ufo-render u106x185y BACKGROUND) ur106x185y)
; Missile Image -> Image
; adds m to the given image im
(define (missile-render m im)
(place-image MISSILE (posn-x m) (posn-y m) im))
(check-expect (missile-render m56xly BACKGROUND) mr56xly)
(check-expect (missile-render m56x112y BACKGROUND) mr56x112y)
; Posn Posn -> Number
; calculates the distance between two positions
(define (distance-points a b)
(sqrt (+ (sqr (- (posn-x a) (posn-x b)))
(sqr (- (posn-y a) (posn-y b))))))
(check-expect (distance-points (make-posn 0 0) (make-posn 3 4)) 5)
(check-expect (distance-points (make-posn -2 -3) (make-posn 4 5)) 10)
; SIGS -> Boolean
; checks if the missile hit the UFO
(define (hit-ufo? s)
(and (fired? s) (<= (distance-points (fired-ufo s) (fired-missile s))
UFO-RADIUS)))
; SIGS -> Boolean
; checks if the UFO landed
(define (ufo-landed? s)
(or (and (fired? s) (<= (- HEIGHT BASE-UNIT (posn-y (fired-ufo s)))
UFO-RADIUS))
(and (aim? s) (<= (- HEIGHT BASE-UNIT (posn-y (aim-ufo s)))
UFO-RADIUS))))
; SIGS -> SIGS
; stops the game if the UFO lands or if the missile hits the UFO
(define (si-game-over? s)
(or (hit-ufo? s) (ufo-landed? s)))
(check-expect (si-game-over? s1) #false)
(check-expect (si-game-over? s2) #false)
(check-expect (si-game-over? s3) #false)
(check-expect (si-game-over? s4) #true)
(check-expect (si-game-over? s5) #true)
; String Color Image -> Image
; overlays text str of color c over the image im
(define (overlay-text str c im)
(overlay (overlay (text str MESSAGE-TEXT-SIZE c)
(rectangle WIDTH MESSAGE-HEIGHT "solid" (color 0 0 0 128)))
im))
; UFO Image -> Image
; places explosion on the UFO's position over image im
(define (ufo-explosion u im)
(place-image EXPLOSION (posn-x u) (posn-y u) im))
; SIGS -> Image
; renders the final image of the game, indicating victory or defeat
(define (si-render-final s)
(overlay-text (cond [(hit-ufo? s) MESSAGE-VICTORY]
[(ufo-landed? s) MESSAGE-DEFEAT])
(cond [(hit-ufo? s) "white"]
[(ufo-landed? s) "red"])
(cond [(hit-ufo? s) (ufo-explosion (fired-ufo s) (si-render s))]
[(ufo-landed? s) (si-render s)])))
(check-expect (si-render-final s4)
(overlay (overlay (text MESSAGE-VICTORY MESSAGE-TEXT-SIZE "white")
(rectangle WIDTH MESSAGE-HEIGHT
"solid" (color 0 0 0 128)))
(ufo-explosion u56x112y (si-render s4))))
(check-expect (si-render-final s5)
(overlay (overlay (text MESSAGE-DEFEAT MESSAGE-TEXT-SIZE "red")
(rectangle WIDTH MESSAGE-HEIGHT
"solid" (color 0 0 0 128)))
(si-render s5)))