;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>

(define (draw)
  ; YOUR CODE HERE
  (begin 
    (pixelsize 3)
    
    (dot2 50 80 2000 "#aea7a7")
    (dot 50 80 2000 "#ffc0c0")
    )
  (exitonclick))

(define (dot x y repeat color)
(cond
  ((= repeat 0) nil)
  (else (begin 
    (pixel x y color)
    (dot (makeint (almostrandom repeat) (screen_width)) (makeint (almostrandom (makeint (almostrandom (log2 repeat)) (screen_width))) (screen_height)) (- repeat 1) color)
    ))
)
)

(define (dot2 x y repeat color)
(cond
  ((= repeat 0) nil)
  (else (begin 
    (pixel x y color)
    (dot2 (makeint (almostrandom repeat) (screen_width)) (makeint (almostrandom (makeint (almostrandom (sqrt repeat)) (screen_width))) (screen_height)) (- repeat 1) color)
    ))
)
)

(define (almostrandom x)
(+
  (/ (modulo x 73) 73)
  (/ (modulo x 65) 650)
  (/ (modulo x 93) 930)
  )
)



(define (makeint x mult)
(- (* x mult)
(modulo (* x mult) 1)
)
)

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