rnd-20030404-4-src
[rocksndiamonds.git] / src / libgame / x11.c
index 9de89c95eddf6b825d0db6fba7ec3925287e1e98..61d1a1a5d2b06d7759ea32533004215b3ffe6286 100644 (file)
@@ -1,28 +1,46 @@
 /***********************************************************
-*  Rocks'n'Diamonds -- McDuffin Strikes Back!              *
+* Artsoft Retro-Game Library                               *
 *----------------------------------------------------------*
-*  ©1995 Artsoft Development                               *
-*        Holger Schemel                                    *
-*        33659 Bielefeld-Senne                             *
-*        Telefon: (0521) 493245                            *
-*        eMail: aeglos@valinor.owl.de                      *
-*               aeglos@uni-paderborn.de                    *
-*               q99492@pbhrzx.uni-paderborn.de             *
+* (c) 1994-2002 Artsoft Entertainment                      *
+*               Holger Schemel                             *
+*               Detmolder Strasse 189                      *
+*               33604 Bielefeld                            *
+*               Germany                                    *
+*               e-mail: info@artsoft.org                   *
 *----------------------------------------------------------*
-*  x11.c                                                   *
+* x11.c                                                    *
 ***********************************************************/
 
-#include "libgame.h"
+#include "system.h"
+#include "pcx.h"
+#include "misc.h"
+#include "setup.h"
+
 
 #if defined(TARGET_X11)
 
-#include "main_TMP.h"
+static void X11InitDisplay();
+static DrawWindow *X11InitWindow();
 
-struct IconFileInfo
+inline void X11InitVideoDisplay(void)
 {
-  char *picture_filename;
-  char *picturemask_filename;
-};
+  /* initialize X11 video */
+  X11InitDisplay();
+
+  /* set default X11 depth */
+  video.default_depth = XDefaultDepth(display, screen);
+}
+
+inline void X11InitVideoBuffer(DrawBuffer **backbuffer, DrawWindow **window)
+{
+  *window = X11InitWindow();
+
+  XMapWindow(display, (*window)->drawable);
+  FlushDisplay();
+
+  /* create additional (off-screen) buffer for double-buffering */
+  *backbuffer = CreateBitmap(video.width, video.height, video.depth);
+}
 
 static void X11InitDisplay()
 {
@@ -56,23 +74,17 @@ static void X11InitDisplay()
 
   /* got appropriate visual? */
   if (depth < 8)
-  {
-    printf("Sorry, displays with less than 8 bits per pixel not supported.\n");
-    exit(-1);
-  }
+    Error(ERR_EXIT, "X11 display not supported (less than 8 bits per pixel)");
   else if ((depth ==8 && visual->class != PseudoColor) ||
           (depth > 8 && visual->class != TrueColor &&
            visual->class != DirectColor))
-  {
-    printf("Sorry, cannot get appropriate visual.\n");
-    exit(-1);
-  }
+    Error(ERR_EXIT, "X11 display not supported (inappropriate visual)");
 #endif /* !PLATFORM_MSDOS */
 }
 
-static DrawWindow X11InitWindow()
+static DrawWindow *X11InitWindow()
 {
-  Window window;
+  DrawWindow *new_window = CreateBitmapStruct();
   unsigned int border_width = 4;
   XGCValues gc_values;
   unsigned long gc_valuemask;
@@ -81,27 +93,32 @@ static DrawWindow X11InitWindow()
   Pixmap icon_pixmap, iconmask_pixmap;
   unsigned int icon_width, icon_height;
   int icon_hot_x, icon_hot_y;
+#if 0
   char icon_filename[256];
+#endif
   XSizeHints size_hints;
   XWMHints wm_hints;
   XClassHint class_hints;
-  char *window_name = WINDOW_TITLE_STRING;
-  char *icon_name = WINDOW_TITLE_STRING;
+  char *window_name = program.window_title;
+  char *icon_name = program.window_title;
   long window_event_mask;
   Atom proto_atom = None, delete_atom = None;
 #endif
   int screen_width, screen_height;
-  int win_xpos = WIN_XPOS, win_ypos = WIN_YPOS;
+  int win_xpos, win_ypos;
   unsigned long pen_fg = WhitePixel(display,screen);
   unsigned long pen_bg = BlackPixel(display,screen);
-  const int width = WIN_XSIZE, height = WIN_YSIZE;
+  const int width = video.width, height = video.height;
+  int i;
 
+#if 0
 #if !defined(PLATFORM_MSDOS)
   static struct IconFileInfo icon_pic =
   {
     "rocks_icon.xbm",
     "rocks_iconmask.xbm"
   };
+#endif
 #endif
 
   screen_width = XDisplayWidth(display, screen);
@@ -110,34 +127,40 @@ static DrawWindow X11InitWindow()
   win_xpos = (screen_width - width) / 2;
   win_ypos = (screen_height - height) / 2;
 
-  window = XCreateSimpleWindow(display, RootWindow(display, screen),
-                              win_xpos, win_ypos, width, height, border_width,
-                              pen_fg, pen_bg);
+  new_window->drawable = XCreateSimpleWindow(display,
+                                            RootWindow(display, screen),
+                                            win_xpos, win_ypos,
+                                            width, height, border_width,
+                                            pen_fg, pen_bg);
 
 #if !defined(PLATFORM_MSDOS)
   proto_atom = XInternAtom(display, "WM_PROTOCOLS", FALSE);
   delete_atom = XInternAtom(display, "WM_DELETE_WINDOW", FALSE);
   if ((proto_atom != None) && (delete_atom != None))
-    XChangeProperty(display, window, proto_atom, XA_ATOM, 32,
+    XChangeProperty(display, new_window->drawable, proto_atom, XA_ATOM, 32,
                    PropModePrepend, (unsigned char *) &delete_atom, 1);
 
-  sprintf(icon_filename, "%s/%s/%s",
-         options.ro_base_directory, GRAPHICS_DIRECTORY,
+#if 0
+  sprintf(icon_filename, "%s/%s", options.graphics_directory,
          icon_pic.picture_filename);
-  XReadBitmapFile(display,window,icon_filename,
-                 &icon_width,&icon_height,
-                 &icon_pixmap,&icon_hot_x,&icon_hot_y);
-  if (!icon_pixmap)
-    Error(ERR_EXIT, "cannot read icon bitmap file '%s'", icon_filename);
-
-  sprintf(icon_filename, "%s/%s/%s",
-         options.ro_base_directory, GRAPHICS_DIRECTORY,
+#endif
+  if (XReadBitmapFile(display, new_window->drawable,
+                     getCustomImageFilename(program.x11_icon_filename),
+                     &icon_width, &icon_height, &icon_pixmap,
+                     &icon_hot_x, &icon_hot_y) != BitmapSuccess)
+    Error(ERR_EXIT, "cannot read icon bitmap file '%s'",
+         program.x11_icon_filename);
+
+#if 0
+  sprintf(icon_filename, "%s/%s", options.graphics_directory,
          icon_pic.picturemask_filename);
-  XReadBitmapFile(display,window,icon_filename,
-                 &icon_width,&icon_height,
-                 &iconmask_pixmap,&icon_hot_x,&icon_hot_y);
-  if (!iconmask_pixmap)
-    Error(ERR_EXIT, "cannot read icon bitmap file '%s'", icon_filename);
+#endif
+  if (XReadBitmapFile(display, new_window->drawable,
+                     getCustomImageFilename(program.x11_iconmask_filename),
+                     &icon_width, &icon_height, &iconmask_pixmap,
+                     &icon_hot_x, &icon_hot_y) != BitmapSuccess)
+    Error(ERR_EXIT, "cannot read icon bitmap file '%s'",
+         program.x11_iconmask_filename);
 
   size_hints.width  = size_hints.min_width  = size_hints.max_width  = width;
   size_hints.height = size_hints.min_height = size_hints.max_height = height;
@@ -162,10 +185,10 @@ static DrawWindow X11InitWindow()
   wm_hints.icon_mask = iconmask_pixmap;
   wm_hints.flags = StateHint | IconPixmapHint | IconMaskHint | InputHint;
 
-  class_hints.res_name = program_name;
-  class_hints.res_class = "Rocks'n'Diamonds";
+  class_hints.res_name = program.command_basename;
+  class_hints.res_class = program.program_title;
 
-  XSetWMProperties(display, window, &windowName, &iconName, 
+  XSetWMProperties(display, new_window->drawable, &windowName, &iconName, 
                   NULL, 0, &size_hints, &wm_hints, 
                   &class_hints);
 
@@ -176,9 +199,12 @@ static DrawWindow X11InitWindow()
   window_event_mask =
     ExposureMask | StructureNotifyMask | FocusChangeMask |
     ButtonPressMask | ButtonReleaseMask | PointerMotionMask |
-    PointerMotionHintMask | KeyPressMask | KeyReleaseMask;
+    KeyPressMask | KeyReleaseMask;
 
-  XSelectInput(display, window, window_event_mask);
+  /* unwanted mouse motion events now get filtered out by filter function */
+  /* window_event_mask |= PointerMotionHintMask; */
+
+  XSelectInput(display, new_window->drawable, window_event_mask);
 #endif
 
   /* create GC for drawing with window depth and background color (black) */
@@ -186,22 +212,300 @@ static DrawWindow X11InitWindow()
   gc_values.foreground = pen_bg;
   gc_values.background = pen_bg;
   gc_valuemask = GCGraphicsExposures | GCForeground | GCBackground;
-  gc = XCreateGC(display, window, gc_valuemask, &gc_values);
+  new_window->gc =
+    XCreateGC(display, new_window->drawable, gc_valuemask, &gc_values);
+
+  /* create GCs for line drawing (black and white) */
+  for(i=0; i<2; i++)
+  {
+    gc_values.graphics_exposures = False;
+    gc_values.foreground = (i ? pen_fg : pen_bg);
+    gc_values.background = pen_bg;
+    gc_values.line_width = 4;
+    gc_values.line_style = LineSolid;
+    gc_values.cap_style = CapRound;
+    gc_values.join_style = JoinRound;
+
+    gc_valuemask = GCGraphicsExposures | GCForeground | GCBackground |
+                   GCLineWidth | GCLineStyle | GCCapStyle | GCJoinStyle;
+    new_window->line_gc[i] =
+      XCreateGC(display, new_window->drawable, gc_valuemask, &gc_values);
+  }
 
-  return window;
+  return new_window;
 }
 
-inline void X11InitBufferedDisplay(DrawBuffer *backbuffer, DrawWindow *window)
+void X11ZoomBitmap(Bitmap *src_bitmap, Bitmap *dst_bitmap)
 {
-  X11InitDisplay();
-  *window = X11InitWindow();
+#if defined(TARGET_ALLEGRO)
+  AllegroZoomBitmap(src_bitmap->drawable, dst_bitmap->drawable,
+                   src_bitmap->width, src_bitmap->height,
+                   dst_bitmap->width, dst_bitmap->height);
+#else
+  ZoomPixmap(display, src_bitmap->gc,
+            src_bitmap->drawable, dst_bitmap->drawable,
+            src_bitmap->width, src_bitmap->height,
+            dst_bitmap->width, dst_bitmap->height);
+#endif
+}
 
-  XMapWindow(display, *window);
-  FlushDisplay();
+static void SetImageDimensions(Bitmap *bitmap)
+{
+#if defined(TARGET_ALLEGRO)
+  BITMAP *allegro_bitmap = (BITMAP *)(bitmap->drawable);
+
+  bitmap->width  = allegro_bitmap->w;
+  bitmap->height = allegro_bitmap->h;
+#else
+  Window root;
+  int x, y;
+  unsigned int border_width, depth;
+
+  XGetGeometry(display, bitmap->drawable, &root, &x, &y,
+              &bitmap->width, &bitmap->height, &border_width, &depth);
+#endif
+}
+
+Bitmap *X11LoadImage(char *filename)
+{
+  Bitmap *new_bitmap = CreateBitmapStruct();
+  char *error = "Read_PCX_to_Pixmap(): %s '%s'";
+  int pcx_err;
+  XGCValues clip_gc_values;
+  unsigned long clip_gc_valuemask;
+
+  pcx_err = Read_PCX_to_Pixmap(display, window->drawable, window->gc, filename,
+                              &new_bitmap->drawable, &new_bitmap->clip_mask);
+  switch(pcx_err)
+  {
+    case PCX_Success:
+      break;
+    case PCX_OpenFailed:
+      SetError(error, "cannot open PCX file", filename);
+      return NULL;
+    case PCX_ReadFailed:
+      SetError(error, "cannot read PCX file", filename);
+      return NULL;
+    case PCX_FileInvalid:
+      SetError(error, "invalid PCX file", filename);
+      return NULL;
+    case PCX_NoMemory:
+      SetError(error, "not enough memory for PCX file", filename);
+      return NULL;
+    case PCX_ColorFailed:
+      SetError(error, "cannot get colors for PCX file", filename);
+      return NULL;
+    case PCX_OtherError:
+      /* this should already have called SetError() */
+      return NULL;
+    default:
+      SetError(error, "unknown error reading PCX file", filename);
+      return NULL;
+  }
+
+  if (!new_bitmap->drawable)
+  {
+    SetError("X11LoadImage(): cannot get graphics for '%s'", filename);
+    return NULL;
+  }
+
+  if (!new_bitmap->clip_mask)
+  {
+    SetError("X11LoadImage(): cannot get clipmask for '%s'", filename);
+    return NULL;
+  }
+
+  clip_gc_values.graphics_exposures = False;
+  clip_gc_values.clip_mask = new_bitmap->clip_mask;
+  clip_gc_valuemask = GCGraphicsExposures | GCClipMask;
+  new_bitmap->stored_clip_gc = XCreateGC(display, window->drawable,
+                                        clip_gc_valuemask, &clip_gc_values);
+
+  /* set GraphicContext inheritated from Window */
+  new_bitmap->gc = window->gc;
+
+  /* set image width and height */
+  SetImageDimensions(new_bitmap);
+
+  return new_bitmap;
+}
+
+inline void X11CreateBitmapContent(Bitmap *new_bitmap,
+                                  int width, int height, int depth)
+{
+  Pixmap pixmap;
+
+  if ((pixmap = XCreatePixmap(display, window->drawable, width, height, depth))
+      == None)
+    Error(ERR_EXIT, "cannot create pixmap");
+
+  new_bitmap->drawable = pixmap;
+
+  if (window == NULL)
+    Error(ERR_EXIT, "Window GC needed for Bitmap -- create Window first");
+
+  new_bitmap->gc = window->gc;
+
+  new_bitmap->line_gc[0] = window->line_gc[0];
+  new_bitmap->line_gc[1] = window->line_gc[1];
+}
+
+inline void X11FreeBitmapPointers(Bitmap *bitmap)
+{
+  /* The X11 version seems to have a memory leak here -- although
+     "XFreePixmap()" is called, the corresponding memory seems not
+     to be freed (according to "ps"). The SDL version apparently
+     does not have this problem. */
+
+  if (bitmap->drawable)
+    XFreePixmap(display, bitmap->drawable);
+  if (bitmap->clip_mask)
+    XFreePixmap(display, bitmap->clip_mask);
+  if (bitmap->stored_clip_gc)
+    XFreeGC(display, bitmap->stored_clip_gc);
+  /* the other GCs are only pointers to GCs used elsewhere */
+  bitmap->drawable = None;
+  bitmap->clip_mask = None;
+  bitmap->stored_clip_gc = None;
+}
+
+inline void X11CopyArea(Bitmap *src_bitmap, Bitmap *dst_bitmap,
+                       int src_x, int src_y, int width, int height,
+                       int dst_x, int dst_y, int mask_mode)
+{
+  XCopyArea(display, src_bitmap->drawable, dst_bitmap->drawable,
+           (mask_mode == BLIT_MASKED ? src_bitmap->clip_gc : dst_bitmap->gc),
+           src_x, src_y, width, height, dst_x, dst_y);
+}
+
+inline void X11FillRectangle(Bitmap *bitmap, int x, int y,
+                            int width, int height, Pixel color)
+{
+  XSetForeground(display, bitmap->gc, color);
+  XFillRectangle(display, bitmap->drawable, bitmap->gc, x, y, width, height);
+}
+
+inline void X11DrawSimpleLine(Bitmap *bitmap, int from_x, int from_y,
+                             int to_x, int to_y, Pixel color)
+{
+  XSetForeground(display, bitmap->gc, color);
+  XDrawLine(display, bitmap->drawable, bitmap->gc, from_x, from_y, to_x, to_y);
+}
+
+inline Pixel X11GetPixel(Bitmap *bitmap, int x, int y)
+{
+  XImage *pixel_image;
+  Pixel pixel_value;
+
+  pixel_image = XGetImage(display, bitmap->drawable, x, y, 1, 1,
+                         AllPlanes, ZPixmap);
+  pixel_value = XGetPixel(pixel_image, 0, 0);
+
+  XDestroyImage(pixel_image);
+
+  return pixel_value;
+}
+
+inline Pixel X11GetPixelFromRGB(unsigned int color_r, unsigned int color_g,
+                               unsigned int color_b)
+{
+  XColor xcolor;
+  Pixel pixel;
+
+  xcolor.flags = DoRed | DoGreen | DoBlue;
+  xcolor.red = (color_r << 8);
+  xcolor.green = (color_g << 8);
+  xcolor.blue = (color_b << 8);
+
+  XAllocColor(display, cmap, &xcolor);
+  pixel = xcolor.pixel;
+
+  return pixel;
+}
+
+/* ------------------------------------------------------------------------- */
+/* mouse pointer functions                                                   */
+/* ------------------------------------------------------------------------- */
+
+#if defined(TARGET_X11_NATIVE)
+
+static Cursor create_cursor(const char **image)
+{
+  Pixmap pixmap_data, pixmap_mask;
+  XColor color_fg, color_bg;
+  Cursor cursor;
+
+  int i, row, col;
+  char data[4*32];
+  char mask[4*32];
+  int hot_x, hot_y;
+
+  int data_width = 32, data_height = 32;
+  int mask_width = 32, mask_height = 32;
+
+  i = -1;
+  for (row=0; row<32; ++row)
+  {
+    for (col=0; col<32; ++col)
+    {
+      if (col % 8)
+      {
+        data[i] <<= 1;
+        mask[i] <<= 1;
+      }
+      else
+      {
+        i++;
+        data[i] = mask[i] = 0;
+      }
+
+      switch (image[4+row][col])
+      {
+        case 'X':
+         data[i] |= 0x01;
+         mask[i] |= 0x01;
+         break;
+        case '.':
+         mask[i] |= 0x01;
+         break;
+        case ' ':
+         break;
+      }
+    }
+  }
+
+  sscanf(image[4+row], "%d,%d", &hot_x, &hot_y);
+
+  /* shape and mask are single plane pixmaps */
+  pixmap_data = XCreatePixmapFromBitmapData(display, window->drawable, data,
+                                           data_width, data_height, 1, 0, 1);
+  pixmap_mask = XCreatePixmapFromBitmapData(display, window->drawable, mask,
+                                           mask_width, mask_height, 1, 0, 1);
+
+  XParseColor(display, cmap, "black", &color_fg);
+  XParseColor(display, cmap, "white", &color_bg);
+
+  cursor = XCreatePixmapCursor(display, pixmap_data, pixmap_mask,
+                              &color_fg, &color_bg, hot_x, hot_y);
+
+  return cursor;
+}
+
+void X11SetMouseCursor(const char **cursor_image)
+{
+  static const char **last_cursor_image = NULL;
+  static Cursor cursor_default = None;
+  static Cursor cursor_current = None;
+
+  if (cursor_image != NULL && cursor_image != last_cursor_image)
+  {
+    cursor_current = create_cursor(cursor_image);
+    last_cursor_image = cursor_image;
+  }
 
-  /* create additional buffer for double-buffering */
-  *backbuffer = CreateBitmap(WIN_XSIZE, WIN_YSIZE, DEFAULT_DEPTH);
-  pix[PIX_DB_BACK] = *backbuffer;      /* 'backbuffer' is off-screen buffer */
+  XDefineCursor(display, window->drawable,
+               cursor_image ? cursor_current : cursor_default);
 }
+#endif /* TARGET_X11_NATIVE */
 
 #endif /* TARGET_X11 */