diff options
Diffstat (limited to 'src/rlgl.c')
| -rw-r--r-- | src/rlgl.c | 979 |
1 files changed, 216 insertions, 763 deletions
@@ -8,23 +8,14 @@ */ /* -> success = RL.rlMatrixMode( int mode ) +> RL.rlMatrixMode( int mode ) Choose the current matrix to be transformed - -- Failure return false -- Success return true */ int lrlglMatrixMode( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlMatrixMode( int mode )" ); - lua_pushboolean( L, false ); - return 1; - } - rlMatrixMode( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlMatrixMode( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -61,87 +52,53 @@ int lrlglLoadIdentity( lua_State *L ) { } /* -> success = RL.rlTranslatef( Vector3 translation ) +> RL.rlTranslatef( Vector3 translation ) Multiply the current matrix by a translation matrix - -- Failure return false -- Success return true */ int lrlglTranslatef( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlTranslatef( Vector3 translation )" ); - lua_pushboolean( L, false ); - return 1; - } Vector3 translation = uluaGetVector3Index( L, 1 ); rlTranslatef( translation.x, translation.y, translation.z ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlRotatef( float angle, Vector3 rotation ) +> RL.rlRotatef( float angle, Vector3 rotation ) Multiply the current matrix by a rotation matrix - -- Failure return false -- Success return true */ int lrlglRotatef( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_istable( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlRotatef( float angle, Vector3 rotation )" ); - lua_pushboolean( L, false ); - return 1; - } - float angle = lua_tonumber( L, 1 ); + float angle = luaL_checknumber( L, 1 ); Vector3 rotation = uluaGetVector3Index( L, 2 ); rlRotatef( angle, rotation.x, rotation.y, rotation.z ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlScalef( Vector3 scale ) +> RL.rlScalef( Vector3 scale ) Multiply the current matrix by a scaling matrix - -- Failure return false -- Success return true */ int lrlglScalef( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlScalef( Vector3 scale )" ); - lua_pushboolean( L, false ); - return 1; - } Vector3 scale = uluaGetVector3Index( L, 1 ); rlScalef( scale.x, scale.y, scale.z ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlMultMatrixf( Matrix matrix ) +> RL.rlMultMatrixf( Matrix matrix ) Multiply the current matrix by another matrix - -- Failure return false -- Success return true */ int lrlglMultMatrixf( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlMultMatrixf( Matrix matrix )" ); - lua_pushboolean( L, false ); - return 1; - } Matrix matrix = uluaGetMatrixIndex( L, 1 ); + float matf[16] = { matrix.m0, matrix.m4, matrix.m8, matrix.m12, matrix.m1, matrix.m5, matrix.m9, matrix.m13, @@ -149,88 +106,58 @@ int lrlglMultMatrixf( lua_State *L ) { matrix.m3, matrix.m7, matrix.m11, matrix.m15 }; rlMultMatrixf( matf ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlFrustum( float left, float right, float bottom, float top, float znear, float zfar ) +> RL.rlFrustum( float left, float right, float bottom, float top, float znear, float zfar ) Multiply the current matrix by a perspective matrix generated by parameters - -- Failure return false -- Success return true */ int lrlglFrustum( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) - || !lua_isnumber( L, 4 ) || !lua_isnumber( L, 5 ) || !lua_isnumber( L, 6 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlFrustum( float left, float right, float bottom, float top, float znear, float zfar )" ); - lua_pushboolean( L, false ); - return 1; - } - double left = lua_tonumber( L, 1 ); - double right = lua_tonumber( L, 2 ); - double bottom = lua_tonumber( L, 3 ); - double top = lua_tonumber( L, 4 ); - double znear = lua_tonumber( L, 5 ); - double zfar = lua_tonumber( L, 6 ); + double left = luaL_checknumber( L, 1 ); + double right = luaL_checknumber( L, 2 ); + double bottom = luaL_checknumber( L, 3 ); + double top = luaL_checknumber( L, 4 ); + double znear = luaL_checknumber( L, 5 ); + double zfar = luaL_checknumber( L, 6 ); rlFrustum( left, right, bottom, top, znear, zfar ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlOrtho( float left, float right, float bottom, float top, float znear, float zfar ) +> RL.rlOrtho( float left, float right, float bottom, float top, float znear, float zfar ) Multiply the current matrix by an orthographic matrix generated by parameters - -- Failure return false -- Success return true */ int lrlglOrtho( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) - || !lua_isnumber( L, 4 ) || !lua_isnumber( L, 5 ) || !lua_isnumber( L, 6 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlOrtho( float left, float right, float bottom, float top, float znear, float zfar )" ); - lua_pushboolean( L, false ); - return 1; - } - double left = lua_tonumber( L, 1 ); - double right = lua_tonumber( L, 2 ); - double bottom = lua_tonumber( L, 3 ); - double top = lua_tonumber( L, 4 ); - double znear = lua_tonumber( L, 5 ); - double zfar = lua_tonumber( L, 6 ); + double left = luaL_checknumber( L, 1 ); + double right = luaL_checknumber( L, 2 ); + double bottom = luaL_checknumber( L, 3 ); + double top = luaL_checknumber( L, 4 ); + double znear = luaL_checknumber( L, 5 ); + double zfar = luaL_checknumber( L, 6 ); rlOrtho( left, right, bottom, top, znear, zfar ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlViewport( Rectangle viewport ) +> RL.rlViewport( Rectangle viewport ) -Set the viewport area ( transformation from normalized device coordinates to window coordinates ) +Set the viewport area (transformation from normalized device coordinates to window coordinates) NOTE: We store current viewport dimensions - -- Failure return false -- Success return true */ int lrlglViewport( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlViewport( Rectangle viewport )" ); - lua_pushboolean( L, false ); - return 1; - } Rectangle rect = uluaGetRectangleIndex( L, 1 ); rlViewport( rect.x, rect.y, rect.width, rect.height ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* @@ -238,23 +165,14 @@ int lrlglViewport( lua_State *L ) { */ /* -> success = RL.rlBegin( int mode ) +> RL.rlBegin( int mode ) -Initialize drawing mode ( how to organize vertex ) - -- Failure return false -- Success return true +Initialize drawing mode (how to organize vertex) */ int lrlglBegin( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlBegin( int mode )" ); - lua_pushboolean( L, false ); - return 1; - } - rlBegin( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlBegin( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -269,157 +187,94 @@ int lrlglEnd( lua_State *L ) { } /* -> success = RL.rlVertex2f( Vector2 position ) - -Define one vertex ( position ) +> RL.rlVertex2f( Vector2 position ) -- Failure return false -- Success return true +Define one vertex (position) */ int lrlglVertex2f( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlVertex2f( Vector2 position )" ); - lua_pushboolean( L, false ); - return 1; - } Vector2 position = uluaGetVector2Index( L, 1 ); rlVertex2f( position.x, position.y ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlVertex3f( Vector3 position ) - -Define one vertex ( position ) +> RL.rlVertex3f( Vector3 position ) -- Failure return false -- Success return true +Define one vertex (position) */ int lrlglVertex3f( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlVertex3f( Vector3 position )" ); - lua_pushboolean( L, false ); - return 1; - } Vector3 position = uluaGetVector3Index( L, 1 ); rlVertex3f( position.x, position.y, position.z ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlTexCoord2f( Vector2 texCoord ) +> RL.rlTexCoord2f( Vector2 texCoord ) -Define one vertex ( texture coordinate ) - 2 float - -- Failure return false -- Success return true +Define one vertex (texture coordinate) - 2 float */ int lrlglTexCoord2f( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlTexCoord2f( Vector2 texCoord )" ); - lua_pushboolean( L, false ); - return 1; - } Vector2 texCoord = uluaGetVector2Index( L, 1 ); rlTexCoord2f( texCoord.x, texCoord.y ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlNormal3f( Vector3 normal ) +> RL.rlNormal3f( Vector3 normal ) -Define one vertex ( normal ) - 3 float - -- Failure return false -- Success return true +Define one vertex (normal) - 3 float */ int lrlglNormal3f( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlNormal3f( Vector3 normal )" ); - lua_pushboolean( L, false ); - return 1; - } Vector3 normal = uluaGetVector3Index( L, 1 ); rlNormal3f( normal.x, normal.y, normal.z ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlColor4ub( Color color ) - -Define one vertex ( color ) - 4 byte +> RL.rlColor4ub( Color color ) -- Failure return false -- Success return true +Define one vertex (color) - 4 byte */ int lrlglColor4ub( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlColor4ub( Color color )" ); - lua_pushboolean( L, false ); - return 1; - } Color color = uluaGetColorIndex( L, 1 ); rlColor4ub( color.r, color.g, color.b, color.a ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlColor3f( Vector3 color ) +> RL.rlColor3f( Vector3 color ) -Define one vertex ( color ) - 3 float - -- Failure return false -- Success return true +Define one vertex (color) - 3 float */ int lrlglColor3f( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlColor3f( Vector3 color )" ); - lua_pushboolean( L, false ); - return 1; - } Vector3 color = uluaGetVector3Index( L, 1 ); rlColor3f( color.x, color.y, color.z ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlColor4f( Vector4 color ) +> RL.rlColor4f( Vector4 color ) -Define one vertex ( color ) - 4 float - -- Failure return false -- Success return true +Define one vertex (color) - 4 float */ int lrlglColor4f( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlColor4f( Vector4 color )" ); - lua_pushboolean( L, false ); - return 1; - } Vector4 color = uluaGetVector4Index( L, 1 ); rlColor4f( color.x, color.y, color.z, color.w ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* @@ -429,18 +284,12 @@ int lrlglColor4f( lua_State *L ) { /* > supported = RL.rlEnableVertexArray( int vaoId ) -Enable vertex array ( VAO, if supported ) +Enable vertex array (VAO, if supported) -- Failure return nil - Success return bool */ int lrlglEnableVertexArray( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableVertexArray( int vaoId )" ); - lua_pushnil( L ); - return 1; - } - lua_pushboolean( L, rlEnableVertexArray( lua_tointeger( L, 1 ) ) ); + lua_pushboolean( L, rlEnableVertexArray( luaL_checkinteger( L, 1 ) ) ); return 1; } @@ -448,7 +297,7 @@ int lrlglEnableVertexArray( lua_State *L ) { /* > RL.rlDisableVertexArray() -Disable vertex array ( VAO, if supported ) +Disable vertex array (VAO, if supported) */ int lrlglDisableVertexArray( lua_State *L ) { rlDisableVertexArray(); @@ -457,29 +306,23 @@ int lrlglDisableVertexArray( lua_State *L ) { } /* -> success = RL.rlEnableVertexBuffer( int id ) +> RL.rlEnableVertexBuffer( int id ) -Enable vertex buffer ( VBO ) +Enable vertex buffer (VBO) - Failure return false - Success return true */ int lrlglEnableVertexBuffer( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableVertexBuffer( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlEnableVertexBuffer( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlEnableVertexBuffer( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* > RL.rlDisableVertexBuffer() -Disable vertex buffer ( VBO ) +Disable vertex buffer (VBO) */ int lrlglDisableVertexBuffer( lua_State *L ) { rlDisableVertexBuffer(); @@ -488,29 +331,20 @@ int lrlglDisableVertexBuffer( lua_State *L ) { } /* -> success = RL.rlEnableVertexBufferElement( int id ) - -Enable vertex buffer element ( VBO element ) +> RL.rlEnableVertexBufferElement( int id ) -- Failure return false -- Success return true +Enable vertex buffer element (VBO element) */ int lrlglEnableVertexBufferElement( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableVertexBufferElement( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlEnableVertexBufferElement( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlEnableVertexBufferElement( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* > RL.rlDisableVertexBufferElement() -Disable vertex buffer element ( VBO element ) +Disable vertex buffer element (VBO element) */ int lrlglDisableVertexBufferElement( lua_State *L ) { rlDisableVertexBufferElement(); @@ -519,43 +353,25 @@ int lrlglDisableVertexBufferElement( lua_State *L ) { } /* -> success = RL.rlEnableVertexAttribute( int index ) +> RL.rlEnableVertexAttribute( int index ) Enable vertex attribute index - -- Failure return false -- Success return true */ int lrlglEnableVertexAttribute( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableVertexAttribute( int index )" ); - lua_pushboolean( L, false ); - return 1; - } - rlEnableVertexAttribute( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlEnableVertexAttribute( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* -> success = RL.rlDisableVertexAttribute( int index ) +> RL.rlDisableVertexAttribute( int index ) Disable vertex attribute index - -- Failure return false -- Success return true */ int lrlglDisableVertexAttribute( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlDisableVertexAttribute( int index )" ); - lua_pushboolean( L, false ); - return 1; - } - rlDisableVertexAttribute( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlDisableVertexAttribute( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -563,43 +379,25 @@ int lrlglDisableVertexAttribute( lua_State *L ) { */ /* -> success = RL.rlActiveTextureSlot( int slot ) +> RL.rlActiveTextureSlot( int slot ) Select and active a texture slot - -- Failure return false -- Success return true */ int lrlglActiveTextureSlot( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlActiveTextureSlot( int slot )" ); - lua_pushboolean( L, false ); - return 1; - } - rlActiveTextureSlot( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlActiveTextureSlot( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* -> success = RL.rlEnableTexture( int id ) +> RL.rlEnableTexture( int id ) Enable texture - -- Failure return false -- Success return true */ int lrlglEnableTexture( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableTexture( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlEnableTexture( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlEnableTexture( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -614,23 +412,14 @@ int lrlglDisableTexture( lua_State *L ) { } /* -> success = RL.rlEnableTextureCubemap( int id ) +> RL.rlEnableTextureCubemap( int id ) Enable texture cubemap - -- Failure return false -- Success return true */ int lrlglEnableTextureCubemap( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableTextureCubemap( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlEnableTextureCubemap( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlEnableTextureCubemap( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -645,51 +434,33 @@ int lrlglDisableTextureCubemap( lua_State *L ) { } /* -> success = RL.rlTextureParameters( int id, int param, int value ) +> RL.rlTextureParameters( int id, int param, int value ) -Set texture parameters ( filter, wrap ) - -- Failure return false -- Success return true +Set texture parameters (filter, wrap) */ int lrlglTextureParameters( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlTextureParameters( int id, int param, int value )" ); - lua_pushboolean( L, false ); - return 1; - } - unsigned int id = lua_tointeger( L, 1 ); - int param = lua_tointeger( L, 2 ); - int value = lua_tointeger( L, 3 ); + unsigned int id = luaL_checkinteger( L, 1 ); + int param = luaL_checkinteger( L, 2 ); + int value = luaL_checkinteger( L, 3 ); rlTextureParameters( id, param, value ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlCubemapParameters( int id, int param, int value ) - -Set cubemap parameters ( filter, wrap ) +> RL.rlCubemapParameters( int id, int param, int value ) -- Failure return false -- Success return true +Set cubemap parameters (filter, wrap) */ int lrlglCubemapParameters( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlCubemapParameters( int id, int param, int value )" ); - lua_pushboolean( L, false ); - return 1; - } - unsigned int id = lua_tointeger( L, 1 ); - int param = lua_tointeger( L, 2 ); - int value = lua_tointeger( L, 3 ); + unsigned int id = luaL_checkinteger( L, 1 ); + int param = luaL_checkinteger( L, 2 ); + int value = luaL_checkinteger( L, 3 ); rlCubemapParameters( id, param, value ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* @@ -697,23 +468,14 @@ int lrlglCubemapParameters( lua_State *L ) { */ /* -> success = RL.rlEnableShader( int id ) +> RL.rlEnableShader( int id ) Enable shader program - -- Failure return false -- Success return true */ int lrlglEnableShader( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableShader( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlEnableShader( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlEnableShader( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -732,23 +494,14 @@ int lrlglDisableShader( lua_State *L ) { */ /* -> success = RL.rlEnableFramebuffer( int id ) +> RL.rlEnableFramebuffer( int id ) Enable render texture (fbo) - -- Failure return false -- Success return true */ int lrlglEnableFramebuffer( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlEnableFramebuffer( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlEnableFramebuffer( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlEnableFramebuffer( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -763,23 +516,14 @@ int lrlglDisableFramebuffer( lua_State *L ) { } /* -> success = RL.rlActiveDrawBuffers( int count ) +> RL.rlActiveDrawBuffers( int count ) Activate multiple draw color buffers - -- Failure return false -- Success return true */ int lrlglActiveDrawBuffers( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlActiveDrawBuffers( int count )" ); - lua_pushboolean( L, false ); - return 1; - } - rlActiveDrawBuffers( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlActiveDrawBuffers( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -875,23 +619,14 @@ int lrlglDisableBackfaceCulling( lua_State *L ) { } /* -> success = RL.rlSetCullFace( int mode ) +> RL.rlSetCullFace( int mode ) Set face culling mode - -- Failure return false -- Success return true */ int lrlglSetCullFace( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetCullFace( int mode )" ); - lua_pushboolean( L, false ); - return 1; - } - rlSetCullFace( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlSetCullFace( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -917,25 +652,16 @@ int lrlglDisableScissorTest( lua_State *L ) { } /* -> success = RL.rlScissor( Rectangle area ) +> RL.rlScissor( Rectangle area ) Scissor test - -- Failure return false -- Success return true */ int lrlglScissor( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlScissor( Rectangle area )" ); - lua_pushboolean( L, false ); - return 1; - } Rectangle area = uluaGetRectangleIndex( L, 1 ); rlScissor( area.x, area.y, area.width, area.height ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* @@ -961,23 +687,14 @@ int lrlglDisableWireMode( lua_State *L ) { } /* -> success = RL.rlSetLineWidth( float width ) +> RL.rlSetLineWidth( float width ) Set the line drawing width - -- Failure return false -- Success return true */ int lrlglSetLineWidth( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetLineWidth( float width )" ); - lua_pushboolean( L, false ); - return 1; - } - rlSetLineWidth( lua_tonumber( L, 1 ) ); - lua_pushboolean( L, true ); + rlSetLineWidth( luaL_checknumber( L, 1 ) ); - return 1; + return 0; } /* @@ -1051,31 +768,22 @@ int lrlglIsStereoRenderEnabled( lua_State *L ) { } /* -> success = RL.rlClearColor( Color color ) +> RL.rlClearColor( Color color ) Clear color buffer with color - -- Failure return false -- Success return true */ int lrlglClearColor( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlClearColor( Color color )" ); - lua_pushboolean( L, false ); - return 1; - } Color color = uluaGetColorIndex( L, 1 ); rlClearColor( color.r, color.g, color.b, color.a ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* > RL.rlClearScreenBuffers() -Clear used screen buffers ( color and depth ) +Clear used screen buffers (color and depth) */ int lrlglClearScreenBuffers( lua_State *L ) { rlClearScreenBuffers(); @@ -1095,75 +803,47 @@ int lrlglCheckErrors( lua_State *L ) { } /* -> success = RL.rlSetBlendMode( int mode ) +> RL.rlSetBlendMode( int mode ) Set blending mode - -- Failure return false -- Success return true */ int lrlglSetBlendMode( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetBlendMode( int mode )" ); - lua_pushboolean( L, false ); - return 1; - } - rlSetBlendMode( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlSetBlendMode( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* -> success = RL.rlSetBlendFactors( int glSrcFactor, int glDstFactor, int glEquation ) - -Set blending mode factor and equation ( using OpenGL factors ) +> RL.rlSetBlendFactors( int glSrcFactor, int glDstFactor, int glEquation ) -- Failure return false -- Success return true +Set blending mode factor and equation (using OpenGL factors) */ int lrlglSetBlendFactors( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetBlendFactors( int glSrcFactor, int glDstFactor, int glEquation )" ); - lua_pushboolean( L, false ); - return 1; - } - int glSrcFactor = lua_tointeger( L, 1 ); - int glDstFactor = lua_tointeger( L, 2 ); - int glEquation = lua_tointeger( L, 3 ); + int glSrcFactor = luaL_checkinteger( L, 1 ); + int glDstFactor = luaL_checkinteger( L, 2 ); + int glEquation = luaL_checkinteger( L, 3 ); rlSetBlendFactors( glSrcFactor, glDstFactor, glEquation ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlSetBlendFactorsSeparate( int glSrcRGB, int glDstRGB, int glSrcAlpha, int glDstAlpha, int glEqRGB, int glEqAlpha ) +> RL.rlSetBlendFactorsSeparate( int glSrcRGB, int glDstRGB, int glSrcAlpha, int glDstAlpha, int glEqRGB, int glEqAlpha ) -Set blending mode factors and equations separately ( using OpenGL factors ) - -- Failure return false -- Success return true +Set blending mode factors and equations separately (using OpenGL factors) */ int lrlglSetBlendFactorsSeparate( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) - || !lua_isnumber( L, 4 ) || !lua_isnumber( L, 5 ) || !lua_isnumber( L, 6 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetBlendFactorsSeparate( int glSrcRGB, int glDstRGB, int glSrcAlpha, int glDstAlpha, int glEqRGB, int glEqAlpha )" ); - lua_pushboolean( L, false ); - return 1; - } - int glSrcRGB = lua_tointeger( L, 1 ); - int glDstRGB = lua_tointeger( L, 2 ); - int glSrcAlpha = lua_tointeger( L, 3 ); - int glDstAlpha = lua_tointeger( L, 4 ); - int glEqRGB = lua_tointeger( L, 5 ); - int glEqAlpha = lua_tointeger( L, 6 ); + int glSrcRGB = luaL_checkinteger( L, 1 ); + int glDstRGB = luaL_checkinteger( L, 2 ); + int glSrcAlpha = luaL_checkinteger( L, 3 ); + int glDstAlpha = luaL_checkinteger( L, 4 ); + int glEqRGB = luaL_checkinteger( L, 5 ); + int glEqAlpha = luaL_checkinteger( L, 6 ); rlSetBlendFactorsSeparate( glSrcRGB, glDstRGB, glSrcAlpha, glDstAlpha, glEqRGB, glEqAlpha ); - lua_pushboolean( L, true ); - return 1; + return 0; } @@ -1204,38 +884,23 @@ int lrlglDrawRenderBatchActive( lua_State *L ) { Check internal buffer overflow for a given number of vertex and force a rlRenderBatch draw call if required -- Failure return nil - Success return bool */ int lrlglCheckRenderBatchLimit( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlCheckRenderBatchLimit( int vCount )" ); - lua_pushnil( L ); - return 1; - } - lua_pushboolean( L, rlCheckRenderBatchLimit( lua_tointeger( L, 1 ) ) ); + lua_pushboolean( L, rlCheckRenderBatchLimit( luaL_checkinteger( L, 1 ) ) ); return 1; } /* -> success = RL.rlSetTexture( int id ) +> RL.rlSetTexture( int id ) Set current texture for render batch and check buffers limits - -- Failure return false -- Success return true */ int lrlglSetTexture( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetTexture( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlSetTexture( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlSetTexture( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -1260,17 +925,11 @@ int lrlglLoadVertexArray( lua_State *L ) { Load a vertex buffer attribute -- Failure return -1 - Success return int */ int lrlglLoadVertexBuffer( lua_State *L ) { - if ( !lua_isuserdata( L, 1 ) || !lua_isboolean( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlLoadVertexBuffer( Buffer buffer, bool dynamic )" ); - lua_pushinteger( L, -1 ); - return 1; - } Buffer *buffer = luaL_checkudata( L, 1, "Buffer" ); - bool dynamic = lua_tointeger( L, 2 ); + bool dynamic = luaL_checkinteger( L, 2 ); lua_pushinteger( L, rlLoadVertexBuffer( buffer->data, buffer->size, dynamic ) ); @@ -1282,17 +941,11 @@ int lrlglLoadVertexBuffer( lua_State *L ) { Load a new attributes element buffer -- Failure return -1 - Success return int */ int lrlglLoadVertexBufferElement( lua_State *L ) { - if ( !lua_isuserdata( L, 1 ) || !lua_isboolean( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlLoadVertexBufferElement( Buffer buffer, bool dynamic )" ); - lua_pushinteger( L, -1 ); - return 1; - } Buffer *buffer = luaL_checkudata( L, 1, "Buffer" ); - bool dynamic = lua_tointeger( L, 2 ); + bool dynamic = luaL_checkinteger( L, 2 ); lua_pushinteger( L, rlLoadVertexBufferElement( buffer->data, buffer->size, dynamic ) ); @@ -1300,160 +953,97 @@ int lrlglLoadVertexBufferElement( lua_State *L ) { } /* -> success = RL.rlUpdateVertexBuffer( int bufferId, Buffer buffer, int offset ) +> RL.rlUpdateVertexBuffer( int bufferId, Buffer buffer, int offset ) Update GPU buffer with new data - -- Failure return false -- Success return true */ int lrlglUpdateVertexBuffer( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isuserdata( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlUpdateVertexBuffer( int bufferId, Buffer buffer, int offset )" ); - lua_pushboolean( L, false ); - return 1; - } - int bufferId = lua_tointeger( L, 1 ); + int bufferId = luaL_checkinteger( L, 1 ); Buffer *buffer = luaL_checkudata( L, 2, "Buffer" ); - int offset = lua_tointeger( L, 3 ); + int offset = luaL_checkinteger( L, 3 ); rlUpdateVertexBuffer( bufferId, buffer->data, buffer->size, offset ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlUpdateVertexBufferElements( int id, Buffer buffer, int offset ) +> RL.rlUpdateVertexBufferElements( int id, Buffer buffer, int offset ) Update vertex buffer elements with new data - -- Failure return false -- Success return true */ int lrlglUpdateVertexBufferElements( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isuserdata( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlUpdateVertexBufferElements( int id, Buffer buffer, int offset )" ); - lua_pushboolean( L, false ); - return 1; - } - int bufferId = lua_tointeger( L, 1 ); + int bufferId = luaL_checkinteger( L, 1 ); Buffer *buffer = luaL_checkudata( L, 2, "Buffer" ); - int offset = lua_tointeger( L, 3 ); + int offset = luaL_checkinteger( L, 3 ); rlUpdateVertexBufferElements( bufferId, buffer->data, buffer->size, offset ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlUnloadVertexArray( int vaoId ) +> RL.rlUnloadVertexArray( int vaoId ) Unload vertex array object (VAO) - -- Failure return false -- Success return true */ int lrlglUnloadVertexArray( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlUnloadVertexArray( int vaoId )" ); - lua_pushboolean( L, false ); - return 1; - } - rlUnloadVertexArray( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlUnloadVertexArray( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* -> success = RL.rlUnloadVertexBuffer( int vboId ) +> RL.rlUnloadVertexBuffer( int vboId ) Unload vertex buffer (VBO) - -- Failure return false -- Success return true */ int lrlglUnloadVertexBuffer( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlUnloadVertexBuffer( int vboId )" ); - lua_pushboolean( L, false ); - return 1; - } - rlUnloadVertexBuffer( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlUnloadVertexBuffer( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* -> success = RL.rlSetVertexAttribute( int index, int compSize, int type, bool normalized, int stride, int pointer ) +> RL.rlSetVertexAttribute( int index, int compSize, int type, bool normalized, int stride, int pointer ) Set vertex attribute - -- Failure return false -- Success return true */ int lrlglSetVertexAttribute( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) - || !lua_isboolean( L, 4 ) || !lua_isnumber( L, 5 ) || !lua_isnumber( L, 6 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetVertexAttribute( int index, int compSize, int type, bool normalized, int stride, int pointer )" ); - lua_pushboolean( L, false ); - return 1; - } - int index = lua_tointeger( L, 1 ); - int compSize = lua_tointeger( L, 2 ); - int type = lua_tointeger( L, 3 ); + int index = luaL_checkinteger( L, 1 ); + int compSize = luaL_checkinteger( L, 2 ); + int type = luaL_checkinteger( L, 3 ); bool normalized = lua_toboolean( L, 4 ); - int stride = lua_tointeger( L, 5 ); - int pointer = lua_tointeger( L, 6 ); + int stride = luaL_checkinteger( L, 5 ); + int pointer = luaL_checkinteger( L, 6 ); rlSetVertexAttribute( index, compSize, type, normalized, stride, &pointer ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlSetVertexAttributeDivisor( int index, int divisor ) +> RL.rlSetVertexAttributeDivisor( int index, int divisor ) Set vertex attribute divisor - -- Failure return false -- Success return true */ int lrlglSetVertexAttributeDivisor( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetVertexAttributeDivisor( int index, int divisor )" ); - lua_pushboolean( L, false ); - return 1; - } - unsigned int index = (unsigned int)lua_tointeger( L, 1 ); - int divisor = lua_tointeger( L, 2 ); + unsigned int index = (unsigned int)luaL_checkinteger( L, 1 ); + int divisor = luaL_checkinteger( L, 2 ); rlSetVertexAttributeDivisor( index, divisor ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlSetVertexAttributeDefault( int locIndex, float{} value, int attribType ) +> RL.rlSetVertexAttributeDefault( int locIndex, float{} value, int attribType ) Set vertex attribute default value - -- Failure return false -- Success return true */ int lrlglSetVertexAttributeDefault( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_istable( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetVertexAttributeDefault( int locIndex, float{} value, int attribType )" ); - lua_pushboolean( L, false ); - return 1; - } - int locIndex = lua_tointeger( L, 1 ); - int attribType = lua_tointeger( L, 3 ); + int locIndex = luaL_checkinteger( L, 1 ); + int attribType = luaL_checkinteger( L, 3 ); int count = uluaGetTableLenIndex( L, 2 ); float value[4] = { 0.0f, 0.0f, 0.0f, 0.0f }; @@ -1462,110 +1052,73 @@ int lrlglSetVertexAttributeDefault( lua_State *L ) { lua_pushnil( L ); while ( lua_next( L, t ) != 0 ) { - value[i] = lua_tonumber( L, -1 ); + value[i] = luaL_checknumber( L, -1 ); lua_pop( L, 1 ); i++; } rlSetVertexAttributeDefault( locIndex, value, attribType, count ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlDrawVertexArray( int offset, int count ) +> RL.rlDrawVertexArray( int offset, int count ) Draw vertex array - -- Failure return false -- Success return true */ int lrlglDrawVertexArray( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlDrawVertexArray( int offset, int count )" ); - lua_pushboolean( L, false ); - return 1; - } - int offset = lua_tointeger( L, 1 ); - int count = lua_tointeger( L, 2 ); + int offset = luaL_checkinteger( L, 1 ); + int count = luaL_checkinteger( L, 2 ); rlDrawVertexArray( offset, count ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlDrawVertexArrayElements( int offset, int count, Buffer buffer ) +> RL.rlDrawVertexArrayElements( int offset, int count, Buffer buffer ) Draw vertex array elements - -- Failure return false -- Success return true */ int lrlglDrawVertexArrayElements( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isuserdata( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlDrawVertexArrayElements( int offset, int count, Buffer buffer )" ); - lua_pushboolean( L, false ); - return 1; - } - int offset = lua_tointeger( L, 1 ); - int count = lua_tointeger( L, 2 ); + int offset = luaL_checkinteger( L, 1 ); + int count = luaL_checkinteger( L, 2 ); Buffer *buffer = luaL_checkudata( L, 3, "Buffer" ); rlDrawVertexArrayElements( offset, count, buffer->data ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlDrawVertexArrayInstanced( int offset, int count, int instances ) +> RL.rlDrawVertexArrayInstanced( int offset, int count, int instances ) Draw vertex array instanced - -- Failure return false -- Success return true */ int lrlglDrawVertexArrayInstanced( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlDrawVertexArrayInstanced( int offset, int count, int instances )" ); - lua_pushboolean( L, false ); - return 1; - } - int offset = lua_tointeger( L, 1 ); - int count = lua_tointeger( L, 2 ); - int instances = lua_tointeger( L, 3 ); + int offset = luaL_checkinteger( L, 1 ); + int count = luaL_checkinteger( L, 2 ); + int instances = luaL_checkinteger( L, 3 ); rlDrawVertexArrayInstanced( offset, count, instances ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlDrawVertexArrayElementsInstanced( int offset, int count, Buffer buffer, int instances ) +> RL.rlDrawVertexArrayElementsInstanced( int offset, int count, Buffer buffer, int instances ) Draw vertex array elements instanced - -- Failure return false -- Success return true */ int lrlglDrawVertexArrayElementsInstanced( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isuserdata( L, 3 ) || !lua_isnumber( L, 4 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlDrawVertexArrayElementsInstanced( int offset, int count, Buffer buffer, int instances )" ); - lua_pushboolean( L, false ); - return 1; - } - int offset = lua_tointeger( L, 1 ); - int count = lua_tointeger( L, 2 ); + int offset = luaL_checkinteger( L, 1 ); + int count = luaL_checkinteger( L, 2 ); Buffer *buffer = luaL_checkudata( L, 3, "Buffer" ); - int instances = lua_tointeger( L, 4 ); + int instances = luaL_checkinteger( L, 4 ); rlDrawVertexArrayElementsInstanced( offset, count, buffer->data, instances ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* @@ -1577,18 +1130,12 @@ int lrlglDrawVertexArrayElementsInstanced( lua_State *L ) { Load texture in GPU -- Failure return -1 - Success return int */ int lrlglLoadTexture( lua_State *L ) { - if ( !lua_istable( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlLoadTexture( Vector2 size, int format, int mipmapCount )" ); - lua_pushinteger( L, -1 ); - return 1; - } Vector2 size = uluaGetVector2Index( L, 1 ); - int format = lua_tointeger( L, 2 ); - int mipmapCount = lua_tointeger( L, 3 ); + int format = luaL_checkinteger( L, 2 ); + int mipmapCount = luaL_checkinteger( L, 3 ); lua_pushinteger( L, rlLoadTexture( NULL, size.x, size.y, format, mipmapCount ) ); @@ -1598,17 +1145,11 @@ int lrlglLoadTexture( lua_State *L ) { /* > id = RL.rlLoadTextureDepth( Vector2 size, bool useRenderBuffer ) -Load depth texture/renderbuffer ( to be attached to fbo ) +Load depth texture/renderbuffer (to be attached to fbo) -- Failure return -1 - Success return int */ int lrlglLoadTextureDepth( lua_State *L ) { - if ( !lua_istable( L, 1 ) || !lua_isboolean( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlLoadTextureDepth( Vector2 size, bool useRenderBuffer )" ); - lua_pushinteger( L, -1 ); - return 1; - } Vector2 size = uluaGetVector2Index( L, 1 ); bool useRenderBuffer = lua_toboolean( L, 2 ); @@ -1618,23 +1159,14 @@ int lrlglLoadTextureDepth( lua_State *L ) { } /* -> success = RL.rlUnloadTexture( int id ) +> RL.rlUnloadTexture( int id ) Unload texture from GPU memory - -- Failure return false -- Success return true */ int lrlglUnloadTexture( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlUnloadTexture( int id )" ); - lua_pushboolean( L, false ); - return 1; - } - rlUnloadTexture( lua_tointeger( L, 1 ) ); - lua_pushboolean( L, true ); + rlUnloadTexture( luaL_checkinteger( L, 1 ) ); - return 1; + return 0; } /* @@ -1646,15 +1178,9 @@ int lrlglUnloadTexture( lua_State *L ) { Load an empty framebuffer -- Failure return -1 - Success return int */ int lrlglLoadFramebuffer( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlLoadFramebuffer( Vector2 size )" ); - lua_pushinteger( L, -1 ); - return 1; - } Vector2 size = uluaGetVector2Index( L, 1 ); lua_pushinteger( L, rlLoadFramebuffer( size.x, size.y ) ); @@ -1663,30 +1189,20 @@ int lrlglLoadFramebuffer( lua_State *L ) { } /* -> success = RL.rlFramebufferAttach( int fboId, int texId, int attachType, int texType, int mipLevel ) +> RL.rlFramebufferAttach( int fboId, int texId, int attachType, int texType, int mipLevel ) Attach texture/renderbuffer to a framebuffer - -- Failure return false -- Success return true */ int lrlglFramebufferAttach( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) || !lua_isnumber( L, 2 ) || !lua_isnumber( L, 3 ) - || !lua_isnumber( L, 4 ) || !lua_isnumber( L, 5 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlFramebufferAttach( int fboId, int texId, int attachType, int texType, int mipLevel )" ); - lua_pushboolean( L, false ); - return 1; - } - unsigned int fboId = lua_tointeger( L, 1 ); - unsigned int texId = lua_tointeger( L, 2 ); - int attachType = lua_tointeger( L, 3 ); - int texType = lua_tointeger( L, 4 ); - int mipLevel = lua_tointeger( L, 5 ); + unsigned int fboId = luaL_checkinteger( L, 1 ); + unsigned int texId = luaL_checkinteger( L, 2 ); + int attachType = luaL_checkinteger( L, 3 ); + int texType = luaL_checkinteger( L, 4 ); + int mipLevel = luaL_checkinteger( L, 5 ); rlFramebufferAttach( fboId, texId, attachType, texType, mipLevel ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* @@ -1694,16 +1210,10 @@ int lrlglFramebufferAttach( lua_State *L ) { Verify framebuffer is complete -- Failure return nil - Success return bool */ int lrlglFramebufferComplete( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlFramebufferComplete( int id )" ); - lua_pushnil( L ); - return 1; - } - unsigned int id = lua_tointeger( L, 1 ); + unsigned int id = luaL_checkinteger( L, 1 ); lua_pushboolean( L, rlFramebufferComplete( id ) ); @@ -1711,25 +1221,16 @@ int lrlglFramebufferComplete( lua_State *L ) { } /* -> success = RL.rlUnloadFramebuffer( int id ) +> RL.rlUnloadFramebuffer( int id ) Delete framebuffer from GPU - -- Failure return nil -- Success return bool */ int lrlglUnloadFramebuffer( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlUnloadFramebuffer( int id )" ); - lua_pushnil( L ); - return 1; - } - unsigned int id = lua_tointeger( L, 1 ); + unsigned int id = luaL_checkinteger( L, 1 ); rlUnloadFramebuffer( id ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* @@ -1803,16 +1304,10 @@ int lrlglGetMatrixTransform( lua_State *L ) { Get internal projection matrix for stereo render (selected eye) -- Failure return false - Success return Matrix */ int lrlglGetMatrixProjectionStereo( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlGetMatrixProjectionStereo( int eye )" ); - lua_pushboolean( L, false ); - return 1; - } - uluaPushMatrix( L, rlGetMatrixProjectionStereo( lua_tointeger( L, 1 ) ) ); + uluaPushMatrix( L, rlGetMatrixProjectionStereo( luaL_checkinteger( L, 1 ) ) ); return 1; } @@ -1822,96 +1317,54 @@ int lrlglGetMatrixProjectionStereo( lua_State *L ) { Get internal view offset matrix for stereo render (selected eye) -- Failure return false - Success return Matrix */ int lrlglGetMatrixViewOffsetStereo( lua_State *L ) { - if ( !lua_isnumber( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlGetMatrixViewOffsetStereo( int eye )" ); - lua_pushboolean( L, false ); - return 1; - } - uluaPushMatrix( L, rlGetMatrixViewOffsetStereo( lua_tointeger( L, 1 ) ) ); + uluaPushMatrix( L, rlGetMatrixViewOffsetStereo( luaL_checkinteger( L, 1 ) ) ); return 1; } /* -> success = RL.rlSetMatrixProjection( Matrix proj ) +> RL.rlSetMatrixProjection( Matrix proj ) Set a custom projection matrix (replaces internal projection matrix) - -- Failure return false -- Success return true */ int lrlglSetMatrixProjection( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetMatrixProjection( Matrix proj )" ); - lua_pushboolean( L, false ); - return 1; - } rlSetMatrixProjection( uluaGetMatrixIndex( L, 1 ) ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlSetMatrixModelview( Matrix view ) +> RL.rlSetMatrixModelview( Matrix view ) Set a custom modelview matrix (replaces internal modelview matrix) - -- Failure return false -- Success return true */ int lrlglSetMatrixModelview( lua_State *L ) { - if ( !lua_istable( L, 1 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetMatrixModelview( Matrix view )" ); - lua_pushboolean( L, false ); - return 1; - } rlSetMatrixModelview( uluaGetMatrixIndex( L, 1 ) ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlSetMatrixProjectionStereo( Matrix right, Matrix left ) +> RL.rlSetMatrixProjectionStereo( Matrix right, Matrix left ) Set eyes projection matrices for stereo rendering - -- Failure return false -- Success return true */ int lrlglSetMatrixProjectionStereo( lua_State *L ) { - if ( !lua_istable( L, 1 ) || !lua_istable( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetMatrixModelview( Matrix right, Matrix left )" ); - lua_pushboolean( L, false ); - return 1; - } rlSetMatrixProjectionStereo( uluaGetMatrixIndex( L, 1 ), uluaGetMatrixIndex( L, 2 ) ); - lua_pushboolean( L, true ); - return 1; + return 0; } /* -> success = RL.rlSetMatrixViewOffsetStereo( Matrix right, Matrix left ) +> RL.rlSetMatrixViewOffsetStereo( Matrix right, Matrix left ) Set eyes view offsets matrices for stereo rendering - -- Failure return false -- Success return true */ int lrlglSetMatrixViewOffsetStereo( lua_State *L ) { - if ( !lua_istable( L, 1 ) || !lua_istable( L, 2 ) ) { - TraceLog( state->logLevelInvalid, "%s", "Bad call of function. RL.rlSetMatrixViewOffsetStereo( Matrix right, Matrix left )" ); - lua_pushboolean( L, false ); - return 1; - } rlSetMatrixViewOffsetStereo( uluaGetMatrixIndex( L, 1 ), uluaGetMatrixIndex( L, 2 ) ); - lua_pushboolean( L, true ); - return 1; + return 0; } |