University of British Columbia CPSC 110 LAB 3

(require spd/tags)

(require 2htdp/image)

(require 2htdp/universe)



(@assignment lab-03)

(@cwl ???)



; Balloon popping



(@htdw Balloon)




m
er as
;; CONSTANTS ==========================




co
eH w
o.
(define WIDTH 500)

(define HEIGHT 500) rs e
ou urc
(define MTS (empty-scene WIDTH HEIGHT))
o
aC s


(define BALLOON-COLOR "red")
vi y re



(define POP-IMAGE

(overlay (text "POP!" 80 "black")
ed d




(radial-star 30 (/ WIDTH 10) (/ WIDTH 2) "solid" "yellow")))
ar stu




(define CTR-X (/ WIDTH 2))
is




(define CTR-Y (/ HEIGHT 2))
Th




(define SPEED 2)
sh




(define MAX-SIZE (/ WIDTH 2))




This study source was downloaded by 100000805705997 from CourseHero.com on 10-14-2021 20:49:22 GMT -05:00


https://www.coursehero.com/file/57633285/Lab-3docx/

, ;; DATA DEFINITIONS ============================



(@problem 1)



(@htdd Balloon)

;; Balloon is one of

;; - false

;; - Number

;; interp. false means balloon has popped, number is the radius of the balloon

;; CONSTRAINT: Number is in [0, MAX-SIZE)




m
er as
co
eH w
(define B1 0) ;smallest balloon




o.
(define B2 125) ;middle balloon

(define B3 250) rs e
;max size of balloon
ou urc
(define B4 false) ;popped balloon
o
aC s


(define (fn-for-balloon b)
vi y re



(cond [(false? b) (...)]

[(number? b) (... b)]))
ed d
ar stu




(@dd-template-rules one-of ;2 cases

atomic-distinct ;false
is




atomic-non-distinct) ;Number
Th
sh




;; FUNCTIONS ====================================

(@problem 2)

(@htdf main)

(@signature Balloon -> Balloon)



This study source was downloaded by 100000805705997 from CourseHero.com on 10-14-2021 20:49:22 GMT -05:00


https://www.coursehero.com/file/57633285/Lab-3docx/