nlua_bkg.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <lauxlib.h>
 
#include "nlua_bkg.h"
 
#include "background.h"
#include "nlua_colour.h"
#include "nlua_tex.h"
 
/* Background methods. */
static int bkgL_clear( lua_State *L );
static int bkgL_image( lua_State *L );
 
static const luaL_Reg bkgL_methods[] = { { "clear", bkgL_clear },
                                         { "image", bkgL_image },
                                         { 0, 0 } }; 

int nlua_loadBackground( nlua_env env )
{
   nlua_register( env, "bkg", bkgL_methods, 0 );
   return 0;
}

static int bkgL_clear( lua_State *L )
{
   (void)L;
   background_clear();
   return 0;
}

static int bkgL_image( lua_State *L )
{
   glTexture      *tex;
   double          x, y, move, scale, angle;
   const glColour *col, *radiosity;
   unsigned int    id;
   int             foreground;
 
   /* Parse parameters. */
   tex        = luaL_checktex( L, 1 );
   x          = luaL_checknumber( L, 2 );
   y          = luaL_checknumber( L, 3 );
   move       = luaL_optnumber( L, 4, 0. );
   scale      = luaL_optnumber( L, 5, 1. );
   angle      = luaL_optnumber( L, 6, 0. );
   col        = luaL_optcolour( L, 7, &cWhite );
   foreground = lua_toboolean( L, 8 );
   radiosity  = luaL_optcolour( L, 9, &cTransparent );
 
   /* Create image. */
   id = background_addImage( tex, x, y, move, scale, angle, col, foreground,
                             radiosity );
   lua_pushnumber( L, id );
   return 1;
}