;;; ;;; ps2.ss ;;; Name: ;;; ;;; This loads the curve code. Everytime you click "Execute" the ;;; code will be reloaded. (load "curve.ss") ;;; Question 1: ;;; Question 2a: ;;; Question 2b: ;;; Question 3: ;;; Remeber to include a print out of your graphics window also. ;;; Question 4a: ;;; Question 4b: ;;; Question 5a: ;;; Question 5b: ;;; Question 6a: ;;; Question 6b: ;;; Question 6c: ;;; Question 6d: ;;; Redefine the curve-transformation procedures to use let: ;;; Optional Enhancements (define (twice f) (compose f f)) (define (smiley-curve t) (define face (translate (shrink unit-circle .4) 0.5 0.5)) (define (make-eye x) (translate (shrink unit-circle .075) x 0.65)) (define smile (lambda (t) ((translate (rotate-ccw (flip-vertically (shrink unit-circle .2))) 0.5 0.5) (/ t 2)))) ((connect-rigidly (connect-rigidly (connect-rigidly face (make-eye 0.65)) (make-eye 0.35)) smile) t))