method move_node x y alpha pos =
(* make sure we don't hit the Array bounds *)
if (x < size.x) && (x >=0) then
if (y < size.y) && (y >=0) then
nodes.(x).(y).value<- move alpha nodes.(x).(y).value pos
else
()
else
()