Bug with CreateShader

[inn3r100p]

Hello!
Another bug with Engine, fails on CreateShaderMaterial and hangs on CloseScreen when we create custom (not predefined) shader
here is minimal example to reproduce:

Code: Select all

EnableExplicit

Define shaderFile.i

shaderFile = CreateFile( #PB_Any, "test.vs", #PB_File_SharedRead | #PB_File_NoBuffering | #PB_UTF8 )
WriteStringN( shaderFile, "void main( ) { }", #PB_UTF8 )
CloseFile( shaderFile )

shaderFile = CreateFile( #PB_Any, "test.fs", #PB_File_SharedRead | #PB_File_NoBuffering | #PB_UTF8 )
WriteStringN( shaderFile, "void main( ) { }", #PB_UTF8 )
CloseFile( shaderFile )

Define screenWindow.i = OpenWindow( #PB_Any, 0, 0, 800, 600, "" )

InitEngine3D( #PB_Engine3D_DebugLog )

InitSprite( )
OpenWindowedScreen( WindowID( screenWindow ), 0, 0, 800, 600, #False, 0, 0, #PB_Screen_WaitSynchronization )

Define mainCamera.i = CreateCamera( #PB_Any, 0, 0, 100, 100 )
CameraBackColor( mainCamera, $DEC4B0 )
MoveCamera( mainCamera, 0.0, 5.0, -7.0, #PB_Absolute )
CameraLookAt( mainCamera, 0.0, 0.0, 0.0 )

Define mainLight.i = CreateLight( #PB_Any, $DEC4B0, 10.0, 10.0, 10.0, #PB_Light_Directional )
LightLookAt( mainLight, 0.0, 0.0, 0.0 )

Define testShader.i = CreateShader( 0, "test.vs", "test.fs" )
Debug "testShader: " + Str( testShader )
Define testMaterial.i = CreateShaderMaterial( #PB_Any, testShader ); <<-- FAILED
If IsMaterial( testMaterial ) = 0
	Debug "CreateShaderMaterial failed!"
	testMaterial = CreateMaterial( #PB_Any, #Null, $0000FF )
EndIf
Define testMesh.i     = CreateCube( #PB_Any, 1.0 )
Define testEntity.i   = CreateEntity( #PB_Any, MeshID( testMesh ), MaterialID( testMaterial ) )

Repeat
	Define winEvent = WindowEvent( )
	If winEvent = #PB_Event_CloseWindow
		Break
	ElseIf winEvent <> 0
		Continue
	EndIf
	RenderWorld( )
	FlipBuffers( )
Forever

CloseScreen( ); <<-- HANGS HERE
CloseWindow( screenWindow )
End

// Moved from "Bugs - 3D Engine" to "Coding Questions" (Kiffi)

[miso]

Createshader needs the vertex and fragment shader code as string, and not a filename.

[inn3r100p]

Createshader needs the vertex and fragment shader code as string, and not a filename.

Ouch!) thanks for the clarification, but it does'nt matter, CreateShaderMaterial fails anyway and we also have freeze on CloseScreen

[inn3r100p]

Oh, checking it again and find that CreateShader with ShaderID > 0 works.