nlua_camera.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <lauxlib.h>
 
#include "naev.h"
 
#include "nlua_camera.h"
 
#include "camera.h"
#include "conf.h"
#include "nlua_pilot.h"
#include "nlua_vec2.h"
#include "nluadef.h"
#include "player.h"
#include "spfx.h"
 
/* Camera methods. */
static int camL_set( lua_State *L );
static int camL_pos( lua_State *L );
static int camL_get( lua_State *L );
static int camL_setZoom( lua_State *L );
static int camL_getZoom( lua_State *L );
static int camL_shake( lua_State *L );
 
static const luaL_Reg cameraL_methods[] = {
   { "get", camL_get },
   { "set", camL_set },
   { "pos", camL_pos },
   { "setZoom", camL_setZoom },
   { "getZoom", camL_getZoom },
   { "shake", camL_shake },
   { 0, 0 } }; 

int nlua_loadCamera( nlua_env env )
{
   nlua_register( env, "camera", cameraL_methods, 0 );
   return 0;
}


static int camL_set( lua_State *L )
{
   Pilot *p;
   vec2  *vec;
   double x, y, d;
   int    hard_over, speed;
 
   /* Handle arguments. */
   p   = NULL;
   vec = NULL;
   if ( lua_ispilot( L, 1 ) ) {
      LuaPilot lp = lua_topilot( L, 1 );
      p           = pilot_get( lp );
      if ( p == NULL )
         return 0;
      vec = &p->solid.pos;
   } else if ( lua_isvector( L, 1 ) )
      vec = lua_tovector( L, 1 );
   else if ( lua_isnoneornil( L, 1 ) ) {
      if ( player.p != NULL ) {
         p   = player.p;
         vec = &player.p->solid.pos;
      }
   } else
      NLUA_INVALID_PARAMETER( L, 1 );
   hard_over = !lua_toboolean( L, 2 );
   cam_getPos( &x, &y );
   if ( vec != NULL )
      d = MOD( vec->x - x, vec->y - y );
   else
      d = 5000.;
   speed = luaL_optinteger( L, 3, MIN( 2000., d ) );
 
   /* Set the camera. */
   if ( p != NULL )
      cam_setTargetPilot( p->id, hard_over * speed );
   else if ( vec != NULL )
      cam_setTargetPos( vec->x, vec->y, hard_over * speed );
   return 0;
}

static int camL_get( lua_State *L )
{
   double x, y;
   cam_getPos( &x, &y );
   lua_pushnumber( L, x );
   lua_pushnumber( L, y );
   lua_pushnumber( L, 1.0 / cam_getZoom() );
   return 3;
}

static int camL_pos( lua_State *L )
{
   vec2   v;
   double x, y;
   cam_getPos( &x, &y );
   vec2_cset( &v, x, y );
   lua_pushvector( L, v );
   return 1;
}

static int camL_setZoom( lua_State *L )
{
   double zoom      = luaL_optnumber( L, 1, -1. );
   int    hard_over = lua_toboolean( L, 2 );
   double speed     = luaL_optnumber( L, 3, conf.zoom_speed );
 
   /* Handle arguments. */
   if ( zoom > 0. ) {
      zoom = 1.0 / zoom;
      cam_zoomOverride( 1 );
      if ( hard_over ) {
         cam_setZoom( zoom );
         cam_setZoomTarget( zoom, speed );
      } else
         cam_setZoomTarget( zoom, speed );
   } else {
      cam_zoomOverride( 0 );
      cam_setZoomTarget( 1., speed );
   }
   return 0;
}

static int camL_getZoom( lua_State *L )
{
   lua_pushnumber( L, 1.0 / cam_getZoom() );
   lua_pushnumber( L, 1.0 / conf.zoom_far );
   lua_pushnumber( L, 1.0 / conf.zoom_near );
   return 3;
}

static int camL_shake( lua_State *L )
{
   double amplitude = luaL_optnumber( L, 1, 1. );
   spfx_shake( amplitude );
   return 0;
}