main/automap.c

   1 /*
   2 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
   3 SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
   4 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
   5 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
   6 IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
   7 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
   8 FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
   9 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
  10 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
  11 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
  12 */
  13
  14 /*
  15  *
  16  * Routines for displaying the auto-map.
  17  *
  18  */
  19
  20 #ifdef HAVE_CONFIG_H
  21 #include <conf.h>
  22 #endif
  23
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <string.h>
  27
  28 #ifdef OGL
  29 #include "ogl_init.h"
  30 #endif
  31 #include "error.h"
  32 #include "3d.h"
  33 #include "inferno.h"
  34 #include "u_mem.h"
  35 #include "mono.h"
  36 #include "key.h"
  37 #include "mouse.h"
  38 #include "timer.h"
  39 #include "joy.h"
  40 #include "iff.h"
  41 #include "gr.h"
  42 #include "vid.h"
  43
  44
  45 #ifdef OGL
  46 #define AUTOMAP_DIRECT_RENDER
  47 #endif
  48
  49 #define EF_USED     1   // This edge is used
  50 #define EF_DEFINING 2   // A structure defining edge that should always draw.
  51 #define EF_FRONTIER 4   // An edge between the known and the unknown.
  52 #define EF_SECRET   8   // An edge that is part of a secret wall.
  53 #define EF_GRATE    16  // A grate... draw it all the time.
  54 #define EF_NO_FADE  32  // An edge that doesn't fade with distance
  55 #define EF_TOO_FAR  64  // An edge that is too far away
  56
  57 void modex_printf(int x,int y,char *s,grs_font *font,int color);
  58
  59 typedef struct Edge_info {
  60         short verts[2];     // 4 bytes
  61         ubyte sides[4];     // 4 bytes
  62         short segnum[4];    // 8 bytes  // This might not need to be stored... If you can access the normals of a side.
  63         ubyte flags;        // 1 bytes  // See the EF_??? defines above.
  64         ubyte color;        // 1 bytes
  65         ubyte num_faces;    // 1 bytes  // 19 bytes...
  66 } Edge_info;
  67
  68 // OLD BUT GOOD -- #define MAX_EDGES_FROM_VERTS(v)   ((v*5)/2)
  69 // THE following was determined by John by loading levels 1-14 and recording
  70 // numbers on 10/26/94.
  71 //#define MAX_EDGES_FROM_VERTS(v)   (((v)*21)/10)
  72 #define MAX_EDGES_FROM_VERTS(v)     ((v)*4)
  73 //#define MAX_EDGES (MAX_EDGES_FROM_VERTS(MAX_VERTICES))
  74
  75 #define MAX_EDGES 6000  // Determined by loading all the levels by John & Mike, Feb 9, 1995
  76
  77 #define K_WALL_NORMAL_COLOR     BM_XRGB(29, 29, 29 )
  78 #define K_WALL_DOOR_COLOR       BM_XRGB(5, 27, 5 )
  79 #define K_WALL_DOOR_BLUE        BM_XRGB(0, 0, 31)
  80 #define K_WALL_DOOR_GOLD        BM_XRGB(31, 31, 0)
  81 #define K_WALL_DOOR_RED         BM_XRGB(31, 0, 0)
  82 #define K_WALL_REVEALED_COLOR   BM_XRGB(0, 0, 25 ) //what you see when you have the full map powerup
  83 #define K_HOSTAGE_COLOR         BM_XRGB(0, 31, 0 )
  84 #define K_FONT_COLOR_20         BM_XRGB(20, 20, 20 )
  85 #define K_GREEN_31              BM_XRGB(0, 31, 0)
  86
  87 int Wall_normal_color;
  88 int Wall_door_color;
  89 int Wall_door_blue;
  90 int Wall_door_gold;
  91 int Wall_door_red;
  92 int Wall_revealed_color;
  93 int Hostage_color;
  94 int Font_color_20;
  95 int Green_31;
  96 int White_63;
  97 int Blue_48;
  98 int Red_48;
  99
 100 void init_automap_colors(void)
 101 {
 102         Wall_normal_color = K_WALL_NORMAL_COLOR;
 103         Wall_door_color = K_WALL_DOOR_COLOR;
 104         Wall_door_blue = K_WALL_DOOR_BLUE;
 105         Wall_door_gold = K_WALL_DOOR_GOLD;
 106         Wall_door_red = K_WALL_DOOR_RED;
 107         Wall_revealed_color = K_WALL_REVEALED_COLOR;
 108         Hostage_color = K_HOSTAGE_COLOR;
 109         Font_color_20 = K_FONT_COLOR_20;
 110         Green_31 = K_GREEN_31;
 111
 112         White_63 = gr_find_closest_color_current(63,63,63);
 113         Blue_48 = gr_find_closest_color_current(0,0,48);
 114         Red_48 = gr_find_closest_color_current(48,0,0);
 115 }
 116
 117 // Segment visited list
 118 ubyte Automap_visited[MAX_SEGMENTS];
 119
 120 // Edge list variables
 121 static int Num_edges=0;
 122 static int Max_edges;           //set each frame
 123 static int Highest_edge_index = -1;
 124 static Edge_info Edges[MAX_EDGES];
 125 static short DrawingListBright[MAX_EDGES];
 126
 127 //static short DrawingListBright[MAX_EDGES];
 128 //static short Edge_used_list[MAX_EDGES];                               //which entries in edge_list have been used
 129
 130 // Map movement defines
 131 #define PITCH_DEFAULT 9000
 132 #define ZOOM_DEFAULT i2f(20*10)
 133 #define ZOOM_MIN_VALUE i2f(20*5)
 134 #define ZOOM_MAX_VALUE i2f(20*100)
 135
 136 #define SLIDE_SPEED                             (350)
 137 #define ZOOM_SPEED_FACTOR               500     //(1500)
 138 #define ROT_SPEED_DIVISOR               (115000)
 139
 140 #ifndef AUTOMAP_DIRECT_RENDER
 141 // Screen anvas variables
 142 static int current_page=0;
 143 static grs_canvas Pages[2];
 144 static grs_canvas DrawingPages[2];
 145
 146 #define Page Pages[0]
 147 #define DrawingPage DrawingPages[0]
 148 #else
 149 static grs_canvas Page;
 150 static grs_canvas DrawingPage;
 151 #endif /* AUTOMAP_DIRECT_RENDER */
 152
 153 // Flags
 154 static int Automap_cheat = 0;           // If set, show everything
 155
 156 // Rendering variables
 157 static fix Automap_zoom = 0x9000;
 158 static vms_vector view_target;
 159 static fix Automap_farthest_dist = (F1_0 * 20 * 50);            // 50 segments away
 160 static vms_matrix       ViewMatrix;
 161 static fix ViewDist=0;
 162
 163 //      Function Prototypes
 164 void adjust_segment_limit(int SegmentLimit);
 165 void draw_all_edges(void);
 166 void automap_build_edge_list(void);
 167
 168 #define MAX_DROP_MULTI          2
 169 #define MAX_DROP_SINGLE 9
 170
 171 vms_vector MarkerPoint[NUM_MARKERS];            //these are only used in multi.c, and I'd get rid of them there, but when I tried to do that once, I caused some horrible bug. -MT
 172 int HighlightMarker=-1;
 173 char MarkerMessage[NUM_MARKERS][MARKER_MESSAGE_LEN];
 174 char MarkerOwner[NUM_MARKERS][CALLSIGN_LEN+1];
 175 float MarkerScale=2.0;
 176 int     MarkerObject[NUM_MARKERS];
 177
 178 extern vms_vector Matrix_scale;         //how the matrix is currently scaled
 179
 180
 181 # define automap_draw_line g3_draw_line
 182
 183
 184 // -------------------------------------------------------------
 185
 186 void DrawMarkerNumber (int num)
 187  {
 188   int i;
 189   g3s_point BasePoint,FromPoint,ToPoint;
 190
 191   float ArrayX[10][20]={ {-.25, 0.0, 0.0, 0.0, -1.0, 1.0},
 192                          {-1.0, 1.0, 1.0, 1.0, -1.0, 1.0, -1.0, -1.0, -1.0, 1.0},
 193                          {-1.0, 1.0, 1.0, 1.0, -1.0, 1.0, 0.0, 1.0},
 194                          {-1.0, -1.0, -1.0, 1.0, 1.0, 1.0},
 195                          {-1.0, 1.0, -1.0, -1.0, -1.0, 1.0, 1.0, 1.0, -1.0, 1.0},
 196                          {-1.0, 1.0, -1.0, -1.0, -1.0, 1.0, 1.0, 1.0, -1.0, 1.0},
 197                          {-1.0, 1.0, 1.0, 1.0},
 198                          {-1.0, 1.0, 1.0, 1.0, -1.0, 1.0, -1.0, -1.0, -1.0, 1.0},
 199                          {-1.0, 1.0, 1.0, 1.0, -1.0, 1.0, -1.0, -1.0}
 200
 201                        };
 202   float ArrayY[10][20]={ {.75, 1.0, 1.0, -1.0, -1.0, -1.0},
 203                          {1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 0.0, -1.0, -1.0, -1.0},
 204                          {1.0, 1.0, 1.0, -1.0, -1.0, -1.0, 0.0, 0.0},
 205                          {1.0, 0.0, 0.0, 0.0, 1.0, -1.0},
 206                          {1.0, 1.0, 1.0, 0.0, 0.0, 0.0, 0.0, -1.0, -1.0, -1.0},
 207                          {1.0, 1.0, 1.0, -1.0, -1.0, -1.0, -1.0, 0.0, 0.0, 0.0},
 208                          {1.0, 1.0, 1.0, -1.0},
 209                          {1.0, 1.0, 1.0, -1.0, -1.0, -1.0, -1.0, 1.0, 0.0, 0.0},
 210                          {1.0, 1.0, 1.0, -1.0, 0.0, 0.0, 0.0, 1.0}
 211                        };
 212   int NumOfPoints[]={6,10,8,6,10,10,4,10,8};
 213
 214   for (i=0;i<NumOfPoints[num];i++)
 215    {
 216     ArrayX[num][i]*=MarkerScale;
 217     ArrayY[num][i]*=MarkerScale;
 218    }
 219
 220   if (num==HighlightMarker)
 221    gr_setcolor (White_63);
 222   else
 223    gr_setcolor (Blue_48);
 224
 225
 226   g3_rotate_point(&BasePoint,&Objects[MarkerObject[(Player_num*2)+num]].pos);
 227
 228   for (i=0;i<NumOfPoints[num];i+=2)
 229    {
 230
 231     FromPoint=BasePoint;
 232     ToPoint=BasePoint;
 233
 234     FromPoint.p3_x+=fixmul ((fl2f (ArrayX[num][i])),Matrix_scale.x);
 235     FromPoint.p3_y+=fixmul ((fl2f (ArrayY[num][i])),Matrix_scale.y);
 236     g3_code_point (&FromPoint);
 237     g3_project_point (&FromPoint);
 238
 239     ToPoint.p3_x+=fixmul ((fl2f (ArrayX[num][i+1])),Matrix_scale.x);
 240     ToPoint.p3_y+=fixmul ((fl2f (ArrayY[num][i+1])),Matrix_scale.y);
 241     g3_code_point (&ToPoint);
 242     g3_project_point (&ToPoint);
 243
 244         automap_draw_line(&FromPoint, &ToPoint);
 245    }
 246  }
 247
 248 void DropMarker (int player_marker_num)
 249 {
 250         int marker_num = (Player_num*2)+player_marker_num;
 251         object *playerp = &Objects[Players[Player_num].objnum];
 252
 253         MarkerPoint[marker_num] = playerp->pos;
 254
 255         if (MarkerObject[marker_num] != -1)
 256                 obj_delete(MarkerObject[marker_num]);
 257
 258         MarkerObject[marker_num] = drop_marker_object(&playerp->pos,playerp->segnum,&playerp->orient,marker_num);
 259
 260 #ifdef NETWORK
 261         if (Game_mode & GM_MULTI)
 262                 multi_send_drop_marker (Player_num,playerp->pos,player_marker_num,MarkerMessage[marker_num]);
 263 #endif
 264
 265 }
 266
 267 extern char guidebot_name[];
 268
 269 void DropBuddyMarker(object *objp)
 270 {
 271         int     marker_num;
 272
 273         //      Find spare marker slot.  "if" code below should be an assert, but what if someone changes NUM_MARKERS or MAX_CROP_SINGLE and it never gets hit?
 274         marker_num = MAX_DROP_SINGLE+1;
 275         if (marker_num > NUM_MARKERS-1)
 276                 marker_num = NUM_MARKERS-1;
 277
 278    sprintf(MarkerMessage[marker_num], "RIP: %s",guidebot_name);
 279
 280         MarkerPoint[marker_num] = objp->pos;
 281
 282         if (MarkerObject[marker_num] != -1 && MarkerObject[marker_num] !=0)
 283                 obj_delete(MarkerObject[marker_num]);
 284
 285         MarkerObject[marker_num] = drop_marker_object(&objp->pos, objp->segnum, &objp->orient, marker_num);
 286
 287 }
 288
 289 #define MARKER_SPHERE_SIZE 0x58000
 290
 291 void DrawMarkers ()
 292  {
 293         int i,maxdrop;
 294         static int cyc=10,cycdir=1;
 295         g3s_point sphere_point;
 296
 297         if (Game_mode & GM_MULTI)
 298         maxdrop=2;
 299         else
 300         maxdrop=9;
 301
 302         for (i=0;i<maxdrop;i++)
 303                 if (MarkerObject[(Player_num*2)+i] != -1) {
 304
 305                         g3_rotate_point(&sphere_point,&Objects[MarkerObject[(Player_num*2)+i]].pos);
 306
 307                         gr_setcolor (gr_find_closest_color_current(cyc,0,0));
 308                         g3_draw_sphere(&sphere_point,MARKER_SPHERE_SIZE);
 309                         gr_setcolor (gr_find_closest_color_current(cyc+10,0,0));
 310                         g3_draw_sphere(&sphere_point,MARKER_SPHERE_SIZE/2);
 311                         gr_setcolor (gr_find_closest_color_current(cyc+20,0,0));
 312                         g3_draw_sphere(&sphere_point,MARKER_SPHERE_SIZE/4);
 313
 314                         DrawMarkerNumber (i);
 315                 }
 316
 317         if (cycdir)
 318                 cyc+=2;
 319         else
 320                 cyc-=2;
 321
 322         if (cyc>43)
 323          {
 324                 cyc=43;
 325                 cycdir=0;
 326          }
 327         else if (cyc<10)
 328          {
 329                 cyc=10;
 330                 cycdir=1;
 331          }
 332
 333  }
 334
 335 void ClearMarkers()
 336  {
 337         int i;
 338
 339         for (i=0;i<NUM_MARKERS;i++) {
 340                 MarkerMessage[i][0]=0;
 341                 MarkerObject[i]=-1;
 342         }
 343  }
 344
 345 void automap_clear_visited()
 346 {
 347         int i;
 348         for (i=0; i<MAX_SEGMENTS; i++ )
 349                 Automap_visited[i] = 0;
 350                           ClearMarkers();
 351 }
 352
 353 grs_canvas *name_canv_left,*name_canv_right;
 354
 355 void draw_player( object * obj )
 356 {
 357         vms_vector arrow_pos, head_pos;
 358         g3s_point sphere_point, arrow_point, head_point;
 359
 360         // Draw Console player -- shaped like a ellipse with an arrow.
 361         g3_rotate_point(&sphere_point,&obj->pos);
 362         g3_draw_sphere(&sphere_point,obj->size);
 363
 364         // Draw shaft of arrow
 365         vm_vec_scale_add( &arrow_pos, &obj->pos, &obj->orient.fvec, obj->size*3 );
 366         g3_rotate_point(&arrow_point,&arrow_pos);
 367         automap_draw_line(&sphere_point, &arrow_point);
 368
 369         // Draw right head of arrow
 370         vm_vec_scale_add( &head_pos, &obj->pos, &obj->orient.fvec, obj->size*2 );
 371         vm_vec_scale_add2( &head_pos, &obj->orient.rvec, obj->size*1 );
 372         g3_rotate_point(&head_point,&head_pos);
 373         automap_draw_line(&arrow_point, &head_point);
 374
 375         // Draw left head of arrow
 376         vm_vec_scale_add( &head_pos, &obj->pos, &obj->orient.fvec, obj->size*2 );
 377         vm_vec_scale_add2( &head_pos, &obj->orient.rvec, obj->size*(-1) );
 378         g3_rotate_point(&head_point,&head_pos);
 379         automap_draw_line(&arrow_point, &head_point);
 380
 381         // Draw player's up vector
 382         vm_vec_scale_add( &arrow_pos, &obj->pos, &obj->orient.uvec, obj->size*2 );
 383         g3_rotate_point(&arrow_point,&arrow_pos);
 384         automap_draw_line(&sphere_point, &arrow_point);
 385 }
 386
 387 int AutomapHires;
 388 void draw_automap()
 389 {
 390         int i;
 391         int color;
 392         object * objp;
 393         vms_vector viewer_position;
 394         g3s_point sphere_point;
 395
 396 #ifndef AUTOMAP_DIRECT_RENDER
 397         if (!AutomapHires) {
 398                 current_page ^= 1;
 399                 gr_set_current_canvas(&DrawingPages[current_page]);
 400         }
 401         else {
 402                 gr_set_current_canvas(&DrawingPage);
 403         }
 404 #endif
 405
 406         gr_clear_canvas(BM_XRGB(0,0,0));
 407
 408         g3_start_frame();
 409         render_start_frame();
 410
 411         vm_vec_scale_add(&viewer_position,&view_target,&ViewMatrix.fvec,-ViewDist );
 412
 413         g3_set_view_matrix(&viewer_position,&ViewMatrix,Automap_zoom);
 414
 415 //      mprintf((0, "grd_curcanv->cv_bitmap.bm_data= %x\n", grd_curcanv->cv_bitmap.bm_data));
 416
 417         draw_all_edges();
 418
 419         // Draw player...
 420 #ifdef NETWORK
 421         if (Game_mode & GM_TEAM)
 422                 color = get_team(Player_num);
 423         else
 424 #endif
 425                 color = Player_num;     // Note link to above if!
 426
 427         gr_setcolor(gr_getcolor(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b));
 428         draw_player(&Objects[Players[Player_num].objnum]);
 429
 430         DrawMarkers();
 431
 432         if (HighlightMarker>-1 && MarkerMessage[HighlightMarker][0]!=0)
 433          {
 434                 char msg[10+MARKER_MESSAGE_LEN+1];
 435
 436                 sprintf(msg,"Marker %d: %s",HighlightMarker+1,MarkerMessage[(Player_num*2)+HighlightMarker]);
 437
 438                 gr_setcolor (Red_48);
 439
 440                 modex_printf(5,20,msg,SMALL_FONT,Font_color_20);
 441          }
 442
 443         // Draw player(s)...
 444 #ifdef NETWORK
 445         if ( (Game_mode & (GM_TEAM | GM_MULTI_COOP)) || (Netgame.game_flags & NETGAME_FLAG_SHOW_MAP) )  {
 446                 for (i=0; i<N_players; i++)             {
 447                         if ( (i != Player_num) && ((Game_mode & GM_MULTI_COOP) || (get_team(Player_num) == get_team(i)) || (Netgame.game_flags & NETGAME_FLAG_SHOW_MAP)) )      {
 448                                 if ( Objects[Players[i].objnum].type == OBJ_PLAYER )    {
 449                                         if (Game_mode & GM_TEAM)
 450                                                 color = get_team(i);
 451                                         else
 452                                                 color = i;
 453                                         gr_setcolor(gr_getcolor(player_rgb[color].r,player_rgb[color].g,player_rgb[color].b));
 454                                         draw_player(&Objects[Players[i].objnum]);
 455                                 }
 456                         }
 457                 }
 458         }
 459 #endif
 460
 461         objp = &Objects[0];
 462         for (i=0;i<=Highest_object_index;i++,objp++) {
 463                 switch( objp->type )    {
 464                 case OBJ_HOSTAGE:
 465                         gr_setcolor(Hostage_color);
 466                         g3_rotate_point(&sphere_point,&objp->pos);
 467                         g3_draw_sphere(&sphere_point,objp->size);
 468                         break;
 469                 case OBJ_POWERUP:
 470                         if ( Automap_visited[objp->segnum] )    {
 471                                 if ( (objp->id==POW_KEY_RED) || (objp->id==POW_KEY_BLUE) || (objp->id==POW_KEY_GOLD) )  {
 472                                         switch (objp->id) {
 473                                         case POW_KEY_RED:               gr_setcolor(gr_getcolor(63, 5, 5));     break;
 474                                         case POW_KEY_BLUE:      gr_setcolor(gr_getcolor(5, 5, 63)); break;
 475                                         case POW_KEY_GOLD:      gr_setcolor(gr_getcolor(63, 63, 10)); break;
 476                                         default:
 477                                                 Error("Illegal key type: %i", objp->id);
 478                                         }
 479                                         g3_rotate_point(&sphere_point,&objp->pos);
 480                                         g3_draw_sphere(&sphere_point,objp->size*4);
 481                                 }
 482                         }
 483                         break;
 484                 }
 485         }
 486
 487         g3_end_frame();
 488
 489         gr_bitmapm(AutomapHires?10:5, AutomapHires?10:5, &name_canv_left->cv_bitmap);
 490         gr_bitmapm(grd_curcanv->cv_bitmap.bm_w-(AutomapHires?10:5)-name_canv_right->cv_bitmap.bm_w,AutomapHires?10:5,&name_canv_right->cv_bitmap);
 491
 492 #ifdef OGL
 493         ogl_swap_buffers();
 494 #else
 495 #ifndef AUTOMAP_DIRECT_RENDER
 496         if (!AutomapHires)
 497                 gr_show_canvas( &Pages[current_page] );
 498         else {
 499                 //gr_bm_ubitblt( Page.cv_bitmap.bm_w, Page.cv_bitmap.bm_h, Page.cv_bitmap.bm_x, Page.cv_bitmap.bm_y, 0, 0, &Page.cv_bitmap, &VR_screen_pages[0].cv_bitmap );
 500                 gr_bm_ubitblt( Page.cv_bitmap.bm_w, Page.cv_bitmap.bm_h, Page.cv_bitmap.bm_x, Page.cv_bitmap.bm_y, 0, 0, &Page.cv_bitmap, &grd_curscreen->sc_canvas.cv_bitmap );
 501         }
 502         vid_update();
 503 #endif
 504 #endif
 505 }
 506
 507 #define LEAVE_TIME 0x4000
 508
 509 #define WINDOW_WIDTH            288
 510
 511
 512 //print to canvas & double height
 513 grs_canvas *print_to_canvas(char *s,grs_font *font, int fc, int bc, int double_flag)
 514 {
 515         int y;
 516         ubyte *data;
 517         int rs;
 518         grs_canvas *temp_canv;
 519         grs_font *save_font;
 520         int w,h,aw;
 521         grs_canvas *save_canv;
 522
 523         save_canv = grd_curcanv;
 524
 525         save_font = grd_curcanv->cv_font;
 526         gr_set_curfont(font);                                   //set the font we're going to use
 527         gr_get_string_size(s,&w,&h,&aw);                //now get the string size
 528         gr_set_curfont(save_font);                              //restore real font
 529
 530         //temp_canv = gr_create_canvas(font->ft_w*strlen(s),font->ft_h*2);
 531         temp_canv = gr_create_canvas(w,font->ft_h*2);
 532
 533         gr_set_current_canvas(temp_canv);
 534         gr_set_curfont(font);
 535         temp_canv->cv_bitmap.bm_flags |= BM_FLAG_TRANSPARENT;
 536         gr_clear_canvas(TRANSPARENCY_COLOR);                                            //trans color
 537         gr_set_fontcolor(fc,bc);
 538         gr_printf(0,0,s);
 539
 540         //now double it, since we're drawing to 400-line modex screen
 541
 542         if (double_flag) {
 543                 data = temp_canv->cv_bitmap.bm_data;
 544                 rs = temp_canv->cv_bitmap.bm_rowsize;
 545
 546                 for (y=temp_canv->cv_bitmap.bm_h/2;y--;) {
 547                         memcpy(data+(rs*y*2),data+(rs*y),temp_canv->cv_bitmap.bm_w);
 548                         memcpy(data+(rs*(y*2+1)),data+(rs*y),temp_canv->cv_bitmap.bm_w);
 549                 }
 550         }
 551
 552         gr_set_current_canvas(save_canv);
 553
 554         return temp_canv;
 555 }
 556
 557 //print to buffer, double heights, and blit bitmap to screen
 558 void modex_printf(int x,int y,char *s,grs_font *font,int color)
 559 {
 560         grs_canvas *temp_canv;
 561
 562         temp_canv = print_to_canvas(s, font, color, -1, !AutomapHires);
 563
 564         gr_bitmapm(x,y,&temp_canv->cv_bitmap);
 565
 566         gr_free_canvas(temp_canv);
 567 }
 568
 569 //name for each group.  maybe move somewhere else
 570 char *system_name[] = {
 571                         "Zeta Aquilae",
 572                         "Quartzon System",
 573                         "Brimspark System",
 574                         "Limefrost Spiral",
 575                         "Baloris Prime",
 576                         "Omega System"};
 577
 578 void create_name_canv()
 579 {
 580         char    name_level_left[128],name_level_right[128];
 581
 582         if (Current_level_num > 0)
 583                 sprintf(name_level_left, "%s %i",TXT_LEVEL, Current_level_num);
 584         else
 585                 sprintf(name_level_left, "Secret Level %i",-Current_level_num);
 586
 587         if (PLAYING_BUILTIN_MISSION && Current_level_num > 0)
 588                 sprintf(name_level_right,"%s %d: ",system_name[(Current_level_num-1)/4],((Current_level_num-1)%4)+1);
 589         else
 590                 strcpy(name_level_right, " ");
 591
 592         strcat(name_level_right, Current_level_name);
 593
 594         gr_set_fontcolor(Green_31,-1);
 595         name_canv_left = print_to_canvas(name_level_left, SMALL_FONT, Green_31, -1, !AutomapHires);
 596         name_canv_right = print_to_canvas(name_level_right,SMALL_FONT, Green_31, -1, !AutomapHires);
 597
 598 }
 599
 600
 601 extern void GameLoop(int, int );
 602 extern int set_segment_depths(int start_seg, ubyte *segbuf);
 603
 604 int Automap_active = 0;
 605
 606 #ifdef RELEASE
 607 #define MAP_BACKGROUND_FILENAME (AutomapHires?"\x01MAPB.PCX":"\x01MAP.PCX")     //load only from hog file
 608 #else
 609 #define MAP_BACKGROUND_FILENAME ((AutomapHires && cfexist("mapb.pcx"))?"MAPB.PCX":"MAP.PCX")
 610 #endif
 611
 612 cvar_t Automap_always_hires = { "AutomapHires", "0", 1 };
 613 extern int MenuHiresAvailable;
 614
 615 uint32_t automap_mode = SM(640,480);
 616 int automap_width = 640;
 617 int automap_height = 480;
 618 int automap_use_game_res=0;
 619 int nice_automap = 0;
 620
 621 #define RESCALE_X(x) ((x) * automap_width / 640)
 622 #define RESCALE_Y(y) ((y) * automap_height / 480)
 623
 624 void do_automap( int key_code ) {
 625         int done=0;
 626         vms_matrix      tempm;
 627         vms_angvec      tangles;
 628         int leave_mode=0;
 629         int first_time=1;
 630         int pcx_error;
 631 #if !defined(AUTOMAP_DIRECT_RENDER) || !defined(NDEBUG)
 632         int i;
 633 #endif
 634         int c, marker_num;
 635         fix entry_time;
 636         int pause_game=1;               // Set to 1 if everything is paused during automap...No pause during net.
 637         fix t1, t2;
 638         control_info saved_control_info;
 639         grs_bitmap Automap_background;
 640         int Max_segments_away = 0;
 641         int SegmentLimit = 1;
 642         ubyte pal[256*3];
 643         char maxdrop;
 644         int must_free_canvas=0;
 645
 646         Automap_active = 1;
 647
 648         init_automap_colors();
 649
 650         if ((Game_mode & GM_MULTI) && (Function_mode == FMODE_GAME) && (!Endlevel_sequence))
 651                 pause_game = 0;
 652
 653         if (pause_game) {
 654                 stop_time();
 655                 digi_pause_digi_sounds();
 656         }
 657
 658         Max_edges = min(MAX_EDGES_FROM_VERTS(Num_vertices),MAX_EDGES);                  //make maybe smaller than max
 659
 660         mprintf( (0, "Num_vertices=%d, Max_edges=%d, (MAX:%d)\n", Num_vertices, Max_edges, MAX_EDGES ));
 661         mprintf( (0, "Allocated %d K for automap edge list\n", (sizeof(Edge_info)+sizeof(short))*Max_edges/1024 ));
 662
 663         if (SM_HIRES2 || (Automap_always_hires.intval && MenuHiresAvailable)) {
 664                 //edit 4/23/99 Matt Mueller - don't switch res unless we need to
 665                 if (grd_curscreen->sc_mode != AUTOMAP_MODE)
 666                         vid_set_mode( AUTOMAP_MODE );
 667                 else
 668                         gr_set_current_canvas(NULL);
 669                 //end edit -MM
 670                 automap_width=grd_curscreen->sc_canvas.cv_bitmap.bm_w;
 671                 automap_height=grd_curscreen->sc_canvas.cv_bitmap.bm_h;
 672                 AutomapHires = 1;
 673         }
 674         else {
 675                 vid_set_mode(SM(320, 400));
 676                 AutomapHires = 0;
 677         }
 678
 679         FontHires = FontHiresAvailable && AutomapHires;
 680
 681         create_name_canv();
 682
 683         gr_palette_clear();
 684
 685         if (!AutomapHires) {
 686 #ifndef MACINTOSH
 687 #ifndef AUTOMAP_DIRECT_RENDER
 688                 gr_init_sub_canvas(&Pages[0],grd_curcanv,0,0,320,400);
 689                 gr_init_sub_canvas(&Pages[1],grd_curcanv,0,401,320,400);
 690                 gr_init_sub_canvas(&DrawingPages[0],&Pages[0],16,69,WINDOW_WIDTH,272);
 691                 gr_init_sub_canvas(&DrawingPages[1],&Pages[1],16,69,WINDOW_WIDTH,272);
 692 #endif
 693
 694                 gr_init_bitmap_data (&Automap_background);
 695                 pcx_error = pcx_read_bitmap(MAP_BACKGROUND_FILENAME, &Automap_background, BM_LINEAR, pal);
 696                 if (pcx_error != PCX_ERROR_NONE)
 697                         Error("File %s - PCX error: %s", MAP_BACKGROUND_FILENAME, pcx_errormsg(pcx_error));
 698                 gr_remap_bitmap_good(&Automap_background, pal, -1, -1);
 699
 700 #ifndef AUTOMAP_DIRECT_RENDER
 701                 for (i=0; i<2; i++)
 702                 {
 703                         gr_set_current_canvas(&Pages[i]);
 704                         gr_bitmap(0, 0, &Automap_background );
 705                         modex_printf(40,  22, TXT_AUTOMAP, HUGE_FONT, Font_color_20);
 706                         modex_printf(30, 353, TXT_TURN_SHIP, SMALL_FONT, Font_color_20);
 707                         modex_printf(30, 369, TXT_SLIDE_UPDOWN, SMALL_FONT, Font_color_20);
 708                         modex_printf(30, 385, TXT_VIEWING_DISTANCE, SMALL_FONT, Font_color_20);
 709                 }
 710                 gr_free_bitmap_data(&Automap_background);
 711                 gr_set_current_canvas(&DrawingPages[current_page]);
 712 #endif /* AUTOMAP_DIRECT_RENDER */
 713 #endif /* MACINTOSH */
 714         }
 715         else {
 716 #ifndef AUTOMAP_DIRECT_RENDER
 717                 if (VR_render_buffer[0].cv_w >= automap_width && VR_render_buffer[0].cv_h >= automap_height)
 718                         gr_init_sub_canvas(&Page,&VR_render_buffer[0],0, 0, automap_width, automap_height);
 719                 else {
 720                         void *raw_data;
 721                         MALLOC(raw_data,ubyte,automap_width*automap_height);
 722                         gr_init_canvas(&Page,raw_data,BM_LINEAR,automap_width,automap_height);
 723                         must_free_canvas = 1;
 724                 }
 725
 726                 gr_init_sub_canvas(&DrawingPage, &Page, RESCALE_X(27), RESCALE_Y(80), RESCALE_X(582), RESCALE_Y(334));
 727
 728                 gr_set_current_canvas(&Page);
 729 #endif
 730
 731
 732                 pcx_error = pcx_read_fullscr(MAP_BACKGROUND_FILENAME, pal);
 733                         if ( pcx_error != PCX_ERROR_NONE )      {
 734                                 //printf("File %s - PCX error: %s",MAP_BACKGROUND_FILENAME,pcx_errormsg(pcx_error));
 735                                 Error("File %s - PCX error: %s",MAP_BACKGROUND_FILENAME,pcx_errormsg(pcx_error));
 736                                 return;
 737                         }
 738
 739                         gr_remap_bitmap_good( &(grd_curcanv->cv_bitmap), pal, -1, -1 );
 740
 741                         gr_set_curfont(HUGE_FONT);
 742                         gr_set_fontcolor(BM_XRGB(20, 20, 20), -1);
 743                         gr_printf(RESCALE_X(80), RESCALE_Y(36), TXT_AUTOMAP, HUGE_FONT);
 744                         gr_set_curfont(SMALL_FONT);
 745                         gr_set_fontcolor(BM_XRGB(20, 20, 20), -1);
 746                         gr_printf(RESCALE_X(60), RESCALE_Y(426), TXT_TURN_SHIP);
 747                         gr_printf(RESCALE_X(60), RESCALE_Y(443), TXT_SLIDE_UPDOWN);
 748                         gr_printf(RESCALE_X(60), RESCALE_Y(460), TXT_VIEWING_DISTANCE);
 749
 750 #ifndef AUTOMAP_DIRECT_RENDER
 751                         gr_set_current_canvas(&DrawingPage);
 752 #endif
 753         }
 754
 755
 756         automap_build_edge_list();
 757
 758         if ( ViewDist==0 )
 759                 ViewDist = ZOOM_DEFAULT;
 760         ViewMatrix = Objects[Players[Player_num].objnum].orient;
 761
 762         tangles.p = PITCH_DEFAULT;
 763         tangles.h  = 0;
 764         tangles.b  = 0;
 765
 766         done = 0;
 767
 768         view_target = Objects[Players[Player_num].objnum].pos;
 769
 770         t1 = entry_time = timer_get_fixed_seconds();
 771         t2 = t1;
 772
 773         //Fill in Automap_visited from Objects[Players[Player_num].objnum].segnum
 774         Max_segments_away = set_segment_depths(Objects[Players[Player_num].objnum].segnum, Automap_visited);
 775         SegmentLimit = Max_segments_away;
 776
 777         adjust_segment_limit(SegmentLimit);
 778
 779 #ifdef OGL
 780         // ZICO - code from above to show frame in OGL correctly. Redundant, but better readable.
 781         gr_init_bitmap_data (&Automap_background);
 782         pcx_error = pcx_read_bitmap(MAP_BACKGROUND_FILENAME, &Automap_background, BM_LINEAR, pal);
 783         if (pcx_error != PCX_ERROR_NONE)
 784                 Error("File %s - PCX error: %s", MAP_BACKGROUND_FILENAME, pcx_errormsg(pcx_error));
 785         gr_remap_bitmap_good(&Automap_background, pal, -1, -1);
 786
 787         if (VR_render_buffer[0].cv_w >= automap_width && VR_render_buffer[0].cv_h >= automap_height)
 788                 gr_init_sub_canvas(&Page,&VR_render_buffer[0],0, 0, automap_width, automap_height);
 789         else {
 790                 void *raw_data;
 791                 MALLOC(raw_data,ubyte,automap_width*automap_height);
 792                 gr_init_canvas(&Page,raw_data,BM_LINEAR,automap_width,automap_height);
 793                 must_free_canvas = 1;
 794         }
 795 #endif
 796
 797         while(!done)    {
 798
 799 #ifdef OGL
 800                 gr_init_sub_canvas(&DrawingPage, &Page, RESCALE_X(27), RESCALE_Y(80), RESCALE_X(582), RESCALE_Y(334));
 801                 gr_set_current_canvas(&Page);
 802                 ogl_ubitmapm_cs(0, 0, -1, -1, &Automap_background, -1, F1_0, 0 );
 803                 gr_set_curfont(HUGE_FONT);
 804                 gr_set_fontcolor(BM_XRGB(20, 20, 20), -1);
 805                 gr_printf(RESCALE_X(80), RESCALE_Y(36), TXT_AUTOMAP);
 806                 gr_set_curfont(SMALL_FONT);
 807                 gr_set_fontcolor(BM_XRGB(20, 20, 20), -1);
 808                 gr_printf(RESCALE_X(60), RESCALE_Y(426), TXT_TURN_SHIP);
 809                 gr_printf(RESCALE_X(60), RESCALE_Y(443), TXT_SLIDE_UPDOWN);
 810                 gr_printf(RESCALE_X(60), RESCALE_Y(460), TXT_VIEWING_DISTANCE);
 811                 gr_set_current_canvas(&DrawingPage);
 812 #endif
 813
 814                 if ( leave_mode == 0 && Controls.state[automap] && (timer_get_fixed_seconds() - entry_time) > LEAVE_TIME)
 815                         leave_mode = 1;
 816
 817                 if ( !Controls.state[automap] && (leave_mode == 1) )
 818                         done=1;
 819
 820                 if (!pause_game)        {
 821                         ushort old_wiggle;
 822                         saved_control_info = Controls;                          // Save controls so we can zero them
 823                         memset(&Controls,0,sizeof(control_info));       // Clear everything...
 824                         old_wiggle = ConsoleObject->mtype.phys_info.flags & PF_WIGGLE;  // Save old wiggle
 825                         ConsoleObject->mtype.phys_info.flags &= ~PF_WIGGLE;             // Turn off wiggle
 826                         #ifdef NETWORK
 827                         if (multi_menu_poll())
 828                                 done = 1;
 829                         #endif
 830 //                      GameLoop( 0, 0 );               // Do game loop with no rendering and no reading controls.
 831                         ConsoleObject->mtype.phys_info.flags |= old_wiggle;     // Restore wiggle
 832                         Controls = saved_control_info;
 833                 }
 834
 835                 controls_read_all();
 836
 837                 if ( Controls.count[automap] ) {
 838                         if (leave_mode==0)
 839                                 done = 1;
 840                         c = 0;
 841                 }
 842
 843                 //see if redbook song needs to be restarted
 844                 songs_check_redbook_repeat();
 845
 846                 while( (c=key_inkey()) )        {
 847                         switch( c ) {
 848                         #ifndef NDEBUG
 849                         case KEY_BACKSP: Int3(); break;
 850                         #endif
 851
 852                         case KEY_PRINT_SCREEN: {
 853                                 if (AutomapHires)
 854                                         gr_set_current_canvas(NULL);
 855 #ifndef AUTOMAP_DIRECT_RENDER
 856                                 else
 857                                         gr_set_current_canvas(&Pages[current_page]);
 858 #endif
 859                                 save_screen_shot(1);
 860                                 break;
 861                         }
 862
 863                         case KEY_ESC:
 864                                 if (leave_mode==0)
 865                                         done = 1;
 866                                  break;
 867
 868                         #ifndef NDEBUG
 869                         case KEY_DEBUGGED+KEY_F:        {
 870                                 for (i=0; i<=Highest_segment_index; i++ )
 871                                         Automap_visited[i] = 1;
 872                                 automap_build_edge_list();
 873                                 Max_segments_away = set_segment_depths(Objects[Players[Player_num].objnum].segnum, Automap_visited);
 874                                 SegmentLimit = Max_segments_away;
 875                                 adjust_segment_limit(SegmentLimit);
 876                                 }
 877                                 break;
 878                         #endif
 879
 880                         case KEY_MINUS:
 881                                 if (SegmentLimit > 1)           {
 882                                         SegmentLimit--;
 883                                         adjust_segment_limit(SegmentLimit);
 884                                 }
 885                                 break;
 886                         case KEY_EQUAL:
 887                                 if (SegmentLimit < Max_segments_away)   {
 888                                         SegmentLimit++;
 889                                         adjust_segment_limit(SegmentLimit);
 890                                 }
 891                                 break;
 892                         case KEY_1:
 893                         case KEY_2:
 894                         case KEY_3:
 895                         case KEY_4:
 896                         case KEY_5:
 897                         case KEY_6:
 898                         case KEY_7:
 899                         case KEY_8:
 900                         case KEY_9:
 901                         case KEY_0:
 902                                 if (Game_mode & GM_MULTI)
 903                                 maxdrop=2;
 904                                 else
 905                                 maxdrop=9;
 906
 907                         #ifndef MACINTOSH
 908                         marker_num = c-KEY_1;
 909                         #else
 910                         switch(c) {             // god this is stupid.....
 911                                 case KEY_1: marker_num = 0; break;
 912                                 case KEY_2: marker_num = 1; break;
 913                                 case KEY_3: marker_num = 2; break;
 914                                 case KEY_4: marker_num = 3; break;
 915                                 case KEY_5: marker_num = 4; break;
 916                                 case KEY_6: marker_num = 5; break;
 917                                 case KEY_7: marker_num = 6; break;
 918                                 case KEY_8: marker_num = 7; break;
 919                                 case KEY_9: marker_num = 8; break;
 920                                 case KEY_0: marker_num = 9; break;
 921                         }
 922                         #endif
 923             if (marker_num<=maxdrop)
 924                                  {
 925                                         if (MarkerObject[marker_num] != -1)
 926                                                 HighlightMarker=marker_num;
 927                                  }
 928                           break;
 929
 930                         case KEY_D+KEY_CTRLED:
 931 #ifndef AUTOMAP_DIRECT_RENDER
 932                                 if (current_page)               //menu will only work on page 0
 933                                         draw_automap(); //..so switch from 1 to 0
 934 #endif
 935
 936                                 if (HighlightMarker > -1 && MarkerObject[HighlightMarker] != -1) {
 937 #ifndef AUTOMAP_DIRECT_RENDER
 938                                         gr_set_current_canvas(&Pages[current_page]);
 939 #endif
 940
 941                                         if (nm_messagebox( NULL, 2, TXT_YES, TXT_NO, "Delete Marker?" ) == 0) {
 942                                                 obj_delete(MarkerObject[HighlightMarker]);
 943                                                 MarkerObject[HighlightMarker]=-1;
 944                                                 MarkerMessage[HighlightMarker][0]=0;
 945                                                 HighlightMarker = -1;
 946                                         }
 947                                 }
 948                                 break;
 949
 950                         #ifndef RELEASE
 951                         case KEY_COMMA:
 952                                 if (MarkerScale>.5)
 953                                         MarkerScale-=.5;
 954                                 break;
 955                         case KEY_PERIOD:
 956                                 if (MarkerScale<30.0)
 957                                         MarkerScale+=.5;
 958                                 break;
 959                         #endif
 960
 961 //added 8/23/99 by Matt Mueller for hot key res/fullscreen changing, and menu access
 962 #if 0
 963                         case KEY_CTRLED+KEY_SHIFTED+KEY_PADDIVIDE:
 964                         case KEY_ALTED+KEY_CTRLED+KEY_PADDIVIDE:
 965                         case KEY_ALTED+KEY_SHIFTED+KEY_PADDIVIDE:
 966                                 d1x_options_menu();
 967                                 break;
 968                         case KEY_CTRLED+KEY_SHIFTED+KEY_PADMULTIPLY:
 969                         case KEY_ALTED+KEY_CTRLED+KEY_PADMULTIPLY:
 970                         case KEY_ALTED+KEY_SHIFTED+KEY_PADMULTIPLY:
 971                                 change_res();
 972                                 break;
 973                         case KEY_CTRLED+KEY_SHIFTED+KEY_PADMINUS:
 974                         case KEY_ALTED+KEY_CTRLED+KEY_PADMINUS:
 975                         case KEY_ALTED+KEY_SHIFTED+KEY_PADMINUS:
 976                                 //lower res
 977                                 //should we just cycle through the list that is displayed in the res change menu?
 978                                 // what if their card/X/etc can't handle that mode? hrm.
 979                                 //well, the quick access to the menu is good enough for now.
 980                                 break;
 981                         case KEY_CTRLED+KEY_SHIFTED+KEY_PADPLUS:
 982                         case KEY_ALTED+KEY_CTRLED+KEY_PADPLUS:
 983                         case KEY_ALTED+KEY_SHIFTED+KEY_PADPLUS:
 984                                 //increase res
 985                                 break;
 986 #endif
 987                         case KEY_COMMAND+KEY_SHIFTED+KEY_F:
 988                         case KEY_ALTED+KEY_ENTER:
 989                         case KEY_ALTED+KEY_PADENTER:
 990                                 game_toggle_fullscreen();
 991                                 break;
 992 //end addition -MM
 993
 994               }
 995                 }
 996
 997                 if ( Controls.count[fire_primary] ) {
 998                         // Reset orientation
 999                         ViewDist = ZOOM_DEFAULT;
1000                         tangles.p = PITCH_DEFAULT;
1001                         tangles.h  = 0;
1002                         tangles.b  = 0;
1003                         view_target = Objects[Players[Player_num].objnum].pos;
1004                 }
1005
1006                 ViewDist -= Controls.forward_thrust_time*ZOOM_SPEED_FACTOR;
1007
1008                 tangles.p += fixdiv( Controls.pitch_time, ROT_SPEED_DIVISOR );
1009                 tangles.h  += fixdiv( Controls.heading_time, ROT_SPEED_DIVISOR );
1010                 tangles.b  += fixdiv( Controls.bank_time, ROT_SPEED_DIVISOR*2 );
1011
1012                 if ( Controls.vertical_thrust_time || Controls.sideways_thrust_time )   {
1013                         vms_angvec      tangles1;
1014                         vms_vector      old_vt;
1015                         old_vt = view_target;
1016                         tangles1 = tangles;
1017                         vm_angles_2_matrix(&tempm,&tangles1);
1018                         vm_matrix_x_matrix(&ViewMatrix,&Objects[Players[Player_num].objnum].orient,&tempm);
1019                         vm_vec_scale_add2( &view_target, &ViewMatrix.uvec, Controls.vertical_thrust_time*SLIDE_SPEED );
1020                         vm_vec_scale_add2( &view_target, &ViewMatrix.rvec, Controls.sideways_thrust_time*SLIDE_SPEED );
1021                         if ( vm_vec_dist_quick( &view_target, &Objects[Players[Player_num].objnum].pos) > i2f(1000) )   {
1022                                 view_target = old_vt;
1023                         }
1024                 }
1025
1026                 vm_angles_2_matrix(&tempm,&tangles);
1027                 vm_matrix_x_matrix(&ViewMatrix,&Objects[Players[Player_num].objnum].orient,&tempm);
1028
1029                 if ( ViewDist < ZOOM_MIN_VALUE ) ViewDist = ZOOM_MIN_VALUE;
1030                 if ( ViewDist > ZOOM_MAX_VALUE ) ViewDist = ZOOM_MAX_VALUE;
1031
1032                 draw_automap();
1033
1034                 if ( first_time )       {
1035                         first_time = 0;
1036                         gr_palette_load( gr_palette );
1037                 }
1038
1039                 t2 = timer_get_fixed_seconds();
1040                 while (t2 - t1 < F1_0 / 100) // ogl is fast enough that the automap can read the input too fast and you start to turn really slow.  So delay a bit (and free up some cpu :)
1041                 {
1042                         if (nice_automap)
1043                                 timer_delay(1);
1044
1045                         t2 = timer_get_fixed_seconds();
1046                 }
1047                 if (pause_game)
1048                         FrameTime=t2-t1;
1049                 t1 = t2;
1050         }
1051
1052         //d_free(Edges);
1053         //d_free(DrawingListBright);
1054
1055         gr_free_canvas(name_canv_left);  name_canv_left=NULL;
1056         gr_free_canvas(name_canv_right);  name_canv_right=NULL;
1057
1058 #ifndef AUTOMAP_DIRECT_RENDER
1059         if (must_free_canvas)
1060                 d_free(Page.cv_bitmap.bm_data);
1061 #endif
1062
1063         mprintf( (0, "Automap memory freed\n" ));
1064
1065         game_flush_inputs();
1066
1067         if (pause_game)
1068         {
1069                 start_time();
1070                 digi_resume_digi_sounds();
1071         }
1072
1073         Automap_active = 0;
1074 }
1075
1076 void adjust_segment_limit(int SegmentLimit)
1077 {
1078         int i,e1;
1079         Edge_info * e;
1080
1081         mprintf(( 0, "Seglimit: %d\n", SegmentLimit ));
1082
1083         for (i=0; i<=Highest_edge_index; i++ )  {
1084                 e = &Edges[i];
1085                 e->flags |= EF_TOO_FAR;
1086                 for (e1=0; e1<e->num_faces; e1++ )      {
1087                         if ( Automap_visited[e->segnum[e1]] <= SegmentLimit )   {
1088                                 e->flags &= (~EF_TOO_FAR);
1089                                 break;
1090                         }
1091                 }
1092         }
1093
1094 }
1095
1096 void draw_all_edges()
1097 {
1098         g3s_codes cc;
1099         int i,j,nbright;
1100         ubyte nfacing,nnfacing;
1101         Edge_info *e;
1102         vms_vector *tv1;
1103         fix distance;
1104         fix min_distance = 0x7fffffff;
1105         g3s_point *p1, *p2;
1106
1107
1108         nbright=0;
1109
1110         for (i=0; i<=Highest_edge_index; i++ )  {
1111                 //e = &Edges[Edge_used_list[i]];
1112                 e = &Edges[i];
1113                 if (!(e->flags & EF_USED)) continue;
1114
1115                 if ( e->flags & EF_TOO_FAR) continue;
1116
1117                 if (e->flags&EF_FRONTIER)       {                                               // A line that is between what we have seen and what we haven't
1118                         if ( (!(e->flags&EF_SECRET))&&(e->color==Wall_normal_color))
1119                                 continue;               // If a line isn't secret and is normal color, then don't draw it
1120                 }
1121
1122                 cc=rotate_list(2,e->verts);
1123                 distance = Segment_points[e->verts[1]].p3_z;
1124
1125                 if (min_distance>distance )
1126                         min_distance = distance;
1127
1128                 if (!cc.and)    {       //all off screen?
1129                         nfacing = nnfacing = 0;
1130                         tv1 = &Vertices[e->verts[0]];
1131                         j = 0;
1132                         while( j<e->num_faces && (nfacing==0 || nnfacing==0) )  {
1133                                 #ifdef COMPACT_SEGS
1134                                 vms_vector temp_v;
1135                                 get_side_normal(&Segments[e->segnum[j]], e->sides[j], 0, &temp_v );
1136                                 if (!g3_check_normal_facing( tv1, &temp_v ) )
1137                                 #else
1138                                 if (!g3_check_normal_facing( tv1, &Segments[e->segnum[j]].sides[e->sides[j]].normals[0] ) )
1139                                 #endif
1140                                         nfacing++;
1141                                 else
1142                                         nnfacing++;
1143                                 j++;
1144                         }
1145
1146                         if ( nfacing && nnfacing )      {
1147                                 // a contour line
1148                                 DrawingListBright[nbright++] = e-Edges;
1149                         } else if ( e->flags&(EF_DEFINING|EF_GRATE) )   {
1150                                 if ( nfacing == 0 )     {
1151                                         if ( e->flags & EF_NO_FADE )
1152                                                 gr_setcolor( e->color );
1153                                         else
1154                                                 gr_setcolor( gr_fade_table[e->color+256*8] );
1155                                         g3_draw_line( &Segment_points[e->verts[0]], &Segment_points[e->verts[1]] );
1156                                 }       else {
1157                                         DrawingListBright[nbright++] = e-Edges;
1158                                 }
1159                         }
1160                 }
1161         }
1162
1163 ///     mprintf( (0, "Min distance=%.2f, ViewDist=%.2f, Delta=%.2f\n", f2fl(min_distance), f2fl(ViewDist), f2fl(min_distance)- f2fl(ViewDist) ));
1164
1165         if ( min_distance < 0 ) min_distance = 0;
1166
1167         // Sort the bright ones using a shell sort
1168         {
1169                 int t;
1170                 int i, j, incr, v1, v2;
1171
1172                 incr = nbright / 2;
1173                 while( incr > 0 )       {
1174                         for (i=incr; i<nbright; i++ )   {
1175                                 j = i - incr;
1176                                 while (j>=0 )   {
1177                                         // compare element j and j+incr
1178                                         v1 = Edges[DrawingListBright[j]].verts[0];
1179                                         v2 = Edges[DrawingListBright[j+incr]].verts[0];
1180
1181                                         if (Segment_points[v1].p3_z < Segment_points[v2].p3_z) {
1182                                                 // If not in correct order, them swap 'em
1183                                                 t=DrawingListBright[j+incr];
1184                                                 DrawingListBright[j+incr]=DrawingListBright[j];
1185                                                 DrawingListBright[j]=t;
1186                                                 j -= incr;
1187                                         }
1188                                         else
1189                                                 break;
1190                                 }
1191                         }
1192                         incr = incr / 2;
1193                 }
1194         }
1195
1196         // Draw the bright ones
1197         for (i=0; i<nbright; i++ )      {
1198                 int color;
1199                 fix dist;
1200                 e = &Edges[DrawingListBright[i]];
1201                 p1 = &Segment_points[e->verts[0]];
1202                 p2 = &Segment_points[e->verts[1]];
1203                 dist = p1->p3_z - min_distance;
1204                 // Make distance be 1.0 to 0.0, where 0.0 is 10 segments away;
1205                 if ( dist < 0 ) dist=0;
1206                 if ( dist >= Automap_farthest_dist ) continue;
1207
1208                 if ( e->flags & EF_NO_FADE )    {
1209                         gr_setcolor( e->color );
1210                 } else {
1211                         dist = F1_0 - fixdiv( dist, Automap_farthest_dist );
1212                         color = f2i( dist*31 );
1213                         gr_setcolor( gr_fade_table[e->color+color*256] );
1214                 }
1215                 g3_draw_line( p1, p2 );
1216         }
1217
1218 }
1219
1220
1221 //==================================================================
1222 //
1223 // All routines below here are used to build the Edge list
1224 //
1225 //==================================================================
1226
1227
1228 //finds edge, filling in edge_ptr. if found old edge, returns index, else return -1
1229 static int automap_find_edge(int v0,int v1,Edge_info **edge_ptr)
1230 {
1231         long vv, evv;
1232         short hash,oldhash;
1233         int ret, ev0, ev1;
1234
1235         vv = (v1<<16) + v0;
1236
1237         oldhash = hash = ((v0*5+v1) % Max_edges);
1238
1239         ret = -1;
1240
1241         while (ret==-1) {
1242                 ev0 = (int)(Edges[hash].verts[0]);
1243                 ev1 = (int)(Edges[hash].verts[1]);
1244                 evv = (ev1<<16)+ev0;
1245                 if (Edges[hash].num_faces == 0 ) ret=0;
1246                 else if (evv == vv) ret=1;
1247                 else {
1248                         if (++hash==Max_edges) hash=0;
1249                         if (hash==oldhash) Error("Edge list full!");
1250                 }
1251         }
1252
1253         *edge_ptr = &Edges[hash];
1254
1255         if (ret == 0)
1256                 return -1;
1257         else
1258                 return hash;
1259
1260 }
1261
1262
1263 void add_one_edge( short va, short vb, ubyte color, ubyte side, short segnum, int hidden, int grate, int no_fade )      {
1264         int found;
1265         Edge_info *e;
1266         short tmp;
1267
1268         if ( Num_edges >= Max_edges)    {
1269                 // GET JOHN! (And tell him that his
1270                 // MAX_EDGES_FROM_VERTS formula is hosed.)
1271                 // If he's not around, save the mine,
1272                 // and send him  mail so he can look
1273                 // at the mine later. Don't modify it.
1274                 // This is important if this happens.
1275                 Int3();         // LOOK ABOVE!!!!!!
1276                 return;
1277         }
1278
1279         if ( va > vb )  {
1280                 tmp = va;
1281                 va = vb;
1282                 vb = tmp;
1283         }
1284
1285         found = automap_find_edge(va,vb,&e);
1286
1287         if (found == -1) {
1288                 e->verts[0] = va;
1289                 e->verts[1] = vb;
1290                 e->color = color;
1291                 e->num_faces = 1;
1292                 e->flags = EF_USED | EF_DEFINING;                       // Assume a normal line
1293                 e->sides[0] = side;
1294                 e->segnum[0] = segnum;
1295                 //Edge_used_list[Num_edges] = e-Edges;
1296                 if ( (e-Edges) > Highest_edge_index )
1297                         Highest_edge_index = (int)(e - Edges);
1298                 Num_edges++;
1299         } else {
1300                 //Assert(e->num_faces < 8 );
1301
1302                 if ( color != Wall_normal_color )
1303                         if (color != Wall_revealed_color)
1304                                 e->color = color;
1305
1306                 if ( e->num_faces < 4 ) {
1307                         e->sides[e->num_faces] = side;
1308                         e->segnum[e->num_faces] = segnum;
1309                         e->num_faces++;
1310                 }
1311         }
1312
1313         if ( grate )
1314                 e->flags |= EF_GRATE;
1315
1316         if ( hidden )
1317                 e->flags|=EF_SECRET;            // Mark this as a hidden edge
1318         if ( no_fade )
1319                 e->flags |= EF_NO_FADE;
1320 }
1321
1322 void add_one_unknown_edge( short va, short vb ) {
1323         int found;
1324         Edge_info *e;
1325         short tmp;
1326
1327         if ( va > vb )  {
1328                 tmp = va;
1329                 va = vb;
1330                 vb = tmp;
1331         }
1332
1333         found = automap_find_edge(va,vb,&e);
1334         if (found != -1)
1335                 e->flags|=EF_FRONTIER;          // Mark as a border edge
1336 }
1337
1338 #ifndef _GAMESEQ_H
1339 extern obj_position Player_init[];
1340 #endif
1341
1342 void add_segment_edges(segment *seg)
1343 {
1344         int     is_grate, no_fade;
1345         ubyte   color;
1346         int     sn;
1347         int     segnum = SEGMENT_NUMBER(seg);
1348         int     hidden_flag;
1349         int ttype,trigger_num;
1350
1351         for (sn=0;sn<MAX_SIDES_PER_SEGMENT;sn++) {
1352                 short   vertex_list[4];
1353
1354                 hidden_flag = 0;
1355
1356                 is_grate = 0;
1357                 no_fade = 0;
1358
1359                 color = 255;
1360                 if (seg->children[sn] == -1) {
1361                         color = Wall_normal_color;
1362                 }
1363
1364                 switch( Segment2s[segnum].special )     {
1365                 case SEGMENT_IS_FUELCEN:
1366                         color = BM_XRGB( 29, 27, 13 );
1367                         break;
1368                 case SEGMENT_IS_CONTROLCEN:
1369                         if (Control_center_present)
1370                                 color = BM_XRGB( 29, 0, 0 );
1371                         break;
1372                 case SEGMENT_IS_ROBOTMAKER:
1373                         color = BM_XRGB( 29, 0, 31 );
1374                         break;
1375                 }
1376
1377                 if (seg->sides[sn].wall_num > -1)       {
1378
1379                         trigger_num = Walls[seg->sides[sn].wall_num].trigger;
1380                         ttype = Triggers[trigger_num].type;
1381                         if (ttype==TT_SECRET_EXIT)
1382                                 {
1383                             color = BM_XRGB( 29, 0, 31 );
1384                                  no_fade=1;
1385                                  goto Here;
1386                                 }
1387
1388                         switch( Walls[seg->sides[sn].wall_num].type )   {
1389                         case WALL_DOOR:
1390                                 if (Walls[seg->sides[sn].wall_num].keys == KEY_BLUE) {
1391                                         no_fade = 1;
1392                                         color = Wall_door_blue;
1393                                         //mprintf((0, "Seg %i, side %i has BLUE wall\n", segnum, sn));
1394                                 } else if (Walls[seg->sides[sn].wall_num].keys == KEY_GOLD) {
1395                                         no_fade = 1;
1396                                         color = Wall_door_gold;
1397                                         //mprintf((0, "Seg %i, side %i has GOLD wall\n", segnum, sn));
1398                                 } else if (Walls[seg->sides[sn].wall_num].keys == KEY_RED) {
1399                                         no_fade = 1;
1400                                         color = Wall_door_red;
1401                                         //mprintf((0, "Seg %i, side %i has RED wall\n", segnum, sn));
1402                                 } else if (!(WallAnims[Walls[seg->sides[sn].wall_num].clip_num].flags & WCF_HIDDEN)) {
1403                                         int     connected_seg = seg->children[sn];
1404                                         if (connected_seg != -1) {
1405                                                 int connected_side = find_connect_side(seg, &Segments[connected_seg]);
1406                                                 int     keytype = Walls[Segments[connected_seg].sides[connected_side].wall_num].keys;
1407                                                 if ((keytype != KEY_BLUE) && (keytype != KEY_GOLD) && (keytype != KEY_RED))
1408                                                         color = Wall_door_color;
1409                                                 else {
1410                                                         switch (Walls[Segments[connected_seg].sides[connected_side].wall_num].keys) {
1411                                                                 case KEY_BLUE:  color = Wall_door_blue; no_fade = 1; break;
1412                                                                 case KEY_GOLD:  color = Wall_door_gold; no_fade = 1; break;
1413                                                                 case KEY_RED:   color = Wall_door_red;  no_fade = 1; break;
1414                                                                 default:        Error("Inconsistent data.  Supposed to be a colored wall, but not blue, gold or red.\n");
1415                                                         }
1416                                                         //mprintf((0, "Seg %i, side %i has a colored door on the other side.\n", segnum, sn));
1417                                                 }
1418
1419                                         }
1420                                 } else {
1421                                         color = Wall_normal_color;
1422                                         hidden_flag = 1;
1423                                         //mprintf((0, "Wall at seg:side %i:%i is hidden.\n", SEGMENT_NUMBER(seg), sn));
1424                                 }
1425                                 break;
1426                         case WALL_CLOSED:
1427                                 // Make grates draw properly
1428                                 if (WALL_IS_DOORWAY(seg,sn) & WID_RENDPAST_FLAG)
1429                                         is_grate = 1;
1430                                 else
1431                                         hidden_flag = 1;
1432                                 color = Wall_normal_color;
1433                                 break;
1434                         case WALL_BLASTABLE:
1435                                 // Hostage doors
1436                                 color = Wall_door_color;
1437                                 break;
1438                         }
1439                 }
1440
1441                 if (segnum==Player_init[Player_num].segnum)
1442                         color = BM_XRGB(31,0,31);
1443
1444                 if ( color != 255 )     {
1445                         // If they have a map powerup, draw unvisited areas in dark blue.
1446                         if (Players[Player_num].flags & PLAYER_FLAGS_MAP_ALL && (!Automap_visited[segnum]))
1447                                 color = Wall_revealed_color;
1448
1449
1450                         Here:
1451
1452                         get_side_verts(vertex_list,segnum,sn);
1453                         add_one_edge( vertex_list[0], vertex_list[1], color, sn, segnum, hidden_flag, 0, no_fade );
1454                         add_one_edge( vertex_list[1], vertex_list[2], color, sn, segnum, hidden_flag, 0, no_fade );
1455                         add_one_edge( vertex_list[2], vertex_list[3], color, sn, segnum, hidden_flag, 0, no_fade );
1456                         add_one_edge( vertex_list[3], vertex_list[0], color, sn, segnum, hidden_flag, 0, no_fade );
1457
1458                         if ( is_grate ) {
1459                                 add_one_edge( vertex_list[0], vertex_list[2], color, sn, segnum, hidden_flag, 1, no_fade );
1460                                 add_one_edge( vertex_list[1], vertex_list[3], color, sn, segnum, hidden_flag, 1, no_fade );
1461                         }
1462                 }
1463         }
1464
1465 }
1466
1467
1468 // Adds all the edges from a segment we haven't visited yet.
1469
1470 void add_unknown_segment_edges(segment *seg)
1471 {
1472         int sn;
1473         int segnum = SEGMENT_NUMBER(seg);
1474
1475         for (sn=0;sn<MAX_SIDES_PER_SEGMENT;sn++) {
1476                 short   vertex_list[4];
1477
1478                 // Only add edges that have no children
1479                 if (seg->children[sn] == -1) {
1480                         get_side_verts(vertex_list,segnum,sn);
1481
1482                         add_one_unknown_edge( vertex_list[0], vertex_list[1] );
1483                         add_one_unknown_edge( vertex_list[1], vertex_list[2] );
1484                         add_one_unknown_edge( vertex_list[2], vertex_list[3] );
1485                         add_one_unknown_edge( vertex_list[3], vertex_list[0] );
1486                 }
1487
1488
1489         }
1490
1491 }
1492
1493 void automap_build_edge_list()
1494 {
1495         int     i,e1,e2,s;
1496         Edge_info * e;
1497
1498         Automap_cheat = 0;
1499
1500         if ( Players[Player_num].flags & PLAYER_FLAGS_MAP_ALL_CHEAT )
1501                 Automap_cheat = 1;              // Damn cheaters...
1502
1503         // clear edge list
1504         for (i=0; i<Max_edges; i++) {
1505                 Edges[i].num_faces = 0;
1506                 Edges[i].flags = 0;
1507         }
1508         Num_edges = 0;
1509         Highest_edge_index = -1;
1510
1511         if (Automap_cheat || (Players[Player_num].flags & PLAYER_FLAGS_MAP_ALL) )       {
1512                 // Cheating, add all edges as visited
1513                 for (s=0; s<=Highest_segment_index; s++)
1514                         #ifdef EDITOR
1515                         if (Segments[s].segnum != -1)
1516                         #endif
1517                         {
1518                                 add_segment_edges(&Segments[s]);
1519                         }
1520         } else {
1521                 // Not cheating, add visited edges, and then unvisited edges
1522                 for (s=0; s<=Highest_segment_index; s++)
1523                         #ifdef EDITOR
1524                         if (Segments[s].segnum != -1)
1525                         #endif
1526                                 if (Automap_visited[s]) {
1527                                         add_segment_edges(&Segments[s]);
1528                                 }
1529
1530                 for (s=0; s<=Highest_segment_index; s++)
1531                         #ifdef EDITOR
1532                         if (Segments[s].segnum != -1)
1533                         #endif
1534                                 if (!Automap_visited[s]) {
1535                                         add_unknown_segment_edges(&Segments[s]);
1536                                 }
1537         }
1538
1539         // Find unnecessary lines (These are lines that don't have to be drawn because they have small curvature)
1540         for (i=0; i<=Highest_edge_index; i++ )  {
1541                 e = &Edges[i];
1542                 if (!(e->flags&EF_USED)) continue;
1543
1544                 for (e1=0; e1<e->num_faces; e1++ )      {
1545                         for (e2=1; e2<e->num_faces; e2++ )      {
1546                                 if ( (e1 != e2) && (e->segnum[e1] != e->segnum[e2]) )   {
1547                                         #ifdef COMPACT_SEGS
1548                                         vms_vector v1, v2;
1549                                         get_side_normal(&Segments[e->segnum[e1]], e->sides[e1], 0, &v1 );
1550                                         get_side_normal(&Segments[e->segnum[e2]], e->sides[e2], 0, &v2 );
1551                                         if ( vm_vec_dot(&v1,&v2) > (F1_0-(F1_0/10))  )  {
1552                                         #else
1553                                         if ( vm_vec_dot( &Segments[e->segnum[e1]].sides[e->sides[e1]].normals[0], &Segments[e->segnum[e2]].sides[e->sides[e2]].normals[0] ) > (F1_0-(F1_0/10))  )       {
1554                                         #endif
1555                                                 e->flags &= (~EF_DEFINING);
1556                                                 break;
1557                                         }
1558                                 }
1559                         }
1560                         if (!(e->flags & EF_DEFINING))
1561                                 break;
1562                 }
1563         }
1564
1565         mprintf( (0, "Automap used %d / %d edges\n", Num_edges, Max_edges  ));
1566
1567 }
1568
1569 char Marker_input [40];
1570 int Marker_index=0;
1571 ubyte DefiningMarkerMessage=0;
1572 ubyte MarkerBeingDefined;
1573 ubyte LastMarkerDropped;
1574
1575 void InitMarkerInput ()
1576  {
1577         int maxdrop,i;
1578
1579         //find free marker slot
1580
1581         if (Game_mode & GM_MULTI)
1582         maxdrop=MAX_DROP_MULTI;
1583         else
1584         maxdrop=MAX_DROP_SINGLE;
1585
1586         for (i=0;i<maxdrop;i++)
1587                 if (MarkerObject[(Player_num*2)+i] == -1)               //found free slot!
1588                         break;
1589
1590         if (i==maxdrop)         //no free slot
1591         {
1592                 if (Game_mode & GM_MULTI)
1593                         i = !LastMarkerDropped;         //in multi, replace older of two
1594                 else {
1595                         HUD_init_message("No free marker slots");
1596                         return;
1597                 }
1598         }
1599
1600         //got a free slot.  start inputting marker message
1601
1602         Marker_input[0]=0;
1603         Marker_index=0;
1604         DefiningMarkerMessage=1;
1605         MarkerBeingDefined = i;
1606  }
1607
1608 void MarkerInputMessage (int key)
1609  {
1610         switch( key )   {
1611         case KEY_F8:
1612         case KEY_ESC:
1613                 DefiningMarkerMessage = 0;
1614                 game_flush_inputs();
1615                 break;
1616         case KEY_LEFT:
1617         case KEY_BACKSP:
1618         case KEY_PAD4:
1619                 if (Marker_index > 0)
1620                         Marker_index--;
1621                 Marker_input[Marker_index] = 0;
1622                 break;
1623         case KEY_ENTER:
1624                 strcpy (MarkerMessage[(Player_num*2)+MarkerBeingDefined],Marker_input);
1625                 if (Game_mode & GM_MULTI)
1626                  strcpy (MarkerOwner[(Player_num*2)+MarkerBeingDefined],Players[Player_num].callsign);
1627                 DropMarker(MarkerBeingDefined);
1628                 LastMarkerDropped = MarkerBeingDefined;
1629                 game_flush_inputs();
1630                 DefiningMarkerMessage = 0;
1631                 break;
1632         default:
1633                 if ( key > 0 )
1634                  {
1635                   int ascii = key_to_ascii(key);
1636                   if ((ascii < 255 ))
1637                     if (Marker_index < 38 )
1638                       {
1639                         Marker_input[Marker_index++] = ascii;
1640                         Marker_input[Marker_index] = 0;
1641                       }
1642                  }
1643                 break;
1644
1645         }
1646  }
1647
1648
1649
1650