Code: Select all
If InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("Error", "Direct X 7+ Not loaded.", 0)
End
EndIf
If InitSprite3D() = 0
MessageRequester("Error", "Direct3D not loaded", 0)
End
EndIf
If OpenScreen(1920, 1200, 32, "test")
CreateSprite(0, 256,256, #PB_Sprite_Texture)
StartDrawing(SpriteOutput(0))
Box(0,0,256,256,RGB(0,100,255))
Circle(127,127,80,RGB(255,180,0))
StopDrawing()
CreateSprite3D(0, 0)
Repeat
FlipBuffers(1)
ClearScreen(RGB(0,50,128))
If Start3D()
DisplaySprite3D(0, 0, 0)
Stop3D()
EndIf
ExamineKeyboard()
Delay(20)
Until KeyboardPushed(#PB_Key_Escape)
Else
MessageRequester("Error", "Can't open screen!", 0)
EndIf
End