Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (TriangleShape a-posn b-posn c-posn clr)
- (add-line
- (add-line
- (add-line (rectangle 100 100 "solid" "white")
- (posn-x a-posn) (posn-y a-posn) (posn-x b-posn) (posn-y b-posn) clr)
- (posn-x a-posn) (posn-y a-posn) (posn-x c-posn) (posn-y c-posn) clr)
- (posn-x b-posn) (posn-y b-posn) (posn-x c-posn) (posn-y c-posn) clr))
Add Comment
Please, Sign In to add comment