gui.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <stdlib.h>
 
#include "naev.h"
#include "gui.h"
 
#include "ai.h"
#include "camera.h"
#include "comm.h"
#include "conf.h"
#include "dialogue.h"
#include "economy.h"
#include "font.h"
#include "gui_omsg.h"
#include "gui_osd.h"
#include "hook.h"
#include "input.h"
#include "intro.h"
#include "land.h"
#include "log.h"
#include "map.h"
#include "map_overlay.h"
#include "menu.h"
#include "mission.h"
#include "music.h"
#include "ndata.h"
#include "nebula.h"
#include "nfile.h"
#include "nlua.h"
#include "nlua_gfx.h"
#include "nlua_gui.h"
#include "nlua_misn.h"
#include "nlua_tex.h"
#include "nlua_tk.h"
#include "nluadef.h"
#include "nmath.h"
#include "nstring.h"
#include "ntime.h"
#include "nxml.h"
#include "opengl.h"
#include "pause.h"
#include "pilot.h"
#include "pilot.h"
#include "player.h"
#include "render.h"
#include "rng.h"
#include "sound.h"
#include "space.h"
#include "spfx.h"
#include "toolkit.h"
#include "unidiff.h"
 
#define XML_GUI_ID   "GUIs" 
#define XML_GUI_TAG  "gui" 
#define RADAR_BLINK_PILOT     0.5 
#define RADAR_BLINK_SPOB      1. 
/* some blinking stuff. */
static double blink_pilot     = 0.; 
static double blink_spob      = 0.; 
static double animation_dt    = 0.; 
/* for VBO. */
static gl_vbo *gui_radar_select_vbo = NULL;
 
static int gui_getMessage     = 1; 
static char *gui_name         = NULL; 
extern unsigned int land_wid; 
static nlua_env gui_env = LUA_NOREF; 
static int gui_L_mclick = 0; 
static int gui_L_mmove = 0; 
static double gui_viewport_x = 0.; 
static double gui_viewport_y = 0.; 
static double gui_viewport_w = 0.; 
static double gui_viewport_h = 0.; 
typedef struct Radar_ {
   double w; 
   double h; 
   double x; 
   double y; 
   RadarShape shape; 
   double res; 
} Radar;
/* radar resolutions */
#define RADAR_RES_MAX      300. 
#define RADAR_RES_REF      100. 
#define RADAR_RES_MIN      10. 
#define RADAR_RES_INTERVAL 10. 
static Radar gui_radar;
 
/* needed to render properly */
static double gui_xoff = 0.; 
static double gui_yoff = 0.; 
/* messages */
static const int mesg_max        = 128; 
static int mesg_pointer    = 0; 
static int mesg_viewpoint  = -1; 
static const double mesg_timeout = 15.; 
typedef struct Mesg_ {
   char *str; 
   double t; 
   glFontRestore restore; 
} Mesg;
static Mesg* mesg_stack = NULL; 
static int gui_mesg_w   = 0; 
static int gui_mesg_x   = 0; 
static int gui_mesg_y   = 0; 
/* Calculations to speed up borders. */
static double gui_tr = 0.; 
static double gui_br = 0.; 
static double gui_tl = 0.; 
static double gui_bl = 0.; 
/* Intrinsic graphical stuff. */
static glTexture *gui_ico_hail      = NULL; 
static glTexture *gui_target_spob = NULL; 
static glTexture *gui_target_pilot  = NULL; 
/* Lua Stuff. */
static int gui_lua_create           = LUA_NOREF;
static int gui_lua_render           = LUA_NOREF;
static int gui_lua_render_cooldown  = LUA_NOREF;
static int gui_lua_cooldown_end     = LUA_NOREF;
static int gui_lua_mouse_move       = LUA_NOREF;
static int gui_lua_mouse_click      = LUA_NOREF;
static int gui_lua_update_cargo     = LUA_NOREF;
static int gui_lua_update_nav       = LUA_NOREF;
static int gui_lua_update_target    = LUA_NOREF;
static int gui_lua_update_ship      = LUA_NOREF;
static int gui_lua_update_system    = LUA_NOREF;
static int gui_lua_update_faction   = LUA_NOREF;
static int gui_lua_update_effects   = LUA_NOREF;
 
/*
 * prototypes
 */
/*
 * external
 */
extern void weapon_minimap( const double res, const double w, const double h,
      const RadarShape shape, double alpha ); 
/*
 * internal
 */
/* gui */
static void gui_renderTargetReticles( const SimpleShader *shd, double x, double y, double radius, double angle, const glColour* c );
static void gui_borderIntersection( double *cx, double *cy, double rx, double ry, double hw, double hh );
/* Render GUI. */
static void gui_renderPilotTarget (void);
static void gui_renderSpobTarget (void);
static void gui_renderBorder( double dt );
static void gui_renderMessages( double dt );
static const glColour *gui_getSpobColour( int i );
static void gui_renderRadarOutOfRange( RadarShape sh, int w, int h, int cx, int cy, const glColour *col );
static void gui_blink( double cx, double cy, double vr, const glColour *col, double blinkInterval, double blinkVar );
static const glColour* gui_getPilotColour( const Pilot* p );
static void gui_calcBorders (void);
/* Lua GUI. */
static int gui_doFunc( int func_ref, const char *func_name );
static int gui_prepFunc( int func_ref, const char *func_name );
static int gui_runFunc( const char *func, int nargs, int nret );
 
void gui_setDefaults (void)
{
   gui_setRadarResolution( player.radar_res );
   gui_clearMessages();
}
 
void gui_messageInit( int width, int x, int y )
{
   gui_mesg_w = width;
   gui_mesg_x = x;
   gui_mesg_y = y;
}
 
void gui_messageScrollUp( int lines )
{
   int o;
 
   /* Handle hacks. */
   if (mesg_viewpoint == -1) {
      mesg_viewpoint = mesg_pointer;
      return;
   }
 
   /* Get offset. */
   o  = mesg_pointer - mesg_viewpoint;
   if (o < 0)
      o += mesg_max;
   o = mesg_max - 2*conf.mesg_visible - o;
 
   /* Calculate max line movement. */
   if (lines > o)
      lines = o;
 
   /* Move viewpoint. */
   mesg_viewpoint = (mesg_viewpoint - lines) % mesg_max;
}
 
void gui_messageScrollDown( int lines )
{
   int o;
 
   /* Handle hacks. */
   if (mesg_viewpoint == mesg_pointer) {
      mesg_viewpoint = -1;
      return;
   }
   else if (mesg_viewpoint == -1)
      return;
 
   /* Get offset. */
   o  = mesg_pointer - mesg_viewpoint;
   if (o < 0)
      o += mesg_max;
 
   /* Calculate max line movement. */
   if (lines > o)
      lines = o;
 
   /* Move viewpoint. */
   mesg_viewpoint = (mesg_viewpoint + lines) % mesg_max;
}
 
void player_messageToggle( int enable )
{
   gui_getMessage = enable;
}
 
void player_messageRaw( const char *str )
{
   glPrintLineIterator iter;
 
   /* Must be receiving messages. */
   if (!gui_getMessage)
      return;
 
   gl_printLineIteratorInit( &iter, &gl_smallFont, str, gui_mesg_w - ((str[0] == '\t') ? 45 : 15) );
   while (gl_printLineIteratorNext( &iter )) {
      /* Move pointer. */
      mesg_pointer   = (mesg_pointer + 1) % mesg_max;
      if (mesg_viewpoint != -1)
         mesg_viewpoint++;
 
      /* Add the new one */
      free( mesg_stack[mesg_pointer].str );
      if (iter.l_begin == 0) {
         mesg_stack[mesg_pointer].str = strndup( &str[iter.l_begin], iter.l_end - iter.l_begin );
         gl_printRestoreInit( &mesg_stack[mesg_pointer].restore );
      }
      else {
         mesg_stack[mesg_pointer].str = malloc( iter.l_end - iter.l_begin + 2 );
         snprintf( mesg_stack[mesg_pointer].str, iter.l_end - iter.l_begin + 2, "\t%s", &str[iter.l_begin] );
         gl_printStoreMax( &mesg_stack[mesg_pointer].restore, str, iter.l_begin );
      }
      mesg_stack[mesg_pointer].t = mesg_timeout;
 
      iter.width = gui_mesg_w - 45; /* Remaining lines are tabbed so it's shorter. */
   }
}
 
void player_message( const char *fmt, ... )
{
   va_list ap;
   char *buf;
 
   /* Must be receiving messages. */
   if (!gui_getMessage)
      return;
 
   /* Add the new one */
   va_start( ap, fmt );
   vasprintf( &buf, fmt, ap );
   va_end( ap );
   player_messageRaw( buf );
   free( buf );
}
 
static void gui_renderSpobTarget (void)
{
   double x,y, r;
   const glColour *c;
 
   /* no need to draw if pilot is dead */
   if (player_isFlag(PLAYER_DESTROYED) || player_isFlag(PLAYER_CREATING) ||
      (player.p == NULL) || pilot_isFlag(player.p,PILOT_DEAD))
      return;
 
   /* Make sure target exists. */
   if ((player.p->nav_spob < 0) && (player.p->nav_hyperspace < 0)
       && (player.p->nav_asteroid < 0))
      return;
 
   /* Make sure targets are still in range. */
#if 0
   if (!pilot_inRangeSpob( player.p, player.p->nav_spob )) {
      player_targetSpobSet( -1 );
      return;
   }
#endif
 
   /* Draw spob and jump point target graphics. */
   if (player.p->nav_hyperspace >= 0) {
      JumpPoint *jp = &cur_system->jumps[player.p->nav_hyperspace];
 
      if (jp_isKnown(jp)) {
         c = &cGreen;
         x = jp->pos.x;
         y = jp->pos.y;
         r = jumppoint_gfx->sw * 0.5;
         gui_renderTargetReticles( &shaders.targetspob, x, y, r, 0., c );
      }
   }
   if (player.p->nav_spob >= 0) {
      Spob *spob = cur_system->spobs[player.p->nav_spob];
      c = spob_getColour( spob );
      x = spob->pos.x;
      y = spob->pos.y;
      r = spob->radius;
      gui_renderTargetReticles( &shaders.targetspob, x, y, r, 0., c );
   }
   if (player.p->nav_asteroid >= 0) {
      AsteroidAnchor *field = &cur_system->asteroids[player.p->nav_anchor];
      Asteroid *ast = &field->asteroids[player.p->nav_asteroid];
      c = &cWhite;
 
      x = ast->pos.x;
      y = ast->pos.y;
      r = ast->gfx->sw * 0.5;
      gui_renderTargetReticles( &shaders.targetship, x, y, r, 0., c );
   }
}
 
static void gui_renderTargetReticles( const SimpleShader *shd, double x, double y, double radius, double angle, const glColour* c )
{
   double rx, ry, r;
   /* Must not be NULL. */
   if (gui_target_spob == NULL)
      return;
 
   gl_gameToScreenCoords( &rx, &ry, x, y );
   r = (double)radius *  1.2 * cam_getZoom();
 
   glUseProgram(shd->program);
   glUniform1f(shd->dt, animation_dt);
   glUniform1f(shd->paramf, radius);
   gl_renderShader( rx, ry, r, r, angle, shd, c, 1 );
}
 
static void gui_renderPilotTarget (void)
{
   Pilot *p;
   const glColour *c;
 
   /* Player is most likely dead. */
   if (gui_target_pilot == NULL)
      return;
 
   /* Get the target. */
   if (player.p->target != PLAYER_ID)
      p = pilot_get(player.p->target);
   else p = NULL;
 
   /* Make sure pilot exists and is still alive. */
   if ((p==NULL) || pilot_isFlag(p,PILOT_DEAD)) {
      pilot_setTarget( player.p, player.p->id );
      gui_setTarget();
      return;
   }
 
   /* Make sure target is still valid and in range. */
   if (!pilot_validTarget( player.p, p )) {
      pilot_setTarget( player.p, player.p->id );
      gui_setTarget();
      return;
   }
 
   /* Draw the pilot target. */
   if (pilot_isDisabled(p))
      c = &cInert;
   else if (pilot_isHostile(p))
      c = &cHostile;
   else if (pilot_isFriendly(p))
      c = &cFriend;
   else
      c = &cNeutral;
 
   gui_renderTargetReticles( &shaders.targetship, p->solid->pos.x, p->solid->pos.y, p->ship->gfx_space->sw * 0.5, p->solid->dir, c );
}
 
static void gui_borderIntersection( double *cx, double *cy, double rx, double ry, double hw, double hh )
{
   double a;
   double w, h;
 
   /* Get angle. */
   a = atan2( ry, rx );
   if (a < 0.)
      a += 2.*M_PI;
 
   /* Helpers. */
   w = hw-7.;
   h = hh-7.;
 
   /* Handle by quadrant. */
   if ((a > gui_tr) && (a < gui_tl)) { /* Top. */
      *cx = h * (rx/ry);
      *cy = h;
   }
   else if ((a > gui_tl) && (a < gui_bl)) { /* Left. */
      *cx = -w;
      *cy = -w * (ry/rx);
   }
   else if ((a > gui_bl) && (a < gui_br)) { /* Bottom. */
      *cx = -h * (rx/ry);
      *cy = -h;
   }
   else { /* Right. */
      *cx = w;
      *cy = w * (ry/rx);
   }
 
   /* Translate. */
   *cx += hw;
   *cy += hh;
}
 
static void gui_renderBorder( double dt )
{
   (void) dt;
   int hw, hh;
   double rx,ry;
   double cx,cy;
   const glColour *col;
   Pilot *const* pilot_stack;
 
   /* Get player position. */
   hw    = SCREEN_W/2;
   hh    = SCREEN_H/2;
 
   /* Render borders to enhance contrast. */
   gl_renderRect( 0., 0., 15., SCREEN_H, &cBlackHilight );
   gl_renderRect( SCREEN_W - 15., 0., 15., SCREEN_H, &cBlackHilight );
   gl_renderRect( 15., 0., SCREEN_W - 30., 15., &cBlackHilight );
   gl_renderRect( 15., SCREEN_H - 15., SCREEN_W - 30., 15., &cBlackHilight );
 
   /* Draw spobs. */
   for (int i=0; i<array_size(cur_system->spobs); i++) {
      Spob *pnt = cur_system->spobs[i];
 
      /* Skip if unknown. */
      if (!spob_isKnown( pnt ))
         continue;
 
      /* Check if out of range. */
      if (!gui_onScreenSpob( &rx, &ry, NULL, pnt )) {
 
         /* Get border intersection. */
         gui_borderIntersection( &cx, &cy, rx, ry, hw, hh );
 
         col = gui_getSpobColour(i);
         gl_renderCircle(cx, cy, 5, col, 0);
      }
   }
 
   /* Draw jump routes. */
   for (int i=0; i<array_size(cur_system->jumps); i++) {
      JumpPoint *jp = &cur_system->jumps[i];
 
      /* Skip if unknown or exit-only. */
      if (!jp_isUsable( jp ))
         continue;
 
      /* Check if out of range. */
      if (!gui_onScreenSpob( &rx, &ry, jp, NULL )) {
 
         /* Get border intersection. */
         gui_borderIntersection( &cx, &cy, rx, ry, hw, hh );
 
         if (i==player.p->nav_hyperspace)
            col = &cGreen;
         else
            col = &cWhite;
 
         gl_renderTriangleEmpty( cx, cy, -jp->angle, 10., 1., col );
      }
   }
 
   /* Draw pilots. */
   pilot_stack = pilot_getAll();
   for (int i=1; i<array_size(pilot_stack); i++) { /* skip the player */
      Pilot *plt = pilot_stack[i];
 
      /* See if in sensor range. */
      if (!pilot_inRangePilot(player.p, plt, NULL))
         continue;
 
      /* Check if out of range. */
      if (!gui_onScreenPilot( &rx, &ry, plt )) {
 
         /* Get border intersection. */
         gui_borderIntersection( &cx, &cy, rx, ry, hw, hh );
 
         col = gui_getPilotColour(plt);
         gl_renderRectEmpty(cx-5, cy-5, 10, 10, col);
      }
   }
}
 
int gui_onScreenPilot( double *rx, double *ry, const Pilot *pilot )
{
   double z;
   int cw, ch;
   glTexture *tex;
 
   z = cam_getZoom();
 
   tex = pilot->ship->gfx_space;
 
   /* Get relative positions. */
   *rx = (pilot->solid->pos.x - player.p->solid->pos.x)*z;
   *ry = (pilot->solid->pos.y - player.p->solid->pos.y)*z;
 
   /* Correct for offset. */
   *rx -= gui_xoff;
   *ry -= gui_yoff;
 
   /* Compare dimensions. */
   cw = SCREEN_W/2 + tex->sw/2;
   ch = SCREEN_H/2 + tex->sh/2;
 
   if ((ABS(*rx) > cw) || (ABS(*ry) > ch))
      return  0;
 
   return 1;
}
 
int gui_onScreenSpob( double *rx, double *ry, const JumpPoint *jp, const Spob *pnt )
{
   double z;
   int cw, ch;
   glTexture *tex;
 
   z = cam_getZoom();
 
   if (jp == NULL) {
      tex = pnt->gfx_space;
      *rx = (pnt->pos.x - player.p->solid->pos.x)*z;
      *ry = (pnt->pos.y - player.p->solid->pos.y)*z;
   }
   else {
      tex = jumppoint_gfx;
      *rx = (jp->pos.x - player.p->solid->pos.x)*z;
      *ry = (jp->pos.y - player.p->solid->pos.y)*z;
   }
 
   /* Correct for offset. */
   *rx -= gui_xoff;
   *ry -= gui_yoff;
 
   /* Compare dimensions. */
   cw = SCREEN_W/2;
   ch = SCREEN_H/2;
   if (tex != NULL) {
      cw += tex->sw/2;
      ch += tex->sh/2;
   }
 
   if ((ABS(*rx) > cw) || (ABS(*ry) > ch))
      return  0;
 
   return 1;
}
 
void gui_renderReticles( double dt )
{
   (void) dt;
 
   /* Player must be alive. */
   if (player.p == NULL)
      return;
 
   /* Disable in cinematics. */
   if (player_isFlag(PLAYER_CINEMATICS))
      return;
 
   gui_renderSpobTarget();
   gui_renderPilotTarget();
}
 
static int can_jump = 0; 
void gui_render( double dt )
{
   double fade, direction;
 
   /* If player is dead just render the cinematic mode. */
   if (!menu_isOpen(MENU_MAIN) &&
         (player_isFlag(PLAYER_DESTROYED) || player_isFlag(PLAYER_CREATING) ||
            ((player.p != NULL) && pilot_isFlag(player.p,PILOT_DEAD)))) {
      gl_viewport( 0., 0., SCREEN_W, SCREEN_H );
      spfx_cinematic();
      gl_defViewport();
      return;
   }
 
   /* Make sure player is valid. */
   if (player.p == NULL)
      return;
 
   /* Cinematics mode. */
   if (player_isFlag( PLAYER_CINEMATICS_GUI ))
      return;
 
   /*
    * Countdown timers.
    */
   animation_dt   += dt / dt_mod;
   blink_pilot    -= dt / dt_mod;
   if (blink_pilot < 0.)
      blink_pilot += RADAR_BLINK_PILOT;
   blink_spob   -= dt / dt_mod;
   if (blink_spob < 0.)
      blink_spob += RADAR_BLINK_SPOB;
 
   /* Render the border ships and targets. */
   gui_renderBorder(dt);
 
   /* Set viewport. */
   gl_viewport( 0., 0., gl_screen.rw, gl_screen.rh );
 
   /* Run Lua. */
   if (gui_env != LUA_NOREF) {
      if (gui_prepFunc( gui_lua_render, "render" )==0) {
         lua_pushnumber( naevL, dt );
         lua_pushnumber( naevL, dt_mod );
         gui_runFunc( "render", 2, 0 );
      }
      if (pilot_isFlag(player.p, PILOT_COOLDOWN)) {
         if (gui_prepFunc( gui_lua_render_cooldown, "render_cooldown" )==0) {
            lua_pushnumber( naevL, player.p->ctimer / player.p->cdelay  );
            lua_pushnumber( naevL, player.p->ctimer );
            gui_runFunc( "render_cooldown", 2, 0 );
         }
      }
   }
 
   /* Messages. */
   gui_renderMessages(dt);
 
   /* OSD. */
   osd_render();
 
   /* Noise when getting near a jump. */
   if (player.p->nav_hyperspace >= 0) { /* hyperspace target */
      /* Determine if we have to play the "enter hyperspace range" sound. */
      int i = space_canHyperspace(player.p);
      if ((i != 0) && (i != can_jump))
         if (!pilot_isFlag(player.p, PILOT_HYPERSPACE))
            player_soundPlayGUI(snd_jump, 1);
      can_jump = i;
   }
 
   /* Determine if we need to fade in/out. */
   fade = direction = 0.;
   if (pilot_isFlag(player.p, PILOT_HYPERSPACE) &&
         (player.p->ptimer < HYPERSPACE_FADEOUT)) {
      fade = (HYPERSPACE_FADEOUT-player.p->ptimer) / HYPERSPACE_FADEOUT;
      direction = VANGLE(player.p->solid->vel);
   }
   else if (pilot_isFlag(player.p, PILOT_HYP_END) &&
         player.p->ptimer > 0.) {
      fade = player.p->ptimer / HYPERSPACE_FADEIN;
      direction = VANGLE(player.p->solid->vel) + M_PI;
   }
   /* Perform the fade. */
   if (fade > 0.) {
      mat4 projection = gl_view_matrix;
 
      /* Set up the program. */
      glUseProgram( shaders.jump.program );
      glEnableVertexAttribArray( shaders.jump.vertex );
      gl_vboActivateAttribOffset( gl_squareVBO, shaders.jump.vertex, 0, 2, GL_FLOAT, 0 );
 
      /* Set up the projection. */
      mat4_scale( &projection, gl_screen.nw, gl_screen.nh, 1. );
 
      /* Pass stuff over. */
      gl_uniformMat4( shaders.jump.projection, &projection );
      glUniform1f( shaders.jump.progress, fade );
      glUniform1f( shaders.jump.direction, direction );
      glUniform2f( shaders.jump.dimensions, gl_screen.nw, gl_screen.nh );
      glUniform1f( shaders.jump.brightness, conf.jump_brightness );
 
      /* Set the subroutine. */
      if (gl_has( OPENGL_SUBROUTINES )) {
         if (cur_system->nebu_density > 0.)
            glUniformSubroutinesuiv( GL_FRAGMENT_SHADER, 1, &shaders.jump.jump_func.jump_nebula );
         else
            glUniformSubroutinesuiv( GL_FRAGMENT_SHADER, 1, &shaders.jump.jump_func.jump_wind );
      }
 
      /* Draw. */
      glDrawArrays( GL_TRIANGLE_STRIP, 0, 4 );
 
      /* Clear state. */
      glDisableVertexAttribArray( shaders.jump.vertex );
      glUseProgram(0);
 
      /* Check errors. */
      gl_checkErr();
   }
 
   /* Reset viewport. */
   gl_defViewport();
 
   /* Render messages. */
   omsg_render( dt );
}
 
void gui_cooldownEnd (void)
{
   gui_doFunc( gui_lua_cooldown_end, "cooldown_end" );
}
 
int gui_radarInit( int circle, int w, int h )
{
   gui_radar.shape   = circle ? RADAR_CIRCLE : RADAR_RECT;
   gui_radar.w       = w;
   gui_radar.h       = h;
   gui_setRadarResolution( player.radar_res );
   return 0;
}
 
void gui_radarRender( double x, double y )
{
   int f;
   Radar *radar;
   mat4 view_matrix_prev;
   Pilot *const* pilot_stack;
 
   if (!conf.always_radar && ovr_isOpen())
      return;
 
   /* The global radar. */
   radar = &gui_radar;
   gui_radar.x = x;
   gui_radar.y = y;
 
   /* TODO: modifying gl_view_matrix like this is a bit of a hack */
   /* TODO: use stensil test for RADAR_CIRCLE */
   view_matrix_prev = gl_view_matrix;
   if (radar->shape==RADAR_RECT) {
      gl_clipRect( x, y, radar->w, radar->h );
      mat4_translate( &gl_view_matrix,
            x + radar->w/2., y + radar->h/2., 0 );
   }
   else if (radar->shape==RADAR_CIRCLE)
      mat4_translate( &gl_view_matrix,
            x, y, 0 );
 
   /*
    * spobs
    */
   for (int i=0; i<array_size(cur_system->spobs); i++)
      if (i != player.p->nav_spob)
         gui_renderSpob( i, radar->shape, radar->w, radar->h, radar->res, 1., 0 );
   if (player.p->nav_spob > -1)
      gui_renderSpob( player.p->nav_spob, radar->shape, radar->w, radar->h, radar->res, 1., 0 );
 
   /*
    * Jump points.
    */
   for (int i=0; i<array_size(cur_system->jumps); i++) {
      JumpPoint *jp = &cur_system->jumps[i];
      if (i != player.p->nav_hyperspace && jp_isUsable(jp))
         gui_renderJumpPoint( i, radar->shape, radar->w, radar->h, radar->res, 1., 0 );
   }
   if (player.p->nav_hyperspace > -1)
      gui_renderJumpPoint( player.p->nav_hyperspace, radar->shape, radar->w, radar->h, radar->res, 1., 0 );
 
   /*
    * weapons
    */
   weapon_minimap( radar->res, radar->w, radar->h,
         radar->shape, 1. );
 
   /* render the pilot */
   pilot_stack = pilot_getAll();
   f = 0;
   for (int i=1; i<array_size(pilot_stack); i++) { /* skip the player */
      if (pilot_stack[i]->id == player.p->target)
         f = i;
      else
         gui_renderPilot( pilot_stack[i], radar->shape, radar->w, radar->h, radar->res, 0 );
   }
   /* render the targeted pilot */
   if (f != 0)
      gui_renderPilot( pilot_stack[f], radar->shape, radar->w, radar->h, radar->res, 0 );
 
   /* render the asteroids */
   for (int i=0; i<array_size(cur_system->asteroids); i++) {
      AsteroidAnchor *ast = &cur_system->asteroids[i];
      for (int j=0; j<ast->nb; j++)
         gui_renderAsteroid( &ast->asteroids[j], radar->w, radar->h, radar->res, 0 );
   }
 
   /* Render the player. */
   gui_renderPlayer( radar->res, 0 );
 
   /* Undo the horrible hack. */
   gl_view_matrix = view_matrix_prev;
   if (radar->shape==RADAR_RECT)
      gl_unclipRect();
}
 
void gui_radarGetRes( double* res )
{
   *res = gui_radar.res;
}
 
void gui_clearMessages (void)
{
   for (int i=0; i < mesg_max; i++)
      free( mesg_stack[i].str );
   memset( mesg_stack, 0, sizeof(Mesg)*mesg_max );
}
 
static void gui_renderMessages( double dt )
{
   double x, y, h, hs, vx, vy, dy;
   int v, o;
   glColour c = {.r=1., .g=1., .b=1.};
   const glColour msgc = {.r=0., .g=0., .b=0., .a=0.6};
 
   /* Coordinate translation. */
   x = gui_mesg_x;
   y = gui_mesg_y;
 
   /* Handle viewpoint hacks. */
   v = mesg_viewpoint;
   if (v == -1)
      v = mesg_pointer;
 
   /* Render background. */
   h = 0;
 
   /* Set up position. */
   vx = x;
   vy = y;
 
   /* Must be run here. */
   hs = 0.;
   o = 0;
   if (mesg_viewpoint != -1) {
      /* Data. */
      hs = h*(double)conf.mesg_visible/(double)mesg_max;
      o  = mesg_pointer - mesg_viewpoint;
      if (o < 0)
         o += mesg_max;
   }
 
   /* Render text. */
   for (int i=0; i<conf.mesg_visible; i++) {
      /* Reference translation. */
      int m  = (v - i) % mesg_max;
      if (m < 0)
         m += mesg_max;
 
      /* Timer handling. */
      if ((mesg_viewpoint != -1) || (mesg_stack[m].t >= 0.)) {
         /* Decrement timer. */
         if (mesg_viewpoint == -1)
            mesg_stack[m].t -= dt / dt_mod;
 
         /* Only handle non-NULL messages. */
         if (mesg_stack[m].str != NULL) {
            if (mesg_stack[m].str[0] == '\t') {
               gl_printRestore( &mesg_stack[m].restore );
               dy = gl_printHeightRaw( &gl_smallFont, gui_mesg_w, &mesg_stack[m].str[1]) + 6;
               gl_renderRect( x-4., y-1., gui_mesg_w-13., dy, &msgc );
               gl_printMaxRaw( &gl_smallFont, gui_mesg_w - 45., x + 30, y + 3, &cFontWhite, -1., &mesg_stack[m].str[1] );
            } else {
               dy = gl_printHeightRaw( &gl_smallFont, gui_mesg_w, mesg_stack[m].str) + 6;
               gl_renderRect( x-4., y-1., gui_mesg_w-13., dy, &msgc );
               gl_printMaxRaw( &gl_smallFont, gui_mesg_w - 15., x, y + 3, &cFontWhite, -1., mesg_stack[m].str );
            }
            h += dy;
            y += dy;
         }
      }
 
      /* Increase position. */
   }
 
   /* Render position. */
   if (mesg_viewpoint != -1) {
      /* Border. */
      c.a = 0.2;
      gl_renderRect( vx + gui_mesg_w-10., vy, 10, h, &c );
 
      /* Inside. */
      c.a = 0.5;
      gl_renderRect( vx + gui_mesg_w-10., vy + hs/2. + (h-hs)*((double)o/(double)(mesg_max-conf.mesg_visible)), 10, hs, &c );
   }
}
 
static const glColour* gui_getPilotColour( const Pilot* p )
{
   const glColour *col;
 
   if (p->id == player.p->target)
      col = &cRadar_tPilot;
   else
      col = pilot_getColour(p);
 
   return col;
}
 
void gui_renderPilot( const Pilot* p, RadarShape shape, double w, double h, double res, int overlay )
{
   double x, y, scale, ssize;
   const glColour *col;
 
   /* Make sure is in range. */
   if (!pilot_validTarget( player.p, p ))
      return;
 
   /* Get position. */
   if (overlay) {
      x = (p->solid->pos.x / res);
      y = (p->solid->pos.y / res);
   }
   else {
      x = ((p->solid->pos.x - player.p->solid->pos.x) / res);
      y = ((p->solid->pos.y - player.p->solid->pos.y) / res);
   }
   /* Get size. */
   ssize = sqrt( (double)ship_size( p->ship ) );
   scale = (ssize + 1.)/2. * (1. + RADAR_RES_REF / res );
 
   /* Check if pilot in range. */
   if ( ((shape==RADAR_RECT) &&
            ((ABS(x) > (w+scale)/2.) || (ABS(y) > (h+scale)/2.)) ) ||
         ((shape==RADAR_CIRCLE) &&
            ((pow2(x)+pow2(y)) > pow2(w))) ) {
 
      /* Draw little targeted symbol. */
      if (p->id == player.p->target && !overlay)
         gui_renderRadarOutOfRange( shape, w, h, x, y, &cRadar_tPilot );
      return;
   }
 
   /* Transform coordinates into the 0,0 -> SCREEN_W, SCREEN_H range. */
   if (overlay) {
      double ox, oy;
      ovr_center( &ox, &oy );
      x += ox;
      y += oy;
   }
 
   if (p->id == player.p->target)
      col = &cRadar_hilight;
   else
      col = gui_getPilotColour(p);
 
   scale = MAX(scale+2.0, 3.5+ssize); /* Compensate for outline. */
 
   if (pilot_isFlag(p, PILOT_HILIGHT)) {
      glColour highlighted = cRadar_hilight;
      highlighted.a = 0.3;
      glUseProgram( shaders.hilight.program );
      glUniform1f( shaders.hilight.dt, animation_dt );
      gl_renderShader( x, y, scale*2.0, scale*2.0, 0., &shaders.hilight, &highlighted, 1 );
   }
 
   glUseProgram(shaders.pilotmarker.program);
   gl_renderShader( x, y, scale, scale, p->solid->dir, &shaders.pilotmarker, col, 1 );
 
   /* Draw selection if targeted. */
   if (p->id == player.p->target)
      gui_blink( x, y, MAX(scale*2.,10.0), &cRadar_hilight, RADAR_BLINK_PILOT, blink_pilot);
 
   /* Draw name. */
   if (overlay && pilot_isFlag(p, PILOT_HILIGHT))
      gl_printMarkerRaw( &gl_smallFont, x+scale+5., y-gl_smallFont.h/2., col, p->name );
}
 
void gui_renderAsteroid( const Asteroid* a, double w, double h, double res, int overlay )
{
   int i, j, targeted;
   double x, y, r, sx, sy;
   double px, py;
   const glColour *col;
 
   /* Skip invisible asteroids */
   if (a->state != ASTEROID_FG)
      return;
 
   /* Recover the asteroid and field IDs. */
   i = a->id;
   j = a->parent;
 
   /* Make sure is in range. */
   if (!pilot_inRangeAsteroid( player.p, i, j ))
      return;
 
   /* Get position. */
   if (overlay) {
      x = (a->pos.x / res);
      y = (a->pos.y / res);
   }
   else {
      x = ((a->pos.x - player.p->solid->pos.x) / res);
      y = ((a->pos.y - player.p->solid->pos.y) / res);
   }
 
   /* Get size. */
   sx = 1.;
   sy = 1.;
 
   /* Transform coordinates into the 0,0 -> SCREEN_W, SCREEN_H range. */
   if (overlay) {
      double ox, oy;
      ovr_center( &ox, &oy );
      x += ox;
      y += oy;
      w *= 2.;
      h *= 2.;
   }
 
   /* Draw square. */
   px     = MAX(x-sx, -w);
   py     = MAX(y-sy, -h);
 
   targeted = ((i==player.p->nav_asteroid) && (j==player.p->nav_anchor));
 
   /* Colour depends if the asteroid is selected. */
   if (targeted)
      col = &cWhite;
   else
      col = &cGrey70;
 
   //gl_renderRect( px, py, MIN( 2*sx, w-px ), MIN( 2*sy, h-py ), col );
   r = (sx+sy)/2.0+1.5;
   glUseProgram(shaders.asteroidmarker.program);
   gl_renderShader( px, py, r, r, 0., &shaders.asteroidmarker, col, 1 );
 
   if (targeted)
      gui_blink( px, py, MAX(7., 2.0*r), col, RADAR_BLINK_PILOT, blink_pilot );
}
 
void gui_renderPlayer( double res, int overlay )
{
   double x, y, r;
 
   /* Based on gui_renderPilot but with larger fixed size (4x normal ship, but
    * the shader is actually quite smaller so it ends up being just a bit
    * larger than a capital ship.. */
   r = (sqrt(24.) + 1.)/2. * (1. + RADAR_RES_REF / res );
   if (overlay) {
      double ox, oy;
      ovr_center( &ox, &oy );
      x = player.p->solid->pos.x / res + ox;
      y = player.p->solid->pos.y / res + oy;
      r = MAX( 17., r );
   } else {
      x = y = 0.;
      r = MAX( 11., r );
   }
 
   glUseProgram(shaders.playermarker.program);
   gl_renderShader( x, y, r, r, player.p->solid->dir, &shaders.playermarker, &cRadar_player, 1 );
}
 
static const glColour *gui_getSpobColour( int i )
{
   const glColour *col;
   Spob *spob = cur_system->spobs[i];
 
   if (i == player.p->nav_spob)
      col = &cRadar_tSpob;
   else
      col = spob_getColour( spob );
 
   return col;
}
 
void gui_forceBlink (void)
{
   blink_pilot  = 0.;
   blink_spob = 0.;
}
 
static void gui_blink( double cx, double cy, double vr, const glColour *col, double blinkInterval, double blinkVar )
{
   if (blinkVar > blinkInterval/2.)
      return;
   glUseProgram(shaders.blinkmarker.program);
   gl_renderShader( cx, cy, vr, vr, 0., &shaders.blinkmarker, col, 1 );
}
 
static void gui_renderRadarOutOfRange( RadarShape sh, int w, int h, int cx, int cy, const glColour *col )
{
   double a, x, y, x2, y2;
 
   /* Draw a line like for pilots. */
   a = ANGLE(cx,cy);
   if (sh == RADAR_CIRCLE) {
      x = w * cos(a);
      y = w * sin(a);
   }
   else {
      int cxa, cya;
      cxa = ABS(cx);
      cya = ABS(cy);
      /* Determine position. */
      if (cy >= cxa) { /* Bottom */
         x = w/2. * (cx*1./cy);
         y = h/2.;
      } else if (cx >= cya) { /* Left */
         x = w/2.;
         y = h/2. * (cy*1./cx);
      } else if (cya >= cxa) { /* Top */
         x = -w/2. * (cx*1./cy);
         y = -h/2.;
      } else { /* Right */
         x = -w/2.;
         y = -h/2. * (cy*1./cx);
      }
   }
   x2 = x - .15 * w * cos(a);
   y2 = y - .15 * w * sin(a);
 
   gl_renderLine( x, y, x2, y2, col );
}
 
void gui_renderSpob( int ind, RadarShape shape, double w, double h, double res, double alpha, int overlay )
{
   GLfloat cx, cy, x, y, r, vr;
   glColour col;
   Spob *spob;
   const SimpleShader *shd;
   char buf[STRMAX_SHORT];
 
   /* Make sure is known. */
   if (!spob_isKnown( cur_system->spobs[ind] ))
      return;
 
   /* Default values. */
   spob = cur_system->spobs[ind];
   r     = spob->radius / res;
   vr    = overlay ? spob->mo.radius : MAX( r, 7.5 );
 
   if (overlay) {
      cx    = spob->pos.x / res;
      cy    = spob->pos.y / res;
   }
   else {
      cx    = (spob->pos.x - player.p->solid->pos.x) / res;
      cy    = (spob->pos.y - player.p->solid->pos.y) / res;
   }
 
   /* Check if in range. */
   if (shape == RADAR_CIRCLE) {
      x = ABS(cx)-r;
      y = ABS(cy)-r;
      /* Out of range. */
      if (x*x + y*y > pow2(w-2*r)) {
         if ((player.p->nav_spob == ind) && !overlay)
            gui_renderRadarOutOfRange( RADAR_CIRCLE, w, w, cx, cy, &cRadar_tSpob );
         return;
      }
   }
   else {
      if (shape == RADAR_RECT) {
         /* Out of range. */
         if ((ABS(cx) - r > w/2.) || (ABS(cy) - r  > h/2.)) {
            if ((player.p->nav_spob == ind) && !overlay)
               gui_renderRadarOutOfRange( RADAR_RECT, w, h, cx, cy, &cRadar_tSpob );
            return;
         }
      }
   }
 
   if (overlay) {
      double ox, oy;
      ovr_center( &ox, &oy );
      /* Transform coordinates. */
      cx += ox;
      cy += oy;
      w  *= 2.;
      h  *= 2.;
   }
 
   /* Is marked. */
   if (spob_isKnown( spob ) && spob_isFlag( spob, SPOB_MARKED )) {
      glColour highlighted = cRadar_hilight;
      highlighted.a = 0.3;
      glUseProgram( shaders.hilight.program );
      glUniform1f( shaders.hilight.dt, animation_dt );
      gl_renderShader( cx, cy, vr*3.0, vr*3.0, 0., &shaders.hilight, &highlighted, 1 );
   }
 
   /* Get the colour. */
   col = *gui_getSpobColour(ind);
   col.a *= alpha;
 
   /* Do the blink. */
   if (ind == player.p->nav_spob)
      gui_blink( cx, cy, vr*2., &col, RADAR_BLINK_SPOB, blink_spob);
 
   if (spob->marker != NULL)
      shd = spob->marker;
   else if (spob_hasService(spob,SPOB_SERVICE_LAND))
      shd = &shaders.spobmarker_earth;
   else
      shd = &shaders.spobmarker_empty;
 
   glUseProgram(shd->program);
   gl_renderShader( cx, cy, vr, vr, 0., shd, &col, 1 );
 
   if (overlay) {
      snprintf( buf, sizeof(buf), "%s%s", spob_getSymbol(spob), spob_name(spob) );
      gl_printMarkerRaw( &gl_smallFont, cx+spob->mo.text_offx, cy+spob->mo.text_offy, &col, buf );
   }
}
 
void gui_renderJumpPoint( int ind, RadarShape shape, double w, double h, double res, double alpha, int overlay )
{
   GLfloat cx, cy, x, y, r, vr;
   glColour col;
   char buf[STRMAX_SHORT];
   StarSystem *s;
   JumpPoint *jp = &cur_system->jumps[ind];
 
   /* Check if known */
   if (!jp_isUsable(jp))
      return;
 
   /* Default values. */
   r     = jumppoint_gfx->sw/2. / res;
   vr    = overlay ? jp->mo.radius : MAX( r, 5. );
   if (overlay) {
      cx    = jp->pos.x / res;
      cy    = jp->pos.y / res;
   }
   else {
      cx    = (jp->pos.x - player.p->solid->pos.x) / res;
      cy    = (jp->pos.y - player.p->solid->pos.y) / res;
   }
 
   /* Check if in range. */
   if (shape == RADAR_RECT) {
      /* Out of range. */
      if ((ABS(cx) - r > w/2.) || (ABS(cy) - r  > h/2.)) {
         if ((player.p->nav_hyperspace == ind) && !overlay)
            gui_renderRadarOutOfRange( RADAR_RECT, w, h, cx, cy, &cRadar_tSpob );
         return;
      }
   }
   else if (shape == RADAR_CIRCLE) {
      x = ABS(cx)-r;
      y = ABS(cy)-r;
      /* Out of range. */
      if (x*x + y*y > pow2(w-2*r)) {
         if ((player.p->nav_hyperspace == ind) && !overlay)
            gui_renderRadarOutOfRange( RADAR_CIRCLE, w, w, cx, cy, &cRadar_tSpob );
         return;
      }
   }
 
   if (overlay) {
      double ox, oy;
      ovr_center( &ox, &oy );
      /* Transform coordinates. */
      cx += ox;
      cy += oy;
   }
 
   /* See if far side is marked. */
   s = jp->target;
   if (sys_isMarked(s)) {
      glColour highlighted = cRadar_hilight;
      highlighted.a = 0.3;
      glUseProgram( shaders.hilight.program );
      glUniform1f( shaders.hilight.dt, animation_dt );
      gl_renderShader( cx, cy, vr*3.0, vr*3.0, 0., &shaders.hilight, &highlighted, 1 );
   }
 
   if (ind == player.p->nav_hyperspace)
      col = cWhite;
   else if (jp_isFlag(jp, JP_HIDDEN))
      col = cRed;
   else
      col = cGreen;
   col.a *= alpha;
 
   glUseProgram(shaders.jumpmarker.program);
   gl_renderShader( cx, cy, vr*1.5, vr*1.5, M_PI-jp->angle, &shaders.jumpmarker, &col, 1 );
 
   /* Blink ontop. */
   if (ind == player.p->nav_hyperspace)
      gui_blink( cx, cy, vr*3., &col, RADAR_BLINK_SPOB, blink_spob );
 
   /* Render name. */
   if (overlay) {
      snprintf(
            buf, sizeof(buf), "%s%s", jump_getSymbol(jp),
            sys_isKnown(jp->target) ? _(jp->target->name) : _("Unknown") );
      gl_printMarkerRaw( &gl_smallFont, cx+jp->mo.text_offx, cy+jp->mo.text_offy, &col, buf );
   }
}
 
void gui_setViewport( double x, double y, double w, double h )
{
   gui_viewport_x = x;
   gui_viewport_y = y;
   gui_viewport_w = w;
   gui_viewport_h = h;
 
   /* We now set the viewport. */
   gl_setDefViewport( gui_viewport_x, gui_viewport_y, gui_viewport_w, gui_viewport_h );
   gl_defViewport();
 
   /* Run border calculations. */
   gui_calcBorders();
}
 
void gui_clearViewport (void)
{
   gl_setDefViewport( 0., 0., gl_screen.nw, gl_screen.nh );
   gl_defViewport();
}
 
static void gui_calcBorders (void)
{
   double w,h;
 
   /* Precalculations. */
   w  = SCREEN_W/2.;
   h  = SCREEN_H/2.;
 
   /*
    * Borders.
    */
   gui_tl = atan2( +h, -w );
   if (gui_tl < 0.)
      gui_tl += 2*M_PI;
   gui_tr = atan2( +h, +w );
   if (gui_tr < 0.)
      gui_tr += 2*M_PI;
   gui_bl = atan2( -h, -w );
   if (gui_bl < 0.)
      gui_bl += 2*M_PI;
   gui_br = atan2( -h, +w );
   if (gui_br < 0.)
      gui_br += 2*M_PI;
}
 
int gui_init (void)
{
   GLfloat vertex[16];
 
   /*
    * radar
    */
   gui_setRadarResolution( player.radar_res );
 
   /*
    * messages
    */
   gui_mesg_x = 20;
   gui_mesg_y = 30;
   gui_mesg_w = SCREEN_W - 400;
   if (mesg_stack == NULL) {
      mesg_stack = calloc(mesg_max, sizeof(Mesg));
      if (mesg_stack == NULL) {
         ERR(_("Out of Memory"));
         return -1;
      }
   }
 
   /*
    * VBO.
    */
 
   if (gui_radar_select_vbo == NULL) {
      vertex[0] = -1.5;
      vertex[1] = 1.5;
      vertex[2] = -3.3;
      vertex[3] = 3.3;
      vertex[4] = 1.5;
      vertex[5] = 1.5;
      vertex[6] = 3.3;
      vertex[7] = 3.3;
      vertex[8] = 1.5;
      vertex[9] = -1.5;
      vertex[10] = 3.3;
      vertex[11] = -3.3;
      vertex[12] = -1.5;
      vertex[13] = -1.5;
      vertex[14] = -3.3;
      vertex[15] = -3.3;
      gui_radar_select_vbo = gl_vboCreateStatic( sizeof(GLfloat) * 16, vertex );
   }
 
   /*
    * OSD
    */
   osd_setup( 30., SCREEN_H-90., 150., 300. );
 
   /*
    * Set viewport.
    */
   gui_setViewport( 0., 0., gl_screen.w, gl_screen.h );
 
   /*
    * Icons.
    */
   gui_ico_hail = gl_newSprite( GUI_GFX_PATH"hail.webp", 5, 2, 0 );
 
   return 0;
}
 
static int gui_doFunc( int func_ref, const char *func_name )
{
   int ret;
   if (gui_env == LUA_NOREF)
      return -1;
 
   ret = gui_prepFunc( func_ref, func_name );
   if (ret)
      return ret;
   return gui_runFunc( func_name, 0, 0 );
}
 
static int gui_prepFunc( int func_ref, const char *func_name )
{
   (void) func_name;
#if DEBUGGING
   if (gui_env == LUA_NOREF) {
      WARN( _("GUI '%s': Trying to run GUI func '%s' but no GUI is loaded!"), gui_name, func_name );
      return -1;
   }
#endif /* DEBUGGING */
 
   /* Set up function. */
   lua_rawgeti( naevL, LUA_REGISTRYINDEX, func_ref );
#if DEBUGGING
   if (lua_isnil( naevL, -1 )) {
      WARN(_("GUI '%s': no function '%s' defined!"), gui_name, func_name );
      lua_pop(naevL,1);
      return -1;
   }
#endif /* DEBUGGING */
   return 0;
}
 
static int gui_runFunc( const char* func, int nargs, int nret )
{
   /* Run the function. */
   int ret = nlua_pcall( gui_env, nargs, nret );
   if (ret != 0) { /* error has occurred */
      const char *err = (lua_isstring(naevL,-1)) ? lua_tostring(naevL,-1) : NULL;
      WARN(_("GUI '%s' Lua -> '%s': %s"), gui_name,
            func, (err) ? err : _("unknown error"));
      lua_pop(naevL,1);
      return ret;
   }
 
   return ret;
}
 
void gui_reload (void)
{
   if (gui_env == LUA_NOREF)
      return;
 
   gui_load( gui_pick() );
}
 
void gui_setCargo (void)
{
   gui_doFunc( gui_lua_update_cargo, "update_cargo" );
}
 
void gui_setNav (void)
{
   gui_doFunc( gui_lua_update_nav, "update_nav" );
}
 
void gui_setTarget (void)
{
   gui_doFunc( gui_lua_update_target, "update_target" );
}
 
void gui_setShip (void)
{
   gui_doFunc( gui_lua_update_ship, "update_ship" );
}
 
void gui_setSystem (void)
{
   gui_doFunc( gui_lua_update_system, "update_system" );
}
 
void gui_updateFaction (void)
{
   if (player.p != NULL && player.p->nav_spob != -1)
      gui_doFunc( gui_lua_update_faction, "update_faction" );
}
 
void gui_updateEffects (void)
{
   if (player.p != NULL)
      gui_doFunc( gui_lua_update_effects, "update_effects" );
}
 
void gui_setGeneric( const Pilot* pilot )
{
   if (gui_env == LUA_NOREF)
      return;
 
   if (player_isFlag(PLAYER_DESTROYED) || player_isFlag(PLAYER_CREATING) ||
      (player.p == NULL) || pilot_isFlag(player.p,PILOT_DEAD))
      return;
 
   if ((player.p->target != PLAYER_ID) && (pilot->id == player.p->target))
      gui_setTarget();
   else if (pilot_isPlayer(pilot)) {
      gui_setCargo();
      gui_setShip();
   }
}
 
char* gui_pick (void)
{
   char* gui;
 
   /* Don't do set a gui if player is dead. This can be triggered through
    * naev_resize and can cause an issue if player is dead. */
   if ((player.p == NULL) || pilot_isFlag(player.p,PILOT_DEAD))
      gui = NULL;
   else if (player.gui != NULL)
      gui = player.gui;
   else
      gui = player.p->ship->gui;
   return gui;
}
 
int gui_load( const char* name )
{
   char *buf, path[PATH_MAX];
   size_t bufsize;
 
   /* Set defaults. */
   gui_cleanup();
   if (name==NULL)
      return 0;
   gui_name = strdup(name);
 
   /* Open file. */
   snprintf( path, sizeof(path), GUI_PATH"%s.lua", name );
   buf = ndata_read( path, &bufsize );
   if (buf == NULL) {
      WARN(_("Unable to find GUI '%s'."), path );
      return -1;
   }
 
   /* Clean up. */
   nlua_freeEnv(gui_env);
   gui_env = LUA_NOREF;
 
   /* Create Lua state. */
   gui_env = nlua_newEnv();
   if (nlua_dobufenv( gui_env, buf, bufsize, path ) != 0) {
      WARN(_("Failed to load GUI Lua: %s\n"
            "%s\n"
            "Most likely Lua file has improper syntax, please check"),
            path, lua_tostring(naevL,-1));
      nlua_freeEnv( gui_env );
      gui_env = LUA_NOREF;
      free(buf);
      return -1;
   }
   free(buf);
   nlua_loadStandard( gui_env );
   nlua_loadGFX( gui_env );
   nlua_loadGUI( gui_env );
   nlua_loadTk( gui_env );
 
   /* Load references. */
#define LUA_FUNC(funcname) gui_lua_##funcname = nlua_refenvtype( gui_env, #funcname, LUA_TFUNCTION );
   LUA_FUNC( create );
   LUA_FUNC( render );
   LUA_FUNC( render_cooldown );
   LUA_FUNC( cooldown_end );
   LUA_FUNC( mouse_move );
   LUA_FUNC( mouse_click );
   LUA_FUNC( update_cargo );
   LUA_FUNC( update_nav );
   LUA_FUNC( update_target );
   LUA_FUNC( update_ship );
   LUA_FUNC( update_system );
   LUA_FUNC( update_faction );
   LUA_FUNC( update_effects );
#undef LUA_FUNC
 
   /* Run create function. */
   if (gui_doFunc( gui_lua_create, "create" )) {
      nlua_freeEnv( gui_env );
      gui_env = LUA_NOREF;
   }
 
   /* Recreate land window if landed. */
   if (landed) {
      land_genWindows( 0, 1 );
      window_lower( land_wid );
   }
 
   return 0;
}
 
void gui_cleanup (void)
{
   /* Disable mouse voodoo. */
   gui_mouseClickEnable( 0 );
   gui_mouseMoveEnable( 0 );
 
   /* Set the viewport. */
   gui_clearViewport();
 
   /* Set overlay bounds. */
   ovr_boundsSet( 0, 0, 0, 0 );
 
   /* Reset FPS. */
   fps_setPos( 15., (double)(gl_screen.h-15-gl_defFontMono.h) );
 
   /* Destroy offset. */
   gui_xoff = 0.;
   gui_yoff = 0.;
 
   /* Destroy lua. */
   nlua_freeEnv( gui_env );
   gui_env = LUA_NOREF;
 
   /* OMSG */
   omsg_position( SCREEN_W/2., SCREEN_H*2./3., SCREEN_W*2./3. );
 
   /* Delete the name. */
   free(gui_name);
   gui_name = NULL;
 
   /* Clear timers. */
   animation_dt = 0.;
 
   /* Lua stuff. */
#define LUA_CLEANUP( varname ) if (varname!=LUA_NOREF) luaL_unref(naevL, LUA_REGISTRYINDEX, varname ); varname = LUA_NOREF
   LUA_CLEANUP( gui_lua_create );
   LUA_CLEANUP( gui_lua_render );
   LUA_CLEANUP( gui_lua_render_cooldown );
   LUA_CLEANUP( gui_lua_cooldown_end );
   LUA_CLEANUP( gui_lua_mouse_move );
   LUA_CLEANUP( gui_lua_mouse_click );
   LUA_CLEANUP( gui_lua_update_cargo );
   LUA_CLEANUP( gui_lua_update_nav );
   LUA_CLEANUP( gui_lua_update_target );
   LUA_CLEANUP( gui_lua_update_ship );
   LUA_CLEANUP( gui_lua_update_system );
   LUA_CLEANUP( gui_lua_update_faction );
   LUA_CLEANUP( gui_lua_update_effects );
#undef LUA_CLEANUP
}
 
void gui_free (void)
{
   gui_cleanup();
 
   for (int i = 0; i < mesg_max; i++)
      free( mesg_stack[i].str );
   free(mesg_stack);
   mesg_stack = NULL;
 
   gl_vboDestroy( gui_radar_select_vbo );
   gui_radar_select_vbo = NULL;
 
   osd_exit();
 
   gl_freeTexture( gui_ico_hail );
   gui_ico_hail = NULL;
   gl_freeTexture( gui_target_spob );
   gui_target_spob = NULL;
   gl_freeTexture( gui_target_pilot );
   gui_target_pilot = NULL;
 
   omsg_cleanup();
}
 
void gui_setRadarResolution( double res )
{
   gui_radar.res = CLAMP( RADAR_RES_MIN, RADAR_RES_MAX, res );
}
 
void gui_setRadarRel( int mod )
{
   gui_radar.res += mod * RADAR_RES_INTERVAL;
   gui_setRadarResolution( gui_radar.res );
   player_message( _("#oRadar set to %.0fx.#0"), round(gui_radar.res) );
}
 
void gui_getOffset( double *x, double *y )
{
   *x = gui_xoff;
   *y = gui_yoff;
}
 
glTexture* gui_hailIcon (void)
{
   return gui_ico_hail;
}
 
void gui_targetSpobGFX( glTexture *gfx )
{
   gl_freeTexture( gui_target_spob );
   gui_target_spob = gl_dupTexture( gfx );
}
 
void gui_targetPilotGFX( glTexture *gfx )
{
   gl_freeTexture( gui_target_pilot );
   gui_target_pilot = gl_dupTexture( gfx );
}
 
static void gui_eventToScreenPos( int* sx, int* sy, int ex, int ey )
{
   gl_windowToScreenPos( sx, sy, ex, ey );
}
 
int gui_radarClickEvent( SDL_Event* event )
{
   int mxr, myr, in_bounds;
   double x, y, cx, cy;
 
   gui_eventToScreenPos( &mxr, &myr, event->button.x, event->button.y );
   if (gui_radar.shape == RADAR_RECT) {
      cx = gui_radar.x + gui_radar.w / 2.;
      cy = gui_radar.y + gui_radar.h / 2.;
      in_bounds = (2*ABS( mxr-cx ) <= gui_radar.w && 2*ABS( myr-cy ) <= gui_radar.h);
   }
   else {
      cx = gui_radar.x;
      cy = gui_radar.y;
      in_bounds = (pow2( mxr-cx ) + pow2( myr-cy ) <= pow2( gui_radar.w ));
   }
   if (!in_bounds)
      return 0;
   x = (mxr - cx) * gui_radar.res + player.p->solid->pos.x;
   y = (myr - cy) * gui_radar.res + player.p->solid->pos.y;
   return input_clickPos( event, x, y, 1., 10. * gui_radar.res, 15. * gui_radar.res );
}
 
int gui_borderClickEvent( SDL_Event *event )
{
   unsigned int pid;
   double ang, angp, mouseang;
   int mx, my;
   int pntid, jpid, astid, fieid;
   double x, y;
   int autonav = (event->button.button == SDL_BUTTON_RIGHT) ? 1 : 0;
   double px = player.p->solid->pos.x;
   double py = player.p->solid->pos.y;
   gui_eventToScreenPos( &mx, &my, event->button.x, event->button.y );
   mx -= gui_viewport_x;
   my -= gui_viewport_y;
 
   /* No intersection with border. */
   if (!((mx <= 15 || my <= 15 ) || (my >= gl_screen.h-15 || mx >= gl_screen.w-15)))
      return 0;
 
   /* Border targeting is handled as a special case, as it uses angles,
      * not coordinates. */
   x = (mx - (gl_screen.w / 2.)) + px;
   y = (my - (gl_screen.h / 2.)) + py;
   mouseang = atan2(py - y, px -  x);
   angp = pilot_getNearestAng( player.p, &pid, mouseang, 1 );
   ang  = system_getClosestAng( cur_system, &pntid, &jpid, &astid, &fieid, x, y, mouseang );
 
   if  ((ABS(angle_diff(mouseang, angp)) > M_PI / 64) ||
         ABS(angle_diff(mouseang, ang)) < ABS(angle_diff(mouseang, angp)))
      pid = PLAYER_ID; /* Pilot angle is too great, or spob/jump is closer. */
   if  (ABS(angle_diff(mouseang, ang)) > M_PI / 64 )
      jpid = pntid = astid = fieid = -1; /* Spob angle difference is too great. */
 
   if (pid != PLAYER_ID) {
      if (input_clickedPilot(pid, autonav))
         return 1;
   }
   else if (pntid >= 0) { /* Spob is closest. */
      if (input_clickedSpob(pntid, autonav))
         return 1;
   }
   else if (jpid >= 0) { /* Jump point is closest. */
      if (input_clickedJump(jpid, autonav))
         return 1;
   }
   else if (astid >= 0) { /* Asteroid is closest. */
      if (input_clickedAsteroid(fieid, astid))
         return 1;
   }
 
   return 0;
}
 
int gui_handleEvent( SDL_Event *evt )
{
   int ret;
   int x, y;
 
   if (player.p == NULL)
      return 0;
   if ((evt->type == SDL_MOUSEBUTTONDOWN) &&
         (pilot_isFlag(player.p,PILOT_HYP_PREP) ||
         pilot_isFlag(player.p,PILOT_HYP_BEGIN) ||
         pilot_isFlag(player.p,PILOT_HYPERSPACE)))
      return 0;
 
   ret = 0;
   switch (evt->type) {
      /* Mouse motion. */
      case SDL_MOUSEMOTION:
         if (!gui_L_mmove)
            break;
         gui_prepFunc( gui_lua_mouse_move, "mouse_move" );
         gui_eventToScreenPos( &x, &y, evt->motion.x, evt->motion.y );
         lua_pushnumber( naevL, x );
         lua_pushnumber( naevL, y );
         gui_runFunc( "mouse_move", 2, 0 );
         break;
 
      /* Mouse click. */
      case SDL_MOUSEBUTTONDOWN:
      case SDL_MOUSEBUTTONUP:
         if (!gui_L_mclick)
            break;
         gui_prepFunc( gui_lua_mouse_click, "mouse_click" );
         lua_pushnumber( naevL, evt->button.button+1 );
         gui_eventToScreenPos( &x, &y, evt->button.x, evt->button.y );
         lua_pushnumber( naevL, x );
         lua_pushnumber( naevL, y );
         lua_pushboolean( naevL, (evt->type==SDL_MOUSEBUTTONDOWN) );
         gui_runFunc( "mouse_click", 4, 1 );
         ret = lua_toboolean( naevL, -1 );
         lua_pop( naevL, 1 );
         break;
 
      /* Not interested in the rest. */
      default:
         break;
   }
   return ret;
}
 
void gui_mouseClickEnable( int enable )
{
   gui_L_mclick = enable;
}
 
void gui_mouseMoveEnable( int enable )
{
   gui_L_mmove = enable;
}