;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: A Little Bit of Mondrian
;;;
;;; Description:
;;;   <I see these colorful patterns
;;;    dizzy and cozy
;;;    I love CS61A>


(define (repeat n fn)
  (if (> n 0) (begin (fn) (repeat (- n 1) fn)) nil)
)


(define (square fn)
  (repeat 4 (lambda () (fn) (lt 90)))
)

(define (leg d k)
  (mondrian (/ d 2) (- k 1))
  (penup)
  (fd d)
  (pendown)
)

(define (mondrian_red)
  (begin_fill)
  (color (rgb 1 0 0))
  (penup)
  (goto 249 249)
  (pendown)
  (goto 249 -124)
  (goto -124 -124)
  (goto -124 249)
  (goto 249 249)
  (end_fill)
)

(define (mondrian_blue)
  (begin_fill)
  (color (rgb 0 0 1))
  (penup)
  (goto -249 -249)
  (pendown)
  (goto -124 -249)
  (goto -124 -124)
  (goto -249 -124)
  (goto -249 -249)
  (end_fill)
)

(define (mondrian_yellow)
  (begin_fill)
  (color (rgb 1 1 0))
  (penup)
  (goto 249 -126)
  (pendown)
  (goto 1 -126)
  (goto 1 -249)
  (goto 249 -249)
  (goto 249 -126)
  (end_fill)
)

(define (mondrian d k)
  (begin
    (square (lambda ()
      (cond
        ((= k 1) (fd d))
        (else
          (begin
              (leg d k))
          )
        )
          ))
    )
)

(define (draw)
  ; YOUR CODE HERE
  (begin
    (speed 0)
    (penup)
    (setposition 250 -250)
    (pendown)
    (mondrian 500 3)
    (mondrian_red)
    (mondrian_blue)
    (mondrian_yellow)
    (hideturtle)
    )
  (exitonclick))

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