Posted: Thu Dec 26, 2002 7:29 pm
Restored from previous forum. Originally posted by spider.
hi just have one question when i have this little program that uses
openwindowed screen and i use 3d and sprites on it.. but when i run it
and click the mouse on the window everything disapers little annyoing i tryed to overcome this but failed...
here a little code snippet.. plz help if you can..
OpenWindow(#wnd1, 100, 100, 800, 600,#PB_Window_SystemMenu | #PB_Window_ScreenCentered , "test")
OpenWindowedScreen(UseWindow(#wnd1),0,0,800,600,0,1,1)
Repeat
event.l=WindowEvent()
FlipBuffers()
ClearScreen(0,0,0)
;*****************
DisplaySprite(#logo,0,0)
sc()
If Start3D()
ZoomSprite3D(5,x*2,x*2)
ZoomSprite3D(6,x*2,x*2)
RotateSprite3D(5,v,1)
RotateSprite3D(6,-v,1)
DisplaySprite3D(5,100,40,30)
DisplaySprite3D(6,450,300,30)
Stop3D()
EndIf
If timer=500 And page=1
page=2:timer =0
EndIf
If timer=500 And page=2
page=1:timer=0
EndIf
showstats(page)
If x<=127
x+1
EndIf
v+2
timer+1
Until event=#PB_EventCloseWindow
hi just have one question when i have this little program that uses
openwindowed screen and i use 3d and sprites on it.. but when i run it
and click the mouse on the window everything disapers little annyoing i tryed to overcome this but failed...
here a little code snippet.. plz help if you can..
OpenWindow(#wnd1, 100, 100, 800, 600,#PB_Window_SystemMenu | #PB_Window_ScreenCentered , "test")
OpenWindowedScreen(UseWindow(#wnd1),0,0,800,600,0,1,1)
Repeat
event.l=WindowEvent()
FlipBuffers()
ClearScreen(0,0,0)
;*****************
DisplaySprite(#logo,0,0)
sc()
If Start3D()
ZoomSprite3D(5,x*2,x*2)
ZoomSprite3D(6,x*2,x*2)
RotateSprite3D(5,v,1)
RotateSprite3D(6,-v,1)
DisplaySprite3D(5,100,40,30)
DisplaySprite3D(6,450,300,30)
Stop3D()
EndIf
If timer=500 And page=1
page=2:timer =0
EndIf
If timer=500 And page=2
page=1:timer=0
EndIf
showstats(page)
If x<=127
x+1
EndIf
v+2
timer+1
Until event=#PB_EventCloseWindow