Texture Bug

Archives Forums/Blitz3D Bug Reports/Texture Bug

MusicianKool

(Posted 2010) [#1]

I Cannot figure out why this gives me a MAV, It seems something is wrong with the Texture buffer or something.

The "Improved Perlin Lib.bb" can be found here.
http://www.blitzbasic.com/codearcs/codearcs.php?code=2706

;Setup Blitz graphics and Buffer.
Graphics3D 800,600,32,2
SetBuffer BackBuffer()

;Include the Library.
Include "Improved Perlin Lib.bb"

seed 	   = 	1200	;Random seed			
size 	   = 	128		;ImageSize
MinOctaves =	0		;Minimum Octave
MaxOctaves =	11		;Maximum Octave
ImageType  =	1		;(0 = image: is disabled for this example), 1 = texture
Multiplyer#=	.5
Dim vpos#(1,1)

;Create an Image
Image = CreateTexture(size,size)


camera = CreateCamera()
PositionEntity camera,0,0,-5

piv = CreatePivot()
light = CreateLight(2,piv)
PositionEntity light,0,0,-3

While Not KeyHit(1)
	Cls
	TurnEntity piv,0,1,3
	ms = MilliSecs()
	TempSphere = CreateSphere(16)
	MeshDeform(Image,TempSphere,Size,Seed,MinOctaves,MaxOctaves,Multiplyer#, z#/10)
	EntityTexture TempSphere,Image
	UpdateNormals TempSphere
	RenderWorld
	FreeEntity TempSphere
	z# = z# + 1
	Text 0,0,"Done at (ms): "+(MilliSecs()-ms)
	Flip
Wend

FreePerlin()

End

Function MeshDeform(Image,Mesh%,Size,Seed,MinOctaves,MaxOctaves,Multiplyer#,z#)
	; monkey with the verts
	as1=GetSurface(Mesh,1)
	
	; record the locations of the verts
	Dim vpos#(CountVertices(as1)-1,3)
	For n=0 To CountVertices(as1)-1
		vpos(n,0)=VertexX(as1,n)
		vpos(n,1)=VertexY(as1,n)
		vpos(n,2)=VertexZ(as1,n)
		vpos(n,3)=0
	Next
	
	IB = TextureBuffer(Image)
	
	LockBuffer IB
	For n=0 To CountVertices(as1)-1
	
		;Get Perlin 3D noise
		u# = VertexU#(as1,n)*size-1
		v# = VertexV#(as1,n)*size-1
		w# = VertexW#(as1,n)
		pn# = Perlin3D#(vpos(n,0)*40,vpos(n,1)*40,(vpos(n,2)+z#)*40,Size,Seed,MinOctaves,MaxOctaves)
		If pn# < 0 Then pn# = 0
		col# = pn#*255
		If col# > 255 Then col# = 255
		argb = Get_ARGB_From(col,col,255)
		WritePixelFast u,v,argb,IB
		
		Spherical(vpos(n,0),vpos(n,1),vpos(n,1),pn#*Multiplyer)
		xm# = Spherical_X()
		ym# = Spherical_Y()
		zm# = Spherical_Z()
		
		
		For nn=0 To CountVertices(as1)-1
		
		; if the vert has not been monkeyed with monkey away
			If vpos(nn,3)=0
				If vpos(n,0)=vpos(nn,0) And vpos(n,1)=vpos(nn,1) And vpos(n,2)=vpos(nn,2)
					VertexCoords as1,nn,vpos(nn,0)+xm,vpos(nn,1)+ym,vpos(nn,2)+zm
					vpos(nn,3)=1
				EndIf
			EndIf
			
		Next
	Next
	
	UnlockBuffer IB
	
End Function

MusicianKool

(Posted 2010) [#2]

Well fixed if I change


;Create an Image
Image = CreateTexture(size,size)



;Create an Image
Image = CreateTexture(size,size,257)

Floyd

(Posted 2010) [#3]

Works fine here. That's with XP, an old 7300GS and a driver that hasn't been updated in ages.

lo-tekk

(Posted 2010) [#4]

The posted fix causes a MAV with my setup. If I remove the flags it seems to work fine.

Win XP with ATI Radeon 4850, Blitz3d Version 1.104

MusicianKool

(Posted 2010) [#5]

hmm. must be my crappy off brand laptop video card