(load "stk-turtle-stuff")

(define (tree size)
(if (< size 5)
	(begin
		(color "#228B22") (fd size)
		(color "#228B22") (bk size))
	(begin
		(color "#228B22") (fd (/ size 3))
		(lt 30)
		(tree (/ (* size 2) 3))
		(rt 30)
		(color "#228B22") (fd (/ size 6))
		(rt 25)
		(tree (/ size 2))
		(lt 25)
		(color "#228B22") (fd (/ size 3))
		(rt 25)
		(tree (/ size 2))
		(lt 25)
		(color "#228B22") (fd (/ size 6))
		(color "#228B22") (bk size))))

(define (f size l)
(if (= l 0)
	(begin
	(color "#EE82EE")
	(fd size))
	(begin
		(color "#EE82EE")
		(f (/ size 3) (- l 1))
		(lt 60)
		(f (/ size 3) (- l 1))
		(rt 120)
		(f (/ size 3) (- l 1))
		(lt 60)
		(f (/ size 3) (- l 1)))))
		
(define (snow size l)
(begin
(begin_fill)
(repeat 3 (rt 120) (f size l))
(color "#EE82EE")
(end_fill)))

(define (xue n)
(repeat n 
	(define x (random 460))
	(define y (random 460))
	(define z (+ (random 10) 5))
	(pu)
	(setxy (- x 230) (- y 230))
	(pd)
	(snow z 2)))
	
(define (grass size)
	(if (> size 5)
		(begin
			(color "#9ACD32")
			(fd (/ size 25))
			(lt 80)
			(grass (* size .3))
			(rt 82)
			(color "#9ACD32")
			(fd (/ size 25))
			(rt 80)
			(grass (* size .3))
			(lt 78)
			(grass (* size .9))
			(lt 2)
			(color "#9ACD32")
			(bk (/ size 25))
			(lt 2)
			(color "#9ACD32")
			(bk (/ size 25)))))


	(cs)
	(pu) (setxy 0 -200) (pd)
	(tree 300)
	(pu) (setxy -200 -200) (pd)
	(repeat 6 
		(grass 120)
		(seth 90)
		(pu) (fd 66) (pd)
		(seth 0))
	(xue 50)
	(ht)