CUBEMAP THINGY

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.

Finjogi

Naughty.. have you made any progress?

I imagine you could have done testing code in one minute :) but anyway here it is. Gfx card I use is Geforce 6600GT like I mentioned previous post :)

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

camera=CreateCamera()

light=CreateLight()
RotateEntity light,45,45, 0

; Create sphere
sphere1=CreateSphere()
sphere2=CreateSphere()
sphere3=CreateSphere()

tex1=LoadTexture("cube1.bmp", 1+128+256)
tex2=LoadTexture("cube2.bmp", 1+128+256)
tex3=LoadTexture("cube3.bmp", 1+128+256)

;tex1 = CreateTexture(64,64, 1+128) 
;tex2 = CreateTexture(64,64, 1+128)
;tex3 = CreateTexture(64,64, 1+128)

PositionEntity sphere1,-2,0,0
PositionEntity sphere2,0,0,0
PositionEntity sphere3,2,0,0

EntityTexture sphere1, tex1
EntityTexture sphere2, tex2
EntityTexture sphere3, tex3



While Not KeyDown( 1 )

	a = a + 1
	x# = Sin(a) * 2.0
	PositionEntity camera, x,0,-5

	If (a Mod 5) = 0
		For i=0 To 5
			SetCubeFace tex1,i 
			CopyRect 0,0,5,5,rnd(55),rnd(55), BackBuffer(),TextureBuffer(tex1)  

			SetCubeFace tex2,i 
			CopyRect 0,0,5,5,rnd(55),rnd(55), BackBuffer(),TextureBuffer(tex2)  

			SetCubeFace tex3,i 
			CopyRect 0,0,5,5,rnd(55),rnd(55), BackBuffer(),TextureBuffer(tex3)  
		Next
	EndIf
	RenderWorld
	Flip

Wend