Ronin: Apply Dot Effect to Imported Image

SampleDots.lisp

(clear)

(open $path .5)

(def background "black")
(def unit 10)
(def padding 1)
(def r (sub (div unit 2) padding))
(def f (get-frame))

(defn find-color (p) 
  (pick 
    (rect p:x p:y unit unit)))

(defn draw 
  (p) 
  (
    (def color 
      (find-color p))
    (fill 
      (rect p:x p:y unit unit) background)
    (fill 
      (circle 
        (add p:x r) 
        (add p:y r) r) color)))

(defn draw-row 
  (y) 
  (each 
    (range 0 f:w unit) 
    (λ 
      (x) 
      (draw 
        (pos x y)))))

(each 
  (range 0 f:h unit) draw-row)