summaryrefslogtreecommitdiffstats
Side-by-side diff
Diffstat
-rw-r--r--src/model/exp004base.c359
1 files changed, 0 insertions, 359 deletions
diff --git a/src/model/exp004base.c b/src/model/exp004base.c
deleted file mode 100644
index fb07b2c..0000000
--- a/src/model/exp004base.c
+++ b/dev/null
@@ -1,359 +0,0 @@
-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;
-}

Valid XHTML 1.0 Strict

Copyright © 2009 Don Pellegrino All Rights Reserved.