i'm try to write wrapper, but it doesn't work, main InitEngine() function open a freezed window

here is that wrapper - http://depositfiles.com/files/f1k2k7pni
sorry for my bad english

Code: Select all
IncludeFile "ninfa3D.pbi"
nEnableVsync()
nInitEngine(640, 480, 32, 0)
nAppTitle(":sob:")
nBackGroundColor(0,0,128)
nAmbientLight(64,64,64)
*camera.l = nCreateCamera()
nPositionEntity(*camera, 0,0,-10)
*cube.l = nCreateMeshCube()
nPositionEntity(*cube, 0,0,0)
nRotateEntity(*cube, 40,45,0)
Repeat
nBeginScene()
If nKeyHit(#KEY_ESCAPE)
nCloseEngine()
EndIf;
nUpdateEngine(0)
nEndScene();
Until nEngineRun()<1
Code: Select all
Repeat
nBeginScene()
nUpdateEngine(0)
nEndScene();
Until nEngineRun()<1
Code: Select all
Repeat
If nKeyHit(#KEY_ESCAPE)
nCloseEngine()
EndIf;
nBeginScene()
nUpdateEngine(0)
nEndScene()
Until nEngineRun()<1