mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-16 16:19:10 +00:00
3d9f090e70
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h Move structures for dir.c to dirdefs.h where they are used Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines Fix = vs == bug in FSDEBUG code in dir.c Eliminate duplicate/unused constant definitions in gcr.c Declare static internal function bytecmp in mkatom.c Update many source and include files to include headers for what they use
85 lines
2.8 KiB
C
85 lines
2.8 KiB
C
/* $Id: xbbt.c,v 1.2 1999/01/03 02:07:46 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
|
/* All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <X11/Xlib.h> // for XFlush, XPutImage
|
|
#include "devif.h" // for (anonymous), MRegion, DspInterface
|
|
#include "lispemul.h" // for DLword
|
|
#include "version.h"
|
|
#include "xbbtdefs.h" // for clipping_Xbitblt
|
|
#include "xdefs.h" // for XLOCK, XUNLOCK
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* c l i p p i n g _ X b i t b l t */
|
|
/* */
|
|
/* BITBLT from the display region to the X server's display, */
|
|
/* clipping to fit the window we're in on the server. */
|
|
/* */
|
|
/* dummy is the placeholder for the bitmap to be blitted */
|
|
/* */
|
|
/************************************************************************/
|
|
unsigned long clipping_Xbitblt(DspInterface dsp, DLword *dummy, int x, int y, int w, int h)
|
|
{
|
|
int temp_x, temp_y, LowerRightX, LowerRightY;
|
|
|
|
LowerRightX = dsp->Visible.x + dsp->Visible.width - 1;
|
|
LowerRightY = dsp->Visible.y + dsp->Visible.height - 1;
|
|
|
|
/* display region of interest lower right x, y pixel */
|
|
temp_x = x + w - 1;
|
|
temp_y = y + h - 1;
|
|
|
|
/* if the display region of interest is completely outside the visible window */
|
|
if ((temp_x < dsp->Visible.x) || (x > LowerRightX) || (temp_y < dsp->Visible.y) ||
|
|
(y > LowerRightY))
|
|
return (0);
|
|
|
|
/* if the display region of interest is completely within the visible window */
|
|
if ((x >= dsp->Visible.x) && (temp_x <= LowerRightX) && (y >= dsp->Visible.y) &&
|
|
(temp_y <= LowerRightY)) {
|
|
XLOCK;
|
|
XPutImage(dsp->display_id, dsp->DisplayWindow, dsp->Copy_GC, &dsp->ScreenBitmap, x, y,
|
|
x - dsp->Visible.x, y - dsp->Visible.y, w, h);
|
|
XFlush(dsp->display_id);
|
|
XUNLOCK(dsp);
|
|
return (1);
|
|
}
|
|
|
|
/* clip left to visible window */
|
|
if (x < dsp->Visible.x) {
|
|
w -= dsp->Visible.x - x;
|
|
x = dsp->Visible.x;
|
|
}
|
|
|
|
/* clip right to visible window */
|
|
if (temp_x > LowerRightX) w -= temp_x - LowerRightX;
|
|
|
|
/* clip top to visible window */
|
|
if (y < dsp->Visible.y) {
|
|
h -= dsp->Visible.y - y;
|
|
y = dsp->Visible.y;
|
|
}
|
|
|
|
/* clip bottom to visible window */
|
|
if (temp_y > LowerRightY) h -= temp_y - LowerRightY;
|
|
|
|
if ((w > 0) && (h > 0)) {
|
|
XLOCK;
|
|
XPutImage(dsp->display_id, dsp->DisplayWindow, dsp->Copy_GC, &dsp->ScreenBitmap, x, y,
|
|
x - dsp->Visible.x, y - dsp->Visible.y, w, h);
|
|
XFlush(dsp->display_id);
|
|
XUNLOCK(dsp);
|
|
}
|
|
return (1);
|
|
|
|
} /* end clipping_Xbitblt */
|