;;; Title: Untitled 4
;;;
;;; Description:
;;; Python and Scheme in-
;;; tertwine to make a dragon
;;; in recursive theme

(define (dragon n d turn)
	(cond ((zero? n) (fd d))
		(else
			(rt turn)
			(dragon (- n 1) (/ d 1.4142) 45)
			(lt (* turn 2))
			(dragon (- n 1) (/ d 1.4142) -45)
			(rt turn)
		)
	)
)
(hideturtle)

(define (draw1)
	(speed 0)
	(penup)
	(goto 0 0)
	(rt 90)
	(pendown)
	(dragon 12 200 45)

)
(define (draw)
	(color 'red)
	(draw1)
	(color 'orange)
	(draw1)
	(color 'green)
	(draw1)
	(color 'blue)
	(draw1)
)
(draw)
(exitonclick)