github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-18 17:07:24 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.maiko/src/draw.c
Nick Briggs 1cc7617978 Add missing return type.
2017-05-24 17:24:11 -07:00

392 lines
8.8 KiB
C
Executable File
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 "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
LispPTR 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 View Git Blame Copy Permalink