src/init.c

   1 /***********************************************************
   2 *  Rocks'n'Diamonds -- McDuffin Strikes Back!              *
   3 *----------------------------------------------------------*
   4 *  (c) 1995-98 Artsoft Entertainment                       *
   5 *              Holger Schemel                              *
   6 *              Oststrasse 11a                              *
   7 *              33604 Bielefeld                             *
   8 *              phone: ++49 +521 290471                     *
   9 *              email: aeglos@valinor.owl.de                *
  10 *----------------------------------------------------------*
  11 *  init.c                                                  *
  12 ***********************************************************/
  13
  14 #include <signal.h>
  15
  16 #include "init.h"
  17 #include "misc.h"
  18 #include "sound.h"
  19 #include "screens.h"
  20 #include "tools.h"
  21 #include "files.h"
  22 #include "joystick.h"
  23 #include "image.h"
  24 #include "network.h"
  25 #include "netserv.h"
  26
  27 struct PictureFileInfo
  28 {
  29   char *picture_filename;
  30   boolean picture_with_mask;
  31 };
  32
  33 struct IconFileInfo
  34 {
  35   char *picture_filename;
  36   char *picturemask_filename;
  37 };
  38
  39 static int sound_process_id = 0;
  40
  41 static void InitLevelAndPlayerInfo(void);
  42 static void InitNetworkServer(void);
  43 static void InitDisplay(void);
  44 static void InitSound(void);
  45 static void InitSoundServer(void);
  46 static void InitWindow(int, char **);
  47 static void InitGfx(void);
  48 static void LoadGfx(int, struct PictureFileInfo *);
  49 static void InitElementProperties(void);
  50
  51 void OpenAll(int argc, char *argv[])
  52 {
  53   if (options.serveronly)
  54   {
  55     NetworkServer(options.server_port, options.serveronly);
  56
  57     /* never reached */
  58     exit(0);
  59   }
  60
  61   InitLevelAndPlayerInfo();
  62
  63   InitCounter();
  64   InitSound();
  65   InitSoundServer();
  66   InitJoysticks();
  67   InitRND(NEW_RANDOMIZE);
  68
  69   signal(SIGINT, CloseAllAndExit);
  70   signal(SIGTERM, CloseAllAndExit);
  71
  72   InitDisplay();
  73   InitWindow(argc, argv);
  74
  75   XMapWindow(display, window);
  76   XFlush(display);
  77
  78   InitGfx();
  79   InitElementProperties();
  80
  81   DrawMainMenu();
  82
  83   InitNetworkServer();
  84 }
  85
  86 void InitLevelAndPlayerInfo()
  87 {
  88   int i;
  89
  90   /* choose default local player */
  91   local_player = &stored_player[0];
  92
  93   for (i=0; i<MAX_PLAYERS; i++)
  94   {
  95     stored_player[i].joystick_fd = -1;  /* joystick device closed */
  96     stored_player[i].connected = FALSE;
  97   }
  98
  99   local_player->connected = TRUE;
 100
 101   LoadLevelInfo();                      /* global level info */
 102   LoadSetup();                          /* global setup info */
 103   LoadLevelSetup();                     /* info about last played level */
 104 }
 105
 106 void InitNetworkServer()
 107 {
 108   int nr_wanted;
 109
 110   if (!options.network)
 111     return;
 112
 113   nr_wanted = Request("Choose player", REQ_PLAYER | REQ_STAY_CLOSED);
 114
 115   if (!ConnectToServer(options.server_host, options.server_port))
 116     Error(ERR_EXIT, "cannot connect to multiplayer server");
 117
 118   SendToServer_Nickname(setup.player_name);
 119   SendToServer_ProtocolVersion();
 120
 121   if (nr_wanted)
 122     SendToServer_NrWanted(nr_wanted);
 123 }
 124
 125 void InitSound()
 126 {
 127   int i;
 128
 129   if (sound_status == SOUND_OFF)
 130     return;
 131
 132 #ifndef MSDOS
 133   if (access(sound_device_name, W_OK) != 0)
 134   {
 135     Error(ERR_WARN, "cannot access sound device - no sounds");
 136     sound_status = SOUND_OFF;
 137     return;
 138   }
 139
 140   if ((sound_device = open(sound_device_name,O_WRONLY))<0)
 141   {
 142     Error(ERR_WARN, "cannot open sound device - no sounds");
 143     sound_status = SOUND_OFF;
 144     return;
 145   }
 146
 147   close(sound_device);
 148   sound_status = SOUND_AVAILABLE;
 149
 150 #ifdef VOXWARE
 151   sound_loops_allowed = TRUE;
 152
 153   /*
 154   setup.sound_loops_on = TRUE;
 155   */
 156
 157 #endif
 158 #else
 159   sound_loops_allowed = TRUE;
 160
 161   /*
 162   setup.sound_loops_on = TRUE;
 163   */
 164
 165 #endif
 166
 167   for(i=0; i<NUM_SOUNDS; i++)
 168   {
 169 #ifdef MSDOS
 170   sprintf(sound_name[i], "%d", i+1);
 171 #endif
 172     Sound[i].name = sound_name[i];
 173     if (!LoadSound(&Sound[i]))
 174     {
 175       sound_status = SOUND_OFF;
 176       return;
 177     }
 178   }
 179 }
 180
 181 void InitSoundServer()
 182 {
 183   if (sound_status == SOUND_OFF)
 184     return;
 185
 186 #ifndef MSDOS
 187   if (pipe(sound_pipe)<0)
 188   {
 189     Error(ERR_WARN, "cannot create pipe - no sounds");
 190     sound_status = SOUND_OFF;
 191     return;
 192   }
 193
 194   if ((sound_process_id = fork()) < 0)
 195   {
 196     Error(ERR_WARN, "cannot create sound server process - no sounds");
 197     sound_status = SOUND_OFF;
 198     return;
 199   }
 200
 201   if (!sound_process_id)        /* we are child */
 202   {
 203     SoundServer();
 204
 205     /* never reached */
 206     exit(0);
 207   }
 208   else                          /* we are parent */
 209     close(sound_pipe[0]);       /* no reading from pipe needed */
 210 #else
 211   SoundServer();
 212 #endif
 213 }
 214
 215 void InitJoysticks()
 216 {
 217   int i;
 218
 219   if (global_joystick_status == JOYSTICK_OFF)
 220     return;
 221
 222   joystick_status = JOYSTICK_OFF;
 223
 224 #ifndef MSDOS
 225   for (i=0; i<MAX_PLAYERS; i++)
 226   {
 227     char *device_name = setup.input[i].joy.device_name;
 228
 229     /* this allows subsequent calls to 'InitJoysticks' for re-initialization */
 230     if (stored_player[i].joystick_fd != -1)
 231     {
 232       close(stored_player[i].joystick_fd);
 233       stored_player[i].joystick_fd = -1;
 234     }
 235
 236     if (!setup.input[i].use_joystick)
 237       continue;
 238
 239     if (access(device_name, R_OK) != 0)
 240     {
 241       Error(ERR_WARN, "cannot access joystick device '%s'", device_name);
 242       continue;
 243     }
 244
 245     if ((stored_player[i].joystick_fd = open(device_name, O_RDONLY)) < 0)
 246     {
 247       Error(ERR_WARN, "cannot open joystick device '%s'", device_name);
 248       continue;
 249     }
 250
 251     joystick_status = JOYSTICK_AVAILABLE;
 252   }
 253 #else
 254   joystick_status = JOYSTICK_AVAILABLE;
 255 #endif
 256 }
 257
 258 void InitDisplay()
 259 {
 260   XVisualInfo vinfo_template, *vinfo;
 261   int num_visuals;
 262   unsigned int depth;
 263
 264   /* connect to X server */
 265   if (!(display = XOpenDisplay(options.display_name)))
 266     Error(ERR_EXIT, "cannot connect to X server %s",
 267           XDisplayName(options.display_name));
 268
 269   screen = DefaultScreen(display);
 270   visual = DefaultVisual(display, screen);
 271   depth  = DefaultDepth(display, screen);
 272   cmap   = DefaultColormap(display, screen);
 273
 274   /* look for good enough visual */
 275   vinfo_template.screen = screen;
 276   vinfo_template.class = (depth == 8 ? PseudoColor : TrueColor);
 277   vinfo_template.depth = depth;
 278   if ((vinfo = XGetVisualInfo(display, VisualScreenMask | VisualClassMask |
 279                               VisualDepthMask, &vinfo_template, &num_visuals)))
 280   {
 281     visual = vinfo->visual;
 282     XFree((void *)vinfo);
 283   }
 284
 285   /* got appropriate visual? */
 286   if (depth < 8)
 287   {
 288     printf("Sorry, displays with less than 8 bits per pixel not supported.\n");
 289     exit(-1);
 290   }
 291   else if ((depth ==8 && visual->class != PseudoColor) ||
 292            (depth > 8 && visual->class != TrueColor &&
 293             visual->class != DirectColor))
 294   {
 295     printf("Sorry, cannot get appropriate visual.\n");
 296     exit(-1);
 297   }
 298 }
 299
 300 void InitWindow(int argc, char *argv[])
 301 {
 302   unsigned int border_width = 4;
 303   Pixmap icon_pixmap, iconmask_pixmap;
 304   unsigned int icon_width,icon_height;
 305   int icon_hot_x,icon_hot_y;
 306   char icon_filename[256];
 307   XSizeHints size_hints;
 308   XWMHints wm_hints;
 309   XClassHint class_hints;
 310   XTextProperty windowName, iconName;
 311   XGCValues gc_values;
 312   unsigned long gc_valuemask;
 313   char *window_name = WINDOWTITLE_STRING;
 314   char *icon_name = WINDOWTITLE_STRING;
 315   long window_event_mask;
 316   Atom proto_atom = None, delete_atom = None;
 317   int screen_width, screen_height;
 318   int win_xpos = WIN_XPOS, win_ypos = WIN_YPOS;
 319   unsigned long pen_fg = WhitePixel(display,screen);
 320   unsigned long pen_bg = BlackPixel(display,screen);
 321
 322 #ifndef MSDOS
 323   static struct IconFileInfo icon_pic =
 324   {
 325     "rocks_icon.xbm",
 326     "rocks_iconmask.xbm"
 327   };
 328 #endif
 329
 330   screen_width = XDisplayWidth(display, screen);
 331   screen_height = XDisplayHeight(display, screen);
 332
 333   width = WIN_XSIZE;
 334   height = WIN_YSIZE;
 335
 336   win_xpos = (screen_width - width) / 2;
 337   win_ypos = (screen_height - height) / 2;
 338
 339   window = XCreateSimpleWindow(display, RootWindow(display, screen),
 340                                win_xpos, win_ypos, width, height, border_width,
 341                                pen_fg, pen_bg);
 342
 343 #ifndef MSDOS
 344   proto_atom = XInternAtom(display, "WM_PROTOCOLS", FALSE);
 345   delete_atom = XInternAtom(display, "WM_DELETE_WINDOW", FALSE);
 346   if ((proto_atom != None) && (delete_atom != None))
 347     XChangeProperty(display, window, proto_atom, XA_ATOM, 32,
 348                     PropModePrepend, (unsigned char *) &delete_atom, 1);
 349
 350   sprintf(icon_filename, "%s/%s/%s",
 351           options.base_directory, GRAPHICS_DIRECTORY,
 352           icon_pic.picture_filename);
 353   XReadBitmapFile(display,window,icon_filename,
 354                   &icon_width,&icon_height,
 355                   &icon_pixmap,&icon_hot_x,&icon_hot_y);
 356   if (!icon_pixmap)
 357     Error(ERR_EXIT, "cannot read icon bitmap file '%s'", icon_filename);
 358
 359   sprintf(icon_filename, "%s/%s/%s",
 360           options.base_directory, GRAPHICS_DIRECTORY,
 361           icon_pic.picturemask_filename);
 362   XReadBitmapFile(display,window,icon_filename,
 363                   &icon_width,&icon_height,
 364                   &iconmask_pixmap,&icon_hot_x,&icon_hot_y);
 365   if (!iconmask_pixmap)
 366     Error(ERR_EXIT, "cannot read icon bitmap file '%s'", icon_filename);
 367
 368   size_hints.width  = size_hints.min_width  = size_hints.max_width  = width;
 369   size_hints.height = size_hints.min_height = size_hints.max_height = height;
 370   size_hints.flags = PSize | PMinSize | PMaxSize;
 371
 372   if (win_xpos || win_ypos)
 373   {
 374     size_hints.x = win_xpos;
 375     size_hints.y = win_ypos;
 376     size_hints.flags |= PPosition;
 377   }
 378
 379   if (!XStringListToTextProperty(&window_name, 1, &windowName))
 380     Error(ERR_EXIT, "structure allocation for windowName failed");
 381
 382   if (!XStringListToTextProperty(&icon_name, 1, &iconName))
 383     Error(ERR_EXIT, "structure allocation for iconName failed");
 384
 385   wm_hints.initial_state = NormalState;
 386   wm_hints.input = True;
 387   wm_hints.icon_pixmap = icon_pixmap;
 388   wm_hints.icon_mask = iconmask_pixmap;
 389   wm_hints.flags = StateHint | IconPixmapHint | IconMaskHint | InputHint;
 390
 391   class_hints.res_name = program_name;
 392   class_hints.res_class = "Rocks'n'Diamonds";
 393
 394   XSetWMProperties(display, window, &windowName, &iconName,
 395                    argv, argc, &size_hints, &wm_hints,
 396                    &class_hints);
 397
 398   XFree(windowName.value);
 399   XFree(iconName.value);
 400
 401   /* Select event types wanted */
 402   window_event_mask = ExposureMask | StructureNotifyMask | FocusChangeMask |
 403                       ButtonPressMask | ButtonReleaseMask | ButtonMotionMask |
 404                       KeyPressMask | KeyReleaseMask;
 405   XSelectInput(display, window, window_event_mask);
 406 #endif
 407
 408   /* create GC for drawing with window depth */
 409   gc_values.graphics_exposures = False;
 410   gc_values.foreground = pen_bg;
 411   gc_values.background = pen_bg;
 412   gc_valuemask = GCGraphicsExposures | GCForeground | GCBackground;
 413   gc = XCreateGC(display, window, gc_valuemask, &gc_values);
 414 }
 415
 416 void DrawInitText(char *text, int ypos, int color)
 417 {
 418   if (display && window && pix[PIX_SMALLFONT])
 419   {
 420     XFillRectangle(display,window,gc,0,ypos, WIN_XSIZE,FONT2_YSIZE);
 421     DrawTextExt(window,gc,(WIN_XSIZE-strlen(text)*FONT2_XSIZE)/2,
 422                 ypos,text,FS_SMALL,color);
 423     XFlush(display);
 424   }
 425 }
 426
 427 void InitGfx()
 428 {
 429   int i,j;
 430   GC copy_clipmask_gc;
 431   XGCValues clip_gc_values;
 432   unsigned long clip_gc_valuemask;
 433
 434 #ifdef MSDOS
 435   static struct PictureFileInfo pic[NUM_PICTURES] =
 436   {
 437     { "Screen", TRUE },
 438     { "Door",   TRUE },
 439     { "Heroes", TRUE },
 440     { "Toons",  TRUE },
 441     { "Font",   FALSE },
 442     { "Font2",  FALSE }
 443   };
 444 #else
 445   static struct PictureFileInfo pic[NUM_PICTURES] =
 446   {
 447     { "RocksScreen",    TRUE },
 448     { "RocksDoor",      TRUE },
 449     { "RocksHeroes",    TRUE },
 450     { "RocksToons",     TRUE },
 451     { "RocksFont",      FALSE },
 452     { "RocksFont2",     FALSE }
 453   };
 454 #endif
 455
 456   static struct
 457   {
 458     int start;
 459     int count;
 460   }
 461   tile_needs_clipping[] =
 462   {
 463     { GFX_SPIELER1_UP, 4 },
 464     { GFX_SPIELER1_DOWN, 4 },
 465     { GFX_SPIELER1_LEFT, 4 },
 466     { GFX_SPIELER1_RIGHT, 4 },
 467     { GFX_SPIELER1_PUSH_LEFT, 4 },
 468     { GFX_SPIELER1_PUSH_RIGHT, 4 },
 469     { GFX_SPIELER2_UP, 4 },
 470     { GFX_SPIELER2_DOWN, 4 },
 471     { GFX_SPIELER2_LEFT, 4 },
 472     { GFX_SPIELER2_RIGHT, 4 },
 473     { GFX_SPIELER2_PUSH_LEFT, 4 },
 474     { GFX_SPIELER2_PUSH_RIGHT, 4 },
 475     { GFX_SPIELER3_UP, 4 },
 476     { GFX_SPIELER3_DOWN, 4 },
 477     { GFX_SPIELER3_LEFT, 4 },
 478     { GFX_SPIELER3_RIGHT, 4 },
 479     { GFX_SPIELER3_PUSH_LEFT, 4 },
 480     { GFX_SPIELER3_PUSH_RIGHT, 4 },
 481     { GFX_SPIELER4_UP, 4 },
 482     { GFX_SPIELER4_DOWN, 4 },
 483     { GFX_SPIELER4_LEFT, 4 },
 484     { GFX_SPIELER4_RIGHT, 4 },
 485     { GFX_SPIELER4_PUSH_LEFT, 4 },
 486     { GFX_SPIELER4_PUSH_RIGHT, 4 },
 487     { GFX_GEBLUBBER, 4 },
 488     { GFX_DYNAMIT, 7 },
 489     { GFX_DYNABOMB, 4 },
 490     { GFX_EXPLOSION, 8 },
 491     { GFX_SOKOBAN_OBJEKT, 1 },
 492     { GFX_FUNKELN_BLAU, 3 },
 493     { GFX_FUNKELN_WEISS, 3 },
 494     { -1, 0 }
 495   };
 496
 497 #if DEBUG_TIMING
 498   debug_print_timestamp(0, NULL);       /* initialize timestamp function */
 499 #endif
 500
 501   LoadGfx(PIX_SMALLFONT,&pic[PIX_SMALLFONT]);
 502   DrawInitText(WINDOWTITLE_STRING,20,FC_YELLOW);
 503   DrawInitText(COPYRIGHT_STRING,50,FC_RED);
 504 #ifdef MSDOS
 505   DrawInitText("MSDOS version done by Guido Schulz",210,FC_BLUE);
 506   rest(200);
 507 #endif MSDOS
 508   DrawInitText("Loading graphics:",120,FC_GREEN);
 509
 510   for(i=0; i<NUM_PICTURES; i++)
 511     if (i != PIX_SMALLFONT)
 512       LoadGfx(i,&pic[i]);
 513
 514 #if DEBUG_TIMING
 515   debug_print_timestamp(0, "SUMMARY LOADING ALL GRAPHICS:");
 516 #endif
 517
 518   pix[PIX_DB_BACK] = XCreatePixmap(display, window,
 519                                    WIN_XSIZE,WIN_YSIZE,
 520                                    XDefaultDepth(display,screen));
 521   pix[PIX_DB_DOOR] = XCreatePixmap(display, window,
 522                                    3*DXSIZE,DYSIZE+VYSIZE,
 523                                    XDefaultDepth(display,screen));
 524   pix[PIX_DB_FIELD] = XCreatePixmap(display, window,
 525                                     FXSIZE,FYSIZE,
 526                                     XDefaultDepth(display,screen));
 527
 528   clip_gc_values.graphics_exposures = False;
 529   clip_gc_valuemask = GCGraphicsExposures;
 530   copy_clipmask_gc =
 531     XCreateGC(display,clipmask[PIX_BACK],clip_gc_valuemask,&clip_gc_values);
 532
 533   clip_gc_values.graphics_exposures = False;
 534   clip_gc_valuemask = GCGraphicsExposures;
 535   tile_clip_gc =
 536     XCreateGC(display,window,clip_gc_valuemask,&clip_gc_values);
 537
 538   /* initialize pixmap array to Pixmap 'None' */
 539   for(i=0; i<NUM_TILES; i++)
 540     tile_clipmask[i] = None;
 541
 542   /* create only those clipping Pixmaps we really need */
 543   for(i=0; tile_needs_clipping[i].start>=0; i++)
 544   {
 545     for(j=0; j<tile_needs_clipping[i].count; j++)
 546     {
 547       int tile = tile_needs_clipping[i].start + j;
 548       int graphic = tile;
 549       int src_x, src_y;
 550       Pixmap src_pixmap;
 551
 552       if (graphic >= GFX_START_ROCKSSCREEN &&
 553           graphic <= GFX_END_ROCKSSCREEN)
 554       {
 555         src_pixmap = clipmask[PIX_BACK];
 556         graphic -= GFX_START_ROCKSSCREEN;
 557         src_x = SX + (graphic % GFX_PER_LINE) * TILEX;
 558         src_y = SY + (graphic / GFX_PER_LINE) * TILEY;
 559       }
 560       else if (graphic >= GFX_START_ROCKSHEROES &&
 561                graphic <= GFX_END_ROCKSHEROES)
 562       {
 563         src_pixmap = clipmask[PIX_HEROES];
 564         graphic -= GFX_START_ROCKSHEROES;
 565         src_x = (graphic % HEROES_PER_LINE) * TILEX;
 566         src_y = (graphic / HEROES_PER_LINE) * TILEY;
 567       }
 568       else if (graphic >= GFX_START_ROCKSFONT &&
 569                graphic <= GFX_END_ROCKSFONT)
 570       {
 571         src_pixmap = clipmask[PIX_BIGFONT];
 572         graphic -= GFX_START_ROCKSFONT;
 573         src_x = (graphic % FONT_CHARS_PER_LINE) * TILEX;
 574         src_y = (graphic / FONT_CHARS_PER_LINE) * TILEY +
 575           FC_SPECIAL1 * FONT_LINES_PER_FONT * TILEY;
 576       }
 577       else
 578         break;
 579
 580       tile_clipmask[tile] = XCreatePixmap(display, window, TILEX,TILEY, 1);
 581
 582       XCopyArea(display,src_pixmap,tile_clipmask[tile],copy_clipmask_gc,
 583                 src_x,src_y, TILEX,TILEY, 0,0);
 584     }
 585   }
 586
 587   if (!pix[PIX_DB_BACK] || !pix[PIX_DB_DOOR])
 588     Error(ERR_EXIT, "cannot create additional pixmaps");
 589
 590   for(i=0; i<NUM_PIXMAPS; i++)
 591   {
 592     if (clipmask[i])
 593     {
 594       clip_gc_values.graphics_exposures = False;
 595       clip_gc_values.clip_mask = clipmask[i];
 596       clip_gc_valuemask = GCGraphicsExposures | GCClipMask;
 597       clip_gc[i] = XCreateGC(display,window,clip_gc_valuemask,&clip_gc_values);
 598     }
 599   }
 600
 601   drawto = backbuffer = pix[PIX_DB_BACK];
 602   fieldbuffer = pix[PIX_DB_FIELD];
 603   SetDrawtoField(DRAW_BACKBUFFER);
 604
 605   XCopyArea(display,pix[PIX_BACK],backbuffer,gc,
 606             0,0, WIN_XSIZE,WIN_YSIZE, 0,0);
 607   XFillRectangle(display,pix[PIX_DB_BACK],gc,
 608                  REAL_SX,REAL_SY, FULL_SXSIZE,FULL_SYSIZE);
 609   XFillRectangle(display,pix[PIX_DB_DOOR],gc,
 610                  0,0, 3*DXSIZE,DYSIZE+VYSIZE);
 611
 612   for(i=0; i<MAX_BUF_XSIZE; i++)
 613     for(j=0; j<MAX_BUF_YSIZE; j++)
 614       redraw[i][j] = 0;
 615   redraw_tiles = 0;
 616   redraw_mask = REDRAW_ALL;
 617 }
 618
 619 void LoadGfx(int pos, struct PictureFileInfo *pic)
 620 {
 621   char basefilename[256];
 622   char filename[256];
 623
 624 #ifdef USE_XPM_LIBRARY
 625   int xpm_err, xbm_err;
 626   unsigned int width,height;
 627   int hot_x,hot_y;
 628   Pixmap shapemask;
 629   char *picture_ext = ".xpm";
 630   char *picturemask_ext = "Mask.xbm";
 631 #else
 632   int pcx_err;
 633   char *picture_ext = ".pcx";
 634 #endif
 635
 636   /* Grafik laden */
 637   if (pic->picture_filename)
 638   {
 639     sprintf(basefilename, "%s%s", pic->picture_filename, picture_ext);
 640     DrawInitText(basefilename, 150, FC_YELLOW);
 641     sprintf(filename, "%s/%s/%s",
 642             options.base_directory, GRAPHICS_DIRECTORY, basefilename);
 643
 644 #ifdef MSDOS
 645     rest(100);
 646 #endif MSDOS
 647
 648 #if DEBUG_TIMING
 649     debug_print_timestamp(1, NULL);     /* initialize timestamp function */
 650 #endif
 651
 652 #ifdef USE_XPM_LIBRARY
 653
 654     xpm_att[pos].valuemask = XpmCloseness;
 655     xpm_att[pos].closeness = 20000;
 656     xpm_err = XpmReadFileToPixmap(display,window,filename,
 657                                   &pix[pos],&shapemask,&xpm_att[pos]);
 658     switch(xpm_err)
 659     {
 660       case XpmOpenFailed:
 661         Error(ERR_EXIT, "cannot open XPM file '%s'", filename);
 662       case XpmFileInvalid:
 663         Error(ERR_EXIT, "invalid XPM file '%s'", filename);
 664       case XpmNoMemory:
 665         Error(ERR_EXIT, "not enough memory for XPM file '%s'", filename);
 666       case XpmColorFailed:
 667         Error(ERR_EXIT, "cannot get colors for XPM file '%s'", filename);
 668       default:
 669         break;
 670     }
 671
 672 #if DEBUG_TIMING
 673     printf("LOADING XPM FILE %s:", filename);
 674     debug_print_timestamp(1, "");
 675 #endif
 676
 677 #else /* !USE_XPM_LIBRARY */
 678
 679     pcx_err = Read_PCX_to_Pixmaps(display, window, gc, filename,
 680                                   &pix[pos], &clipmask[pos]);
 681     switch(pcx_err)
 682     {
 683       case PCX_Success:
 684         break;
 685       case PCX_OpenFailed:
 686         Error(ERR_EXIT, "cannot open PCX file '%s'", filename);
 687       case PCX_ReadFailed:
 688         Error(ERR_EXIT, "cannot read PCX file '%s'", filename);
 689       case PCX_FileInvalid:
 690         Error(ERR_EXIT, "invalid PCX file '%s'", filename);
 691       case PCX_NoMemory:
 692         Error(ERR_EXIT, "not enough memory for PCX file '%s'", filename);
 693       case PCX_ColorFailed:
 694         Error(ERR_EXIT, "cannot get colors for PCX file '%s'", filename);
 695       default:
 696         break;
 697     }
 698
 699 #if DEBUG_TIMING
 700     printf("SUMMARY LOADING PCX FILE %s:", filename);
 701     debug_print_timestamp(1, "");
 702 #endif
 703
 704 #endif /* !USE_XPM_LIBRARY */
 705
 706     if (!pix[pos])
 707       Error(ERR_EXIT, "cannot get graphics for '%s'", pic->picture_filename);
 708   }
 709
 710   /* zugehörige Maske laden (wenn vorhanden) */
 711   if (pic->picture_with_mask)
 712   {
 713 #ifdef USE_XPM_LIBRARY
 714
 715     sprintf(basefilename, "%s%s", pic->picture_filename, picturemask_ext);
 716     DrawInitText(basefilename, 150, FC_YELLOW);
 717     sprintf(filename, "%s/%s/%s",
 718             options.base_directory, GRAPHICS_DIRECTORY, basefilename);
 719
 720 #if DEBUG_TIMING
 721     debug_print_timestamp(1, NULL);     /* initialize timestamp function */
 722 #endif
 723
 724     xbm_err = XReadBitmapFile(display,window,filename,
 725                               &width,&height,&clipmask[pos],&hot_x,&hot_y);
 726     switch(xbm_err)
 727     {
 728       case BitmapSuccess:
 729         break;
 730       case BitmapOpenFailed:
 731         Error(ERR_EXIT, "cannot open XBM file '%s'", filename);
 732       case BitmapFileInvalid:
 733         Error(ERR_EXIT, "invalid XBM file '%s'", filename);
 734       case BitmapNoMemory:
 735         Error(ERR_EXIT, "not enough memory for XBM file '%s'", filename);
 736         break;
 737       default:
 738         break;
 739     }
 740
 741 #if DEBUG_TIMING
 742     printf("LOADING XBM FILE %s:", filename);
 743     debug_print_timestamp(1, "");
 744 #endif
 745
 746 #endif /* USE_XPM_LIBRARY */
 747
 748     if (!clipmask[pos])
 749       Error(ERR_EXIT, "cannot get clipmask for '%s'", pic->picture_filename);
 750   }
 751 }
 752
 753 void InitElementProperties()
 754 {
 755   int i,j;
 756
 757   static int ep_amoebalive[] =
 758   {
 759     EL_AMOEBE_NASS,
 760     EL_AMOEBE_NORM,
 761     EL_AMOEBE_VOLL,
 762     EL_AMOEBE_BD
 763   };
 764   static int ep_amoebalive_num = sizeof(ep_amoebalive)/sizeof(int);
 765
 766   static int ep_amoeboid[] =
 767   {
 768     EL_AMOEBE_TOT,
 769     EL_AMOEBE_NASS,
 770     EL_AMOEBE_NORM,
 771     EL_AMOEBE_VOLL,
 772     EL_AMOEBE_BD
 773   };
 774   static int ep_amoeboid_num = sizeof(ep_amoeboid)/sizeof(int);
 775
 776   static int ep_schluessel[] =
 777   {
 778     EL_SCHLUESSEL1,
 779     EL_SCHLUESSEL2,
 780     EL_SCHLUESSEL3,
 781     EL_SCHLUESSEL4
 782   };
 783   static int ep_schluessel_num = sizeof(ep_schluessel)/sizeof(int);
 784
 785   static int ep_pforte[] =
 786   {
 787     EL_PFORTE1,
 788     EL_PFORTE2,
 789     EL_PFORTE3,
 790     EL_PFORTE4,
 791     EL_PFORTE1X,
 792     EL_PFORTE2X,
 793     EL_PFORTE3X,
 794     EL_PFORTE4X
 795   };
 796   static int ep_pforte_num = sizeof(ep_pforte)/sizeof(int);
 797
 798   static int ep_solid[] =
 799   {
 800     EL_BETON,
 801     EL_MAUERWERK,
 802     EL_MAUER_LEBT,
 803     EL_MAUER_X,
 804     EL_MAUER_Y,
 805     EL_MAUER_XY,
 806     EL_FELSBODEN,
 807     EL_AUSGANG_ZU,
 808     EL_AUSGANG_ACT,
 809     EL_AUSGANG_AUF,
 810     EL_AMOEBE_TOT,
 811     EL_AMOEBE_NASS,
 812     EL_AMOEBE_NORM,
 813     EL_AMOEBE_VOLL,
 814     EL_AMOEBE_BD,
 815     EL_MORAST_VOLL,
 816     EL_MORAST_LEER,
 817     EL_SIEB_VOLL,
 818     EL_SIEB_LEER,
 819     EL_SIEB_TOT,
 820     EL_SIEB2_VOLL,
 821     EL_SIEB2_LEER,
 822     EL_SIEB2_TOT,
 823     EL_LIFE,
 824     EL_LIFE_ASYNC,
 825     EL_BADEWANNE1,
 826     EL_BADEWANNE2,
 827     EL_BADEWANNE3,
 828     EL_BADEWANNE4,
 829     EL_BADEWANNE5
 830   };
 831   static int ep_solid_num = sizeof(ep_solid)/sizeof(int);
 832
 833   static int ep_massiv[] =
 834   {
 835     EL_BETON,
 836     EL_SALZSAEURE,
 837     EL_BADEWANNE1,
 838     EL_BADEWANNE2,
 839     EL_BADEWANNE3,
 840     EL_BADEWANNE4,
 841     EL_BADEWANNE5,
 842     EL_PFORTE1,
 843     EL_PFORTE2,
 844     EL_PFORTE3,
 845     EL_PFORTE4,
 846     EL_PFORTE1X,
 847     EL_PFORTE2X,
 848     EL_PFORTE3X,
 849     EL_PFORTE4X
 850   };
 851   static int ep_massiv_num = sizeof(ep_massiv)/sizeof(int);
 852
 853   static int ep_slippery[] =
 854   {
 855     EL_FELSBODEN,
 856     EL_FELSBROCKEN,
 857     EL_EDELSTEIN,
 858     EL_EDELSTEIN_BD,
 859     EL_EDELSTEIN_GELB,
 860     EL_EDELSTEIN_ROT,
 861     EL_EDELSTEIN_LILA,
 862     EL_DIAMANT,
 863     EL_BOMBE,
 864     EL_KOKOSNUSS,
 865     EL_ABLENK_EIN,
 866     EL_ABLENK_AUS,
 867     EL_ZEIT_VOLL,
 868     EL_ZEIT_LEER,
 869     EL_BIRNE_EIN,
 870     EL_BIRNE_AUS,
 871     EL_BADEWANNE1,
 872     EL_BADEWANNE2,
 873     EL_SONDE
 874   };
 875   static int ep_slippery_num = sizeof(ep_slippery)/sizeof(int);
 876
 877   static int ep_enemy[] =
 878   {
 879     EL_KAEFER,
 880     EL_FLIEGER,
 881     EL_BUTTERFLY,
 882     EL_FIREFLY,
 883     EL_MAMPFER,
 884     EL_MAMPFER2,
 885     EL_ROBOT,
 886     EL_PACMAN
 887   };
 888   static int ep_enemy_num = sizeof(ep_enemy)/sizeof(int);
 889
 890   static int ep_mauer[] =
 891   {
 892     EL_BETON,
 893     EL_PFORTE1,
 894     EL_PFORTE2,
 895     EL_PFORTE3,
 896     EL_PFORTE4,
 897     EL_PFORTE1X,
 898     EL_PFORTE2X,
 899     EL_PFORTE3X,
 900     EL_PFORTE4X,
 901     EL_AUSGANG_ZU,
 902     EL_AUSGANG_ACT,
 903     EL_AUSGANG_AUF,
 904     EL_MAUERWERK,
 905     EL_FELSBODEN,
 906     EL_MAUER_LEBT,
 907     EL_MAUER_X,
 908     EL_MAUER_Y,
 909     EL_MAUER_XY,
 910     EL_MAUERND
 911   };
 912   static int ep_mauer_num = sizeof(ep_mauer)/sizeof(int);
 913
 914   static int ep_can_fall[] =
 915   {
 916     EL_FELSBROCKEN,
 917     EL_EDELSTEIN,
 918     EL_EDELSTEIN_BD,
 919     EL_EDELSTEIN_GELB,
 920     EL_EDELSTEIN_ROT,
 921     EL_EDELSTEIN_LILA,
 922     EL_DIAMANT,
 923     EL_BOMBE,
 924     EL_KOKOSNUSS,
 925     EL_TROPFEN,
 926     EL_MORAST_VOLL,
 927     EL_SIEB_VOLL,
 928     EL_SIEB2_VOLL,
 929     EL_ZEIT_VOLL,
 930     EL_ZEIT_LEER
 931   };
 932   static int ep_can_fall_num = sizeof(ep_can_fall)/sizeof(int);
 933
 934   static int ep_can_smash[] =
 935   {
 936     EL_FELSBROCKEN,
 937     EL_EDELSTEIN,
 938     EL_EDELSTEIN_BD,
 939     EL_EDELSTEIN_GELB,
 940     EL_EDELSTEIN_ROT,
 941     EL_EDELSTEIN_LILA,
 942     EL_DIAMANT,
 943     EL_SCHLUESSEL1,
 944     EL_SCHLUESSEL2,
 945     EL_SCHLUESSEL3,
 946     EL_SCHLUESSEL4,
 947     EL_BOMBE,
 948     EL_KOKOSNUSS,
 949     EL_TROPFEN,
 950     EL_ZEIT_VOLL,
 951     EL_ZEIT_LEER
 952   };
 953   static int ep_can_smash_num = sizeof(ep_can_smash)/sizeof(int);
 954
 955   static int ep_can_change[] =
 956   {
 957     EL_FELSBROCKEN,
 958     EL_EDELSTEIN,
 959     EL_EDELSTEIN_BD,
 960     EL_EDELSTEIN_GELB,
 961     EL_EDELSTEIN_ROT,
 962     EL_EDELSTEIN_LILA,
 963     EL_DIAMANT
 964   };
 965   static int ep_can_change_num = sizeof(ep_can_change)/sizeof(int);
 966
 967   static int ep_can_move[] =
 968   {
 969     EL_KAEFER,
 970     EL_FLIEGER,
 971     EL_BUTTERFLY,
 972     EL_FIREFLY,
 973     EL_MAMPFER,
 974     EL_MAMPFER2,
 975     EL_ROBOT,
 976     EL_PACMAN,
 977     EL_MAULWURF,
 978     EL_PINGUIN,
 979     EL_SCHWEIN,
 980     EL_DRACHE,
 981     EL_SONDE
 982   };
 983   static int ep_can_move_num = sizeof(ep_can_move)/sizeof(int);
 984
 985   static int ep_could_move[] =
 986   {
 987     EL_KAEFER_R,
 988     EL_KAEFER_O,
 989     EL_KAEFER_L,
 990     EL_KAEFER_U,
 991     EL_FLIEGER_R,
 992     EL_FLIEGER_O,
 993     EL_FLIEGER_L,
 994     EL_FLIEGER_U,
 995     EL_BUTTERFLY_R,
 996     EL_BUTTERFLY_O,
 997     EL_BUTTERFLY_L,
 998     EL_BUTTERFLY_U,
 999     EL_FIREFLY_R,
1000     EL_FIREFLY_O,
1001     EL_FIREFLY_L,
1002     EL_FIREFLY_U,
1003     EL_PACMAN_R,
1004     EL_PACMAN_O,
1005     EL_PACMAN_L,
1006     EL_PACMAN_U
1007   };
1008   static int ep_could_move_num = sizeof(ep_could_move)/sizeof(int);
1009
1010   static int ep_dont_touch[] =
1011   {
1012     EL_KAEFER,
1013     EL_FLIEGER,
1014     EL_BUTTERFLY,
1015     EL_FIREFLY
1016   };
1017   static int ep_dont_touch_num = sizeof(ep_dont_touch)/sizeof(int);
1018
1019   static int ep_dont_go_to[] =
1020   {
1021     EL_KAEFER,
1022     EL_FLIEGER,
1023     EL_BUTTERFLY,
1024     EL_FIREFLY,
1025     EL_MAMPFER,
1026     EL_MAMPFER2,
1027     EL_ROBOT,
1028     EL_PACMAN,
1029     EL_TROPFEN,
1030     EL_SALZSAEURE
1031   };
1032   static int ep_dont_go_to_num = sizeof(ep_dont_go_to)/sizeof(int);
1033
1034   static int ep_mampf2[] =
1035   {
1036     EL_ERDREICH,
1037     EL_KAEFER,
1038     EL_FLIEGER,
1039     EL_BUTTERFLY,
1040     EL_FIREFLY,
1041     EL_MAMPFER,
1042     EL_ROBOT,
1043     EL_PACMAN,
1044     EL_TROPFEN,
1045     EL_AMOEBE_TOT,
1046     EL_AMOEBE_NASS,
1047     EL_AMOEBE_NORM,
1048     EL_AMOEBE_VOLL,
1049     EL_AMOEBE_BD,
1050     EL_EDELSTEIN,
1051     EL_EDELSTEIN_BD,
1052     EL_EDELSTEIN_GELB,
1053     EL_EDELSTEIN_ROT,
1054     EL_EDELSTEIN_LILA,
1055     EL_DIAMANT
1056   };
1057   static int ep_mampf2_num = sizeof(ep_mampf2)/sizeof(int);
1058
1059   static int ep_bd_element[] =
1060   {
1061     EL_LEERRAUM,
1062     EL_ERDREICH,
1063     EL_FELSBODEN,
1064     EL_FELSBROCKEN,
1065     EL_EDELSTEIN_BD,
1066     EL_SIEB2_LEER,
1067     EL_AUSGANG_ZU,
1068     EL_AUSGANG_AUF,
1069     EL_BETON,
1070     EL_SPIELFIGUR,
1071     EL_FIREFLY,
1072     EL_FIREFLY_1,
1073     EL_FIREFLY_2,
1074     EL_FIREFLY_3,
1075     EL_FIREFLY_4,
1076     EL_BUTTERFLY,
1077     EL_BUTTERFLY_1,
1078     EL_BUTTERFLY_2,
1079     EL_BUTTERFLY_3,
1080     EL_BUTTERFLY_4,
1081     EL_AMOEBE_BD,
1082     EL_CHAR_FRAGE
1083   };
1084   static int ep_bd_element_num = sizeof(ep_bd_element)/sizeof(int);
1085
1086   static int ep_sb_element[] =
1087   {
1088     EL_LEERRAUM,
1089     EL_BETON,
1090     EL_SOKOBAN_OBJEKT,
1091     EL_SOKOBAN_FELD_LEER,
1092     EL_SOKOBAN_FELD_VOLL,
1093     EL_SPIELFIGUR
1094   };
1095   static int ep_sb_element_num = sizeof(ep_sb_element)/sizeof(int);
1096
1097   static int ep_gem[] =
1098   {
1099     EL_EDELSTEIN,
1100     EL_EDELSTEIN_BD,
1101     EL_EDELSTEIN_GELB,
1102     EL_EDELSTEIN_ROT,
1103     EL_EDELSTEIN_LILA,
1104     EL_DIAMANT
1105   };
1106   static int ep_gem_num = sizeof(ep_gem)/sizeof(int);
1107
1108   static int ep_inactive[] =
1109   {
1110     EL_LEERRAUM,
1111     EL_ERDREICH,
1112     EL_MAUERWERK,
1113     EL_FELSBODEN,
1114     EL_SCHLUESSEL,
1115     EL_BETON,
1116     EL_AMOEBE_TOT,
1117     EL_MORAST_LEER,
1118     EL_BADEWANNE,
1119     EL_ABLENK_AUS,
1120     EL_SCHLUESSEL1,
1121     EL_SCHLUESSEL2,
1122     EL_SCHLUESSEL3,
1123     EL_SCHLUESSEL4,
1124     EL_PFORTE1,
1125     EL_PFORTE2,
1126     EL_PFORTE3,
1127     EL_PFORTE4,
1128     EL_PFORTE1X,
1129     EL_PFORTE2X,
1130     EL_PFORTE3X,
1131     EL_PFORTE4X,
1132     EL_DYNAMIT_AUS,
1133     EL_UNSICHTBAR,
1134     EL_BIRNE_AUS,
1135     EL_BIRNE_EIN,
1136     EL_ERZ_EDEL,
1137     EL_ERZ_DIAM,
1138     EL_ERZ_EDEL_BD,
1139     EL_ERZ_EDEL_GELB,
1140     EL_DYNABOMB_NR,
1141     EL_DYNABOMB_SZ,
1142     EL_DYNABOMB_XL,
1143     EL_SOKOBAN_OBJEKT,
1144     EL_SOKOBAN_FELD_LEER,
1145     EL_SOKOBAN_FELD_VOLL,
1146     EL_ERZ_EDEL_ROT,
1147     EL_ERZ_EDEL_LILA,
1148     EL_BADEWANNE1,
1149     EL_BADEWANNE2,
1150     EL_BADEWANNE3,
1151     EL_BADEWANNE4,
1152     EL_BADEWANNE5,
1153     EL_SIEB_TOT,
1154     EL_SIEB2_TOT,
1155     EL_AMOEBA2DIAM,
1156     EL_BLOCKED
1157   };
1158   static int ep_inactive_num = sizeof(ep_inactive)/sizeof(int);
1159
1160   static int ep_explosive[] =
1161   {
1162     EL_BOMBE,
1163     EL_DYNAMIT,
1164     EL_DYNAMIT_AUS,
1165     EL_DYNABOMB,
1166     EL_DYNABOMB_NR,
1167     EL_DYNABOMB_SZ,
1168     EL_DYNABOMB_XL,
1169     EL_KAEFER,
1170     EL_MAULWURF,
1171     EL_PINGUIN,
1172     EL_SCHWEIN,
1173     EL_DRACHE,
1174     EL_SONDE
1175   };
1176   static int ep_explosive_num = sizeof(ep_explosive)/sizeof(int);
1177
1178   static int ep_mampf3[] =
1179   {
1180     EL_EDELSTEIN,
1181     EL_EDELSTEIN_BD,
1182     EL_EDELSTEIN_GELB,
1183     EL_EDELSTEIN_ROT,
1184     EL_EDELSTEIN_LILA,
1185     EL_DIAMANT
1186   };
1187   static int ep_mampf3_num = sizeof(ep_mampf3)/sizeof(int);
1188
1189   static int ep_pushable[] =
1190   {
1191     EL_FELSBROCKEN,
1192     EL_BOMBE,
1193     EL_KOKOSNUSS,
1194     EL_ZEIT_LEER,
1195     EL_SOKOBAN_FELD_VOLL,
1196     EL_SOKOBAN_OBJEKT,
1197     EL_SONDE
1198   };
1199   static int ep_pushable_num = sizeof(ep_pushable)/sizeof(int);
1200
1201   static int ep_player[] =
1202   {
1203     EL_SPIELFIGUR,
1204     EL_SPIELER1,
1205     EL_SPIELER2,
1206     EL_SPIELER3,
1207     EL_SPIELER4
1208   };
1209   static int ep_player_num = sizeof(ep_player)/sizeof(int);
1210
1211   static long ep_bit[] =
1212   {
1213     EP_BIT_AMOEBALIVE,
1214     EP_BIT_AMOEBOID,
1215     EP_BIT_SCHLUESSEL,
1216     EP_BIT_PFORTE,
1217     EP_BIT_SOLID,
1218     EP_BIT_MASSIV,
1219     EP_BIT_SLIPPERY,
1220     EP_BIT_ENEMY,
1221     EP_BIT_MAUER,
1222     EP_BIT_CAN_FALL,
1223     EP_BIT_CAN_SMASH,
1224     EP_BIT_CAN_CHANGE,
1225     EP_BIT_CAN_MOVE,
1226     EP_BIT_COULD_MOVE,
1227     EP_BIT_DONT_TOUCH,
1228     EP_BIT_DONT_GO_TO,
1229     EP_BIT_MAMPF2,
1230     EP_BIT_BD_ELEMENT,
1231     EP_BIT_SB_ELEMENT,
1232     EP_BIT_GEM,
1233     EP_BIT_INACTIVE,
1234     EP_BIT_EXPLOSIVE,
1235     EP_BIT_MAMPF3,
1236     EP_BIT_PUSHABLE,
1237     EP_BIT_PLAYER
1238   };
1239   static int *ep_array[] =
1240   {
1241     ep_amoebalive,
1242     ep_amoeboid,
1243     ep_schluessel,
1244     ep_pforte,
1245     ep_solid,
1246     ep_massiv,
1247     ep_slippery,
1248     ep_enemy,
1249     ep_mauer,
1250     ep_can_fall,
1251     ep_can_smash,
1252     ep_can_change,
1253     ep_can_move,
1254     ep_could_move,
1255     ep_dont_touch,
1256     ep_dont_go_to,
1257     ep_mampf2,
1258     ep_bd_element,
1259     ep_sb_element,
1260     ep_gem,
1261     ep_inactive,
1262     ep_explosive,
1263     ep_mampf3,
1264     ep_pushable,
1265     ep_player
1266   };
1267   static int *ep_num[] =
1268   {
1269     &ep_amoebalive_num,
1270     &ep_amoeboid_num,
1271     &ep_schluessel_num,
1272     &ep_pforte_num,
1273     &ep_solid_num,
1274     &ep_massiv_num,
1275     &ep_slippery_num,
1276     &ep_enemy_num,
1277     &ep_mauer_num,
1278     &ep_can_fall_num,
1279     &ep_can_smash_num,
1280     &ep_can_change_num,
1281     &ep_can_move_num,
1282     &ep_could_move_num,
1283     &ep_dont_touch_num,
1284     &ep_dont_go_to_num,
1285     &ep_mampf2_num,
1286     &ep_bd_element_num,
1287     &ep_sb_element_num,
1288     &ep_gem_num,
1289     &ep_inactive_num,
1290     &ep_explosive_num,
1291     &ep_mampf3_num,
1292     &ep_pushable_num,
1293     &ep_player_num
1294   };
1295   static int num_properties = sizeof(ep_num)/sizeof(int *);
1296
1297   for(i=0; i<MAX_ELEMENTS; i++)
1298     Elementeigenschaften[i] = 0;
1299
1300   for(i=0; i<num_properties; i++)
1301     for(j=0; j<*(ep_num[i]); j++)
1302       Elementeigenschaften[(ep_array[i])[j]] |= ep_bit[i];
1303   for(i=EL_CHAR_START; i<EL_CHAR_END; i++)
1304     Elementeigenschaften[i] |= (EP_BIT_CHAR | EP_BIT_INACTIVE);
1305 }
1306
1307 void CloseAllAndExit(int exit_value)
1308 {
1309   int i;
1310
1311   if (sound_process_id)
1312   {
1313     StopSounds();
1314     kill(sound_process_id, SIGTERM);
1315     FreeSounds(NUM_SOUNDS);
1316   }
1317
1318   for(i=0; i<NUM_PIXMAPS; i++)
1319   {
1320     if (pix[i])
1321     {
1322 #ifdef USE_XPM_LIBRARY
1323       if (i < NUM_PICTURES)     /* XPM pictures */
1324       {
1325         XFreeColors(display,DefaultColormap(display,screen),
1326                     xpm_att[i].pixels,xpm_att[i].npixels,0);
1327         XpmFreeAttributes(&xpm_att[i]);
1328       }
1329 #endif
1330       XFreePixmap(display,pix[i]);
1331     }
1332     if (clipmask[i])
1333       XFreePixmap(display,clipmask[i]);
1334     if (clip_gc[i])
1335       XFreeGC(display, clip_gc[i]);
1336   }
1337
1338   if (gc)
1339     XFreeGC(display, gc);
1340
1341   if (display)
1342   {
1343     XAutoRepeatOn(display);
1344     XCloseDisplay(display);
1345   }
1346
1347   exit(exit_value);
1348 }