If try next example, in my screen appears sprite a little bit deformed when near X=0 or Y=0.
It can be noticed when X (or Y) coordenate is from 26 to 32:
Code: Select all
If InitMouse()=0 Or InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0
MessageRequester("Error","Can't open DirectX",0)
End
EndIf
#bitplanes=32:#RX=1024:#RY=768
#BallsDiameter=76
If OpenScreen(#RX,#RY,#bitplanes,"Balls")=0:End:EndIf
CreateSprite(0,#BallsDiameter,#BallsDiameter,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(0))
BackColor(0,0,0):Circle(#BallsDiameter/2,#BallsDiameter/2,#BallsDiameter/2,$9dfe00)
StopDrawing()
CreateSprite3D(0,0):ZoomSprite3D(0,#BallsDiameter,#BallsDiameter)
CentreX=SpriteWidth(0)/2:CentreY=SpriteHeight(0)/2;<-centro de Objeto1
Repeat
ExamineKeyboard()
ExamineMouse()
ClearScreen(0,0,0)
Start3D()
mousex=MouseX():mousey=MouseY()
DisplaySprite3D(0,mousex-#BallsDiameter/2,mousey-#BallsDiameter/2,255)
Stop3D()
StartDrawing(ScreenOutput())
Locate(200,200):DrawText("X = "+Str(mousex)+" ; Y = "+Str(mousey))
StopDrawing()
FlipBuffers()
Until KeyboardPushed(#PB_Key_All)
CloseScreen()
End

