Code archives/3D Graphics - Misc/Loading
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Loading resources in the background while an animation show a loading progress bar. | |||||
Global loadingFinish% = false global mesh% global animImage% = LoadAnimImage("Loading.png",256,64,0,9) ; Image Animation for Loading. threadPointer% = FunctionPointer() Goto Jump LoadingLevel() ; Function thread. .Jump trhead% = CreateThread (threadPointer%, 100) repeat cls X% = X% + 1 if X% = 8> X% = 0; Repeat Frame image animating. DrawImage AnimImage%,100,100,X% if loadingFinish% = true then Exit ; Finish Loading. end if ; NO USE RENDERWORD. flip forever If IsThread(Thread) Then FreeThread(Thread%) freeimage animImage% Function LoadingLevel%() repeat delay 100 if loadingFinish% = false then mesh% = LoadingMesh("Mesh.b3d") loadingFinish% = true End if forever End Function |
Comments
None.
Code Archives Forum