небольшая поправочка к коду :
Function load_texture(file$,flags=1,frames=1)
Select video_card_type$
Case "Geforce 6 series"
img=LoadImage(file$)
tex=CreateTexture(ImageWidth(img),ImageHeight(img),flags,frames)
CopyRect 0,0,ImageWidth(img),ImageHeight(img),0,0,ImageBuffer(img),TextureBuffer(tex)
FreeImage img
Return tex
Default
Return LoadTexture(file$,flags)
End Select
End Function
сорри за тупую ошибку
и так тестирование
блиц 1.87
моя функция грузит текстуру за 55 мс
loadtexture грузит за 30 мс (но из-за глюка ничего незагружает)
блиц 1.90
моя функция грузит текстуру за 55 мс
loadtexture грузит за 907 мс но загружает так как баг был "убран"
)
вообщем делайте выводы