Sprite 3D
Verfasst: 01.08.2005 19:50
Ich habe mal wieder ein problem:
Ich habe vor Sprite mit einen Z Parameter darzustellen
Allso ich will das das Sprite mit Z 0 ein Sprite mit Z -100 komplett überdeckt.
Ich habe es mit Sprite 3D versucht nur leider wird das wieder ignoriert
Wenn jemand helfen kann dann bitte hilft mir
CODE:
If InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("Error", "Can't open DirectX 7 Or later", 0)
End
EndIf
If InitSprite3D() = 0
MessageRequester("Error", "Direct3D system can't be initialized correctly", 0)
End
EndIf
If OpenScreen(640, 480, 16, "Sprite")
LoadSprite(0, "H:\PureBasic\PureBasic\Examples\Sources\Data\Geebee2.bmp", #PB_Sprite_Texture)
TransparentSpriteColor(0,255,0,255)
CreateSprite3D(0, 0)
CreateSprite3D(1, 0)
z = 0
Repeat
ClearScreen(0,0,0)
Start3D()
TransformSprite3D(0,0,0,z,200,0,z,200,200,z,0,200,z)
TransformSprite3D(1,0,0,200,200,0,200,200,200,200,0,200,200)
DisplaySprite3D(0,100,100,255)
DisplaySprite3D(1,150,150,255)
Stop3D()
z+1
FlipBuffers()
ExamineKeyboard()
Until z = 400 Or KeyboardPushed(#PB_Key_Escape)
End
EndIf
Ich habe vor Sprite mit einen Z Parameter darzustellen
Allso ich will das das Sprite mit Z 0 ein Sprite mit Z -100 komplett überdeckt.
Ich habe es mit Sprite 3D versucht nur leider wird das wieder ignoriert
Wenn jemand helfen kann dann bitte hilft mir
CODE:
If InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("Error", "Can't open DirectX 7 Or later", 0)
End
EndIf
If InitSprite3D() = 0
MessageRequester("Error", "Direct3D system can't be initialized correctly", 0)
End
EndIf
If OpenScreen(640, 480, 16, "Sprite")
LoadSprite(0, "H:\PureBasic\PureBasic\Examples\Sources\Data\Geebee2.bmp", #PB_Sprite_Texture)
TransparentSpriteColor(0,255,0,255)
CreateSprite3D(0, 0)
CreateSprite3D(1, 0)
z = 0
Repeat
ClearScreen(0,0,0)
Start3D()
TransformSprite3D(0,0,0,z,200,0,z,200,200,z,0,200,z)
TransformSprite3D(1,0,0,200,200,0,200,200,200,200,0,200,200)
DisplaySprite3D(0,100,100,255)
DisplaySprite3D(1,150,150,255)
Stop3D()
z+1
FlipBuffers()
ExamineKeyboard()
Until z = 400 Or KeyboardPushed(#PB_Key_Escape)
End
EndIf