Touch and gestures.

4 files changed, 268 insertions, 5 deletions

diff --git a/src/core.c b/src/core.c
index 91084b1..f772617 100644
--- a/src/core.c
+++ b/src/core.c
@@ -326,9 +326,11 @@ int lcoreSetTargetFPS( lua_State *L ) {
 }
 
 /*
-> RL_GetFrameTime()
+> delta = RL_GetFrameTime()
 
 Get time in seconds for last frame drawn ( Delta time )
+
+- Success return float
 */
 int lcoreGetFrameTime( lua_State *L ) {
 	lua_pushnumber( L, GetFrameTime() );
@@ -337,9 +339,11 @@ int lcoreGetFrameTime( lua_State *L ) {
 }
 
 /*
-> RL_GetTime()
+> time = RL_GetTime()
 
 Get elapsed time in seconds since InitWindow()
+
+- Success return float
 */
 int lcoreGetTime( lua_State *L ) {
 	lua_pushnumber( L, GetTime() );
@@ -1265,6 +1269,174 @@ int lcoreSetMousePosition( lua_State *L ) {
 }
 
 /*
+> position = RL_GetTouchPosition( int index )
+
+Get touch position XY for a touch point index ( relative to screen size )
+
+- Failure return false
+- Success return Vector2
+*/
+int lcoreGetTouchPosition( lua_State *L ) {
+	if ( !lua_isnumber( L, -1 ) ) {
+		TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GetTouchPosition( int index )" );
+		lua_pushboolean( L, false );
+		return 1;
+	}
+	uluaPushVector2( L, GetTouchPosition( lua_tointeger( L, -1 ) ) );
+
+	return 1;
+}
+
+/*
+> id = RL_GetTouchPointId( int index )
+
+Get touch point identifier for given index
+
+- Failure return false
+- Success return int
+*/
+int lcoreGetTouchPointId( lua_State *L ) {
+	if ( !lua_isnumber( L, -1 ) ) {
+		TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GetTouchPointId( int index )" );
+		lua_pushboolean( L, false );
+		return 1;
+	}
+	lua_pushinteger( L, GetTouchPointId( lua_tointeger( L, -1 ) ) );
+
+	return 1;
+}
+
+/*
+> count = RL_GetTouchPointCount()
+
+Get touch point identifier for given index
+
+- Success return int
+*/
+int lcoreGetTouchPointCount( lua_State *L ) {
+	lua_pushinteger( L, GetTouchPointCount() );
+
+	return 1;
+}
+
+/*
+> success = RL_SetGesturesEnabled( unsigned int flags )
+
+Enable a set of gestures using flags
+
+- Failure return false
+- Success return true
+*/
+int lcoreSetGesturesEnabled( lua_State *L ) {
+	if ( !lua_isnumber( L, -1 ) ) {
+		TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_SetGesturesEnabled( unsigned int flags )" );
+		lua_pushboolean( L, false );
+		return 1;
+	}
+	SetGesturesEnabled( (unsigned int)lua_tointeger( L, -1 ) );
+	lua_pushboolean( L, true );
+
+	return 1;
+}
+
+/*
+> detected = RL_IsGestureDetected( int gesture )
+
+Check if a gesture have been detected
+
+- Failure return nil
+- Success return bool
+*/
+int lcoreIsGestureDetected( lua_State *L ) {
+	if ( !lua_isnumber( L, -1 ) ) {
+		TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_IsGestureDetected( int gesture )" );
+		lua_pushnil( L );
+		return 1;
+	}
+	lua_pushboolean( L, IsGestureDetected( lua_tointeger( L, -1 ) ) );
+
+	return 1;
+}
+
+/*
+> gesture = RL_GetGestureDetected()
+
+Get latest detected gesture
+
+- Success return int
+*/
+int lcoreGetGestureDetected( lua_State *L ) {
+	lua_pushinteger( L, GetGestureDetected() );
+
+	return 1;
+}
+
+/*
+> time = RL_GetGestureHoldDuration()
+
+Get gesture hold time in milliseconds
+
+- Success return float
+*/
+int lcoreGetGestureHoldDuration( lua_State *L ) {
+	lua_pushnumber( L, GetGestureHoldDuration() );
+
+	return 1;
+}
+
+/*
+> vector = RL_GetGestureDragVector()
+
+Get gesture drag vector
+
+- Success return Vector2
+*/
+int lcoreGetGestureDragVector( lua_State *L ) {
+	uluaPushVector2( L, GetGestureDragVector() );
+
+	return 1;
+}
+
+/*
+> angle = RL_GetGestureDragAngle()
+
+Get gesture drag angle
+
+- Success return float
+*/
+int lcoreGetGestureDragAngle( lua_State *L ) {
+	lua_pushnumber( L, GetGestureDragAngle() );
+
+	return 1;
+}
+
+/*
+> vector = RL_GetGesturePinchVector()
+
+Get gesture pinch delta
+
+- Success return Vector2
+*/
+int lcoreGetGesturePinchVector( lua_State *L ) {
+	uluaPushVector2( L, GetGesturePinchVector() );
+
+	return 1;
+}
+
+/*
+> angle = RL_GetGesturePinchAngle()
+
+Get gesture pinch angle
+
+- Success return float
+*/
+int lcoreGetGesturePinchAngle( lua_State *L ) {
+	lua_pushnumber( L, GetGesturePinchAngle() );
+
+	return 1;
+}
+
+/*
 ## Core - File
 */
 
diff --git a/src/lua_core.c b/src/lua_core.c
index 54be454..42b3f22 100644
--- a/src/lua_core.c
+++ b/src/lua_core.c
@@ -156,6 +156,18 @@ void defineGlobals() {
 	assignGlobalInt( SHADER_ATTRIB_VEC2, "SHADER_ATTRIB_VEC2" );
 	assignGlobalInt( SHADER_ATTRIB_VEC3, "SHADER_ATTRIB_VEC3" );
 	assignGlobalInt( SHADER_ATTRIB_VEC4, "SHADER_ATTRIB_VEC4" );
+	/* Gesture */
+	assignGlobalInt( GESTURE_NONE, "GESTURE_NONE" );
+	assignGlobalInt( GESTURE_TAP, "GESTURE_TAP" );
+	assignGlobalInt( GESTURE_DOUBLETAP, "GESTURE_DOUBLETAP" );
+	assignGlobalInt( GESTURE_HOLD, "GESTURE_HOLD" );
+	assignGlobalInt( GESTURE_DRAG, "GESTURE_DRAG" );
+	assignGlobalInt( GESTURE_SWIPE_RIGHT, "GESTURE_SWIPE_RIGHT" );
+	assignGlobalInt( GESTURE_SWIPE_LEFT, "GESTURE_SWIPE_LEFT" );
+	assignGlobalInt( GESTURE_SWIPE_UP, "GESTURE_SWIPE_UP" );
+	assignGlobalInt( GESTURE_SWIPE_DOWN, "GESTURE_SWIPE_DOWN" );
+	assignGlobalInt( GESTURE_PINCH_IN, "GESTURE_PINCH_IN" );
+	assignGlobalInt( GESTURE_PINCH_OUT, "GESTURE_PINCH_OUT" );
 	/* Colors */
 	assignGlobalColor( WHITE, "WHITE" );
 	assignGlobalColor( BLACK, "BLACK" );
@@ -402,6 +414,17 @@ void luaRegister() {
 	lua_register( L, "RL_GetMouseDelta", lcoreGetMouseDelta );
 	lua_register( L, "RL_GetMouseWheelMove", lcoreGetMouseWheelMove );
 	lua_register( L, "RL_SetMousePosition", lcoreSetMousePosition );
+	lua_register( L, "RL_GetTouchPosition", lcoreGetTouchPosition );
+	lua_register( L, "RL_GetTouchPointId", lcoreGetTouchPointId );
+	lua_register( L, "RL_GetTouchPointCount", lcoreGetTouchPointCount );
+	lua_register( L, "RL_SetGesturesEnabled", lcoreSetGesturesEnabled );
+	lua_register( L, "RL_IsGestureDetected", lcoreIsGestureDetected );
+	lua_register( L, "RL_GetGestureDetected", lcoreGetGestureDetected );
+	lua_register( L, "RL_GetGestureHoldDuration", lcoreGetGestureHoldDuration );
+	lua_register( L, "RL_GetGestureDragVector", lcoreGetGestureDragVector );
+	lua_register( L, "RL_GetGestureDragAngle", lcoreGetGestureDragAngle );
+	lua_register( L, "RL_GetGesturePinchVector", lcoreGetGesturePinchVector );
+	lua_register( L, "RL_GetGesturePinchAngle", lcoreGetGesturePinchAngle );
 
 	/* Shapes. */
 		/* Drawing. */
@@ -532,10 +555,12 @@ void luaRegister() {
 
 	/* Text. */
 		/* Loading. */
-	lua_register( L, "RL_LoadFont", lmodelsLoadFont );
+	lua_register( L, "RL_LoadFont", ltextLoadFont );
+	lua_register( L, "RL_UnloadFont", ltextUnloadFont );
 		/* Drawing. */
 	lua_register( L, "RL_DrawFPS", ltextDrawFPS );
 	lua_register( L, "RL_DrawText", ltextDrawText );
+	lua_register( L, "RL_DrawTextPro", ltextDrawTextPro );
 
 	/* Audio. */
 		/* Sound. */
diff --git a/src/main.c b/src/main.c
index ad64d24..cd060d4 100644
--- a/src/main.c
+++ b/src/main.c
@@ -19,6 +19,7 @@ int main( int argn, const char **argc ) {
 		sprintf( exePath, "%s/", GetWorkingDirectory() );
 	}
 
+	TraceLog( LOG_INFO, "ReiLua %d.%d.%d", VERSION_MAJOR, VERSION_MINOR, VERSION_PATCH );
 	stateInit( exePath );
 
 	while ( state->run ) {
diff --git a/src/text.c b/src/text.c
index bd6dea5..1089c1b 100644
--- a/src/text.c
+++ b/src/text.c
@@ -40,7 +40,7 @@ Load font from file into GPU memory ( VRAM )
 - Failure return -1
 - Success return int
 */
-int lmodelsLoadFont( lua_State *L ) {
+int ltextLoadFont( lua_State *L ) {
 	if ( !lua_isstring( L, -1 ) ) {
 		TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_LoadFont( string fileName )" );
 		lua_pushinteger( L, -1 );
@@ -62,6 +62,33 @@ int lmodelsLoadFont( lua_State *L ) {
 }
 
 /*
+> success = RL_UnloadFont( Font font )
+
+Unload Font from GPU memory ( VRAM )
+
+- Failure return false
+- Success return true
+*/
+int ltextUnloadFont( lua_State *L ) {
+	if ( !lua_isnumber( L, -1 ) ) {
+		TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_UnloadFont( Font font )" );
+		lua_pushboolean( L, false );
+		return 1;
+	}
+	size_t id = lua_tointeger( L, -1 );
+
+	if ( !validFont( id ) ) {
+		lua_pushboolean( L, false );
+		return 1;
+	}
+	UnloadFont( *state->fonts[ id ] );
+	state->fonts[ id ] = NULL;
+	lua_pushboolean( L, true );
+
+	return 1;
+}
+
+/*
 ## Text - Draw
 */
 
@@ -116,9 +143,47 @@ int ltextDrawText( lua_State *L ) {
 		lua_pushboolean( L, false );
 		return 1;
 	}
-	
 	DrawTextEx( *state->fonts[ fontId ], lua_tostring( L, -1 ), position, fontSize, spacing, color );
 	lua_pushboolean( L, true );
 
 	return 1;
 }
+
+/*
+> success = RL_DrawTextPro( Font font, const char text, Vector2 position, Vector2 origin, float rotation, float fontSize, float spacing, Color tint )
+
+Draw text using Font and pro parameters ( rotation )
+
+- Failure return false
+- Success return true
+*/
+int ltextDrawTextPro( lua_State *L ) {
+	if ( !lua_isnumber( L, -8 ) || !lua_isstring( L, -7 ) || !lua_istable( L, -6 ) || !lua_istable( L, -5 )
+	|| !lua_isnumber( L, -4 ) || !lua_isnumber( L, -3 ) || !lua_isnumber( L, -2 ) || !lua_istable( L, -1 ) ) {
+		TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_DrawTextPro( Font font, const char text, Vector2 position, Vector2 origin, float rotation, float fontSize, float spacing, Color tint )" );
+		lua_pushboolean( L, false );
+		return 1;
+	}
+	Color color = uluaGetColor( L );
+	lua_pop( L, 1 );
+	float spacing = lua_tonumber( L, -1 );
+	lua_pop( L, 1 );
+	float fontSize = lua_tonumber( L, -1 );
+	lua_pop( L, 1 );
+	float rotation = lua_tonumber( L, -1 );
+	lua_pop( L, 1 );
+	Vector2 origin = uluaGetVector2( L );
+	lua_pop( L, 1 );
+	Vector2 position = uluaGetVector2( L );
+	lua_pop( L, 1 );
+	size_t fontId = lua_tointeger( L, -2 );
+
+	if ( !validFont( fontId ) ) {
+		lua_pushboolean( L, false );
+		return 1;
+	}
+	DrawTextPro( *state->fonts[ fontId ], lua_tostring( L, -1 ), position, origin, rotation, fontSize, spacing, color );
+	lua_pushboolean( L, true );
+
+	return 1;
+}