Smatchcube's website 🌍


Exercise 2.49

a

b

(define x-frame
  (segments->painter
   (list (make-segment (make-vect 0 0) (make-vect 1 1))
         (make-segment (make-vect 0 1) (make-vect 1 0)))))

c

d

Let’s test our new painters to create cool images:

(square-limit outline-frame 6)

(square-limit x-frame 6)

(square-limit diamond-frame 6)

(square-limit wave 6)