Я накидал, но я пока плохо разбираюсь в шейдерах эффектах.., и меши у меня просто исчезают
Include "xors3d.bb"
xGraphics3D 800,600,32,1,1
camera = xCreateCamera()
xPositionEntity camera, 0,2,-20
light = xCreateLight()
Global sp=xCreateSphere(16)
tx=xLoadTexture("accept.png")
xEntityTexture sp,tx
Global HWIFX=xLoadFXFile("hwinstancing.fx")
xEntityFX sp,HWIFX
xSetEffectTechnique sp, "Instancing"
xSetEffectMatrixSemantic sp,"MatViewProj",WORLDVIEWPROJ
xSetEffectMatrixSemantic sp,"MatWorld",WORLD
Dim c(10000)
For i=1 To 10000
c(i)=xCreateInstance(sp)
xPositionEntity c(i),Rnd(-3,3),Rnd(0,0.5),Rnd(-3,3)
Next
Global frame, xframe, time
xframe=xMillisecs()-1
While Not xKeyHit(1)
frame=xMillisecs()
xRenderWorld()
xText 5,5,time
xFlip
time=1000/(frame-xframe)
xframe=frame
Wend
End