introscreens

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.

Rook Zimbabwe

OK I am using a sprite to fade in and out to create an intro screen effect... I load the screen as a texture and then adjust the entityalpha of the sprite... Simple sample code:

; fadein by Rook Zimbabwe
;
Graphics3D 800,600,16,1
SetBuffer BackBuffer()
AppTitle "FADER 1.0"

cam = CreateCamera()
PositionEntity cam,0,0,-10

Cls

startright=LoadTexture("front.png")

Global ghost
Global ghost2
Global b#
Global gome
Global flipper = CreateSprite()
EntityTexture flipper,startright

PositionEntity flipper,0,0,-8.5

oldtime = MilliSecs()
b#=0
ghost=1

While Not KeyHit (1)

If ghost = 0 Then 
Delay 125
ghost2=1
EndIf

If ghost = 1 Then fadein()

If ghost2 = 1 Then fadeout()
RenderWorld()

Text 0,12,"ALPHA: "+b#
Text 0,24,"Ghost: "+ghost
Text 0,36,"G2: "+ghost2
Text 0,48,"GOME: "+gome

Flip

Cls

Wend

End
; ########################### FUNCTIONS
;
; ########################### FADEIN
Function fadein()

If MilliSecs() > oldtime+50 Then
b# = b# + .01
If b# > 1 Then 
	b# = 1
	ghost = 0
EndIf
EntityAlpha flipper,b#
oldtime = MilliSecs()

EndIf

End Function
; ########################### FADEOUT
Function fadeout()

If MilliSecs() > oldtime+50 Then
b#=b#-.01
If b#<.001 Then 
	b#=0
EndIf
If b#=0 Then gome=1
EntityAlpha flipper,b#
oldtime = MilliSecs()

EndIf

End Function
; ###########################

The code is uncommented but is really simple to understand...

My problem is this:
The screen looks slightly "fuzzy" and not sharp... I want to do better... HOW???