mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-27 04:12:51 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
391
src/draw.c
Executable file
391
src/draw.c
Executable file
@@ -0,0 +1,391 @@
|
||||
/* $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 "display.h"
|
||||
|
||||
#include "my.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
|
||||
n_new_cursorin_CG6( dx, dy, w, h )
|
||||
register int dx, dy, w, 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(ptr, curbit, xsize, width, ysize, op, delta, numx, numy)
|
||||
register int curbit, xsize;
|
||||
int width;
|
||||
register int ysize;
|
||||
int op;
|
||||
register int delta, numx, numy;
|
||||
LispPTR ptr;
|
||||
{
|
||||
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
Block a user