github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-15 15:57:13 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.maiko/src/draw.c
Nick Briggs eaca0e1b72 If "my.h" is included "arith.h" is also required for N_ARITH_SWITCH macro definition. 
modified:   src/draw.c
	modified:   src/eqf.c
	modified:   src/fp.c
	modified:   src/z2.c
2020-07-26 20:40:54 -04:00

354 lines
9.3 KiB
C
Raw Blame History

/* $Id: draw.c,v 1.2 1999/01/03 02:06:56 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: draw.c,v 1.2 1999/01/03 02:06:56 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* 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. */
/* */
/* The contents of this file are proprietary information */
/* belonging to Venue, and are provided to you under license. */
/* They may not be further distributed or disclosed to third */
/* parties without the specific permission of Venue. */
/* */
/************************************************************************/
#include "version.h"
#include <stdio.h>
#ifndef NOPIXRECT
#include <sys/ioctl.h>
#include <sunwindow/window_hs.h>
#include <sunwindow/win_ioctl.h>
#endif
#include "lispemul.h"
#include "lspglob.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "emlglob.h"
#include "adr68k.h"
#include "bitblt.h"
#include "bbtsub.h"
#include "display.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 */
#ifdef SUNDISPLAY
#ifndef DISPLAYBUFFER
HideCursor; /** Figure out how to be smart later **/
#else /* DISPLAYBUFFER */
#ifndef OLD_CURSOR
HideCursor;
#endif /* OLD_CURSOR */
#endif /* DISPLAYBUFFER */
#endif /* SUNDISPLAY */
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 SUNDISPLAY
#ifndef DISPLAYBUFFER
ShowCursor; /** figure how to be smart later **/
#else
#ifndef OLD_CURSOR
ShowCursor;
#endif /* OLD_CURSOR */
#endif /* DISPLAYBUFFER */
#endif /* SUNDISPLAY */
#ifdef DISPLAYBUFFER
#ifdef COLOR
if (MonoOrColor == MONO_SCREEN)
#endif /* COLOR */
{
DLword *start_addr, *temp_s, *temp_e;
start_addr = (DLword *)Addr68k_from_LADDR(ptr);
if (((int)(temp_s = (DLword *)(start_addr - DisplayRegion68k)) >= 0) &&
(start_addr < DisplayRegion68k_end_addr) &&
((int)(temp_e = (DLword *)(dataptr - DisplayRegion68k)) >= 0) &&
((DLword *)dataptr < DisplayRegion68k_end_addr)) {
int start_x, start_y, end_x, end_y, w, h, displayflg;
start_y = (int)temp_s / DisplayRasterWidth;
start_x = ((int)temp_s % DisplayRasterWidth) * BITSPER_DLWORD;
end_y = (int)temp_e / DisplayRasterWidth;
end_x = ((int)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(SUNDISPLAY) && !defined(BYTESWAP)
#ifdef OLD_CURSOR
if ((displayflg = n_new_cursorin_CG6(start_x, start_y, w, h))) HideCursor;
#endif /* OLD_CURSOR */
pr_rop(ColorDisplayPixrect, start_x, start_y, w, h, PIX_SRC, DisplayRegionPixrect, start_x,
start_y);
#ifdef OLD_CURSOR
if (displayflg) ShowCursor;
#endif /* OLD_CURSOR */
#endif /* SUNDISPLAY */
#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 */
Reference in New Issue View Git Blame Copy Permalink