полностью согласен с tormoz'ом, замечательная идея!
от себя могу посоветовать, что если все же будет камера, и будет рендер (обычно они есть), то лучше скрывать пивот (ну и что, что ничего итак не видно), наблюдается небольшое повышение производительности:
Graphics3D 1024,768,32,2
n=10000
Dim ps(n)
For i=1 To n
ps(i)=CreatePivot()
HideEntity ps(i)
Next
cam=CreateCamera()
frame=0
a_time=MilliSecs()
While Not KeyDown(1)
frame=frame+1
If a_time<MilliSecs()-1000
fps=frame
frame=0
a_time=MilliSecs()
EndIf
RenderWorld
Text 10,10,fps
Flip 0
Wend
закоментите строчку hideentity() и сравните с раскоменченой.