1

2

3

4

5

6

function AddNeighborToObject (current, neighbor)

k ← oid[current]

o[k].b[o[k].bno] ← neighbor

o[k].bno ← o[k].bno + 1

oid[neighbor] ← k

end function