Help turn off 2X multiply

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.

Jeremy Alessi

OK, I'm dead tired and I can't quite see through this code atm ... I'm trying to use Halo's lib which gives the GetTextureBlend() command. This is supposed to cycle through each entitiy and figure out if it has a 2X multiply texture on it or one of it's surfaces and then deactivate the TextureBlend() of 5 so that there is no 2X multiply.

Oh and by the way right now I'm checking GfxDriverCaps3D() = 110 so that I can see the 2X multiply being turned off on my machine which does support cube mapping of course.

If GfxDriverCaps3D() = 110
		For extModel.EXT_Entity = Each EXT_Entity
			If extModel\root	
				For i = 1 To CountChildren(extModel\root)
					If EntityClass$(GetChild(extModel\root,i)) = "Mesh"
						brush = GetEntityBrush(GetChild(extModel\root,i))
						If brush
							tex1 = GetBrushTexture(brush,0)
							tex2 = GetBrushTexture(brush,1)
							If tex1
								If GetTextureBlend(tex1) = 5
								
									TextureBlend(tex1, 0)
																
								EndIf
								EntityTexture(GetChild(extModel\root,i),tex1,0)
								FreeTexture(tex1)
							EndIf
							If tex2
								If GetTextureBlend(tex2) = 5
									
									TextureBlend(tex2, 0) 
																	
								EndIf
								EntityTexture(GetChild(extModel\root,i),tex2,1)
								FreeTexture(tex2)
							EndIf
							FreeBrush(brush)
						EndIf 
						For j = 1 To CountSurfaces(GetChild(extModel\root,i)) 
							surface = GetSurface(GetChild(extModel\root,i),j)
							If surface
								surfaceBrush = GetSurfaceBrush(surface)
								If surfaceBrush
									tex1 = GetBrushTexture(surfaceBrush,0)
									tex2 = GetBrushTexture(surfaceBrush,1)
									If tex1
										If GetTextureBlend(tex1) = 5
											
											TextureBlend(tex1, 0)
											
										EndIf
										EntityTexture(GetChild(extModel\root,i),tex1,0)
										FreeTexture(tex1)
									EndIf
									If tex2
										If GetTextureBlend(tex2) = 5
											
											TextureBlend(tex2, 0)
																						
										EndIf
										EntityTexture(GetChild(extModel\root,i),tex2,1)
										FreeTexture(tex2)
									EndIf
									FreeBrush(surfaceBrush)
								EndIf
							EndIf
						Next
					EndIf
				Next
			EndIf
		Next
	EndIf