static int
readCharacters_PcBiosScreen (const ScreenBox *box, ScreenCharacter *buffer) {
unsigned offset = ScreenPrimary;
ScreenDescription description;
int row, col;
describe_PcBiosScreen(&description);
if (!validateScreenBox(box, description.cols, description.rows)) return 0;
_farsetsel(_go32_conventional_mem_selector());
for (row=box->top; row<box->top+box->height; ++row)
for (col=box->left; col<box->left+box->width; ++col) {
buffer->text = _farnspeekb(offset + row*description.cols*2 + col*2);
buffer->attributes = _farnspeekb(offset + row*description.cols*2 + col*2 + 1);
buffer++;
}
return 1;
}
void tui_area_get(tui_area_t *a, int x, int y, int width, int height)
{
BYTE *p;
int i, j;
if (*a == NULL) {
*a = lib_malloc(sizeof (struct tui_area));
(*a)->mem = lib_malloc(2 * width * height);
} else {
(*a)->mem = lib_realloc((*a)->mem, 2 * width * height);
}
(*a)->width = width;
(*a)->height = height;
_farsetsel(_dos_ds);
for (p = (*a)->mem, i = 0; i < height; i++) {
int addr = screen_addr(x, y + i);
for (j = 0; j < 2 * width; j++)
*(p++) = _farnspeekb(addr + j);
}
}
/* Get clipboard data, return its length.
Warning: this doesn't check whether DATA has enough space to hold
SIZE bytes. */
unsigned
get_clipboard_data (unsigned Format, void *Data, unsigned Size, int Raw)
{
__dpmi_regs regs;
unsigned long xbuf_addr;
unsigned char *dp = Data;
if (Format != CF_OEMTEXT)
return 0;
if (Size == 0)
return 0;
if ((xbuf_addr = alloc_xfer_buf (Size)) == 0)
return 0;
/* Calls Int 2Fh/AX=1705h with:
DX = WinOldAp-Supported Clipboard format
ES:BX = Pointer to data buffer to hold data
Return Values AX == 0: Error occurred (or data in this format is not
in the clipboard)
<> 0: OK */
regs.x.ax = 0x1705;
regs.x.dx = Format;
regs.x.es = xbuf_addr >> 4;
regs.x.bx = xbuf_addr & 15;
__dpmi_int (0x2f, ®s);
if (regs.x.ax != 0)
{
unsigned char null_char = '\0';
unsigned long xbuf_beg = xbuf_addr;
/* If last_clipboard_text is NULL, we don't want to slow down
the next loop by an additional test. */
register unsigned char *lcdp =
last_clipboard_text == NULL ? &null_char : last_clipboard_text;
/* Copy data from low memory, remove CR
characters before LF if needed. */
_farsetsel (_dos_ds);
while (Size--)
{
register unsigned char c = _farnspeekb (xbuf_addr++);
if (*lcdp == c)
lcdp++;
if ((*dp++ = c) == '\r' && !Raw && _farnspeekb (xbuf_addr) == '\n')
{
dp--;
*dp++ = '\n';
xbuf_addr++;
if (*lcdp == '\n')
lcdp++;
}
/* Windows reportedly rounds up the size of clipboard data
(passed in SIZE) to a multiple of 32, and removes trailing
spaces from each line without updating SIZE. We therefore
bail out when we see the first null character. */
else if (c == '\0')
break;
}
/* If the text in clipboard is identical to what we put there
last time set_clipboard_data was called, pretend there's no
data in the clipboard. This is so we don't pass our own text
from the clipboard (which might be troublesome if the killed
text includes null characters). */
if (last_clipboard_text &&
xbuf_addr - xbuf_beg == (long)(lcdp - last_clipboard_text))
dp = (unsigned char *)Data + 1;
}
free_xfer_buf ();
return (unsigned) (dp - (unsigned char *)Data - 1);
}
/* detect_os:
* Operating system autodetection routine.
*/
static void detect_os()
{
static int done = 0;
__dpmi_regs r;
char buf[16];
char *p;
int i;
if (done) return;
done = 1;
/* check for Windows 3.1 or 95 */
r.x.ax = 0x1600;
__dpmi_int(0x2F, &r);
if ((r.h.al != 0) && (r.h.al != 1) && (r.h.al != 0x80) && (r.h.al != 0xFF)) {
dz_i_love_bill = TRUE;
return;
}
/* check for Windows NT */
p = getenv("OS");
if (((p) && (stricmp(p, "Windows_NT") == 0)) || (_get_dos_version(1) == 0x0532)) {
dz_i_love_bill = TRUE;
return;
}
/* check for OS/2 */
r.x.ax = 0x4010;
__dpmi_int(0x2F, &r);
if (r.x.ax != 0x4010) {
dz_i_love_bill = TRUE;
return;
}
/* check for Linux DOSEMU */
_farsetsel(_dos_ds);
for (i=0; i<8; i++)
buf[i] = _farnspeekb(0xFFFF5+i);
buf[8] = 0;
if (!strcmp(buf, "02/25/93")) {
r.x.ax = 0;
__dpmi_int(0xE6, &r);
if (r.x.ax == 0xAA55) {
dz_i_love_bill = TRUE; /* (evil chortle) */
return;
}
}
/* check if running under OpenDOS */
r.x.ax = 0x4452;
__dpmi_int(0x21, &r);
if ((r.x.ax >= 0x1072) && !(r.x.flags & 1)) {
/* now check for OpenDOS EMM386.EXE */
r.x.ax = 0x12FF;
r.x.bx = 0x0106;
__dpmi_int(0x2F, &r);
if ((r.x.ax == 0) && (r.x.bx == 0xEDC0)) {
dz_i_love_bill = TRUE;
}
return;
}
/* check for that stupid win95 "stealth mode" setting */
r.x.ax = 0x8102;
r.x.bx = 0;
r.x.dx = 0;
__dpmi_int(0x4B, &r);
if ((r.x.bx == 3) && !(r.x.flags & 1)) {
dz_i_love_bill = TRUE;
return;
}
}
void main(void) {
int xy,i,j,c,x,y,front,back,n,minc,maxc;
int ix,iy,k,address,jx,jy,kx,ky;
float dzdx,dzdy,a,b,dot,norm,tmp;
float rx,ry,sx,sy,px,py;
long p,q;
RGB rgb;
for (x=0;x<scrwid;x++) {
for (y=0;y<scrhei;y++) {
rx=(float)x/scrwid*2-1;
ry=(float)y/scrhei*2-1;
sx=rx*.8;
sy=ry*.8;
px=(sx+1)/2*scrwid;
py=(sy+1)/2*scrhei;
ix=(int)px;
iy=(int)py;
amount[x][y][0][0]=((float)ix+1-(float)px)*((float)(iy+1)-(float)py);
amount[x][y][1][0]=((float)px-(float)ix)*((float)(iy+1)-(float)py);
amount[x][y][0][1]=((float)ix+1-(float)px)*((float)py-(float)iy);
amount[x][y][1][1]=((float)px-(float)ix)*((float)py-(float)iy);
pix[x][y]=ix;
piy[x][y]=iy;
// printf("%f",amount[x][y][0][0]+amount[x][y][1][0]+amount[x][y][0][1]+amount[x][y][1][1]);
if (mysquare(amount[x][y][0][0]+amount[x][y][1][0]+amount[x][y][0][1]+amount[x][y][1][1]-1)>0.00001) {
printf("%d %d %f %f ",ix,iy,px,py);
printf("%f+%f(%f*%f)+%f+%f=%f? \n",amount[x][y][0][0],amount[x][y][1][0],(float)px-(float)ix,(float)(iy+1)-(float)py,amount[x][y][0][1],amount[x][y][1][1],amount[x][y][0][0]+amount[x][y][1][0]+amount[x][y][0][1]+amount[x][y][1][1]);
}
}
}
// srand(456789);
srand((int)time(NULL));
//printf("%d\n",(int)time(NULL));
allegro_init ();
install_keyboard ();
install_timer ();
set_gfx_mode (GFX_AUTODETECT, scrwid, scrhei, 0, 0);
set_pallete (desktop_palette);
buffer = create_bitmap (scrwid, scrhei);
clear (buffer);
// textout_centre (buffer, font, "Press SPACE!", 60, 220, 4);
// Set up grayscale colours
for (c=0;c<=255;c++) {
i=0;
rgb.r=c*63/255;
rgb.g=0;
rgb.b=0;
set_color(c,&rgb);
// colors[c]=GrAllocColor(c,i,i);
}
for (x=0; x<scrwid; x++) {
for (y=0; y<scrhei; y++) {
putpixel(buffer,x,y,128);
}
}
blit (buffer, screen, 0, 0, 0, 0, scrwid, scrhei);
_farsetsel(screen->seg);
while(!key[KEY_ESC]) {
for (x=0; x<scrwid; x++) {
for (y=0; y<scrhei; y++) {
c=0;
kx=x-scrwid/2;
ky=y-scrhei/2;
jx=kx*cos(ang)+ky*sin(ang);
jy=-kx*sin(ang)+ky*cos(ang);
ix=scrwid/2+0.9*jx;
iy=scrhei/2+0.9*jy;
k=0;
i=0;j=0;
// for (i=-1;i<=1;i++) {
// for (j=-1;j<=1;j++) {
// c=c+getpixel(screen, ix+i, iy+j);
address = bmp_read_line(screen, iy)+ix;
c=c+_farnspeekb(address);
k++;
// }
// }
c=c/k;
c--;
// address = bmp_write_line(buffer, y)+x;
// _farnspokeb(address, c);
putpixel(buffer, x, y, c);
}
}
for (i=1;i<=10;i++)
circlefill(buffer,myrnd()*scrwid,myrnd()*scrhei,8,myrnd()*255);
// putpixel(buffer,scrwid/2,scrhei/2,255);
blit (buffer, screen, 0, 0, 0, 0, scrwid, scrhei);
}
destroy_bitmap(buffer);
exit(0);
getch();
// GrSetMode(GR_default_text);
printf("max col %d\n",maxc);
printf("min col %d\n",minc);
}
