"Surface Index out of range" (z-sorting!)

Graphics3D 640,480

myMesh = LoadAnimMesh("dwarf.b3d")

DebugLog FindSurfWithTex("axe",myMesh,False)
DebugLog FindSurfWithTex("dwarf.jpg",myMesh)
Stop
End

Function FindSurfWithTex(texfilename$,mesh,exactmatch=True)
	Local surf,br,tex,texname$

	Local ent = mesh
	While ent
		If EntityClass(ent) = "Mesh"
			For surfcnt = 1 To CountSurfaces(ent)
				surf = GetSurface(ent,surfcnt)
				br = GetSurfaceBrush(surf)
				tex = GetBrushTexture(br)
				texname = StripDir(TextureName(tex))
				If (exactmatch = True And texname = texfilename) Or (exactmatch = False And Instr(texname,texfilename))
					FreeBrush br
					FreeTexture tex
					Return surf
				EndIf
			Next
		EndIf
		ent = NextChild(ent)
	Wend

	Return 0
End Function

Function StripDir$(longpath$)
	While Instr(longpath,"\")
		longpath = Right(longpath,Len(longpath)-Instr(longpath,"\"))
	Wend
	Return longpath
End Function

		
Function NextChild(ent)
	If CountChildren(ent)>0
		Return GetChild(ent,1)
	EndIf

	Local foundunused=False
	Local foundent = 0, parent,sibling
	While foundunused=False And ent<>0
		parent = GetParent(ent)
		If parent<>0
			If CountChildren(parent)>1
				If GetChild(parent,CountChildren(parent))<>ent
					For siblingcnt = 1 To CountChildren(parent)
						sibling = GetChild(parent,siblingcnt)
						If sibling=ent
							foundunused = True
							foundent = GetChild(parent,siblingcnt+1)
						EndIf
					Next
				EndIf
			EndIf
		EndIf
		ent = parent
	Wend
	Return foundent
End Function