;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Chess, but with triangles!>
;;;
;;; Description:
;;;   <Chess, but so much worse
;;;    I want to make a bad pawn
;;;    do you get it, huh?>

(define (rows x y num_of_pairs size mortar c1 c2)
  (cond ((> num_of_pairs 0)
    (begin
      (pu)
      (color c1)
      (setpos x y)
      (begin_fill)
      (setpos (+ x mortar) y)
      (pd)
      (setpos (+ x (- size mortar)) y)
      (setpos (+ x size) (- y size))
      (setpos (+ x mortar) (- y size))
      (pu)
      (end_fill)

      (color c2)
      (begin_fill)
      (setpos (+ x size mortar) y)
      (pd)
      (setpos (+ x size size) y)
      (setpos (+ x size (- size mortar)) (- y size))
      (setpos (+ x size) (- y size))
      (setpos (+ x size mortar) y)
      (end_fill)
      (pu)

      (rows (+ x size size) y (- num_of_pairs 1) size mortar c1 c2)
      )
    )
  )
)
(define (grid x y num_of_pairs size mortar c1 c2 num_rows)
  (if (>= num_rows 0)
    (begin
      (rows x y num_of_pairs size mortar c1 c2)
      (rows x (- y size) num_of_pairs size mortar c2 c1)
      (grid x (- y size size) num_of_pairs size mortar c1 c2 (- num_rows 1))))
)

(define (draw)
  (begin
    (speed 10)
    (bgcolor "grey")
    (grid -295 230 6 50 10 "black" "white" 3)
  )
  (exitonclick))

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