(load "stk-turtle-stuff")

(define (pet size)
	(color "#33CC33")
	(circle size 90)
	(left 90)
	(circle size 90)
	(left 90))
;pet 15
	
(define (mul-pet size times)
	(cond ((= times 1)
				(pet size))
			(else
				(pet size)
				(left 30)
				(mul-pet size (- times 1)))))
;mul-pet 20

(define (square size)
	(forward size)
	(left 90)
	(forward size)
	(left 90)
	(forward size)
	(left 90)
	(forward size)
	(left 90))
	
;triangle 19
	
(define (mul-sq size times)
	(cond ((= times 1)
				(square size))
			(else
				(square size)
				(left 10)
				(mul-sq size (- times 1)))))
;mul-tri 20
				
				
(define (center size times circles)
	(color "#660000")
	(cond ((< size 6)
			(mul-sq size times))
			(else
				(mul-sq size times)
				(center (- size 10) times (- circles 1)))))

;center 26

(color "#000000")			
(setxy 225 -225)
(begin-fill)
(square 450)
(end-fill)
(setxy 0 0)				
(mul-pet 164 12)
(mul-pet 160 12)
(mul-pet 110 12)
(center 80 37 9)

;28


; (define (draw size levels)
	; (pd)
	; (cond ((= levels 1)
		; (fd size)
		; (bk size))
	; (else
		; (fd size)
		; (seth (- (heading) 30))
		; (draw (/ size 2) (- levels 1))
		; (seth (+ (heading) 60))
		; (draw (/ size 2) (- levels 1))
		; (seth (- (heading) 30))
		; (bk size))))
		
	
	

;;; YOUR CODE HERE