For Each p As pixel In pixels
Dim sum As Int = 0
For Each cl As cell In celllist
Dim d As Int = distance(p.x,p.y,cl.x,cl.y)
sum = sum + (500 * (cl.r/d))
sum = Min(sum, 255)
Next
p.color = fx.Colors.To32Bit(fx.Colors.RGB(sum,128,0)) 'HSLtoRGB(sum*5,sum*10,sum*0.8) '
'...