;; 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 8.2.1) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
(require picturing-programs)

; Worked exercise 8.2.1
; blue-circle-of-size : number -> image
(check-expect (blue-circle-of-size 2)
              (circle 2 "solid" "blue"))
(check-expect (blue-circle-of-size 37)
              (circle 37 "solid" "blue"))
(define (blue-circle-of-size radius)
  ; radius                  number
  ; "blue"                  a fixed string I'll need
  (circle radius "solid" "blue"))

(big-bang 7 (on-draw blue-circle-of-size 100 50))