Fastpointer speed

Blitz3D Forums/Blitz3D Programming/Fastpointer speed

Yue	(Posted 2014) [#1]

I'm using FastPointer for a thread to load resources from the main menu, however what happens is that while loading those resources the idea is to show a progress bar if progress bar does not charge lasts 1 second meustra, but if put the bar lasts 7 seconds to complete charging and do not understand what happens.

Something I've been able to discover is that if inside the loop that shows the loading bar use Delay, the charge lasts about three seconds, depending on the time establesca with Delay.

I guess the hard charging more because it performs two tasks simultaneously, load resources and displaying the loading bar, ?, Any suggestions or someone tells me more deeply what happens.

A greeting.

Function HiloPuntero%()
	Carga% = False
	
	
	Local Frame#
	Select Escena%
			
			
		Case ESCENAMENU%
			
			
			
			Barra.ImagenAnim = Init_objImagenAnim.ImagenAnim(CIMAGENES$,"Barra.png",126,22,0,12)
			HandleImage Barra\Imagen%, 126/2,22/2
			
		Case ESCENANIVEL1%	
			
			
			Barra.ImagenAnim = Init_objImagenAnim.ImagenAnim(CIMAGENES$,"Barra.png",126,22,0,12)
			HandleImage Barra\Imagen%, 126/2,22/2
			
	End Select 
	
	
	PunteroFuncion% = FunctionPointer()
	Goto Salto
	CargandoRecursos%()		
	.Salto
	
	Puntero = CreateThread (PunteroFuncion%, 0)
	
	
	
	HideEntity CamGUI\Objeto%
	HideEntity Cam\Objeto%
	Repeat 
		
		; Delay 1000 
		Frame# = Frame# +.1
		
		If Frame# > 11 Frame# = 0
			
			DrawImage Barra\Imagen%,G3D\AnchoPantalla-126,G3D\AltoPantalla-22,Frame#
			
			Flip 
			
		
		
		
			
			
		
	Until Carga% = True 
	ShowEntity CamGUI\Objeto%
	ShowEntity Cam\Objeto%
	If IsThread(Puntero%) FreeThread(Puntero%)
	
		
		
End Function

Edit: Delay 3 Speed one Second loading Menu.