mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-16 00:04:59 +00:00
de5ea2110f
* Correct warning: cast to smaller integer type -- X_init/lispbitmap * Fixes to INTRSAFE, INTRSAFE0 and ensure TIMEOUT, TIMEOUT0 used appropriately INTRSAFE and INTRSAFE0 must clear errno before executing the library or system call because not all library calls set errno on success. Avoid casting pointers or larger integer values down to smaller ints before comparing to 0 or -1, and use NULL (a pointer) rather than 0. Fix cases where the result of the library call is a pointer rather than an int to use TIMEOUT0 instead of TIMEOUT, testing for NULL rather than -1 on timeout (errno == EINTR) * Remove useless validity check of LASTVMEMFILEPAGE_word pointer * Convert pointer arithmetic type in drawline from int to ptrdiff_t * Add NOTE warning about a 32-bit vs 64-bit issue affecting currently unused GET_NATIVE_ADDR_FROM_LISP_PTR
311 lines
7.9 KiB
C
311 lines
7.9 KiB
C
/* $Id: draw.c,v 1.2 1999/01/03 02:06:56 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* D R A W . C */
|
|
/* */
|
|
/* Line-drawing code, N_OP_drawline. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "lispemul.h"
|
|
#include "lspglob.h"
|
|
#include "lispmap.h"
|
|
#include "lsptypes.h"
|
|
#include "emlglob.h"
|
|
#include "adr68k.h"
|
|
#include "bitblt.h"
|
|
#include "display.h"
|
|
|
|
#include "drawdefs.h"
|
|
#include "bbtsubdefs.h"
|
|
#include "initdspdefs.h"
|
|
|
|
#ifdef DISPLAYBUFFER
|
|
extern struct pixrect *ColorDisplayPixrect, *DisplayRegionPixrect;
|
|
#endif
|
|
|
|
extern int displaywidth, displayheight;
|
|
extern int DisplayRasterWidth;
|
|
extern DLword *DisplayRegion68k_end_addr;
|
|
|
|
extern int LispWindowFd;
|
|
extern int ScreenLocked;
|
|
|
|
#ifdef COLOR
|
|
extern int MonoOrColor;
|
|
#endif /* COLOR */
|
|
|
|
#ifdef DISPLAYBUFFER
|
|
LispPTR n_new_cursorin_CG6(int dx, int dy, int w, int h)
|
|
{
|
|
if ((dx < MOUSEXR) && (dx + w > MOUSEXL) && (dy < MOUSEYH) && (dy + h > MOUSEYL))
|
|
return (T);
|
|
else
|
|
return (NIL);
|
|
}
|
|
#endif
|
|
|
|
/************************************************************
|
|
# name len-1 stk level effect UFN table entry
|
|
73 DRAWLINE 0 -8 \DRAWLINE.UFN
|
|
|
|
takes 9 (!) args from top of stack, does line draw inner loop
|
|
Entry format:
|
|
TOS --> Maximum number of Y steps allowed {uYCount}
|
|
SP-0 --> Maximum number of X steps allowed {uXCount}
|
|
SP-2 --> Initial Delta {Delta}
|
|
SP-4 --> Function number: {L2}
|
|
0: Set pixel
|
|
1: Reset Pixel
|
|
2: Invert Pixel
|
|
SP-6 --> Relative Y coordinate of end of line (for the bucket) {uYT}
|
|
SP-8 --> Width of bitmap (in words), signed to indicate Y direction {uYIncHi , uYIncLo}
|
|
SP-10 -> Relative X coordinate of end of line (for the bucket) {uXT}
|
|
SP-12 -> bit index [0..15] of bit to start at {CurBit}
|
|
SP-14 -> Pointer to first word in bitmap {uPAdrHi , uPAdrLo}
|
|
|
|
|
|
***********************************************************/
|
|
/* curbit = bit position for next bit */
|
|
/* delta = current value of delta */
|
|
/* op = draw operation: 0/paint, 1/erase, 2/invert */
|
|
/*****
|
|
plot:
|
|
if x = xmax or y = ymax then exit
|
|
data = data op curbit;
|
|
if (ymax > xmax) then {movex(-), if delta neg, then movey(+), goto plot}
|
|
else {movey(-), if delta neg, then movex(+), goto plot}
|
|
|
|
movex = {
|
|
xmax--
|
|
delta = delta +/- ysize
|
|
curbit >>= 1
|
|
if curbit = 0 then {curbit = 0x8000, incx}
|
|
}
|
|
movey = {
|
|
ymax--
|
|
delta = delta +/- xsize
|
|
incy
|
|
}
|
|
*****/
|
|
|
|
/*
|
|
ptr pointer to "first word of bitmap"
|
|
curbit bit index to start with, and tracks therefrom.
|
|
xsize Rel X coord
|
|
width width of bitmap, in words
|
|
ysize Rel Y coord of end of line
|
|
op operation
|
|
delta initial delta
|
|
numx step count for X steps
|
|
numy step count for Y steps
|
|
*/
|
|
|
|
#ifdef XWINDOW
|
|
#define DISPLAYBUFFER
|
|
#endif /* XWINDOW */
|
|
|
|
int N_OP_drawline(LispPTR ptr, int curbit, int xsize, int width, int ysize, int op, int delta, int numx, int numy)
|
|
{
|
|
register DLword *dataptr;
|
|
ScreenLocked = T;
|
|
|
|
#ifdef COLOR
|
|
if (MonoOrColor == MONO_SCREEN)
|
|
#endif /* COLOR */
|
|
|
|
|
|
delta &= 0xFFFF;
|
|
op &= 3;
|
|
|
|
if ((SEGMASK & width) == S_POSITIVE)
|
|
width &= 0xFFFF;
|
|
else if ((SEGMASK & width) == S_NEGATIVE)
|
|
width |= 0xFFFF0000;
|
|
else
|
|
ERROR_EXIT(numy);
|
|
|
|
curbit = 0x8000 >> (curbit & 0xFFFF);
|
|
dataptr = Addr68k_from_LADDR(ptr);
|
|
numy &= 0xFFFF;
|
|
numx &= 0xFFFF;
|
|
ysize &= 0xFFFF;
|
|
xsize &= 0xFFFF;
|
|
if (xsize > ysize) {
|
|
delta = xsize - delta - 1;
|
|
switch (op) {
|
|
case 0:
|
|
while (numx && numy) {
|
|
if (!curbit) {
|
|
curbit = 0x8000;
|
|
dataptr++;
|
|
} /* end if curbit */
|
|
GETWORD(dataptr) |= curbit;
|
|
numx--;
|
|
delta -= ysize;
|
|
curbit >>= 1;
|
|
if (delta < 0) {
|
|
numy--;
|
|
delta += xsize;
|
|
dataptr += width;
|
|
} /* end if delta */
|
|
} /* end while */
|
|
break;
|
|
case 1:
|
|
while (numx && numy) {
|
|
if (!curbit) {
|
|
curbit = 0x8000;
|
|
dataptr++;
|
|
} /* end if curbit */
|
|
GETWORD(dataptr) &= ~curbit;
|
|
numx--;
|
|
delta -= ysize;
|
|
curbit >>= 1;
|
|
if (delta < 0) {
|
|
numy--;
|
|
delta += xsize;
|
|
dataptr += width;
|
|
} /* end if delta */
|
|
} /* end while */
|
|
break;
|
|
case 2:
|
|
while (numx && numy) {
|
|
if (!curbit) {
|
|
curbit = 0x8000;
|
|
dataptr++;
|
|
}
|
|
GETWORD(dataptr) ^= curbit;
|
|
numx--;
|
|
delta -= ysize;
|
|
curbit >>= 1;
|
|
if (delta < 0) {
|
|
numy--;
|
|
delta += xsize;
|
|
dataptr += width;
|
|
} /* end if delta */
|
|
} /* end while */
|
|
break;
|
|
} /* end switch */
|
|
} /* end if */
|
|
else { /* yfirst */
|
|
delta = ysize - delta - 1;
|
|
switch (op) {
|
|
case 0:
|
|
while (numx && numy) {
|
|
GETWORD(dataptr) |= curbit;
|
|
numy--;
|
|
delta -= xsize;
|
|
dataptr += width;
|
|
if (delta < 0) {
|
|
numx--;
|
|
delta += ysize;
|
|
curbit >>= 1;
|
|
if (!curbit) {
|
|
curbit = 0x8000;
|
|
dataptr++;
|
|
}
|
|
} /* end if delta */
|
|
} /* end while */
|
|
break;
|
|
case 1:
|
|
while (numx && numy) {
|
|
GETWORD(dataptr) &= ~curbit;
|
|
numy--;
|
|
delta -= xsize;
|
|
dataptr += width;
|
|
if (delta < 0) {
|
|
numx--;
|
|
delta += ysize;
|
|
curbit >>= 1;
|
|
if (!curbit) {
|
|
curbit = 0x8000;
|
|
dataptr++;
|
|
}
|
|
} /* end if delta */
|
|
} /* end while */
|
|
break;
|
|
case 2:
|
|
while (numx && numy) {
|
|
GETWORD(dataptr) ^= curbit;
|
|
numy--;
|
|
delta -= xsize;
|
|
dataptr += width;
|
|
if (delta < 0) {
|
|
numx--;
|
|
delta += ysize;
|
|
curbit >>= 1;
|
|
if (!curbit) {
|
|
curbit = 0x8000;
|
|
dataptr++;
|
|
}
|
|
} /* end if delta */
|
|
} /* end while */
|
|
break;
|
|
} /* end switch */
|
|
} /* end else */
|
|
#ifdef COLOR
|
|
if (MonoOrColor == MONO_SCREEN)
|
|
#endif /* COLOR */
|
|
|
|
|
|
#ifdef DISPLAYBUFFER
|
|
#ifdef COLOR
|
|
if (MonoOrColor == MONO_SCREEN)
|
|
#endif /* COLOR */
|
|
|
|
{
|
|
DLword *start_addr;
|
|
start_addr = (DLword *)Addr68k_from_LADDR(ptr);
|
|
|
|
if (in_display_segment(start_addr) && in_display_segment(dataptr)) {
|
|
int start_x, start_y, end_x, end_y, w, h;
|
|
ptrdiff_t temp_s, temp_e;
|
|
|
|
temp_s = start_addr - DisplayRegion68k;
|
|
temp_e = dataptr - DisplayRegion68k;
|
|
|
|
start_y = temp_s / DisplayRasterWidth;
|
|
start_x = (temp_s % DisplayRasterWidth) * BITSPER_DLWORD;
|
|
|
|
end_y = temp_e / DisplayRasterWidth;
|
|
end_x = (temp_e % DisplayRasterWidth) * BITSPER_DLWORD + (BITSPER_DLWORD - 1);
|
|
|
|
w = abs(start_x - end_x) + 1;
|
|
h = abs(start_y - end_y) + 1;
|
|
|
|
if (start_x > end_x) start_x = end_x;
|
|
if (start_y > end_y) start_y = end_y;
|
|
|
|
#if defined(XWINDOW) || defined(BYTESWAP)
|
|
flush_display_region(start_x, start_y, w, h);
|
|
#endif /* XWINDOW */
|
|
}
|
|
}
|
|
#endif /* DISPLAYBUFFER */
|
|
|
|
ScreenLocked = NIL;
|
|
|
|
return (0); /* return a value for the error test to check. */
|
|
|
|
} /* end N_OP_drawline() */
|
|
|
|
#ifdef XWINDOW
|
|
#undef DISPLAYBUFFER
|
|
#endif /* XWINDOW */
|
|
|
|
/* end module */
|