;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <sun's not hot>
;;;
;;; Description:
;;;   <the sun sets under
;;;    the waves; you listen to its:
;;;    song: "the scheme goes skraaa ">

(define (draw)
  ; YOUR CODE HERE
  ; SUNSET
  	(speed 0)
	  (color "#C4523D")
	  (goto 342 30)
	  ; -340 -280
	  (draw_box 30 288 "#C4523D")
	  (fill-sunset 290 "#C46A3D")
	  (fill-sunset 230 "#C47C3D")
	  (fill-sunset 170 "#D19747")
	  (fill-sunset 120 "#D1B047")
	; OCEAN
	(draw_box 30 -288 "#4D549A")
	(draw_box -30 -288 "#4D6A9A")
	(draw_box -90 -288 "#4D7A9A")
	(draw_box -150 -288 "#4D8D9A")
	(draw_box -210 -288 "#4D9D9A")
	(draw_box -270 -288 "#4DAB9A")
	; SAND
	(goto -342 -288)
	(begin_fill)
	(color "#D48B27")
	(goto 30 -288)
	(goto -282 30)
	(goto -342 30)
	(goto -342 -288)
	(end_fill)
	(make_triangle -30 30 "#F19F2E")
	(make_triangle -100 -40 "#F1B42E")
	(make_triangle -170 -110 "#F1C44F")
	(make_triangle -240 -180 "#FDD470")
	; ISLAND
	(penup)
	(goto 342 -200)
	(pendown)
	(color "#5C9043")
	(begin_fill)
		(goto 230 -170)
		(goto 190 -100)
		(goto 230 -50)
		(goto 342 0)
		;(goto 342 -200)
	(end_fill)
	; TREE
	; TRUNK
	(goto 342 -110)
	(color "#965900")
	(begin_fill)
		(goto 301 -110)
		(goto 315 -10)
		(goto 315 100)
		(goto 342 100)
	(end_fill)
	; LEAVES
	(color "#007E08")
	(begin_fill)
		; leaf one
		(goto 305 57)
		(goto 287 27)
		(goto 282 38)
		(goto 290 62)
		(goto 303 92)
		(goto 315 107)
		(goto 325 112)
		; leaf two
		(goto 316 109)
		(goto 290 90)
		(goto 268 67) ; bottom point
		(goto 278 103)
		(goto 290 122)
		(goto 305 130)
		(goto 322 133)
		(goto 330 129)
		; leaf 3
		(goto 322 140)
		(goto 290 150)
		(goto 280 150)
		(goto 272 145)
		(goto 287 163)
		(goto 305 169)
		(goto 320 165)
		(goto 342 158)
		(ht)
	(end_fill)
)
(define (fill-sunset r col)
	(goto r 30)
	  (color col)
	  (begin_fill)
	  	(circle r)
	  (end_fill)
	)
(define (draw_box y1 y2 col)
	(color col)
	(begin_fill)
		(goto -342 y1)
		(goto -342 y2)
		(goto 342 y2)
		(goto 342 y1)
	(end_fill)
)
(define (make_triangle x y col)
	(color col)
	(begin_fill)
		(goto x -288)
		(goto -342 y)
		(goto -342 -288)
	(end_fill)
)
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)