257 lines
		
	
	
		
			6.7 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			257 lines
		
	
	
		
			6.7 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
/* vim:expandtab:ts=2 sw=2:
 | 
						|
*/
 | 
						|
/*  Grafx2 - The Ultimate 256-color bitmap paint program
 | 
						|
 | 
						|
    Copyright 2018 Thomas Bernard
 | 
						|
    Copyright 2008 Yves Rizoud
 | 
						|
    Copyright 2007 Adrien Destugues
 | 
						|
    Copyright 1996-2001 Sunset Design (Guillaume Dorme & Karl Maritaud)
 | 
						|
 | 
						|
    Grafx2 is free software; you can redistribute it and/or
 | 
						|
    modify it under the terms of the GNU General Public License
 | 
						|
    as published by the Free Software Foundation; version 2
 | 
						|
    of the License.
 | 
						|
 | 
						|
    Grafx2 is distributed in the hope that it will be useful,
 | 
						|
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 | 
						|
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | 
						|
    GNU General Public License for more details.
 | 
						|
 | 
						|
    You should have received a copy of the GNU General Public License
 | 
						|
    along with Grafx2; if not, see <http://www.gnu.org/licenses/>
 | 
						|
*/
 | 
						|
#include <stdio.h>
 | 
						|
#include <string.h>
 | 
						|
#include <stdlib.h>
 | 
						|
#include <X11/Xlib.h>
 | 
						|
#include <X11/Xutil.h>
 | 
						|
#include "screen.h"
 | 
						|
#include "gfx2surface.h"
 | 
						|
 | 
						|
Display * X11_display = NULL;
 | 
						|
static Window X11_window = 0;
 | 
						|
static XImage * X11_image = NULL;
 | 
						|
static char * image_pixels = NULL;
 | 
						|
static XTextProperty windowName;
 | 
						|
static GC X11_gc = 0;
 | 
						|
static T_GFX2_Surface * screen = NULL;
 | 
						|
 | 
						|
void GFX2_Set_mode(int *width, int *height, int fullscreen)
 | 
						|
{
 | 
						|
  int s;
 | 
						|
  int depth;
 | 
						|
  unsigned long white, black;
 | 
						|
  char * winName[] = { "GrafX2" };
 | 
						|
  Visual * visual;
 | 
						|
  const char blank_data[1] = { 0 };
 | 
						|
  Pixmap blank;
 | 
						|
  Cursor cursor;
 | 
						|
  XColor dummy;
 | 
						|
 | 
						|
  if (X11_display == NULL)
 | 
						|
    X11_display = XOpenDisplay(NULL);//getenv("DISPLAY")
 | 
						|
  if (X11_display == NULL)
 | 
						|
  {
 | 
						|
    fprintf(stderr, "X11: cannot open display\n");
 | 
						|
    exit(1);
 | 
						|
  }
 | 
						|
  s = DefaultScreen(X11_display);
 | 
						|
  black = BlackPixel(X11_display, s);
 | 
						|
  white = WhitePixel(X11_display, s);
 | 
						|
  visual = DefaultVisual(X11_display, s);
 | 
						|
 | 
						|
  {
 | 
						|
    int i;
 | 
						|
    int count = 0;
 | 
						|
    int * depths = XListDepths(X11_display, s, &count);
 | 
						|
    printf("DefaultDepth = %d, DisplayPlanes = %d\n", DefaultDepth(X11_display, s), DisplayPlanes(X11_display, s));
 | 
						|
    if (depths != NULL)
 | 
						|
    {
 | 
						|
      for (i = 0; i < count; i++)
 | 
						|
        printf(" %d", depths[i]);
 | 
						|
      printf("\n");
 | 
						|
      XFree(depths);
 | 
						|
    }
 | 
						|
  }
 | 
						|
  depth = DisplayPlanes(X11_display, s);
 | 
						|
 | 
						|
  X11_window = XCreateSimpleWindow(X11_display, RootWindow(X11_display, s),
 | 
						|
                                   0, 0, *width, *height, 0, white, black);
 | 
						|
 | 
						|
  // create blank 1x1 pixmap to make a 1x1 transparent cursor
 | 
						|
  blank = XCreateBitmapFromData(X11_display, X11_window, blank_data, 1, 1);
 | 
						|
  cursor = XCreatePixmapCursor(X11_display, blank, blank, &dummy, &dummy, 0, 0);
 | 
						|
  //cursor = XCreateFontCursor(X11_display, 130 /*XC_tcross*/);
 | 
						|
  XDefineCursor(X11_display, X11_window, cursor);
 | 
						|
  XFreePixmap(X11_display, blank);
 | 
						|
  XFreeCursor(X11_display, cursor);
 | 
						|
 | 
						|
  X11_gc = XCreateGC(X11_display, X11_window, 0, NULL);
 | 
						|
  XSetFunction(X11_display, X11_gc, GXcopy);
 | 
						|
 | 
						|
  XStringListToTextProperty(winName, 1, &windowName);
 | 
						|
  XSetWMName(X11_display, X11_window, &windowName);
 | 
						|
  // TODO : set icon
 | 
						|
 | 
						|
  screen = New_GFX2_Surface(*width, *height);
 | 
						|
  memset(screen->pixels, 0, *width * *height);
 | 
						|
 | 
						|
  image_pixels = malloc(*height * *width * 4);
 | 
						|
  memset(image_pixels, 64, *height * *width * 4);
 | 
						|
#if 0
 | 
						|
{
 | 
						|
int i;
 | 
						|
for (i= 3*8; i < (*height * *width * 4); i += *width * 4)
 | 
						|
{
 | 
						|
image_pixels[i+0] = 0;  // B
 | 
						|
image_pixels[i+1] = 0;  // G
 | 
						|
image_pixels[i+2] = 0;  // R
 | 
						|
}
 | 
						|
}
 | 
						|
#endif
 | 
						|
  X11_image = XCreateImage(X11_display, visual, depth,
 | 
						|
                           ZPixmap, 0, image_pixels, *width, *height,
 | 
						|
                           32, 0/**width * 4*/);
 | 
						|
  if(X11_image == NULL)
 | 
						|
  {
 | 
						|
    fprintf(stderr, "XCreateImage failed\n");
 | 
						|
    exit(1);
 | 
						|
  }
 | 
						|
 | 
						|
  XSelectInput(X11_display, X11_window,
 | 
						|
               PointerMotionMask | ButtonPressMask | ButtonReleaseMask | KeyPressMask | ExposureMask | StructureNotifyMask);
 | 
						|
 | 
						|
  XMapWindow(X11_display, X11_window);
 | 
						|
  XFlush(X11_display);
 | 
						|
}
 | 
						|
 | 
						|
byte Get_Screen_pixel(int x, int y)
 | 
						|
{
 | 
						|
  if(screen == NULL) return 0;
 | 
						|
  return screen->pixels[x + y * screen->w];
 | 
						|
}
 | 
						|
 | 
						|
void Set_Screen_pixel(int x, int y, byte value)
 | 
						|
{
 | 
						|
  if(screen == NULL) return;
 | 
						|
  screen->pixels[x + y * screen->w] = value;
 | 
						|
}
 | 
						|
 | 
						|
byte* Get_Screen_pixel_ptr(int x, int y)
 | 
						|
{
 | 
						|
  if(screen == NULL) return NULL;
 | 
						|
  return screen->pixels + x + y * screen->w;
 | 
						|
}
 | 
						|
 | 
						|
void Screen_FillRect(int x, int y, int w, int h, byte color)
 | 
						|
{
 | 
						|
  int i;
 | 
						|
  byte * ptr;
 | 
						|
 | 
						|
  if (x < 0)
 | 
						|
  {
 | 
						|
    w += x;
 | 
						|
    x = 0;
 | 
						|
  }
 | 
						|
  if (y < 0)
 | 
						|
  {
 | 
						|
    h += y;
 | 
						|
    y = 0;
 | 
						|
  }
 | 
						|
  if (x > screen->w || y > screen->h)
 | 
						|
    return;
 | 
						|
  if ((x + w) > screen->w)
 | 
						|
    w = screen->w - x;
 | 
						|
  if ((y + h) > screen->h)
 | 
						|
    h = screen->h - y;
 | 
						|
  if (w <= 0 || h <= 0)
 | 
						|
    return;
 | 
						|
  for (i = 0; i < h; i++)
 | 
						|
  {
 | 
						|
    ptr = Get_Screen_pixel_ptr(x, y + i);
 | 
						|
    memset(ptr, color, w);
 | 
						|
  }
 | 
						|
}
 | 
						|
 | 
						|
int SetPalette(const T_Components * colors, int firstcolor, int ncolors)
 | 
						|
{
 | 
						|
  if (screen == NULL) return 0;
 | 
						|
  memcpy(screen->palette + firstcolor, colors, ncolors * sizeof(T_Components));
 | 
						|
  return 1;
 | 
						|
}
 | 
						|
 | 
						|
void Update_rect(short x, short y, unsigned short width, unsigned short height)
 | 
						|
{
 | 
						|
  int line, i;
 | 
						|
  if (screen == NULL || X11_image == NULL) return;
 | 
						|
  x *= Pixel_width;
 | 
						|
  width *= Pixel_width;
 | 
						|
  y *= Pixel_height;
 | 
						|
  height *= Pixel_height;
 | 
						|
//printf("Update_rect(%d %d %d %d) %d %d\n", x, y, width, height, screen->w, screen->h);
 | 
						|
  if (y >= screen->h || x >= screen->w) return;
 | 
						|
  if (y + height > screen->h)
 | 
						|
    height = screen->h - y;
 | 
						|
  if (x + width > screen->w)
 | 
						|
    width = screen->w - x;
 | 
						|
  for (line = y; line < y + height; line++)
 | 
						|
  {
 | 
						|
#if 0
 | 
						|
    const byte * src = Get_Screen_pixel_ptr(x, line);
 | 
						|
    byte * dest = image_pixels + line * X11_image->bytes_per_line + x * 4,
 | 
						|
    i = width;
 | 
						|
    do
 | 
						|
    {
 | 
						|
      dest[0] = screen->palette[*src].B;
 | 
						|
      dest[1] = screen->palette[*src].G;
 | 
						|
      dest[2] = screen->palette[*src].R;
 | 
						|
      dest[3] = 0;
 | 
						|
      src++;
 | 
						|
      dest += 4;
 | 
						|
    }
 | 
						|
    while(--i > 0);
 | 
						|
#else
 | 
						|
    for (i = 0; i < width; i++)
 | 
						|
    {
 | 
						|
      byte v = Get_Screen_pixel(x + i, line);
 | 
						|
      XPutPixel(X11_image, x + i, line,
 | 
						|
                (unsigned)screen->palette[v].R << 16 | (unsigned)screen->palette[v].G << 8 | (unsigned)screen->palette[v].B);
 | 
						|
    }
 | 
						|
#endif
 | 
						|
  }
 | 
						|
  XPutImage(X11_display, X11_window, X11_gc, X11_image,
 | 
						|
            x, y, x, y, width, height);
 | 
						|
  //XPutImage(X11_display, X11_window, X11_gc, X11_image,
 | 
						|
  //          0, 0, 0, 0, X11_image->width, X11_image->height);
 | 
						|
  //XSync(X11_display, False);
 | 
						|
}
 | 
						|
 | 
						|
void Flush_update(void)
 | 
						|
{
 | 
						|
  if (X11_display != NULL)
 | 
						|
    XFlush(X11_display);
 | 
						|
}
 | 
						|
 | 
						|
void Update_status_line(short char_pos, short width)
 | 
						|
{
 | 
						|
  Update_rect((18+char_pos*8)*Menu_factor_X*Pixel_width, Menu_status_Y*Pixel_height,
 | 
						|
              width*8*Menu_factor_X*Pixel_width, 8*Menu_factor_Y*Pixel_height);
 | 
						|
}
 | 
						|
 | 
						|
void Clear_border(byte color)
 | 
						|
{
 | 
						|
(void)color;//TODO
 | 
						|
}
 | 
						|
  
 | 
						|
volatile int Allow_colorcycling = 0;
 | 
						|
 | 
						|
/// Activates or desactivates file drag-dropping in program window.
 | 
						|
void Allow_drag_and_drop(int flag)
 | 
						|
{
 | 
						|
(void)flag;
 | 
						|
}
 | 
						|
 | 
						|
void Define_icon(void)
 | 
						|
{
 | 
						|
}
 |