Code: Select all
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitSprite3D() = 0 
  MessageRequester("Error", "Can't open DirectX 7 Or later", 0)
  End
EndIf
UsePNGImageDecoder()
InitMouse()
OpenScreen(800,600,32,"test")
LoadSprite(49,"c:\test.png",#PB_Sprite_Texture)
CreateSprite3D(49,49)
Repeat 
Delay(1)
    ExamineKeyboard()
  Gosub drawscreen
Until KeyboardPushed(#PB_Key_Escape)
End 
;- Draw Screen
drawscreen:
ClearScreen(RGB(0,50,128))
Start3D()
DisplaySprite3D(49,0,0)
Stop3D()
FlipBuffers()
Return 
here is the graphic I used
http://www.thequizgrid.co.uk/test.png

