contest.scm

;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: MSE: MSE Scheme EschQR
;;;
;;; Description:
;;;   <...drawing hands create
;;;    a strange loop from meaningless
;;;    symbols, just as hands...>

(define (draw)
  (ht)
  (pixelsize 34)
  (px -11 -11)
  (px -10 -11)
  (px -9 -11)
  (px -8 -11)
  (px -7 -11)
  (px -6 -11)
  (px -5 -11)
  (px -3 -11)
  (px -2 -11)
  (px -1 -11)
  (px 0 -11)
  (px 3 -11)
  (px 5 -11)
  (px 8 -11)
  (px -11 -10)
  (px -5 -10)
  (px -2 -10)
  (px 6 -10)
  (px 7 -10)
  (px -11 -9)
  (px -9 -9)
  (px -8 -9)
  (px -7 -9)
  (px -5 -9)
  (px -3 -9)
  (px -2 -9)
  (px -1 -9)
  (px 0 -9)
  (px 1 -9)
  (px -11 -8)
  (px -9 -8)
  (px -8 -8)
  (px -7 -8)
  (px -5 -8)
  (px -3 -8)
  (px -1 -8)
  (px 3 -8)
  (px 4 -8)
  (px 5 -8)
  (px 6 -8)
  (px -11 -7)
  (px -9 -7)
  (px -8 -7)
  (px -7 -7)
  (px -5 -7)
  (px -3 -7)
  (px -1 -7)
  (px 1 -7)
  (px 2 -7)
  (px 3 -7)
  (px 8 -7)
  (px 9 -7)
  (px -11 -6)
  (px -5 -6)
  (px -3 -6)
  (px 0 -6)
  (px 2 -6)
  (px 7 -6)
  (px 9 -6)
  (px -11 -5)
  (px -10 -5)
  (px -9 -5)
  (px -8 -5)
  (px -7 -5)
  (px -6 -5)
  (px -5 -5)
  (px -2 -5)
  (px -1 -5)
  (px 0 -5)
  (px 1 -5)
  (px 2 -5)
  (px 6 -5)
  (px 7 -5)
  (px 8 -5)
  (px -3 -4)
  (px -1 -4)
  (px 3 -4)
  (px 4 -4)
  (px 5 -4)
  (px 6 -4)
  (px 7 -4)
  (px 9 -4)
  (px -9 -3)
  (px -8 -3)
  (px -6 -3)
  (px -5 -3)
  (px -4 -3)
  (px -3 -3)
  (px -1 -3)
  (px 0 -3)
  (px 3 -3)
  (px 4 -3)
  (px 5 -3)
  (px 8 -3)
  (px 9 -3)
  (px -7 -2)
  (px -6 -2)
  (px -4 -2)
  (px -3 -2)
  (px 0 -2)
  (px 2 -2)
  (px 4 -2)
  (px 6 -2)
  (px 7 -2)
  (px 8 -2)
  (px -11 -1)
  (px -10 -1)
  (px -6 -1)
  (px -5 -1)
  (px -2 -1)
  (px 0 -1)
  (px 1 -1)
  (px 3 -1)
  (px 6 -1)
  (px 8 -1)
  (px -8 0)
  (px -2 0)
  (px 2 0)
  (px 5 0)
  (px 7 0)
  (px 8 0)
  (px 9 0)
  (px -11 1)
  (px -9 1)
  (px -8 1)
  (px -7 1)
  (px -6 1)
  (px -5 1)
  (px -1 1)
  (px 0 1)
  (px 3 1)
  (px 4 1)
  (px 5 1)
  (px 6 1)
  (px 7 1)
  (px -3 2)
  (px -2 2)
  (px 0 2)
  (px 1 2)
  (px -11 3)
  (px -10 3)
  (px -9 3)
  (px -8 3)
  (px -7 3)
  (px -6 3)
  (px -5 3)
  (px -3 3)
  (px -1 3)
  (px 1 3)
  (px 3 3)
  (px 4 3)
  (px 5 3)
  (px 6 3)
  (px 7 3)
  (px 8 3)
  (px 9 3)
  (px -11 4)
  (px -5 4)
  (px -3 4)
  (px 1 4)
  (px 3 4)
  (px 9 4)
  (px -11 5)
  (px -9 5)
  (px -8 5)
  (px -7 5)
  (px -5 5)
  (px -3 5)
  (px -2 5)
  (px -1 5)
  (px 1 5)
  (px 3 5)
  (px 5 5)
  (px 6 5)
  (px 7 5)
  (px 9 5)
  (px -11 6)
  (px -9 6)
  (px -8 6)
  (px -7 6)
  (px -5 6)
  (px -3 6)
  (px -2 6)
  (px -1 6)
  (px 0 6)
  (px 1 6)
  (px 3 6)
  (px 5 6)
  (px 6 6)
  (px 7 6)
  (px 9 6)
  (px -11 7)
  (px -9 7)
  (px -8 7)
  (px -7 7)
  (px -5 7)
  (px -3 7)
  (px -1 7)
  (px 0 7)
  (px 3 7)
  (px 5 7)
  (px 6 7)
  (px 7 7)
  (px 9 7)
  (px -11 8)
  (px -5 8)
  (px -2 8)
  (px 0 8)
  (px 3 8)
  (px 9 8)
  (px -11 9)
  (px -10 9)
  (px -9 9)
  (px -8 9)
  (px -7 9)
  (px -6 9)
  (px -5 9)
  (px 0 9)
  (px 1 9)
  (px 3 9)
  (px 4 9)
  (px 5 9)
  (px 6 9)
  (px 7 9)
  (px 8 9)
  (px 9 9)
  (exitonclick))

(define (px x y)
  (pixel x y "black")
)
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)