diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lua_core.c | 9 | ||||
| -rw-r--r-- | src/textures.c | 283 |
2 files changed, 257 insertions, 35 deletions
diff --git a/src/lua_core.c b/src/lua_core.c index 09a4094..499af3b 100644 --- a/src/lua_core.c +++ b/src/lua_core.c @@ -633,7 +633,6 @@ void luaRegister() { lua_register( L, "RL_LoadImage", ltexturesLoadImage ); lua_register( L, "RL_LoadImageFromTexture", ltexturesLoadImageFromTexture ); lua_register( L, "RL_LoadImageFromScreen", ltexturesLoadImageFromScreen ); - lua_register( L, "RL_GenImageColor", ltexturesGenImageColor ); lua_register( L, "RL_UnloadImage", ltexturesUnloadImage ); lua_register( L, "RL_ExportImage", ltexturesExportImage ); lua_register( L, "RL_ExportImageAsCode", ltexturesExportImageAsCode ); @@ -642,6 +641,14 @@ void luaRegister() { lua_register( L, "RL_UnloadTexture", ltexturesUnloadTexture ); lua_register( L, "RL_LoadRenderTexture", ltexturesLoadRenderTexture ); lua_register( L, "RL_UnloadRenderTexture", ltexturesUnloadRenderTexture ); + /* Image Generation. */ + lua_register( L, "RL_GenImageColor", ltexturesGenImageColor ); + lua_register( L, "RL_GenImageGradientV", ltexturesGenImageGradientV ); + lua_register( L, "RL_GenImageGradientH", ltexturesGenImageGradientH ); + lua_register( L, "RL_GenImageGradientRadial", ltexturesGenImageGradientRadial ); + lua_register( L, "RL_GenImageChecked", ltexturesGenImageChecked ); + lua_register( L, "RL_GenImageWhiteNoise", ltexturesGenImageWhiteNoise ); + lua_register( L, "RL_GenImageCellular", ltexturesGenImageCellular ); /* Image Drawing. */ lua_register( L, "RL_ImageClearBackground", ltexturesImageClearBackground ); lua_register( L, "RL_ImageDrawPixel", ltexturesImageDrawPixel ); diff --git a/src/textures.c b/src/textures.c index 119c8e4..f65b4c5 100644 --- a/src/textures.c +++ b/src/textures.c @@ -203,40 +203,6 @@ int ltexturesLoadImageFromScreen( lua_State *L ) { } /* -> image = RL_GenImageColor( int width, int height, Color color ) - -Generate image: plain color - -- Failure return -1 -- Success return int -*/ -int ltexturesGenImageColor( lua_State *L ) { - if ( !lua_isnumber( L, -3 ) || !lua_isnumber( L, -2 ) || !lua_istable( L, -1 ) ) { - TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageColor( int width, int height, Color color )" ); - lua_pushinteger( L, -1 ); - return 1; - } - Color color = uluaGetColor( L ); - lua_pop( L, 1 ); - int height = lua_tointeger( L, -1 ); - lua_pop( L, 1 ); - int width = lua_tointeger( L, -1 ); - int i = 0; - - for ( i = 0; i < state->imageCount; i++ ) { - if ( state->images[i] == NULL ) { - break; - } - } - state->images[i] = malloc( sizeof( Image ) ); - *state->images[i] = GenImageColor( width, height, color ); - lua_pushinteger( L, i ); - checkImageRealloc( i ); - - return 1; -} - -/* > success = RL_UnloadImage( Image image ) Unload image from CPU memory ( RAM ) @@ -469,6 +435,255 @@ int ltexturesUnloadRenderTexture( lua_State *L ) { } /* +## Textures - Image Generation +*/ + +/* +> image = RL_GenImageColor( int width, int height, Color color ) + +Generate image: plain color + +- Failure return -1 +- Success return int +*/ +int ltexturesGenImageColor( lua_State *L ) { + if ( !lua_isnumber( L, -3 ) || !lua_isnumber( L, -2 ) || !lua_istable( L, -1 ) ) { + TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageColor( int width, int height, Color color )" ); + lua_pushinteger( L, -1 ); + return 1; + } + Color color = uluaGetColor( L ); + lua_pop( L, 1 ); + int height = lua_tointeger( L, -1 ); + lua_pop( L, 1 ); + int width = lua_tointeger( L, -1 ); + + int i = 0; + + for ( i = 0; i < state->imageCount; i++ ) { + if ( state->images[i] == NULL ) { + break; + } + } + state->images[i] = malloc( sizeof( Image ) ); + *state->images[i] = GenImageColor( width, height, color ); + lua_pushinteger( L, i ); + checkImageRealloc( i ); + + return 1; +} + +/* +> image = RL_GenImageGradientV( Vector2 size, Color top, Color bottom ) + +Generate image: vertical gradient + +- Failure return -1 +- Success return int +*/ +int ltexturesGenImageGradientV( lua_State *L ) { + if ( !lua_istable( L, -3 ) || !lua_istable( L, -2 ) || !lua_istable( L, -1 ) ) { + TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageGradientV( Vector2 size, Color top, Color bottom )" ); + lua_pushinteger( L, -1 ); + return 1; + } + Color bottom = uluaGetColor( L ); + lua_pop( L, 1 ); + Color top = uluaGetColor( L ); + lua_pop( L, 1 ); + Vector2 size = uluaGetVector2( L ); + + int i = 0; + + for ( i = 0; i < state->imageCount; i++ ) { + if ( state->images[i] == NULL ) { + break; + } + } + state->images[i] = malloc( sizeof( Image ) ); + *state->images[i] = GenImageGradientV( (int)size.x, (int)size.y, top, bottom ); + lua_pushinteger( L, i ); + checkImageRealloc( i ); + + return 1; +} + +/* +> image = RL_GenImageGradientH( Vector2 size, Color left, Color right ) + +Generate image: horizontal gradient + +- Failure return -1 +- Success return int +*/ +int ltexturesGenImageGradientH( lua_State *L ) { + if ( !lua_istable( L, -3 ) || !lua_istable( L, -2 ) || !lua_istable( L, -1 ) ) { + TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageGradientH( Vector2 size, Color left, Color right )" ); + lua_pushinteger( L, -1 ); + return 1; + } + Color right = uluaGetColor( L ); + lua_pop( L, 1 ); + Color left = uluaGetColor( L ); + lua_pop( L, 1 ); + Vector2 size = uluaGetVector2( L ); + + int i = 0; + + for ( i = 0; i < state->imageCount; i++ ) { + if ( state->images[i] == NULL ) { + break; + } + } + state->images[i] = malloc( sizeof( Image ) ); + *state->images[i] = GenImageGradientH( (int)size.x, (int)size.y, left, right ); + lua_pushinteger( L, i ); + checkImageRealloc( i ); + + return 1; +} + +/* +> image = RL_GenImageGradientRadial( Vector2 size, float density, Color inner, Color outer ) + +Generate image: radial gradient + +- Failure return -1 +- Success return int +*/ +int ltexturesGenImageGradientRadial( lua_State *L ) { + if ( !lua_istable( L, -4 ) || !lua_isnumber( L, -3 ) || !lua_istable( L, -2 ) || !lua_istable( L, -1 ) ) { + TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageGradientRadial( Vector2 size, float density, Color inner, Color outer )" ); + lua_pushinteger( L, -1 ); + return 1; + } + Color outer = uluaGetColor( L ); + lua_pop( L, 1 ); + Color inner = uluaGetColor( L ); + lua_pop( L, 1 ); + float density = lua_tonumber( L, -1 ); + lua_pop( L, 1 ); + Vector2 size = uluaGetVector2( L ); + + int i = 0; + + for ( i = 0; i < state->imageCount; i++ ) { + if ( state->images[i] == NULL ) { + break; + } + } + state->images[i] = malloc( sizeof( Image ) ); + *state->images[i] = GenImageGradientRadial( (int)size.x, (int)size.y, density, inner, outer ); + lua_pushinteger( L, i ); + checkImageRealloc( i ); + + return 1; +} + +/* +> image = RL_GenImageChecked( Vector2 size, Vector2 checks, Color col1, Color col2 ) + +Generate image: checked + +- Failure return -1 +- Success return int +*/ +int ltexturesGenImageChecked( lua_State *L ) { + if ( !lua_istable( L, -4 ) || !lua_istable( L, -3 ) || !lua_istable( L, -2 ) || !lua_istable( L, -1 ) ) { + TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageChecked( Vector2 size, Vector2 checks, Color col1, Color col2 )" ); + lua_pushinteger( L, -1 ); + return 1; + } + Color col2 = uluaGetColor( L ); + lua_pop( L, 1 ); + Color col1 = uluaGetColor( L ); + lua_pop( L, 1 ); + Vector2 checks = uluaGetVector2( L ); + lua_pop( L, 1 ); + Vector2 size = uluaGetVector2( L ); + + int i = 0; + + for ( i = 0; i < state->imageCount; i++ ) { + if ( state->images[i] == NULL ) { + break; + } + } + state->images[i] = malloc( sizeof( Image ) ); + *state->images[i] = GenImageChecked( (int)size.x, (int)size.y, (int)checks.x, (int)checks.y, col1, col2 ); + lua_pushinteger( L, i ); + checkImageRealloc( i ); + + return 1; +} + +/* +> image = RL_GenImageWhiteNoise( Vector2 size, float factor ) + +Generate image: white noise + +- Failure return -1 +- Success return int +*/ +int ltexturesGenImageWhiteNoise( lua_State *L ) { + if ( !lua_istable( L, -2 ) || !lua_isnumber( L, -1 ) ) { + TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageWhiteNoise( Vector2 size, float factor )" ); + lua_pushinteger( L, -1 ); + return 1; + } + float factor = lua_tonumber( L, -1 ); + lua_pop( L, 1 ); + Vector2 size = uluaGetVector2( L ); + + int i = 0; + + for ( i = 0; i < state->imageCount; i++ ) { + if ( state->images[i] == NULL ) { + break; + } + } + state->images[i] = malloc( sizeof( Image ) ); + *state->images[i] = GenImageWhiteNoise( (int)size.x, (int)size.y, factor ); + lua_pushinteger( L, i ); + checkImageRealloc( i ); + + return 1; +} + +/* +> image = RL_GenImageCellular( Vector2 size, int tileSize ) + +Generate image: cellular algorithm. Bigger tileSize means bigger cells + +- Failure return -1 +- Success return int +*/ +int ltexturesGenImageCellular( lua_State *L ) { + if ( !lua_istable( L, -2 ) || !lua_isnumber( L, -1 ) ) { + TraceLog( LOG_WARNING, "%s", "Bad call of function. RL_GenImageCellular( Vector2 size, int tileSize )" ); + lua_pushinteger( L, -1 ); + return 1; + } + int tileSize = lua_tointeger( L, -1 ); + lua_pop( L, 1 ); + Vector2 size = uluaGetVector2( L ); + + int i = 0; + + for ( i = 0; i < state->imageCount; i++ ) { + if ( state->images[i] == NULL ) { + break; + } + } + state->images[i] = malloc( sizeof( Image ) ); + *state->images[i] = GenImageCellular( (int)size.x, (int)size.y, tileSize ); + lua_pushinteger( L, i ); + checkImageRealloc( i ); + + return 1; +} + +/* ## Textures - Image Drawing */ |