;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The Mystery behind Dragon Curve
;;;
;;; Description:
;;;   As simple as a right-angle rotation.
;;;   As powerful as a super dragon.

(define (draw)
  ; YOUR CODE HERE
    ; (hideturtle)
    (speed 500)

    (bgcolor "black")

    (define (dragon_curve size level)
      (if (= level 0)
          (forward size)
          (begin (dragon_curve size (- level 1)) (left 90) (inner_recursive size (- level 1)))
      )
    )

    (define (inner_recursive size level)
      (if (= level 0)
          (forward size)
          (begin (dragon_curve size (- level 1)) (right 90) (inner_recursive size (- level 1)))
      )
    )

    (define (recursive_draw n i color_list)
      (if (= n i)
          0
          (begin (color (car color_list)) (dragon_curve 4 i) (recursive_draw n (+ i 1) (cdr color_list)))
      )
    )
    
    
    (define color_list (list "red" "orange" "yellow" "green" "purple" "blue" "red" "orange" "yellow" "green" "purple" "blue" "red" "orange" "yellow" "green" "purple" "blue" "red" "orange" "yellow" "green" "purple" "blue"))

    (recursive_draw 17 1 color_list)

  (exitonclick)
)

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)