;;; Scheme Recursive Art Contest Entry
;;;
;;; Title: Incognito
;;;
;;;  Description:
;;;    Mom needs to borrow
;;;    laptop so I clear my Search
;;;    History. Nine times


(define (background_fill)
	(color "black")
	(penup)
	(goto -300 300)
	(begin_fill)
	(goto -300 -300)
	(goto 300 -300)
	(goto 300 300)
	(goto -300 300)
	(end_fill)
)

(define (coat)
	(penup)
	(goto -195 -200)
	(pendown)
	(begin_fill)
	(rt 20)
	(fd 80)
	(rt 15)
	(fd 50)
	(lt 70)
	(fd 130)
	(seth 91)
	(fd 80)
	(rt 45)
	(circle 50 25)
	(sunglasses)
	(rt 90)
	(circle 65 60)
	(seth 95)
	(fd 80)
	(rt 135)
	(fd 150)
	(lt 160)
	(fd 50)
	(rt 60)
	(fd 30)
	(rt 30)
	(fd 15)
	(goto 210 -200)
	(goto -195 -200)
	(end_fill)
)


(define (sunglasses)
	(seth 180)
	(circle 50 170)
	(rt 95)
	(fd 5)
	(seth 180)
	(circle 57 180)
)

(define (fedora)
	(penup)
	(goto -105 165)
	(pendown)
	(begin_fill)
	(seth -90)
	(circle 80 40)
	(circle 90 20)
	(circle 40 45)
	(circle 90 40)
	(circle 270 60)
	(circle 80 40)
	(circle 90 20)
	(circle 40 50)
	(circle 90 25)
	(fd 10)
	(seth 0)
	(fd 75)
	(goto -105 250)
	(goto -105 165)
	(end_fill)
)

(define (stripe)
	(penup)
	(goto -105 130)
	(seth 97.5)
	(pendown)
	(color "black")
	(begin_fill)
	(fd 225)
	(seth 180)
	(fd 10)
	(seth -82.5)
	(fd 225)
	(goto -105 130)
	(end_fill)
)


(define (draw)
	(speed 0)
	(background_fill)
	(color "white")
	(coat)
	(fedora)
	(stripe)
)

(draw)
(hideturtle)