A5 Linux to Windows (Porting Blues!)

A5 Linux to Windows (Porting Blues!)

KeithS

Member #11,950

May 2010

Hello,

I recently put together a small prototype application on A5. The main coding platform was Debian, using CodeBlocks as the IDE. I have had no problems with the Linux code compiling or running (A-5.0.4 w/ g++), and indeed the ported code with a few tweaks runs on Windows 7 64 bit, but gets into some trouble on Win_XP 32 bit.

In short, I compiled the program on my 32 bit / Win_XP platform, using the A-5.0.4 Allegro binaries. When I run the executable on this platform, it functions normally until I click on the "close window" X in the TLH corner. It then gives me that "The program is not functioning.. blah.. blah.. send a report to MicroSoft?... etc" window. I repeat, this only happens on the 32 bit. Even the same 32 bit binary on Win_7_64 apparently works without a hitch.

If anyone can please have a look at the source code contained along with the binary here (the 7z window binary is the one I would like checking, please) and maybe suggest what I might be doing wrong (or if you know of this problem already with A5 on XP). I would be very grateful!

Post Script:

What I originally assumed the problem might be was my (possibly bad) habit in g++ of passing character arrays as char pointers to functions and then using sprintf to populate the array. Like this...

#SelectExpand
  1
  2void txt_output(char *buff)
  3{
  4   sprintf(buff, "Lo and Behold!");
  5}
  6
  7int main()
  8{
  9   char buffer[100];
 10   txt_output(buffer);
 11   
 12   ....
 13}

I put this "right" for MSVC++ 2008 by declaring the buffer globally and using sprintf_s() with strlen(buffer) instead, but it still shows that report window after closing down the program. It is vaguely reminiscent of the occasional GDI leak problem I used to get every now and then by the odd bit of frenetic, careless coding in WINAPI. I would just like to be sure it isn't this.

My thanks in advance for any help!

* * * * * * * * * * *

My Noobish Blog

someone972

Member #7,719

August 2006

I hate to tell you, but you have the syntax for the sprintf_s calls wrong. It is int sprintf_s(char *buffer,size_t sizeOfBuffer,const char *format [,argument] ... );, so you should be putting the buffer length as the second argument, not the last. The second thing wrong with it is that you are trying to find the length of the buffer using strlen, which will find the length until the first null, which could be sooner than the end giving you a smaller buffer, or worse it could cause it to extend past the bounds of the buffer. What you want to do is add another argument to the draw_phase_X functions where you can pass in the buffer size. I'm not certain that's the problem, but with the code included in the 7z it should not have even compiled.

EDIT: Also, globals are bad in most situations, so the way you had it originally would have been better, so long as you add the length argument to the function.

EDIT2: The problem is actually in the last lines. You don't need this part:

    al_shutdown_image_addon();
    al_shutdown_primitives_addon();
    al_shutdown_ttf_addon();
    al_shutdown_font_addon();
  al_uninstall_mouse();
  al_uninstall_system();

Allegro automatically calls all those functions when the program exits, and the al_uninstall_system() call was doing something strange with a ttf font. I found this using a debugger, which gave me a segfault and call stack to work with.

Here is the complete source for GunsimV11.cpp that has the changes, I replaced the sprintf_s calls with snprintf since I'm using Code::Blocks, but it has the same syntax.

#SelectExpand
    1//#define _CRT_SECURE_NO_WARNINGS
    2#define M_PI 3.141593
    3#include "GunSim.h"
    4#include "al5setp.h"
    5#include <fstream>
    6//#include <string>
    7//#include <stdio.h>
    8
    9
   10GunPhysics gun_phys;
   11const int ZF_SIZE = 8;
   12const float SCREEN_1_Y_LOWER_LIMIT = 430.0;
   13const float SCREEN_1_Y_UPPER_LIMIT = 127.0;
   14
   15struct record_position
   16{
  double x_pos;
  double y_pos;
  double velocity;
  double angle;
  double flight_time;
  double mach_no;
  double rho;
  double Cd;
   25};
   26
   27struct button_position
   28{
  float x1;
  float x2;
  float y1;
  float y2;
  int rgb[3];
  string label;
   35};
   36//****************************************************
   37
   38bool set_rho_values()
   39{
  size_t vec_size;
  int i;
  ifstream ref_file("rhos.txt");
   43
  if(ref_file.is_open())
  {
      ref_file >> gun_phys.rho_alt_gradient;
      ref_file >> gun_phys.rho_at_SL;
      ref_file >> vec_size;
      gun_phys.ref_rho_table.resize(vec_size);
      for(i = 0; i < (int)vec_size; i++)
      {
          if(!ref_file.eof())
              ref_file >> gun_phys.ref_rho_table.at(i);
          else
          {
              ref_file.close();
              return false;
          }
      }
  }
  else
      return false;
   63
  ref_file.close();
  return true;
   66}
   67//****************************************************
   68bool set_Mach_Cd_values()
   69{
  //size_t vec_size;
  int i;
  ifstream ref_file("mach_cd.txt");
   73
  if(ref_file.is_open())
  {
      ref_file >> gun_phys.Mach_fall_off;
      ref_file >> gun_phys.ref_Mach_1;
      ref_file >> gun_phys.temp_at_SL;
      ref_file >> gun_phys.temp_lapse;
      ref_file >> gun_phys.gravity_accel;
      ref_file >> gun_phys.cd_table_size;
   82
      gun_phys.ref_Cd_table.resize(gun_phys.cd_table_size);
      gun_phys.ref_Mach_table.resize(gun_phys.cd_table_size);
   85
      for(i = 0; i < (int)gun_phys.cd_table_size; i++)
      {
          if(!ref_file.eof())
          {
              ref_file >> gun_phys.ref_Mach_table.at(i);
              ref_file >> gun_phys.ref_Cd_table.at(i);
          }
          else
          {
              ref_file.close();
              return false;
          }
      }
  }
  else
      return false;
  102
  ref_file.close();
  return true;
  105}
  106
  107//****************************************************
  108
  109void reset_gun_params(/*double gun_ang, double muz_vel*//*, double muz_alt,*/ int &zf_i)
  110{
  zf_i = 0;
  //gun_phys.shell_FP_angle = gun_ang;
  //gun_phys.shell_velocity = muz_vel;
  gun_phys.shell_FP_angle = gun_phys.gun_angle;
  gun_phys.shell_velocity = gun_phys.muzzle_velocity;
  gun_phys.shell_FP_degrees = (gun_phys.shell_FP_angle / M_PI) * 180.0;
  gun_phys.init_muzzle_velocity_components();
  //gun_phys.shell_y_pos = muz_alt;
  gun_phys.shell_y_pos = gun_phys.gun_deck_altitude;
  gun_phys.shell_x_pos = 0;
  gun_phys.flight_time_100_s = 0;
  122
  123}
  124
  125//****************************************************
  126
  127void update_shell_trajectory(double BPS_Tm)
  128{
  gun_phys.rho_at_alt = gun_phys.Rho_Calculator();
  gun_phys.shell_Mach = gun_phys.Mach_Calculator();
  gun_phys.Cd = gun_phys.Cd_Calculator();
  gun_phys.shell_velocity = gun_phys.New_Velocity_Calculator(BPS_Tm);
  gun_phys.update_shell_position(BPS_Tm);
  gun_phys.shell_FP_degrees = (gun_phys.shell_FP_angle / M_PI) * 180;
  gun_phys.flight_time_100_s++;
  136}
  137//****************************************************
  138void shell_position_recording(vector<record_position> *posit, double BPS_Tm)
  139{
  record_position temp_position = {0};
  temp_position.flight_time = (double)gun_phys.flight_time_100_s / BPS_Tm;//BPS;
  temp_position.velocity = gun_phys.shell_velocity;
  temp_position.angle = gun_phys.shell_FP_degrees;
  temp_position.x_pos = gun_phys.shell_x_pos;
  temp_position.y_pos = gun_phys.shell_y_pos;
  temp_position.mach_no = gun_phys.shell_Mach;
  temp_position.Cd = gun_phys.Cd;
  temp_position.rho = gun_phys.rho_at_alt;
  posit->push_back(temp_position);
  150}
  151//****************************************************
  152
  153void init_phase_0_buttons(button_position *buts)
  154// Be careful here. the number of buttons on phase 0 is currently 12
  155// This one might be a case for a dynamic array or a vector, in future.
  156{
  float posit_xy[12][2] = {{15,370}, {15,410}, {15,460}, {15,500},
                          {280,370}, {280,410}, {280,460}, {280,500},
                          {545,370}, {545,410}, {545,460}, {545,500}};
  160
  int RGB[12][3] =        {{0,255,100}, {0,255,100}, {0,255,100}, {0,255,100},
                          {0,255,100}, {0,255,100}, {0,255,100}, {0,255,100},
                          {0,255,100}, {0,255,100}, {170,205,0}, {255,0,0}};
  164
  int i;
  for(i = 0; i < 12; i++)
  {
      buts[i].x1 = posit_xy[i][0];
      buts[i].x2 = posit_xy[i][0] + 30;
      buts[i].y1 = posit_xy[i][1];
      buts[i].y2 = posit_xy[i][1] + 30;
      buts[i].rgb[0] = RGB[i][0];
      buts[i].rgb[1] = RGB[i][1];
      buts[i].rgb[2] = RGB[i][2];
  }
  buts[0].label.assign("Elevate Gun");
  buts[1].label.assign("Depress Gun");
  buts[2].label.assign("Increase Velocity");
  buts[3].label.assign("Decrease Velocity");
  buts[4].label.assign("Increase Mass");
  buts[5].label.assign("Decrease Mass");
  buts[6].label.assign("Increase Bore");
  buts[7].label.assign("Decrease Bore");
  buts[8].label.assign("Raise Turret");
  buts[9].label.assign("Lower Turret");
  buts[10].label.assign("Toggle Units");
  buts[11].label.assign("FIRE!");
  188}
  189
  190//****************************************************
  191
  192void init_phase_2_buttons(button_position *buts)
  193// Be careful here. the number of buttons on phase 0 is currently 3
  194// This one might be a case for a dynamic array or a vector, in future.
  195{
  float posit_xy[3][2] = {{45,500}, {45,540}, {460,540}};
  197
  int RGB[3][3] =        {{0,255,100}, {0,255,100}, {170,205,0}};
  199
  int i;
  for(i = 0; i < 3; i++)
  {
      buts[i].x1 = posit_xy[i][0];
      buts[i].x2 = posit_xy[i][0] + 30;
      buts[i].y1 = posit_xy[i][1];
      buts[i].y2 = posit_xy[i][1] + 30;
      buts[i].rgb[0] = RGB[i][0];
      buts[i].rgb[1] = RGB[i][1];
      buts[i].rgb[2] = RGB[i][2];
  }
  buts[0].label.assign("Next Segment");
  buts[1].label.assign("Previous Segment");
  buts[2].label.assign("End Analysis (Restart)");
  214
  215}
  216
  217//****************************************************
  218
  219int mouse_handler(int x, int y, button_position *buts, int length)
  220{
  int i;
  bool pressed = false;
  for(i = 0; i < length; i++)
  {
      if(x > buts[i].x1 && x < buts[i].x2 && y > buts[i].y1 && y < buts[i].y2)
      {
          pressed = true;
          break;
      }
  }
  231
  if(pressed == true)
      return i;
  else
      return -1;
  236}
  237//****************************************************
  238
  239
  240void phase_0_action_handler(int id, bool go, int &faze, bool &moused, bool &imp_bool/*, double &gun_ang*//*, double & muz_alt*/)
  241{
  switch(id)
  {
      case 0:
          if(go == true) // Only if the timer geow is fed through...
          {
  247
              gun_phys.shell_FP_angle += 0.001745;
              if(gun_phys.shell_FP_angle > gun_phys.elevation_limits[1])
                  gun_phys.shell_FP_angle = gun_phys.elevation_limits[1];
  251
              gun_phys.gun_angle = gun_phys.shell_FP_angle;
              gun_phys.shell_FP_degrees = (gun_phys.shell_FP_angle / M_PI) * 180;
              gun_phys.init_muzzle_velocity_components();
  255
  256
              //gun_ang = gun_phys.shell_FP_angle;
  258
              //gun_phys.shell_y_pos = gun_phys.init_muzzle_position();
              //muz_alt = gun_phys.shell_y_pos;
              // mouse_down = false; a way to stop the repeat function of mouse press
              //button_id = -1;
          }
  264
          break;
  266
      case 1:
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.shell_FP_angle -= 0.001745;
              if(gun_phys.shell_FP_angle < gun_phys.elevation_limits[0])
                  gun_phys.shell_FP_angle = gun_phys.elevation_limits[0];
  273
              gun_phys.gun_angle = gun_phys.shell_FP_angle;
              gun_phys.shell_FP_degrees = (gun_phys.shell_FP_angle / M_PI) * 180;
              gun_phys.init_muzzle_velocity_components();
              //gun_ang = gun_phys.shell_FP_angle;
  278
              //gun_phys.shell_y_pos = gun_phys.init_muzzle_position();
              //muz_alt = gun_phys.shell_y_pos;
          }
          break;
  283
      case 2:
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.shell_velocity += 0.2;
              if(gun_phys.shell_velocity > gun_phys.velocity_limits[1])
                  gun_phys.shell_velocity = gun_phys.velocity_limits[1];
  290
              gun_phys.muzzle_velocity = gun_phys.shell_velocity;
              gun_phys.init_muzzle_velocity_components();
          }
          break;
  295
      case 3:
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.shell_velocity -= 0.2;
              if(gun_phys.shell_velocity < gun_phys.velocity_limits[0])
                  gun_phys.shell_velocity = gun_phys.velocity_limits[0];
  302
              gun_phys.muzzle_velocity = gun_phys.shell_velocity;
              gun_phys.init_muzzle_velocity_components();
          }
          break;
  307
      case 4:
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.shell_mass += 0.5;
              if(gun_phys.shell_mass > gun_phys.mass_limits[1])
                  gun_phys.shell_mass = gun_phys.mass_limits[1];
          }
          break;
  316
      case 5:
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.shell_mass -= 0.5;
              if(gun_phys.shell_mass < gun_phys.mass_limits[0])
                  gun_phys.shell_mass = gun_phys.mass_limits[0];
          }
          break;
  325
      case 6: // increase the shell diameter
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.shell_diameter += 0.1;
              if(gun_phys.shell_diameter > gun_phys.bore_limits[1])
                  gun_phys.shell_diameter = gun_phys.bore_limits[1];
          }
          break;
  334
      case 7: // decrease shell diameter
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.shell_diameter -= 0.1;
              if(gun_phys.shell_diameter < gun_phys.bore_limits[0])
                  gun_phys.shell_diameter = gun_phys.bore_limits[0];
          }
          break;
  343
      case 8: // Raise the turret
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.gun_deck_altitude += 0.1;
              if(gun_phys.gun_deck_altitude > gun_phys.deck_limits[1])
                  gun_phys.gun_deck_altitude = gun_phys.deck_limits[1];
  350
              gun_phys.shell_y_pos = gun_phys.gun_deck_altitude;
          }
          break;
  354
      case 9: // Lower the turret
          if(go == true) // Only if the timer geow is fed through...
          {
              gun_phys.gun_deck_altitude -= 0.1;
              if(gun_phys.gun_deck_altitude < gun_phys.deck_limits[0])
                  gun_phys.gun_deck_altitude = gun_phys.deck_limits[0];
  361
              gun_phys.shell_y_pos = gun_phys.gun_deck_altitude;
          }
          break;
  365
      case 10: // Change between imperial and SI units
          if(go == true) // Only if the timer geow is fed through...
          {
              if(imp_bool == true)
                  imp_bool = false;
              else
                  imp_bool = true;
  373
              moused = false; // a way to stop the repeat function of mouse press
  375
          }
          break;
  378
      case 11: // Fire the gun
          if(go == true) // Only if the timer geow is fed through...
          {
              //gun_phys.shell_y_pos = gun_phys.init_muzzle_position();
              //muz_alt = gun_phys.shell_y_pos;
  384
              faze = 1;
              moused = false;
          }
          break;
  389
      default:
          break;
  }
  393}
  394
  395// ***************************************************
  396
  397void phase_2_action_handler(int id, bool go, int &faze, bool &moused, vector<record_position> &posit, size_t v_sz, size_t &sel_seg/*, double gun_ang, double muz_vel*//*, double muz_alt*/, int &zf_i)
  398{
  switch(id)
  {
      case 0:
          if(go == true) // Only if the timer geow is fed through...
          {
              if(sel_seg < (v_sz - 1))
              {
                  sel_seg++;
              }
              moused = false;
          }
          break;
      case 1:
          if(go == true) // Only if the timer geow is fed through...
          {
              if(sel_seg > 1)
              {
                  sel_seg--;
              }
              moused = false;
          }
          break;
      case 2:
          if(go == true) // Only if the timer geow is fed through...
          {
              posit.resize(0);
              posit.clear();
              reset_gun_params(/*gun_ang,*/ /*muz_vel*//*, muz_alt,*/ zf_i);
              sel_seg = 1;
              faze = 0;
              // RESET THINGS NOW...
              moused = false;
          }
          break;
  433
  434
      default:
          break;
  437
  }
  439}
  440// ***************************************************
  441
  442void draw_phase_0_screen(char *buff, int buffsize, ALLEGRO_FONT *F_font, button_position *buts_p0, ALLEGRO_BITMAP *bmp, bool imp_bool)
  443{
  444
  al_draw_bitmap(bmp, 0, 300, 0);
  int i;
  for(i = 0; i < 12; i++)
  {
      al_draw_rectangle(buts_p0[i].x1, buts_p0[i].y1, buts_p0[i].x2, buts_p0[i].y2,
                        al_map_rgb(buts_p0[i].rgb[0],buts_p0[i].rgb[1],buts_p0[i].rgb[2]), 2);
      al_draw_text(F_font, al_map_rgb(0,255,100), buts_p0[i].x2 + 5, buts_p0[i].y1 + 5, ALLEGRO_ALIGN_LEFT, buts_p0[i].label.c_str());
  }
  al_draw_line(0,300,800,300, al_map_rgb(255,255,255),0);
  454
  al_draw_rectangle(5,5,398,295, al_map_rgb(0,220,175), 0);
  al_draw_rectangle(403,5,795,295, al_map_rgb(0,220,175), 0);
  457
  snprintf(buff, buffsize, "GUN PARAMETERS %s",
          (imp_bool == true ? "(Imperial Units)" : "(SI Units)"));
  al_draw_text(F_font, al_map_rgb(220,240,0), 409, 10, ALLEGRO_ALIGN_LEFT, buff);
  461
  //-------------------------------
  // GUN ELEVATION
  snprintf(buff, buffsize, "Gun Elevation (deg):" );
  al_draw_text(F_font, al_map_rgb(0,255,150), 409, 35, ALLEGRO_ALIGN_LEFT, buff);
  466
  snprintf(buff, buffsize, "%0.1f", gun_phys.shell_FP_degrees );
  al_draw_text(F_font, al_map_rgb(0,255,150), 685, 35, ALLEGRO_ALIGN_LEFT, buff);
  469
  //-------------------------------
  // MUZZLE VELOCITY
  snprintf(buff, buffsize, "Muzzle Velocity %s",
          (imp_bool == true ? "(ft/s):" : "(m/s):") );
  al_draw_text(F_font, al_map_rgb(0,255,150), 409, 53, ALLEGRO_ALIGN_LEFT, buff);
  475
  snprintf(buff, buffsize, "%0.1f",
          (imp_bool == true ? (gun_phys.shell_velocity * 3.281) : gun_phys.shell_velocity) );
  al_draw_text(F_font, al_map_rgb(0,255,150), 685, 53, ALLEGRO_ALIGN_LEFT, buff);
  479
  //-------------------------------
  // SHELL MASS
  snprintf(buff, buffsize, "Shell Mass %s",
          (imp_bool == true ? "(lb):" : "(kg):") );
  484
  al_draw_text(F_font, al_map_rgb(0,255,150), 409, 71, ALLEGRO_ALIGN_LEFT, buff);
  486
snprintf(buff, buffsize, "%0.1f",
          (imp_bool == true ? (gun_phys.shell_mass * 2.2046) : gun_phys.shell_mass) );
  489
  al_draw_text(F_font, al_map_rgb(0,255,150), 685, 71, ALLEGRO_ALIGN_LEFT, buff);
  491
  //-------------------------------
  // GUN BORE
  snprintf(buff, buffsize, "Gun Bore %s",
          (imp_bool == true ? "(in):" : "(cm):") );
  496
  al_draw_text(F_font, al_map_rgb(0,255,150), 409, 89, ALLEGRO_ALIGN_LEFT, buff);
  498
  snprintf(buff, buffsize, "%0.1f",
          (imp_bool == true ? (gun_phys.shell_diameter * 0.3937) : gun_phys.shell_diameter) );
  501
  al_draw_text(F_font, al_map_rgb(0,255,150), 685, 89, ALLEGRO_ALIGN_LEFT, buff);
  503
  //-------------------------------
  // GUN BORE
  snprintf(buff, buffsize, "Turret Height %s",
          (imp_bool == true ? "(ft):" : "(m):") );
  508
  al_draw_text(F_font, al_map_rgb(0,255,150), 409, 107, ALLEGRO_ALIGN_LEFT, buff);
  510
  snprintf(buff, buffsize, "%0.1f",
          (imp_bool == true ? (gun_phys.gun_deck_altitude * 3.281) : gun_phys.gun_deck_altitude) );
  513
  al_draw_text(F_font, al_map_rgb(0,255,150), 685, 107, ALLEGRO_ALIGN_LEFT, buff);
  515
  //-------------------------------
  snprintf(buff, buffsize, "ATMOSPHERIC PARAMETERS" );
  al_draw_text(F_font, al_map_rgb(220,240,0), 409, 143, ALLEGRO_ALIGN_LEFT, buff);
  snprintf(buff, buffsize, "currently not editable" );
  al_draw_text(F_font, al_map_rgb(220,240,0), 409, 161, ALLEGRO_ALIGN_LEFT, buff);
  521
  snprintf(buff, buffsize, "S/L Temperature (C):" );
  al_draw_text(F_font, al_map_rgb(0,255,150), 409, 186, ALLEGRO_ALIGN_LEFT, buff);
  524
  snprintf(buff, buffsize, "%0.1f", gun_phys.temp_at_SL );
  al_draw_text(F_font, al_map_rgb(0,255,150), 685, 186, ALLEGRO_ALIGN_LEFT, buff);
  527
  snprintf(buff, buffsize, "S/L Air Density (kg/m3):" );
  al_draw_text(F_font, al_map_rgb(0,255,150), 409, 204, ALLEGRO_ALIGN_LEFT, buff);
  530
  snprintf(buff, buffsize, "%0.3f", gun_phys.rho_at_SL );
  al_draw_text(F_font, al_map_rgb(0,255,150), 685, 204, ALLEGRO_ALIGN_LEFT, buff);
  533
  //Draw the turret
  float barrel_tip_x = cos(gun_phys.shell_FP_angle) * 80.0;
  float barrel_tip_y = sin(gun_phys.shell_FP_angle) * 80.0;
  float x_offset = 210.0;
  float y_offset = 255.0;
  539
  al_draw_line(x_offset,
               y_offset - (gun_phys.gun_deck_altitude * 5),
               (x_offset + barrel_tip_x),
               (y_offset - barrel_tip_y) - (gun_phys.gun_deck_altitude * 5),
               al_map_rgb(0,255,150), 2);
  545
  al_draw_filled_rectangle(145,
                           235 - (gun_phys.gun_deck_altitude * 5),
                           230,
                           270 - (gun_phys.gun_deck_altitude * 5),
                           al_map_rgb(0,0,0));
  551
  al_draw_rectangle(145,
                    235 - (gun_phys.gun_deck_altitude * 5),
                    230,
                    270 - (gun_phys.gun_deck_altitude * 5),
                    al_map_rgb(0,255,150), 0);
  557
  al_draw_line(5,270,398,270, al_map_rgb(0,255,150),0);
  559
  al_draw_rectangle(155,
                    270 - (gun_phys.gun_deck_altitude * 5),
                    220,
                    270,
                    al_map_rgb(0,255,150), 0);
  565
  566
  567}
  568//****************************************************
  569
  570void draw_phase_1_screen(char *buff, int buffsize, ALLEGRO_FONT *F_font, vector<record_position> *posit, size_t v_sz, ALLEGRO_BITMAP *bmp, bool imp_bool, double zm_f, int &zf_i, bool trace)
  571{
  al_draw_bitmap(bmp, 0, 460, 0);
  //TITLE
  snprintf(buff, buffsize, "SHELL PROGRESS (Recording at 1 second interval)" );
  575
  al_draw_text(F_font, al_map_rgb(220,240,0), 400, 12, ALLEGRO_ALIGN_CENTRE, buff);
  577
  // DISTANCE
  snprintf(buff, buffsize, "Distance %s",
          (imp_bool == true ? "(yd):" : "(m):") );
  581
  al_draw_text(F_font, al_map_rgb(0,255,200), 30, 35, ALLEGRO_ALIGN_LEFT, buff);
  583
  snprintf(buff, buffsize, "%0.0f",
          (imp_bool == true ? (gun_phys.shell_x_pos * 1.093) : gun_phys.shell_x_pos) );
  586
  al_draw_text(F_font, al_map_rgb(0,255,200), 275, 35, ALLEGRO_ALIGN_LEFT, buff);
  588
  // ALTITUDE
  snprintf(buff, buffsize, "Altitude %s",
          (imp_bool == true ? "(yd):" : "(m):") );
  592
  al_draw_text(F_font, al_map_rgb(0,255,200), 30, 53, ALLEGRO_ALIGN_LEFT, buff);
  594
  snprintf(buff, buffsize, "%0.0f",
          (imp_bool == true ? (gun_phys.shell_y_pos * 1.093) : gun_phys.shell_y_pos) );
  597
  al_draw_text(F_font, al_map_rgb(0,255,200), 275, 53, ALLEGRO_ALIGN_LEFT, buff);
  599
  // SHELL ANGLE
  snprintf(buff, buffsize, "Path Angle (deg):" );
  al_draw_text(F_font, al_map_rgb(0,255,200), 30, 71, ALLEGRO_ALIGN_LEFT, buff);
  603
  snprintf(buff, buffsize, "%0.1f", gun_phys.shell_FP_degrees );
  al_draw_text(F_font, al_map_rgb(0,255,200), 275, 71, ALLEGRO_ALIGN_LEFT, buff);
  606
  // TIME
  snprintf(buff, buffsize, "Flight Time (sec):" );
  al_draw_text(F_font, al_map_rgb(0,255,200), 30, 89, ALLEGRO_ALIGN_LEFT, buff);
  610
  snprintf(buff, buffsize, "%0.1f", ((double)gun_phys.flight_time_100_s / 100.0) );
  al_draw_text(F_font, al_map_rgb(0,255,200), 275, 89, ALLEGRO_ALIGN_LEFT, buff);
  613
  // VELOCITY
  snprintf(buff, buffsize, "Velocity %s",
          (imp_bool == true ? "(ft/s):" : "(m/s):") );
  al_draw_text(F_font, al_map_rgb(0,255,200), 430, 35, ALLEGRO_ALIGN_LEFT, buff);
  618
  snprintf(buff, buffsize, "%0.0f",
          imp_bool == true ? (gun_phys.shell_velocity * 3.281) : gun_phys.shell_velocity );
  al_draw_text(F_font, al_map_rgb(0,255,200), 685, 35, ALLEGRO_ALIGN_LEFT, buff);
  622
  // MACH
  snprintf(buff, buffsize, "Mach:" );
  al_draw_text(F_font, al_map_rgb(0,255,200), 430, 53, ALLEGRO_ALIGN_LEFT, buff);
  626
  snprintf(buff, buffsize, "%0.2f", gun_phys.shell_Mach );
  al_draw_text(F_font, al_map_rgb(0,255,200), 685, 53, ALLEGRO_ALIGN_LEFT, buff);
  629
  // Rho
  snprintf(buff, buffsize, "Air Density (kg/m3):" );
  al_draw_text(F_font, al_map_rgb(0,255,200), 430, 71, ALLEGRO_ALIGN_LEFT, buff);
  633
  snprintf(buff, buffsize, "%0.3f", gun_phys.rho_at_alt );
  al_draw_text(F_font, al_map_rgb(0,255,200), 685, 71, ALLEGRO_ALIGN_LEFT, buff);
  636
  // temp_at_SL - (shell_y_pos / temp_lapse)
  638
  // TEMP
  snprintf(buff, buffsize, "Air Temp (C):" );
  al_draw_text(F_font, al_map_rgb(0,255,200), 430, 89, ALLEGRO_ALIGN_LEFT, buff);
  642
  //temporary measure;
  double air_temp = gun_phys.temp_at_SL - (gun_phys.shell_y_pos / gun_phys.temp_lapse);
  if(air_temp < -56.5)
      air_temp = -56.5;
  647
  snprintf(buff, buffsize, "%0.1f", air_temp );
  al_draw_text(F_font, al_map_rgb(0,255,200), 685, 89, ALLEGRO_ALIGN_LEFT, buff);
  650
  // DRAW THE SHELL
  float screen_X_pos = 0.0;
  float screen_Y_pos = 0.0;
  screen_X_pos = float(2 + (gun_phys.shell_x_pos / zm_f));
  screen_Y_pos = float(SCREEN_1_Y_LOWER_LIMIT - (gun_phys.shell_y_pos / zm_f));
  656
  if(screen_X_pos > 0 && screen_X_pos < 800 && screen_Y_pos < (SCREEN_1_Y_LOWER_LIMIT + 1) && screen_Y_pos > SCREEN_1_Y_UPPER_LIMIT)
      al_draw_circle(screen_X_pos, screen_Y_pos, 2, al_map_rgb(0,250,0), 0);
  659
  660
  al_draw_line(0.0, (SCREEN_1_Y_UPPER_LIMIT - 2.0), 800.0, (SCREEN_1_Y_UPPER_LIMIT - 2.0), al_map_rgb(200,200,200), 0);
  al_draw_line(0.0, SCREEN_1_Y_LOWER_LIMIT, 800.0, SCREEN_1_Y_LOWER_LIMIT, al_map_rgb(0,100,200), 0);
  al_draw_line(0.0, (SCREEN_1_Y_LOWER_LIMIT + 30), 800.0, (SCREEN_1_Y_LOWER_LIMIT + 30), al_map_rgb(200,200,200), 0);
  664
  snprintf(buff, buffsize, "Display Width Scale: %0.1f %s",
          (imp_bool == true ? ((zm_f * 800.0) / 1000.0) * 1.093 : (zm_f * 800.0) / 1000.0),
          (imp_bool == true ? "kyd" : "km"));
  al_draw_text(F_font, al_map_rgb(220,240,0), 400, (SCREEN_1_Y_LOWER_LIMIT + 5.0), ALLEGRO_ALIGN_CENTRE, buff);
  669
  // DRAW THE TRACING OF SHELL PATH, IF ENABLED
  671
  672
  if(trace == true && v_sz > 1)
  {
      size_t s;
      float screen_X_pos_0 = 0.0;
      float screen_Y_pos_0 = 0.0;
      float screen_X_pos_1 = 0.0;
      float screen_Y_pos_1 = 0.0;
  680
      for(s = 0; s < v_sz; s++)
      {
          if(s > 0)
          {
              screen_X_pos_0 = float(2 + (posit->at(s-1).x_pos / zm_f));
              screen_Y_pos_0 = float(SCREEN_1_Y_LOWER_LIMIT - (posit->at(s-1).y_pos / zm_f));
              screen_X_pos_1 = float(2 + (posit->at(s).x_pos / zm_f));
              screen_Y_pos_1 = float(SCREEN_1_Y_LOWER_LIMIT - (posit->at(s).y_pos / zm_f));
              // Thanks to Salem on cboard forums.
  690
              if(screen_X_pos_1 > 0 && screen_X_pos_1 < 800 && screen_Y_pos_1 < (SCREEN_1_Y_LOWER_LIMIT + 1) && screen_Y_pos_1 > SCREEN_1_Y_UPPER_LIMIT)
                  al_draw_line(screen_X_pos_0, screen_Y_pos_0, screen_X_pos_1, screen_Y_pos_1, al_map_rgb(80,120,120), 0);
          }
      }
  }
  696
  // RESET the Zoom_Factor if the shell is going off the screen
  if(screen_X_pos > 800 || screen_Y_pos < SCREEN_1_Y_UPPER_LIMIT)
      if(zf_i < (ZF_SIZE - 1))
          zf_i++;
  701}
  702//****************************************************
  703
  704void draw_phase_2_screen(char *buff, int buffsize, ALLEGRO_FONT *F_font, vector<record_position> *posit, size_t v_sz, ALLEGRO_BITMAP *bmp, button_position *buts_p2, bool imp_bool, double zm_f, size_t sel_seg)
  705{
  al_draw_bitmap(bmp, 0, 460, 0);
  int i;
  for(i = 0; i < 3; i++)
  {
      al_draw_rectangle(buts_p2[i].x1, buts_p2[i].y1, buts_p2[i].x2, buts_p2[i].y2,
                        al_map_rgb(buts_p2[i].rgb[0],buts_p2[i].rgb[1],buts_p2[i].rgb[2]), 2);
      al_draw_text(F_font, al_map_rgb(0,255,100), buts_p2[i].x2 + 5, buts_p2[i].y1 + 5, ALLEGRO_ALIGN_LEFT, buts_p2[i].label.c_str());
  }
  714
  al_draw_rectangle(5.0, 5.0, 795.0, 120.0, al_map_rgb(0,220,175), 0);
  al_draw_line(0.0, (SCREEN_1_Y_UPPER_LIMIT - 2.0), 800.0, (SCREEN_1_Y_UPPER_LIMIT - 2.0), al_map_rgb(200,200,200), 0);
  al_draw_line(0.0, SCREEN_1_Y_LOWER_LIMIT, 800.0, SCREEN_1_Y_LOWER_LIMIT, al_map_rgb(0,100,200), 0);
  al_draw_line(0.0, (SCREEN_1_Y_LOWER_LIMIT + 30), 800.0, (SCREEN_1_Y_LOWER_LIMIT + 30), al_map_rgb(200,200,200), 0);
  719
  snprintf(buff, buffsize, "Analysing Segment:" );
  al_draw_text(F_font, al_map_rgb(220,240,0), 15, 10, ALLEGRO_ALIGN_LEFT, buff);
  722
  snprintf(buff, buffsize, "%i", (int)sel_seg );
  al_draw_text(F_font, al_map_rgb(220,240,0), 350, 10, ALLEGRO_ALIGN_LEFT, buff);
  725
  snprintf(buff, buffsize, "Distance horiz to point %s",
          (imp_bool == true ? "(yd):" : "(m):") );
  al_draw_text(F_font, al_map_rgb(0,255,200), 15, 28, ALLEGRO_ALIGN_LEFT, buff);
  729
  snprintf(buff, buffsize, "%0.0f",
          (imp_bool == true ? (posit->at(sel_seg).x_pos * 1.093) : posit->at(sel_seg).x_pos) );
  al_draw_text(F_font, al_map_rgb(0,255,200), 350, 28, ALLEGRO_ALIGN_LEFT, buff);
  733
  snprintf(buff, buffsize, "Segment horiz distance %s",
          (imp_bool == true ? "(yd):" : "(m):") );;
  al_draw_text(F_font, al_map_rgb(0,255,200), 15, 46, ALLEGRO_ALIGN_LEFT, buff);
  737
  snprintf(buff, buffsize, "%0.0f",
          (imp_bool == true ? (posit->at(sel_seg).x_pos - posit->at(sel_seg - 1).x_pos) * 1.093 : (posit->at(sel_seg).x_pos - posit->at(sel_seg - 1).x_pos)) );
  al_draw_text(F_font, al_map_rgb(0,255,200), 350, 46, ALLEGRO_ALIGN_LEFT, buff);
  741
  snprintf(buff, buffsize, "Altitude at point %s",
          (imp_bool == true ? "(yd):" : "(m):") );
  al_draw_text(F_font, al_map_rgb(0,255,200), 15, 64, ALLEGRO_ALIGN_LEFT, buff);
  745
  snprintf(buff, buffsize, "%0.0f",
          (imp_bool == true ? (posit->at(sel_seg).y_pos * 1.093) : posit->at(sel_seg).y_pos) );
  al_draw_text(F_font, al_map_rgb(0,255,200), 350, 64, ALLEGRO_ALIGN_LEFT, buff);
  749
  snprintf(buff, buffsize, "Avg Shell Velocity %s",
          (imp_bool == true ? "(ft/s):" : "(m/s):") );
  al_draw_text(F_font, al_map_rgb(0,255,200), 15, 82, ALLEGRO_ALIGN_LEFT, buff);
  753
  snprintf(buff, buffsize, "%0.0f",
          (imp_bool == true ? ((posit->at(sel_seg).velocity + posit->at(sel_seg - 1).velocity) / 2.0) * 3.281 :
           (posit->at(sel_seg).velocity + posit->at(sel_seg - 1).velocity) / 2.0) );
  al_draw_text(F_font, al_map_rgb(0,255,200), 350, 82, ALLEGRO_ALIGN_LEFT, buff);
  758
  //************************************************
  snprintf(buff, buffsize, "Display Width Scale: %0.1f %s",
          (imp_bool == true ? ((zm_f * 800.0) / 1000.0) * 1.093 : (zm_f * 800.0) / 1000.0),
          (imp_bool == true ? "kyd" : "km") );
  al_draw_text(F_font, al_map_rgb(220,240,0), 400, (SCREEN_1_Y_LOWER_LIMIT + 5.0), ALLEGRO_ALIGN_CENTRE, buff);
  764
  snprintf(buff, buffsize, "ANANLYSE SEGMENTS (1 second intervals)" );
  al_draw_text(F_font, al_map_rgb(220,240,0), 400, (SCREEN_1_Y_LOWER_LIMIT + 37.0), ALLEGRO_ALIGN_CENTRE, buff);
  767
  /*
  struct record_position
  770{
  double x_pos;
  double y_pos;
  double velocity;
  double angle;
  double flight_time;
  double mach_no;
  double rho;
  double Cd;
  779};
  780*/
  size_t s;
  float screen_X_pos_0 = 0.0;
  float screen_Y_pos_0 = 0.0;
  float screen_X_pos_1 = 0.0;
  float screen_Y_pos_1 = 0.0;
  786
  for(s = 0; s < v_sz; s++)
  {
      if(s > 0)
      {
          screen_X_pos_0 = float(2 + (posit->at(s-1).x_pos / zm_f));
          screen_Y_pos_0 = float(SCREEN_1_Y_LOWER_LIMIT - (posit->at(s-1).y_pos / zm_f));
          screen_X_pos_1 = float(2 + (posit->at(s).x_pos / zm_f));
          screen_Y_pos_1 = float(SCREEN_1_Y_LOWER_LIMIT - (posit->at(s).y_pos / zm_f));
              // Thanks to Salem on cboard forums.
  796
          if(screen_X_pos_1 > 0 && screen_X_pos_1 < 800 && screen_Y_pos_1 < (SCREEN_1_Y_LOWER_LIMIT + 1) && screen_Y_pos_1 > SCREEN_1_Y_UPPER_LIMIT)
          {
              if(s == sel_seg)
              {
                  al_draw_line(screen_X_pos_0, screen_Y_pos_0, screen_X_pos_1, screen_Y_pos_1, al_map_rgb(255,0,0), 0);
              }
              else
              {
                  al_draw_line(screen_X_pos_0, screen_Y_pos_0, screen_X_pos_1, screen_Y_pos_1, al_map_rgb(80,120,120), 0);
              }
          }
      }
  }
  810
  811
  812}
  813
  814
  815//****************************************************
  816int main()
  817{
  ALLEGRO_FONT *font = NULL;
  ALLEGRO_EVENT_QUEUE *event_queue = NULL;
  ALLEGRO_TIMER *FPS_timer = NULL;
  ALLEGRO_TIMER *BPS_timer = NULL;
  ALLEGRO_DISPLAY *display = NULL;
  823
  ALLEGRO_BITMAP *bmp_1;
  ALLEGRO_BITMAP *bmp_2;
  826
  827
  bool mouse_down = false;
  int mx = 0;
  int my = 0;
  size_t selected_segment = 1;
  832
  const float BPS = 100;
  const float FPS = 60;
  bool geow = false; // Special variable to feed the timer to mouse press repeat functions
  836
  bool imperial = true;
  //double gun_angle;
  //double muzzle_vel;
  //double muzzle_alt;
  841
  double zoom_factor[ZF_SIZE] = {6.25, 12.5, 25.0, 37.5, 50.0, 62.5, 75.0, 88.125};
  // BE CAREFUL HERE...
  // The elements MUST always be the same number of as the ZF_SIZE global.
  int zf_index = 0;
  // double zoom_factor = 25.0; // vestigial
  double trace_on = true;
  848
  char buffer[100];
  bool loop = true;
  int phase = 0;
  int button_id = -1; // No button pressed...
  // The phase variable is used this way;
  // phase = 0 is the gun configuration screen
  // phase = 1 is the gun fired and shell in the air screen
  // phase = 2 will be the after shot screen to analyze the trajectory (TO DO)
  // phase = 3 will be a shell drag coefficient editing screen (TO DO)
  // phase = 4 will be the atmospheric parameter editing screen (TO DO)
  // Exiting phase 2 or aborting phase 1 will return to phase 0.
  // The gun parameters will be maintained, but the recorded
  // trajectory of phase 1 will be dumped and the record
  // vector cleared and resized back to 0
  863
  vector<record_position> positions;
  //record_position temp_position = {0}; // vestigial
  button_position phase_0_buttons[12]; // Phase 0 button array
  init_phase_0_buttons(phase_0_buttons); // Phase 0 button SET ARRAY function
  button_position phase_2_buttons[3];
  init_phase_2_buttons(phase_2_buttons);
  870
  al5_setup();
  al5_initialize(&font, &display, &event_queue, &FPS_timer, &BPS_timer, FPS, BPS);
  // Thanks to Matthew Leverton at allegro.cc forums.
  874
  if(!(bmp_1 = al_load_bitmap("PE.jpg"))) // Just for a laugh!
  {
      bmp_1 = al_create_bitmap(800, 300);
      al_set_target_bitmap(bmp_1);
      al_clear_to_color(al_map_rgb(35,35,35));
  }
  bmp_2 = al_create_bitmap(800, 140);
  al_set_target_bitmap(bmp_2);
  al_clear_to_color(al_map_rgb(35,35,35));
  884
  // Make sure the correct backbuffer is selected for all future drawing operations.
  al_set_target_bitmap(al_get_backbuffer(display));
  887
  888
  //Set some gun parameters...
  gun_phys.shell_FP_angle = (5.0 / 180.0) * M_PI;
  gun_phys.gun_angle = gun_phys.shell_FP_angle;
  //gun_angle = gun_phys.shell_FP_angle;
  gun_phys.shell_FP_degrees = (gun_phys.shell_FP_angle / M_PI) * 180.0;
  gun_phys.gun_deck_altitude = 9.8;
  gun_phys.length_of_barrel = 12.15;
  gun_phys.shell_diameter = 35.6;
  gun_phys.shell_frontal_area = pow((gun_phys.shell_diameter / 2 / 100), 2) * M_PI;
  gun_phys.shell_mass = 720.0;
  gun_phys.shell_velocity = 757.0;
  gun_phys.muzzle_velocity = gun_phys.shell_velocity;
  //muzzle_vel = gun_phys.shell_velocity;
  //gun_phys.shell_y_pos = gun_phys.init_muzzle_position();
  //muzzle_alt = gun_phys.shell_y_pos;
  gun_phys.shell_y_pos = gun_phys.gun_deck_altitude;
  gun_phys.shell_x_pos = 0;
  gun_phys.flight_time_100_s = 0;
  907
  gun_phys.init_muzzle_velocity_components();
  909
  gun_phys.elevation_limits[0] = -0.174533;
  gun_phys.elevation_limits[1] = 0.907571;
  gun_phys.bore_limits[0] = 7.5;
  gun_phys.bore_limits[1] = 61.0;
  gun_phys.velocity_limits[0] = 400.0;
  gun_phys.velocity_limits[1] = 1500.0;
  gun_phys.mass_limits[0] = 5.0;
  gun_phys.mass_limits[1] = 1550.0;
  gun_phys.deck_limits[0] = 3.0;
  gun_phys.deck_limits[1] = 30.5; // A shore battery, perhaps...
  // Eventually, these parameters could be set from selection of a specific gun type at the beginning
  // of the program, the data being read from a file containing the specifics for that particular gun.
  // At the moment the data corresponds to the Hipper Class German heavy cruiser. (except for the limits)
  //
  924
  // Load txt tables...
  if(false == set_rho_values())
      return -1;
  if(false == set_Mach_Cd_values())
      return -1;
  930
  al5_register(&event_queue, &display, &FPS_timer, &BPS_timer); // Get Allegro up and running.
  932
  //shell_position_recording(&positions, (double) BPS); // put the first position in the alalysis vector
  934
  while (loop) // while MAIN GAME LOOP *** STARTS HERE
  {
      ALLEGRO_EVENT ev;
      al_wait_for_event(event_queue, &ev);
  939
      switch(ev.type) // switch EV.TYPE *** STARTS HERE
      {
          case ALLEGRO_EVENT_TIMER: // Catch a Timer event
              if(ev.timer.source == BPS_timer) // If it is the logic timer...
              {
                  switch(phase) // switch PHASE for ALLEGRO_EVENT_TIMER BPS *** STARTS HERE
                  {
                      case 0:
                          break;
                          // case 0 *** ENDS:
                          // Unlikely there will ever be anything here, no calculations on this screen
  951
                      case 1:
                          if(gun_phys.shell_x_pos == 0)
                          {
                              shell_position_recording(&positions, (double)BPS);
                          }
  957
                          if(gun_phys.shell_y_pos > 0)
                          {
                              update_shell_trajectory((double)BPS);
                              if(gun_phys.flight_time_100_s % 100 == 0) // every second do a record action
                              {
                                  shell_position_recording(&positions, (double)BPS);
                              }
                          }
                          else if(gun_phys.shell_y_pos < 0)
                          {
                              gun_phys.end_clip((double)BPS);
                              shell_position_recording(&positions, (double)BPS);
                              phase = 2;
                          }
  972
  973
                          break;
                          // case 1 *** ENDS
  976
                      default:
                          break;
                          // case 1 *** ENDS:
                  } // switch PHASE for ALLEGRO_EVENT_TIMER BPS *** ENDS
  981
              }
              else if(ev.timer.source == FPS_timer) // For screen updates
              {
                  geow = true; // Feed out the 1/60 Timer.
                  switch(phase) // switch PHASE for ALLEGRO_EVENT_TIMER FPS *** STARTS HERE
                  {
                      case 0:
                          al_clear_to_color(al_map_rgb(0,0,0));
                          draw_phase_0_screen(buffer, 100, font, phase_0_buttons, bmp_1, imperial);
                          al_flip_display();
  992
                          break;
                          // case 0 *** ENDS
  995
                      case 1:
                          al_clear_to_color(al_map_rgb(0,0,0));
  998
                          draw_phase_1_screen(buffer, 100, font, &positions, positions.size(), bmp_2, imperial, zoom_factor[zf_index], zf_index, trace_on);
 1000
                          /*al5_shell_progress_text_output(buffer,
                                                      gun_phys.shell_x_pos,
                                                      gun_phys.shell_y_pos,
                                                      gun_phys.shell_FP_degrees,
                                                      gun_phys.flight_time_100_s,
                                                      &font);
                                                      // vestigial
                                                      */
                          al_flip_display();
 1010
                          break;
                          // case 1 *** ENDS
 1013
                      case 2: // PHASE 2 Shell Flight Analysis
                          al_clear_to_color(al_map_rgb(0,0,0));
                          draw_phase_2_screen(buffer, 100, font, &positions, positions.size(), bmp_2, phase_2_buttons, imperial, zoom_factor[zf_index], selected_segment);
                          al_flip_display();
                          break;
 1019
                      default:
                          break;
                  } // switch PHASE for ALLEGRO_EVENT_TIMER FPS *** ENDS
              }
              break;
              // case ALLEGRO_EVENT_TIMER *** ENDS
 1026
          case ALLEGRO_EVENT_MOUSE_BUTTON_DOWN:
              switch(phase)
              {
                  case 0:
                  mouse_down = true;
                  mx = int(ev.mouse.x);
                  my = int(ev.mouse.y);
                  break;
                  // case PHASE 0 for MB_DOWN *** ENDS
                  case 2:
                  mouse_down = true;
                  mx = int(ev.mouse.x);
                  my = int(ev.mouse.y);
                  break;
              }
              break;
              // case ALLEGRO_EVENT_MOUSE_BUTTON_DOWN *** ENDS
 1044
          case ALLEGRO_EVENT_MOUSE_BUTTON_UP:
              mouse_down = false;
              break;
              // case ALLEGRO_EVENT_MOUSE_BUTTON_UP *** ENDS
 1049
          //case ALLEGRO_EVENT_MOUSE_AXES:
 1051
          //    break;
 1053
          case ALLEGRO_EVENT_DISPLAY_CLOSE:
      if(al_is_event_queue_empty(event_queue))
        loop = false;
              break;
          // case ALLEGRO_EVENT_DISPLAY_CLOSE *** ENDS
 1059
          default:
              break;
      } // switch EV.TYPE *** ENDS
 1063
      //------------------------------
      // Other activites after EVENTS *** STARTS HERE
      if(mouse_down == true)
      {
          switch(phase)
          {
              case 0:
                  button_id = mouse_handler(mx, my, phase_0_buttons, 12); // 12 Buttons, BE CAREFUL!
                  phase_0_action_handler(button_id, geow, phase, mouse_down, imperial/*, gun_angle*//*, muzzle_alt*/);
                  break;
              case 1:
                  break;
 1076
              case 2:
                  button_id = mouse_handler(mx, my, phase_2_buttons, 3);  // 3 buttons phase 2 screen
                  phase_2_action_handler(button_id, geow, phase, mouse_down, positions, positions.size(), selected_segment/*, gun_angle, muzzle_vel*//*, muzzle_alt*/, zf_index);
 1080
                  break;
 1082
              default:
                  break;
          }
      }
      if(geow == true)
          geow = false;
  } // while MAIN GAME LOOP *** ENDS
 1090
 1091
  al_destroy_bitmap(bmp_1);
  al_destroy_bitmap(bmp_2);
  //al5_terminate(&display, &BPS_timer, &FPS_timer, &event_queue);
 1095
al_destroy_display(display);
  al_destroy_timer(BPS_timer);
  al_destroy_timer(FPS_timer);
  al_destroy_event_queue(event_queue);
 1100
 1101
 /* al_shutdown_image_addon();
  al_shutdown_primitives_addon();
  al_shutdown_ttf_addon();
  al_shutdown_font_addon();
al_uninstall_mouse();
al_uninstall_system();*/
 1108
/*
ALLEGRO_FONT *font = NULL;
  ALLEGRO_EVENT_QUEUE *event_queue = NULL;
  ALLEGRO_TIMER *FPS_timer = NULL;
  ALLEGRO_TIMER *BPS_timer = NULL;
  ALLEGRO_DISPLAY *display = NULL;
 1115
  ALLEGRO_BITMAP *bmp_1;
  ALLEGRO_BITMAP *bmp_2;
*/
 1119
  return 0;
 1121}
 1122
 1123// The Console Prototype Pre-Alpha V-1.0
 1124/*int main()
 1125{
  double BPS = 100;
  int BPS_seconds = 0;
  int seconds = 0;
  cout << "Set elevation angle: ";
  cin >> gun_phys.shell_FP_degrees;
  gun_phys.shell_FP_angle = (gun_phys.shell_FP_degrees / 180) * M_PI;
  cout << "In radians that is: " << gun_phys.shell_FP_angle << endl;
  cout << "Suggested data is for Prinz Eugen's 8 inch main guns." << endl;
  cout << "Input muzzle velocity in m/s (eg: 925): ";
  cin >> gun_phys.shell_velocity;
  cout << "Input shell mass in kg (eg: 122): ";
  cin >> gun_phys.shell_mass;
  cout << "Input shell diameter in cm (eg: 20.3): ";
  cin >> gun_phys.shell_diameter;
  gun_phys.shell_frontal_area = pow((gun_phys.shell_diameter / 2 / 100), 2) * M_PI;
  cout << "Input height of gun turret in meters (eg: 9.75): ";
  cin >> gun_phys.gun_deck_altitude;
  cout << endl;
 1144
 1145
  if(false == set_rho_values())
      return -1;
 1148
  if(false == set_Mach_Cd_values())
      return -1;
 1151
  gun_phys.shell_y_pos = gun_phys.init_muzzle_position();
  gun_phys.shell_x_pos = 0;
 1154
  while(gun_phys.shell_y_pos > 0)
  {
      gun_phys.rho_at_alt = gun_phys.Rho_Calculator();
      //cout << "Rho interpolation okay..." << gun_phys.rho_at_alt << endl;
      gun_phys.shell_Mach = gun_phys.Mach_Calculator();
      //cout << "Mach calc okay... " << gun_phys.shell_Mach << endl;
      gun_phys.Cd = gun_phys.Cd_Calculator();
      //cout << "Cd interpolation okay..." << endl;
      gun_phys.shell_velocity = gun_phys.New_Velocity_Calculator(BPS);
      //cout << "Velocity okay..." << endl;
      gun_phys.update_shell_position(BPS);
      //cout << "Shell position okay (X, Y)... " << gun_phys.shell_x_pos << ", " << gun_phys.shell_y_pos << endl;
      gun_phys.shell_FP_degrees = (gun_phys.shell_FP_angle / M_PI) * 180;
 1168
 1169
      BPS_seconds++;
      if(BPS_seconds >= BPS)
      {
          seconds++;
          BPS_seconds = 0;
      }
 1176
 1177
      cout << "Seconds of flight: " << seconds << "." << BPS_seconds << endl;
      cout << "Shell altitude: " << gun_phys.shell_y_pos << " m" << endl;
      cout << "Shell range: " << gun_phys.shell_x_pos << " m" << endl;
      cout << "Shell Mach: " << gun_phys.shell_Mach << endl;
      cout << "Shell true Velocity (m/s): " << gun_phys.shell_velocity << endl;
      cout << "Shell flight path angle: " << gun_phys.shell_FP_degrees << endl;
      cout << "Shell Cd: " << gun_phys.Cd << endl << endl;
 1185
      if(gun_phys.shell_y_pos < 0)
      {
          gun_phys.end_clip();
          cout << "Corrected X position: " << gun_phys.shell_x_pos << endl << endl;
      }
 1191
      usleep(useconds_t(1000000 / BPS));
  }
 1194
  return 0;
 1196}
 1197
 1198// Ah! Things were so easy then!
 1199*/

______________________________________
As long as it remains classified how long it took me to make I'll be deemed a computer game genius. - William Labbett
Theory is when you know something, but it doesn't work. Practice is when something works, but you don't know why. Programmers combine theory and practice: Nothing works and they don't know why. -Unknown
I have recklessly set in motion a chain of events with the potential to so-drastically change the path of my life that I can only find it to be beautifully frightening.

KeithS

Member #11,950

May 2010

Thank you for your help and patience with this, someone972. That was it, indeed.

Turns out I was in such a hurry to get out of Windows and MSVC++ and back to Debian and CodeBlocks that I trusted my memory of more than a year ago and mixed up sprintf_s() with the WINAPI function DrawText(), which can use strlen(). But even then, the syntax was butt-backwards. My fault entirely for not treating the platform with it's due respect and review the msdn docs.

Yes, looking at it now I, too, am surprised that it compiled at all, but I assure you the code you got from that download was the very same code that did compile on MSVC++ 2008. If it hadn't, I would have been forced to recap and probably would not have posted this shamefully embarrassing thread at all... :-/

Again, thank you very much!

* * * * * * * * * * *

My Noobish Blog

someone972

Member #7,719

August 2006

I've made that sort of mistake many times, as have many others, so you aren't alone in that . I like finding bugs in code as well, since it helps me in my own code and is also just fun, so thanks for the post .