Something really strange - Your atmosphere picture shows up as a thick blue circle inside a thick blue square in DBPro.
Rem Project: BumpMap Test
Rem Created: 4/18/2006 8:04:07 PM
Rem ***** Main Source File *****
Sync On : Sync Rate 0 : Hide Mouse : Randomize Timer () : Set Display Mode 1024, 768, 32
AutoCam Off : Set Camera Range 5, 50000
Dir$ = Get Dir$ ()
Gosub _CreatePlanet : Gosub _CreateBackdrop
Tmr = Timer () : Wait 1 : Tsl# = Timer () - Tmr : Tsl# = Tsl# / 1000.0
Do
If KeyState ( 57 ) <> 0 Then Set Blend Mapping On PlanetObj, PlanetBump, 25
If KeyState ( 14 ) <> 0 Then Delete Object PlanetObj : Delete Image PlanetTex : Delete Image PlanetBump : Gosub _CreatePlanet
X# = Object Angle X ( PlanetObj ) : Y# = Object Angle Y ( PlanetObj ) : Z# = Object Angle Z ( PlanetObj )
` Rotate Object PlanetObj, X#, Y# + 0.01, Z#
Set cursor 0, 0
Print ScanCode ()
Print Screen FPS ()
Xrm# = MouseMoveY () : Yrm# = MouseMoveX ()
` Xr# = Xr# + ( Xrm# * Tsl# ) : Yr# = Yr# + ( Yrm# * tsl# )
Xr# = Xr# + Xrm# : Yr# = Yr# + Yrm#
Position Camera 0, 0, 0 : Rotate Camera Xr#, Yr#, 0 : Move Camera -200
` Scale Object 2, n#, n#, n# : n# = n# + ( ( n# * 0.1 ) * Tsl# )
Sync
Tsl# = Timer () - Tmr : Tsl# = Tsl# / 1000.0
Tmr = Timer ()
Loop
_CreatePlanet:
CD Dir$ + "\Desert World"
PlanetTex = GetNextImage () : Load Image "Texture.png", 1
PlanetBump = GetNextImage () : Load Image "Bump Map.png", 2
PlanetObj = GetNextObject ()
Make Object Sphere PlanetObj, 50 : Texture Object PlanetObj, PlanetTex
Position Camera 0, 0, -200 : Point Camera 0, 0, 0
Rotate Object PlanetObj, X#, Y#, Z#
CD Dir$
PlanetAtm = GetNextImage () : Load Image "Atmosphere.png", PlanetAtm
While ScanCode () = 0
Paste Image PlanetAtm, 0, 0
Sync
EndWhile
PlanetAtmObj = GetNextImage () : Make Object Plain PlanetAtmObj, 120, 120
Texture Object PlanetAtmObj, PlanetAtm
Return
_CreateBackdrop:
RemStart
CD Dir$ + "\Nebulae"
Load Image "Neb " + Str$( Rnd( 9 ) + 1 ) + ".png", 3
Make Object Sphere 2, 100 : ` Texture Object 2, 3
Scale Object 2, -100, -100, -100 : n# = -100
RemEnd
Return
Function GetNextObject()
a = 1
FindNextObject:
If Object Exist ( a ) Then a = a + 1 : Goto FindNextObject
EndFunction a
Function GetNextImage()
a = 1
FindNextImage:
If Image Exist ( a ) Then a = a + 1 : Goto FindNextImage
EndFunction a
Cheese!
Expert Bug-Finder, Horrible at Identifying Them.
