static char sqla_program_id[292] =
{
 172,0,65,69,65,77,65,73,77,65,105,103,79,83,71,90,48,49,49,49,
 49,32,50,32,32,32,32,32,32,32,32,32,8,0,68,79,78,32,32,32,
 32,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,8,0,69,88,80,48,48,52,66,65,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0
};

#include "sqladef.h"

static struct sqla_runtime_info sqla_rtinfo =
{{'S','Q','L','A','R','T','I','N'}, sizeof(wchar_t), 0, {' ',' ',' ',' '}};


static const short sqlIsLiteral   = SQL_IS_LITERAL;
static const short sqlIsInputHvar = SQL_IS_INPUT_HVAR;


#line 1 "exp004base.sqc"
/* I seem to need this for glGenBuffers as per
   http://www.gamedev.net/community/forums/topic.asp?topic_id=422358 */
#define GL_GLEXT_PROTOTYPES

#include "exp004base.h"
#include "../view/exp004state0.h"
#include "../util/check_error.h"
#include <GL/glut.h>
#include <stdio.h>
#include <string.h>
#include "sqlca.h"
extern struct sqlca sqlca;

/*
 * A simple alias to make the code more readable.
 */
#define S exp004state0

void
exp004base (void)
{
  /*
   * This implementation can be improved by mapping the video memory
   * directly rather than loading into system memory and then copying
   * into video memory.
  */

  /*
   * db2dclgn -d exp004 -t coordinates
   */

/*
EXEC SQL BEGIN DECLARE SECTION;
*/

#line 31 "exp004base.sqc"


/*
EXEC SQL INCLUDE 'model/coordinates.h';
*/

#line 1 "/home/don/projects/Research/Experiments/exp005/src/model/coordinates.h"
struct
{
  sqlint32 coord_id;
  struct
  {
    short length;
    char  data[50];
  } gi;
  double x;
  double y;
} coordinates;


#line 32 "exp004base.sqc"


/*
EXEC SQL END DECLARE SECTION;
*/

#line 33 "exp004base.sqc"



/*
EXEC SQL DECLARE c2 CURSOR FOR
    SELECT * FROM coordinates;
*/

#line 36 "exp004base.sqc"



/*
EXEC SQL OPEN c2;
*/

{
#line 38 "exp004base.sqc"
  sqlastrt(sqla_program_id, &sqla_rtinfo, &sqlca);
#line 38 "exp004base.sqc"
  sqlacall((unsigned short)26,1,0,0,0L);
#line 38 "exp004base.sqc"
  sqlastop(0L);
}

#line 38 "exp004base.sqc"


  /*
   * Initialize the bounding box of the points.
   */
  S.bb.min_x = 0.0;
  S.bb.max_x = 0.0;
  S.bb.min_y = 0.0;
  S.bb.max_y = 0.0;


/*
EXEC SQL FETCH c2 INTO :coordinates;
*/

{
#line 48 "exp004base.sqc"
  sqlastrt(sqla_program_id, &sqla_rtinfo, &sqlca);
#line 48 "exp004base.sqc"
  sqlaaloc(3,4,1,0L);
    {
      struct sqla_setdata_list sql_setdlist[4];
#line 48 "exp004base.sqc"
      sql_setdlist[0].sqltype = 496; sql_setdlist[0].sqllen = 4;
#line 48 "exp004base.sqc"
      sql_setdlist[0].sqldata = (void*)&coordinates.coord_id;
#line 48 "exp004base.sqc"
      sql_setdlist[0].sqlind = 0L;
#line 48 "exp004base.sqc"
      sql_setdlist[1].sqltype = 448; sql_setdlist[1].sqllen = 50;
#line 48 "exp004base.sqc"
      sql_setdlist[1].sqldata = (void*)&coordinates.gi;
#line 48 "exp004base.sqc"
      sql_setdlist[1].sqlind = 0L;
#line 48 "exp004base.sqc"
      sql_setdlist[2].sqltype = 480; sql_setdlist[2].sqllen = 8;
#line 48 "exp004base.sqc"
      sql_setdlist[2].sqldata = (void*)&coordinates.x;
#line 48 "exp004base.sqc"
      sql_setdlist[2].sqlind = 0L;
#line 48 "exp004base.sqc"
      sql_setdlist[3].sqltype = 480; sql_setdlist[3].sqllen = 8;
#line 48 "exp004base.sqc"
      sql_setdlist[3].sqldata = (void*)&coordinates.y;
#line 48 "exp004base.sqc"
      sql_setdlist[3].sqlind = 0L;
#line 48 "exp004base.sqc"
      sqlasetdata(3,0,4,sql_setdlist,0L,0L);
    }
#line 48 "exp004base.sqc"
  sqlacall((unsigned short)25,1,0,3,0L);
#line 48 "exp004base.sqc"
  sqlastop(0L);
}

#line 48 "exp004base.sqc"

  while (sqlca.sqlcode != 100)
    {
      int i = coordinates.coord_id - 1;

      strncpy(S.gi_data[i],
	      coordinates.gi.data,
	      sizeof (S.gi_data[i]));

      S.base_vertices_data[i][0] = coordinates.x;
      S.base_vertices_data[i][1] = coordinates.y;

      if (S.base_vertices_data[i][0] < S.bb.min_x)
	S.bb.min_x = S.base_vertices_data[i][0];
      if (S.base_vertices_data[i][0] > S.bb.max_x)
	S.bb.max_x = S.base_vertices_data[i][0];
      if (S.base_vertices_data[i][1] < S.bb.min_y)
	S.bb.min_y = S.base_vertices_data[i][1];
      if (S.base_vertices_data[i][1] > S.bb.max_y)
	S.bb.max_y = S.base_vertices_data[i][1];

      /*
       * Deselected by default.
       */
      S.selection.set[i] = false;

      S.base_colors_data[i][0] = DEFAULT_COLOR_R;
      S.base_colors_data[i][1] = DEFAULT_COLOR_G;
      S.base_colors_data[i][2] = DEFAULT_COLOR_B;
      S.base_colors_data[i][3] = DEFAULT_COLOR_A;


/*
EXEC SQL FETCH c2 INTO :coordinates;
*/

{
#line 79 "exp004base.sqc"
  sqlastrt(sqla_program_id, &sqla_rtinfo, &sqlca);
#line 79 "exp004base.sqc"
  sqlaaloc(3,4,2,0L);
    {
      struct sqla_setdata_list sql_setdlist[4];
#line 79 "exp004base.sqc"
      sql_setdlist[0].sqltype = 496; sql_setdlist[0].sqllen = 4;
#line 79 "exp004base.sqc"
      sql_setdlist[0].sqldata = (void*)&coordinates.coord_id;
#line 79 "exp004base.sqc"
      sql_setdlist[0].sqlind = 0L;
#line 79 "exp004base.sqc"
      sql_setdlist[1].sqltype = 448; sql_setdlist[1].sqllen = 50;
#line 79 "exp004base.sqc"
      sql_setdlist[1].sqldata = (void*)&coordinates.gi;
#line 79 "exp004base.sqc"
      sql_setdlist[1].sqlind = 0L;
#line 79 "exp004base.sqc"
      sql_setdlist[2].sqltype = 480; sql_setdlist[2].sqllen = 8;
#line 79 "exp004base.sqc"
      sql_setdlist[2].sqldata = (void*)&coordinates.x;
#line 79 "exp004base.sqc"
      sql_setdlist[2].sqlind = 0L;
#line 79 "exp004base.sqc"
      sql_setdlist[3].sqltype = 480; sql_setdlist[3].sqllen = 8;
#line 79 "exp004base.sqc"
      sql_setdlist[3].sqldata = (void*)&coordinates.y;
#line 79 "exp004base.sqc"
      sql_setdlist[3].sqlind = 0L;
#line 79 "exp004base.sqc"
      sqlasetdata(3,0,4,sql_setdlist,0L,0L);
    }
#line 79 "exp004base.sqc"
  sqlacall((unsigned short)25,1,0,3,0L);
#line 79 "exp004base.sqc"
  sqlastop(0L);
}

#line 79 "exp004base.sqc"

    }


/*
EXEC SQL CLOSE c2;
*/

{
#line 82 "exp004base.sqc"
  sqlastrt(sqla_program_id, &sqla_rtinfo, &sqlca);
#line 82 "exp004base.sqc"
  sqlacall((unsigned short)20,1,0,0,0L);
#line 82 "exp004base.sqc"
  sqlastop(0L);
}

#line 82 "exp004base.sqc"



/*
EXEC SQL COMMIT;
*/

{
#line 84 "exp004base.sqc"
  sqlastrt(sqla_program_id, &sqla_rtinfo, &sqlca);
#line 84 "exp004base.sqc"
  sqlacall((unsigned short)21,0,0,0,0L);
#line 84 "exp004base.sqc"
  sqlastop(0L);
}

#line 84 "exp004base.sqc"


  /*
   * Find the largest axis and use it to setup the projection.  This
   * is done to preserve the aspect ratio.  The aspect ratio should be
   * preserved since relative distance is a meaningful indicator in
   * the map.
   */

  // Min of min x or min y.
  if (S.bb.min_x <= S.bb.min_y)
    S.ortho_min = S.bb.min_x;
  else
    S.ortho_min = S.bb.min_y;
  S.ortho_min--;

  // Max of max x or max y.
  if (S.bb.max_x >= S.bb.max_y)
    S.ortho_max = S.bb.max_x;
  else
    S.ortho_max = S.bb.max_y;
  S.ortho_max++;

  // Invert the y coordinate to match up with the LGL Java viewer.
  for (int i = 0; i < ROWS; i++)
    S.base_vertices_data[i][1] =
      S.ortho_max - S.base_vertices_data[i][1];

  // Move the origin (0,0) to the center of the data.
  S.ortho_min = 0.0;
  S.ortho_max = 0.0;

  for (int i = 0; i < ROWS; i++)
    {
      S.base_vertices_data[i][0] =
	S.base_vertices_data[i][0] -
	(0.5 * (S.bb.max_x - S.bb.min_x));

      if (S.ortho_min > S.base_vertices_data[i][0])
	S.ortho_min = S.base_vertices_data[i][0];

      if (S.ortho_max < S.base_vertices_data[i][0])
	S.ortho_max = S.base_vertices_data[i][0];

      S.base_vertices_data[i][1] =
	S.base_vertices_data[i][1] -
	(0.5 * (S.bb.max_y - S.bb.min_y));

      if (S.ortho_min > S.base_vertices_data[i][1])
	S.ortho_min = S.base_vertices_data[i][1];

      if (S.ortho_max < S.base_vertices_data[i][1])
	S.ortho_max = S.base_vertices_data[i][1];
    }

  glGenBuffers (2, S.buffers);

  glBindBuffer (GL_ARRAY_BUFFER, S.buffers[BASE_VERTICES]);
  glVertexPointer (2, GL_FLOAT, 0, 0);
  glBufferData (GL_ARRAY_BUFFER,
		sizeof (S.base_vertices_data), S.base_vertices_data,
		GL_STATIC_DRAW);

  glBindBuffer (GL_ARRAY_BUFFER, S.buffers[BASE_COLORS]);
  glColorPointer (4, GL_FLOAT, 0, 0);
  glBufferData (GL_ARRAY_BUFFER,
		sizeof (S.base_colors_data), S.base_colors_data,
		GL_STATIC_DRAW);

  return;
}