;HAIKU

;Haikus are easy
;But sometimes they don't make sense
;Refrigerator


;Begin Artwork
(speed 0) ;refrigerator
(penup)
(setposition -200 -300) 
(pendown)
(forward 400) ;rectangle main body
(right 90)
(forward 289)
(right 90)
(forward 400)
(right 90)
(forward 289)
(right 90)
(forward 400) ;3D backing
(right 30)
(forward 70)
(right 60)
(forward 289)
(right 120)
(forward 70) ;stretch lines 
(left 30)
(forward 400)
(left 150)
(forward 70)
(left 30)
(forward 400) ;farthest back
(left 150)
(forward 70)
(left 30)
(forward 170)
(right 90) ;draw fridge divide
(forward 289)
(right 90) ;darkening
(forward 2)
(right 90)
(forward 289)
(forward -30) ;handles
(left 90)
(penup)
(forward 15)
(pendown)
(begin_fill) ;handle 1
(forward 40)
(right 90)
(forward 10)
(right 90)
(forward 40)
(right 90)
(forward 10)
(end_fill)
(left 90)
(penup)
(forward 34)
(pendown)
(begin_fill) ;handle 1
(forward 40)
(left 90)
(forward 10)
(left 90)
(forward 40)
(left 90)
(forward 10)
(end_fill)
(penup)

(setposition -300 -200)

(right 90)
(pendown)

;left tree
(define (tree size level)
	(cond ((= level 1) 
			(forward size)
			(forward (* size -1)))
		(else 
			(forward size)
			(left 40)
			(tree (* size 0.8) (- level 1))
			(right 50)
			(tree (* size 0.8) (- level 1))
			(left 10)
			(forward (* size -1))


			)))

(color "darkgreen")
(tree 120 13)
(penup)

(setposition 230 -200)
(pendown)

;right tree
(define (tree2 size level)
	(cond ((= level 1) 
			(forward size)
			(forward (* size -1)))
		(else 
			(forward size)
			(right 40)
			(tree2 (* size 0.8) (- level 1))
			(left 50)
			(tree2 (* size 0.8) (- level 1))
			(right 10)
			(forward (* size -1))


			)))
(tree2 120 13)

(penup)
(setposition -500 -500)