Realtime vertex lighting?

hmmm...something like that?

EntityFX Mesh,2
light=createpivot()


Function UpdateLight(mesh,light)

surf_nr = CountSurfaces(mesh)
For i = 1 To surf_nr
surf = GetSurface(mesh,i)
vert_nr = CountVertices(surf)-1
For z = 0 To vert_nr

;Code...

VertexColor surf,z,red,grn,blu
Next
Next

End Function