;; This code makes variables for each of the images from the book.
(define pic:bloch
(bitmap/url "http://picturingprograms.com/pictures/bloch.jpg"))
(define pic:hieroglyphics
(bitmap/url "http://picturingprograms.com/pictures/hieroglyphics.png"))
(define pic:hacker
(bitmap/url "http://picturingprograms.com/pictures/mad_hacker.png"))
(define pic:book
(bitmap/url "http://picturingprograms.com/pictures/qbook.png"))
(define pic:stick-figure
(bitmap/url "http://picturingprograms.com/pictures/stick-figure.png"))
(define pic:scheme-logo
(bitmap/url "http://picturingprograms.com/pictures/schemelogo.png"))
(define pic:calendar
(bitmap/url "http://picturingprograms.com/pictures/calendar.png"))
(define pic:train-engine
(bitmap/url "http://picturingprograms.com/pictures/train_engine.png"))
(define pic:train-car
(bitmap/url "http://picturingprograms.com/pictures/train_car.png"))
;; This section defines simple functions used in Chapter 1
;; rotate-cw
;; rotate-ccw
;; rotate-180
(define (rotate-cw x)
(rotate -90 x))
(define (rotate-ccw x)
(rotate 90 x))
(define (rotate-180 x)
(rotate 180 x))
;; Now you are ready to write your programs from Chapter 1 and beyond.
#| ;; to see the pictures get rid of this line (1)
pic:bloch
pic:hieroglyphics
pic:hacker
pic:book
pic:stick-figure
pic:scheme-logo
pic:calendar
pic:train-engine
pic:train-car
|# ;; to see the pictures get rid of this line (2)