Sorry your browser is not supported!

global points = 50 : global w = 640 : global h = 480 : dim p(points,1) : dim regions(w,h) : ink rgb(200,200,200) : ln = 0 : for p = 1 to points : p(p,0) = rnd(w) : p(p,1) = rnd(h) : NEXT p
lock pixels : for y = 0 to h-1 : for x = 0 to w-1 : c_distance = w*h : for p = 1 to points : p_distance = sqrt((p(p,0)-x)^2+(p(p,1)-y)^2) : if p_distance < c_distance then c_point = p : c_distance = p_distance
next p : regions(x,y) = c_point : c = rgb(c_point,c_point,c_point) : dot x,y,rgb(c,c,c) : next xloop : next yloop : unlock pixels : wait key : end

global points = 50 : global w = 640 : global h = 480 : dim p(points,1) : dim regions(w,h) : ink rgb(200,200,200) : ln = 0 : for p = 1 to points : p(p,0) = rnd(w) : p(p,1) = rnd(h) : NEXT p
lock pixels
for y = 0 to h-1 : for x = 0 to w-1
    c_distance = w*h
    for p = 1 to points
      p_distance = sqrt((p(p,0)-x)^2+(p(p,1)-y)^2)
      if p_distance < c_distance
        c_point = p
        c_distance = p_distance
      endif
    next p
    regions(x,y) = c_point
        c = rgb(c_point,c_point,c_point)
        dot x,y,rgb(c,c,c)
  next xloop : next yloop
unlock pixels : wait key : end

set display mode 640,480,32
hide mouse
randomize timer()
sync on
sync rate 0

points = 50
w = 640
h = 480
ln = 0
dim px(points)
dim py(points)
dim regions(w,h)

for p = 1 to points
   px(p) = rnd(w)
   py(p) = rnd(h)
next p

for y = 0 to h-1 : for x = 0 to w-1
    c_distance = w*h :`rem start at maximum

    for p = 1 to points
      p_distance = sqrt((px(p)-x)^2+(py(p)-y)^2)
      if p_distance < c_distance
        c_point = p
        c_distance = p_distance
      endif
    next p

    regions(x,y) = c_point
    c = rgb(c_point,c_point,c_point)
    ink rgb(c,c,c),0
    dot x,y
next x : next y

sync
wait key : end