(define T1 (make-Triangle (make-posn 50 40)
                          (make-posn 20 30)
                          (make-posn -40 60) "red"))
(define T2 (make-Triangle (make-posn 30 10)
                          (make-posn 70 -20)
                          (make-posn 20 50) "purple"))