0,]']±>Sï}WÿÍu§ðp8·d%qy)6o;]ÉA¦ösï÷ôôô”°ÂVl†3 rd d) (set rd d) (set ri i))) ri)) (fn find-nearest-point [p] (let [fd #(pyth p $1) ds (fmap fd points)] (get-min-index ds))) (fn point-to-index [x y] (+ x (* max-x y))) (fn nearest-points [] (do (var t {}) (for [y 0 max-y] (for [x 0 max-x] (tset t (point-to-index x y) (find-nearest-point {:x x :y y})))) t)) (fn move-point [point movement] { :x (+ point.x movement.x) :y (+ point.y movement.y) }) ; VIEW (fn highlight-selected [i] (let [p (. points i)] (pix p.x p.y 0))) (fn draw-screen [ds] (for [y 0 max-y] (for [x 0 max-x] (let [c (inc (. ds (point-to-index x y)))] (pix x y c))))) (fn react [] (do ; add new point (when (btnp 4) (table.insert points (new-point)) (set selected-point (length points)) (set distances (nearest-points))) ; remove point (when (btnp 5) (table.remove points selected_point) (set selected-point 1) (set distances (nearest-points))) ; change selected point (when (btnp 6) (set selected-point (if (= selected-point (length points)) 1 (inc selected-point)))) ; move selected point (let [up (btn 0) down (btn 1) left (btn 2) right (btn 3) v (if up -1 down 1 0) h (if left -1 right 1 0) movement {:x h :y v}] (when (or up down left right) (tset points selected-point (move-point (. points selected-point) movement)) (set distances (nearest-points)))))) ; MAIN FUNCTIONS (for [x 0 2] (table.insert points (new-point))) (set distances (nearest-points)) (global TIC (fn tic [] (do (react) (draw-screen distances) (highlight-selected selected-point) )))