(require rsc3-interface/plt/rsc3-interface
	 srfi/27)

;; <dots> are points on a unit plane.

(begin
 (define w (make-window "dots.test"))
 (define f (lambda (n x y) (display (list n x y)) (newline)))
 (define d (make-dots w 500 500 4 f))
 (window-show w))

(for-each (lambda (x y) 
	    (edit-dots-value d (random-integer 4) x y) 
	    (sleep 0.25))
	  (iota 10 0 0.1)
	  (iota 10 1 -0.1))