mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2025-01-25 01:29:56 +00:00
82 lines
1.9 KiB
C
82 lines
1.9 KiB
C
/* ------------------------------------------------------------------------
|
|
System : Manx Aztec C65 Version 3.2b
|
|
MS-DOS cross-development environment
|
|
Platform : Apple IIe 128K PRODOS 8
|
|
Program : d2monplt.h
|
|
Description : G2 Library Routine
|
|
Double Hi-Res 560 x 192 x monochrome plot routine
|
|
Written by : Bill Buckels
|
|
Date Written : July 31, 2013
|
|
Revision : 1.0 First Release
|
|
Licence : You may use this routine for whatever you wish as long
|
|
as you agree that Bill Buckels has no warranty or
|
|
liability obligations whatsoever from said use.
|
|
------------------------------------------------------------------------ */
|
|
|
|
extern unsigned HB[]; /* page 2 scanline origins */
|
|
extern unsigned char dhbmono[];
|
|
extern unsigned char dhwmono[];
|
|
|
|
int d2monoplot(x,y1,y2,drawcolor)
|
|
int x, y1, y2, drawcolor;
|
|
{
|
|
int y, xoff, pixel, aux = 0;
|
|
unsigned char *ptr, auxbuf[1];
|
|
unsigned dest;
|
|
|
|
/* swap coordinates if out of order */
|
|
if (y1 > y2) {
|
|
y = y1;
|
|
y1 = y2;
|
|
y2 = y;
|
|
}
|
|
|
|
/* allow bi-directional scanline wrap */
|
|
if (x < 0) x+= 560;
|
|
if (x > 559) x-=560;
|
|
|
|
if (x < 0 || x > 559 || y1 < 0 || y2 > 191)return 0;
|
|
|
|
pixel = (x%14);
|
|
if (pixel > 6) {
|
|
/* main memory */
|
|
pixel -= 7;
|
|
}
|
|
else {
|
|
/* auxiliary memory */
|
|
aux = 1;
|
|
ptr = (unsigned char *)&auxbuf[0];
|
|
}
|
|
xoff = x/14;
|
|
|
|
y2++;
|
|
for (y = y1; y < y2; y++) {
|
|
|
|
if (aux == 1) {
|
|
/* auxiliary memory */
|
|
dest = HB[y] + xoff;
|
|
auxtomain(dest,dest,&auxbuf[0]);
|
|
}
|
|
else {
|
|
/* main memory */
|
|
ptr = (unsigned char *) (HB[y] + xoff);
|
|
}
|
|
|
|
if (drawcolor != 0) {
|
|
/* white */
|
|
*ptr = *ptr | dhwmono[pixel]; /* inclusive OR */
|
|
}
|
|
else {
|
|
/* black */
|
|
*ptr = *ptr & dhbmono[pixel]; /* bitwise AND */
|
|
}
|
|
if (aux == 1) {
|
|
/* auxiliary memory */
|
|
maintoaux(&auxbuf[0],&auxbuf[0],dest);
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|