splash screen

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

bradford6

EDIT: Modified to fill the screen
You could use a sprite and adjust the alpha.

grab these images (save link as):
www.bmaxbook.com/splash1-1024.jpg
www.bmaxbook.com/splash2-1024.jpg

and run this file:

Import sidesign.MiniB3D
Strict

Global Splash1file:String = "splash1-1024.jpg"
Global Splash2file:String = "splash2-1024.jpg"

Global width:Int = 1024 , height# = 768
Global midw:Int = width / 2
Global Midh:Int = height / 2

Graphics3D width,height,32,0
ClearTextureFilters

Local cam:Tentity = CreateCamera() ; CameraRange(Tcamera(cam), 0.001 , 300)
Local title1:Tentity = LoadSprite(Splash1file)
	PositionEntity title1,0,0,1
	ScaleSprite Tsprite(title1),1,0.75

Local title2:Tentity = LoadSprite(Splash2file)
	EntityAlpha title2,0.1
	PositionEntity title2,2000,0,1
	ScaleSprite Tsprite(title2),1,0.75

Local alpha1# = 1.0
Local alpha2# = 0.001

Local duration:Int = 100
Local splashover :Int
' Main Loopski
Repeat
			duration:-1
			If duration<0
				alpha1:*0.99
				EntityAlpha title1,alpha1	
					If alpha1<0.55
							alpha2:*1.03
								PositionEntity title2,0,0,1
								EntityAlpha title2,alpha2	
					EndIf
			EndIf
			
			RenderWorld

			Flip 			
			
			If KeyHit(KEY_ESCAPE) Then splashover = 1
			If duration<-500 Then splashover = 1

			
Until splashover