Xref: utzoo comp.unix.microport:944 comp.unix.xenix:2599
Path: utzoo!attcan!uunet!husc6!mailrus!umix!metavax!oxtrap!b-tech!m2-net!lewis
From: lewis@m2-net.UUCP (Dave Lewis)
Newsgroups: comp.unix.microport,comp.unix.xenix
Subject: Graphics Library (part 3 of 5)
Keywords: Graphics EGA CGA Hercules Printers Microport Xenix 286 386
Message-ID: <1883@m2-net.UUCP>
Date: 1 Jul 88 04:07:31 GMT
References: <1881@m2-net.UUCP>
Reply-To: lewis@m-net.UUCP (Dave Lewis)
Organization: M-NET, Ann Arbor, MI
Lines: 1125

------------------------------  cut here  ------------------------------
# To recover, type "sh archive"
echo restoring Makefile
sed 's/^X//' > Makefile <<XxX--EOF--XxX
XCFLAGS = -c -Ml -O
XLDFLAGS = -Ml
XOBJS = testpat.o clear.o movpen.o draw.o box.o linedraw.o write_pix.o init.o grafchar.o grafstr.o finish.o cellchar.o cellstr.o cursor.o pix_mode.o pix_color.o
X
Xall:	demo xdemo mode 
X
Xmode: mode.c setmode.c 
X	cc -o mode mode.c setmode.c
X	chmod +x mode.sh
X	#
X	# If you have an EGA or CGA, you can use mode.sh instead of
X	# the mode.c program (mv mode.sh mode)."  If you have a Hercules
X	# or Everex Edge, use mode.c.  For other adapters, you may have
X	# to modify mode.c.
X	#
X	# If you use mode.c, you must make it suid and owned by root.
X	# Put it in a safe path, of course.
X	#
X	# Don't forget to create your video shared memory using 
X	# shmcreate(1).  This should be in your /etc/rc.d/shm.rc file.
X	#
X	# Try running demo and xdemo to see how things work.
X
Xdemo:	demo.o \$(OBJS)
X	cc demo.o -o demo \$(LDFLAGS) $(OBJS)
X
Xxdemo:	xdemo.o \$(OBJS)
X	cc xdemo.o -o xdemo \$(LDFLAGS) $(OBJS)
X
Xdemo.o: demo.c
X	cc \$(CFLAGS) demo.c
X
Xtestpat.o: testpat.c
X	cc \$(CFLAGS) testpat.c
X
Xclear.o: clear.c
X	cc \$(CFLAGS) clear.c
X
Xmovpen.o: movpen.c
X	cc \$(CFLAGS) movpen.c
X
Xdraw.o: draw.c
X	cc \$(CFLAGS) draw.c
X
Xbox.o: box.c
X	cc \$(CFLAGS) box.c
X
Xlinedraw.o: linedraw.c
X	cc \$(CFLAGS) linedraw.c
X
Xwrite_pix.o: write_pix.c
X	cc \$(CFLAGS) write_pix.c
X
Xinit.o: init.c
X	cc \$(CFLAGS) init.c
X
Xgrafchar.o: grafchar.c
X	cc \$(CFLAGS) grafchar.c
X
Xgrafstr.o: grafstr.c
X	cc \$(CFLAGS) grafstr.c
X
Xfinish.o: finish.c
X	cc \$(CFLAGS) finish.c
X
Xcellchar.o: cellchar.c
X	cc \$(CFLAGS) cellchar.c
X
Xcellstr.o: cellstr.c
X	cc \$(CFLAGS) cellstr.c
X
Xcursor.o: cursor.c
X	cc \$(CFLAGS) cursor.c
X
Xpix_mode.o: pix_mode.c
X	cc \$(CFLAGS) pix_mode.c
X
Xpix_color.o: pix_color.c
X	cc \$(CFLAGS) pix_color.c
X
X
XxX--EOF--XxX
echo restoring demo.c
sed 's/^X//' > demo.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) demo.c 4.6 88/06/19";
X#endif
X
X/*
X *	Copyright (c) David T. Lewis 1987, 1988
X *	All rights reserved.
X *
X *	Permission is granted to use this for any personal noncommercial use.
X *	You may not distribute source or executable code for profit, nor
X *	may you distribute it with a commercial product without the written
X *	consent of the author.  Please send modifications to the author for
X *	inclusion in updates to the program.  Thanks.
X */
X
X#include <signal.h>
X#include <sys/types.h>
X#include <ctype.h>
X#include <sys/ipc.h>
X#include <stdio.h>
X
X/*  Sun Nov 29 16:20:03 EST 1987 */
X/*  Sat Mar 21 22:59:10 EST 1987 */
X/*  Sun Feb 21 11:50:45 EST 1988 */
X
X#include "graphics.h"
X
Xextern struct SVAT_graphics graphics;
X
Xmain(argc,argv)  
Xint argc;
Xchar *argv[];
X{
X	int testpattern();
X
X	char *mode_to_use[8];
X	int idx;
X	int init(), grafstr(), finish(), istat;
X	void null_function(); 
X
X	if (argc < 2)  {
X		printf ("Usage:  demo <mode>\n\nWhere <mode> can be 4, 6, 8, EGA or print)\n");
X		exit(0);
X		}
X
X	if (strcmp(argv[1],"4") == 0) {
X		graphics.grafmode = CGA_COLOR_MODE;
X		strcpy(mode_to_use,"mode 4");
X	}
X	else if (strcmp(argv[1],"6") == 0) {
X		graphics.grafmode = CGA_HI_RES_MODE;
X		strcpy(mode_to_use,"mode 6");
X	}
X	else if (strcmp(argv[1],"8") == 0) {
X		graphics.grafmode = HERC_GRAF_MODE;
X		strcpy(mode_to_use,"mode 8");
X	}
X	else if (strcmp(argv[1],"16") == 0) {
X		graphics.grafmode = EGA_COLOR_MODE;
X		strcpy(mode_to_use,"mode 16");
X	}
X	else if (strcmp(argv[1],"EGA") == 0) { 
X		graphics.grafmode = EGA_COLOR_MODE;
X		strcpy(mode_to_use,"mode 16");
X	}
X	else if (strcmp(argv[1],"print") == 0) { 
X		graphics.grafmode = IBM_PRINTER;
X		strcpy(mode_to_use," ");
X	}
X	else  {
X		printf ("Valid modes are 4, 6, 8, EGA, and print.\n");
X		exit (1);
X	}
X
X        /* Set video mode. */
X
X	istat = init(graphics.grafmode);
X
X	system(mode_to_use);
X
X	istat = clear();
X
X	istat = testpattern();
X
X	if (graphics.grafmode != IBM_PRINTER)  {
X
X		/* Kill some time... */
X		signal(SIGALRM,null_function);
X		alarm(4);
X		pause();
X
X		istat = clear();
X
X		/* void grafstr(strng,x,y,vsize,hsize,spacing)  */
X		istat = grafstr("AbCdEfGhIjKlMnOpQrStUvWxYz",10,10000,400,180,1250);
X		istat = grafstr("AbCdEfGhIjKlMnOpQrStUvWxYz",100,25000,150,80,667);
X		istat = grafstr("AbCdEfGhIjKlMnO",100,15000,800,360,2500);
X
X		istat = grafstr("Z#\$%^&*()+",100,20000,600,400,2600);
X
X	if (graphics.grafmode != IBM_PRINTER)  {
X		/* Kill some time... */
X		signal(SIGALRM,null_function);
X		alarm(4);
X		pause();
X	}
X
X		istat = clear();
X
X		istat = cursor(1,1);
X		istat = cellstr("This should be (1,1)");
X
X		istat = cursor(2,30);
X		istat = cellstr("This should be (2,30)");
X
X		istat = cursor(3,60);
X		istat = cellstr("This should be (3,60)");
X
X		istat = cursor(10,40);
X		istat = cellstr("This should be (10,40)");
X
X		istat = cursor(25,40);
X		cellstr("X");
X
X		istat = cursor(25,80);
X		cellstr("X");
X
X		istat = cursor(43,90);
X		cellstr("X");
X
X		cursor(2,1); cellstr("This");
X		cursor(3,1); cellstr(" Is ");
X		cursor(4,1); cellstr("  A ");
X		cursor(5,1); cellstr("TEST");
X		cursor(6,1); cellstr("XXXX");
X		cursor(7,1); cellstr("XXXX");
X
X		for (idx=1;idx<=43;idx++)  {
X			cursor(idx,20);
X			cellstr("XHIHX");
X		}
X
X		/* Kill some time... */
X		signal(SIGALRM,null_function);
X		alarm(4);
X		pause();
X
X		system ("mode 2");
X	}
X
X	istat = finish();
X}
X
Xstatic void null_function()  {
X	/* Do nothing.  Dummy signal handling routine for SIGALRM. */
X}
X
XxX--EOF--XxX
echo restoring finish.c
sed 's/^X//' > finish.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) finish.c 4.6 88/06/19";
X#endif
X
X/*
X *	Copyright (c) David T. Lewis 1987, 1988
X *	All rights reserved.
X *
X *	Permission is granted to use this for any personal noncommercial use.
X *	You may not distribute source or executable code for profit, nor
X *	may you distribute it with a commercial product without the written
X *	consent of the author.  Please send modifications to the author for
X *	inclusion in updates to the program.  Thanks.
X */
X
X
X/* Wed Feb 10 20:58:37 EST 1988						*/
X/* Detach shared memory and do any other clean up chores.		*/
X/* If printing, the print job is dispatched to the print spooler.	*/
X/* This routine is specific to Microport System V/AT, and presumes 	*/
X/* that shared memory segments have been defined (usually at system 	*/
X/* boot time) such that	the shared memory keys are "B8000L" for CGA 	*/
X/* adapter, and so on. */
X
X#define TEXTPITCH(fp) fputc(033,fp);fputc('A',fp);fputc(014,fp);fputc(033,fp);fputc('2',fp);
X#define GRAFPITCH(fp) fputc(033,fp); fputc('1',fp);
X#define GRAFSTART(fp) fputc(033,fp); fputc('L',fp); fputc(0300,fp);fputc(03,fp);
X#define CRLF(fp) fputc(015,fp); fputc(012,fp);
X
X#include <stdio.h>
X#include <sys/types.h>
X#include <sys/ipc.h>
X#include <string.h>
X#include "graphics.h"
X
Xint finish()
X
X{
X	extern struct SVAT_graphics graphics;
X	int shmdt(), fprintf(), fputs(), fwrite();
X	int shmid;
X	int clear();
X	void free();
X	char *getenv();
X	extern errno;
X	int idx;
X	char printprog[60];
X	char *envptr;
X
X	FILE *popen(), *fhandle;
X	int pclose();
X
X	switch (graphics.grafmode)  {
X
X		case CGA_HI_RES_MODE:
X			/* Erase graphics memory.		*/
X			if (clear()) return(1);
X			/* Detach the shared memory segment.	*/
X			if (shmdt(graphics.cgamem) < 0) return(errno);
X			break;
X
X		case CGA_COLOR_MODE:
X			/* Erase graphics memory.		*/
X			if (clear()) return(1);
X			/* Detach the shared memory segment.	*/
X			if (shmdt(graphics.cgamem) < 0) return(errno);
X			break;
X
X		case EGA_COLOR_MODE:
X			/* Erase graphics memory.		*/
X			if (clear()) return(1);
X			/* Detach the shared memory segment.	*/
X			if (shmdt(graphics.egamem) < 0) return(errno);
X			break;
X
X		case HERC_GRAF_MODE:
X			/* Erase graphics memory.		*/
X			if (clear()) return(1);
X			/* Detach the shared memory segment.	*/
X			if (shmdt(graphics.hercmem) < 0) return(errno);
X			break;
X
X		case IBM_PRINTER:
X	
X			/* Print the buffer */
X
X			/* Use the environment variable PLOTDEV if set. */
X
X			strcpy(printprog, PRINTPROG);
X			strcat(printprog, " ");
X			if ((envptr = getenv("PLOTDEV")) != NULL)  {
X				strcat(printprog, "-d");
X				strcat(printprog, envptr);
X			}
X	
X			if ((fhandle = popen(printprog, "w")) == NULL) {
X				fprintf(stderr,
X					"finish():  Error piping to %s\n", 
X					printprog);
X				return(1); 
X				}
X
X			/* Dump the print image to the file */
X
X			/* Set line feed pitch to 7/72" */
X
X			GRAFPITCH(fhandle);
X
X			/* Write the lines of data (3 buffers full) */
X			for (idx=0; idx<PRINTLINES; idx++)  {
X				GRAFSTART(fhandle);
X				fwrite(&(graphics.printbuf1->buf[idx][0]),
X					sizeof(char), PRINTDENSITY, fhandle);
X				CRLF(fhandle);
X			}
X			for (idx=0; idx<PRINTLINES; idx++)  {
X				GRAFSTART(fhandle);
X				fwrite(&(graphics.printbuf2->buf[idx][0]),
X					sizeof(char), PRINTDENSITY, fhandle);
X				CRLF(fhandle);
X			}
X			for (idx=0; idx<PRINTLINES; idx++)  {
X				GRAFSTART(fhandle);
X				fwrite(&(graphics.printbuf3->buf[idx][0]),
X					sizeof(char), PRINTDENSITY, fhandle);
X				CRLF(fhandle);
X			}
X
X			/* Set line feed pitch back to 12/72" for text */
X			TEXTPITCH(fhandle);
X
X			if (pclose(fhandle) < 0) return(1);
X
X			/* Free the allocated memory. */
X			free(graphics.printbuf1);
X			free(graphics.printbuf2);
X			free(graphics.printbuf3);
X
X			break;
X
X		default:
X			return(1);
X	}
X	return(0);
X}
X
X
XxX--EOF--XxX
echo restoring linedraw.c
sed 's/^X//' > linedraw.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) linedraw.c 4.4 88/06/20";
X#endif
X
X/*
X *	Copyright (c) David T. Lewis 1987, 1988
X *	All rights reserved.
X *
X *	Permission is granted to use this for any personal noncommercial use.
X *	You may not distribute source or executable code for profit, nor
X *	may you distribute it with a commercial product without the written
X *	consent of the author.  Please send modifications to the author for
X *	inclusion in updates to the program.  Thanks.
X */
X
X/* Fri Jul  3 23:43:36 EDT 1987
X** dtlewis
X** Routine to draw a line.
X*/
X
Xint linedraw(x1,y1,x2,y2)  
X	int x1, y1, x2, y2;
X{
X	int movepen(), draw();
X	if (movepen(x1,y1)) return(1);
X	if (draw(x2,y2)) return(1);
X	return(0);
X}
XxX--EOF--XxX
echo restoring mode.c
sed 's/^X//' > mode.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) mode.c 4.4 88/06/19";
X#endif
X
X/*
X *	Copyright (c) David T. Lewis 1987, 1988
X *	All rights reserved.
X *
X *	Permission is granted to use this for any personal noncommercial use.
X *	You may not distribute source or executable code for profit, nor
X *	may you distribute it with a commercial product without the written
X *	consent of the author.  Please send modifications to the author for
X *	inclusion in updates to the program.  Thanks.
X */
X
X/* dtlewis 7-13-1987 
X** Take command line argument to set graphics mode.  If no argument, then
X** read standard input until end of file.
X*/
X
X#define NORMAL_MODE 2
X
X#include <stdio.h>
X
Xmain(argc,argv) 
Xint argc;
Xchar *argv[];
X{
X	int setmode();
X	int modevalue, stat;
X	char *inbuf[20];
X
X	if (argc > 2) {
X		printf("Usage:  mode n\n");
X		exit(0);
X	}
X
X	else if (argc == 2)  {
X		modevalue = atoi(argv[1]);
X		if (modevalue < 0 || modevalue > 11) {
X			printf("Mode must be between 0 and 11\n");
X			exit(0);
X		}
X		setmode(modevalue);
X	}
X	else if (argc == 1)  {
X#ifdef DEBUG
X		for ( ; ; ) {
X			stat=scanf("%d", &modevalue);
X			if (stat == EOF) exit(0);
X			/* Clear input stream if bad read. */
X			if (stat == 0) gets(inbuf, 20, stdin); 
X			if (stat == 1 && modevalue >= 0 && modevalue <=11) 
X				setmode(modevalue);
X			}
X#endif /* DEBUG */
X		setmode(NORMAL_MODE);
X		}
X	}
XxX--EOF--XxX
echo restoring mode.sh
sed 's/^X//' > mode.sh <<XxX--EOF--XxX
X:
X#  Contributed by Denis Fortin, April 1988.
X#
X#  mode - This trivial little command file is used to set the graphics mode
X#	  of the console on Microport System V/AT.
X#
X#  Usage:
X#		mode [value]
X#
X# 	where: value is an integer used to select the current display
X#		     mode.  If it is omitted, the screen is returned to
X#		     normal text mode.
X#
X#  Examples:
X#	mode
X#		Returns to normal text mode
X#
X#	mode 16
X#		Puts an EGA card with Enhanced Display adapter in 640x350
X#		graphics mode.
X#
X#	mode 6
X#		Puts a CGA card in 640x200 graphics mode.
X#
Xif [ \$# -lt 1 ] 
Xthen
X	echo "\033[=h\c"
Xelse
X	echo "\033[=\${1}h\c"
Xfi
XxX--EOF--XxX
echo restoring movpen.c
sed 's/^X//' > movpen.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) movpen.c 4.3 88/06/19";
X#endif
X
X/*
X *	Copyright (c) David T. Lewis 1987, 1988
X *	All rights reserved.
X *
X *	Permission is granted to use this for any personal noncommercial use.
X *	You may not distribute source or executable code for profit, nor
X *	may you distribute it with a commercial product without the written
X *	consent of the author.  Please send modifications to the author for
X *	inclusion in updates to the program.  Thanks.
X */
X
X/* dtlewis Fri Jul  3 23:12:40 EDT 1987 
X** Routine to move the logical graphics cursor to the indicated (x,y)
X** position.
X*/
X
X#include "graphics.h"
X
Xextern struct SVAT_graphics graphics;
X
Xint movepen(x,y)  
X	int x,y;
X{
X        /* Set the graphics cursor to the indicated position. */
X        /* X and y are in normalized 2-D coordinates (0 to 32767). */
X        if ((graphics.x_cursor = x) < 0 ) return(1);
X        if ((graphics.y_cursor = y) < 0 ) return(1);
X	return(0);
X}
XxX--EOF--XxX
echo restoring setmode.c
sed 's/^X//' > setmode.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) setmode.c 4.3 88/06/19";
X#endif
X#define MSDOS 0
X#define UNIX 1
X/*
X *	Module	:	mode
X *	Date	:	8705.20
X *	Author	:	Jeffrey A. Turner
X *	Purpose	:	Set cga video modes (0-6) when active Unix display
X *			is an mda.  Modified to support modes 7 and 8
X *			on Everex Edge.
X *
X *	Modifications:	dtlewis 8-16-1987 Changes to support mode 7 and to
X *			support Hercules operation on an Everex Edge.
X *			Hercules 720 x 348 (page 0) is referred to as
X *			mode 8 for this routine, and Hercules page 1 is
X *			referred to as mode 9.  Note that these are for
X *			convenience, and conflict with the PCjr mode
X *			assignments, which I presume to be non-reusable
X *			and obsolete.
X *
X *			Split modeset() off from the main routine to make
X *			it callable from any program.
X *
X *			Renamed the function to setmode().
X *
X *	Useage:		int setmode(modenumber)
X *			int modenumber
X *
X *	\$Log$
X */
X
X#include <stdio.h>
X#if UNIX
X#include <sys/types.h>
X#include <sys/io_op.h>
X#endif
X
Xextern	errno;
X
Xint	fd;
X
X/* Define the mode register settings. */
Xunsigned char	creg[12] = {
X	0x2c, 0x28, 0x2d, 0x2d, 0x2a, 0x2e, 0x1e, 0x2d, 0x0e, 0x8e, 0x2d, 0x2d
X};
X/* Define the Everex extended graphics register settings */
Xunsigned char	ext_graf_reg[12] = {
X	0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x02, 0x02, 0x02, 0x06, 0x06
X};
X
Xunsigned char	params[192] = {
X/*0*/	0x38, 0x28, 0x2d, 0x0a, 0x1f, 0x06, 0x19, 0x1c,   /* 40x25 b/w */
X	0x02, 0x07, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00,
X
X/*1*/	0x38, 0x28, 0x2d, 0x0a, 0x1f, 0x06, 0x19, 0x1c,   /* 40x25 color */
X	0x02, 0x07, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00,
X
X/*2*/	0x61, 0x50, 0x52, 0x0f, 0x19, 0x06, 0x19, 0x19,	  /* 80x25 b/w */
X	0x02, 0x0d, 0x0b, 0x0c, 0x00, 0x00, 0x00, 0x00,
X
X/*3*/	0x71, 0x50, 0x5a, 0x0a, 0x1f, 0x06, 0x19, 0x1c,	  /* 80x25 color */
X	0x02, 0x07, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00,
X
X/*4*/	0x38, 0x28, 0x2d, 0x0a, 0x7f, 0x06, 0x64, 0x70,	  /* 320x200 color */
X	0x02, 0x01, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00,
X
X/*5*/	0x38, 0x28, 0x2d, 0x0a, 0x7f, 0x06, 0x64, 0x70,	  /* 320x200 b/w */
X	0x02, 0x01, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00,
X
X/*6*/	0x38, 0x28, 0x2d, 0x0a, 0x7f, 0x06, 0x64, 0x70,	  /* 640x200 b/w */
X	0x02, 0x01, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00,
X
X/*7*/	0x61, 0x50, 0x52, 0x0f, 0x19, 0x06, 0x19, 0x19,	  /* mono */
X	0x02, 0x0d, 0x0b, 0x0c, 0x00, 0x00, 0x00, 0x00,
X
X/*8*/	0x36, 0x2d, 0x2e, 0x07, 0x5a, 0x02, 0x57, 0x57,   /* Hercules 720x348 */
X	0x02, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
X
X/*9*/	0x37, 0x2d, 0x2f, 0x05, 0x57, 0x00, 0x57, 0x57,   /* Hercules 720x348 */
X	0x02, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
X
X/*10*/	0x9a, 0x84, 0x86, 0x0f, 0x19, 0x06, 0x19, 0x19,   /* Everex 132x25b&w */
X	0x02, 0x0d, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00,
X
X/*11*/	0x9a, 0x84, 0x86, 0x0f, 0x2d, 0x02, 0x2c, 0x2c,   /* Everex 132x44b&w */
X	0x02, 0x07, 0x06, 0x07, 0x00, 0x00, 0x00, 0x00
X};
X
Xsetmode(mode)
Xint	mode;
X{
X	int	i;
X	int	j;
X	int	bport;
X	int	cgaaddr  = 0x3d4;		/* cga 6845 port address */
X	int	monoaddr = 0x3b4;		/* mda 6845 port address */
X
X#if UNIX
X	if ((fd = open("/dev/mem", 2)) < 0) {
X		fprintf(stderr, "mode: open of /dev/mem failed\n");
X		perror("mode");
X		exit(1);
X		}
X#endif
X	if ((mode == 2 | mode == 7) | (mode == 8) | (mode == 9) |
X			(mode == 10) | (mode == 11))  {
X		/* Select mono mode on Everex Edge. */
X		bport = cgaaddr;
X		outb(bport+9, 2);		/* Extended Graphics Register */
X		bport = monoaddr;
X		}
X	else  {
X		/* Select CGA mode on Everex Edge. */
X		bport = monoaddr;
X		outb(bport+9, 0);		/* Extended Graphics Register */
X		bport = cgaaddr;
X		}
X
X	outb(bport+4, 0);			/* Reset mode register */
X
X	outb(bport+11, 0x06);			/* Enable all 64k of Everex 
X						** Edge video memory, for mono 
X						** adapter. 
X						*/
X
X	outb(bport+9, ext_graf_reg[mode]);	/* set Everex "extended 
X						graphics register" */
X	j = (mode+1)*16;
X	for(i=mode*16; i < j; i++) {
X		outb(bport, i);			/* select register */
X		outb(bport+1, params[i]);	/* send value */
X		}
X
X	outb(bport+4, creg[mode]);		/* enable */
X	if (mode == 6)
X		outb(bport+5, 0x3f);	/* set overscan for 640x200 */
X	else
X		outb(bport+5, 0x30);	/* set normal overscan */
X	close(fd);
X	return(0);
X}
X
X#if UNIX
Xoutb(portno, data)
Xint	portno;
Xint	data;
X{
X	io_op_t	iop;
X
X	iop.io_port = portno;
X	iop.io_byte = data;
X	if (ioctl(fd, IOCIOP_WB, &iop) < 0) {
X		fprintf(stderr, "mode: error on IOCIOP_WB\n");
X		perror("mode");
X		exit(1);
X	}
X}
X#endif
X
X
X#if MSDOS
Xoutb(portno, data)
Xint portno;
Xint data;
X{
X	outp(portno,data);
X}
X#endif
X
XxX--EOF--XxX
echo restoring testpat.c
sed 's/^X//' > testpat.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) testpat.c 4.5 88/06/20";
X#endif
X#include "graphics.h"
Xextern struct SVAT_graphics graphics;
X
Xint testpattern()  {
X
X	int pix_color();
X
X        /* Put a test pattern on the screen. */
X
X	int linedraw(), movepen(), draw(), box();
X
X	if (linedraw(4000,4000,20000,20000)) return(1);
X
X        if (movepen(6000,6000)) return(1);
X        if (draw(12000,6000)) return(1);
X        if (draw(12000,12000)) return(1);
X        if (draw(6000,12000)) return(1);
X        if (draw(6000,6000)) return(1);
X
X        if (movepen(6000,6000)) return(1);
X        if (draw(12000,12000)) return(1);
X
X	pix_color(3);
X
X	if (box(700,700,900,1200)) return(1);
X	if (box(900,1200,1100,1700)) return(1);
X	if (box(20000,20000,30000,30000)) return(1);
X
X	if (box(1000,10000,12000,12000)) return(1);
X	if (box(9000,9000,13000,13000)) return(1);
X	if (box(8000,8000,14000,14000)) return(1);
X	if (box(7000,7000,15000,15000)) return(1);
X	if (box(6000,6000,16000,16000)) return(1);
X
X        if (movepen(2000,13000)) return(1);
X        if (draw(4000,13000)) return(1);
X        if (movepen(4000,13300)) return(1);
X        if (draw(2000,13300)) return(1);
X
X	pix_color(2);
X
X        if (movepen(2000,14000)) return(1);
X        if (draw(30000,14400)) return(1);
X        if (draw(2000,14800)) return(1);
X        if (draw(30000,15200)) return(1);
X        if (draw(2000,15600)) return(1);
X        if (draw(30000,16000)) return(1);
X        if (draw(2000,16400)) return(1);
X        if (draw(30000,16800)) return(1);
X        if (draw(2000,17200)) return(1);
X        if (draw(30000,17600)) return(1);
X        if (draw(2000,18000)) return(1);
X        if (draw(30000,18400)) return(1);
X        if (draw(0,18800)) return(1);
X        if (draw(32000,19200)) return(1);
X        if (draw(0,19600)) return(1);
X        if (draw(32000,20000)) return(1);
X        if (draw(0,20400)) return(1);
X        if (draw(32000,20800)) return(1);
X        if (draw(0,21200)) return(1);
X        if (draw(32000,21600)) return(1);
X        if (draw(0,22000)) return(1);
X        if (draw(32000,22400)) return(1);
X
X        if (movepen(6000,4000)) return(1);
X        if (draw(6200,30000)) return(1);
X        if (draw(6400,4000)) return(1);
X        if (draw(6600,30000)) return(1);
X        if (draw(6800,4000)) return(1);
X        if (draw(7000,30000)) return(1);
X        if (draw(7200,4000)) return(1);
X        if (draw(7400,30000)) return(1);
X        if (draw(7600,4000)) return(1);
X        if (draw(7800,30000)) return(1);
X        if (draw(8000,4000)) return(1);
X        if (draw(8200,30000)) return(1);
X        if (draw(8400,4000)) return(1);
X
X	pix_color(1);
X
X        if (movepen(2000,2000)) return(1);
X        if (draw(32000,4000)) return(1);
X        if (draw(31000,32000)) return(1);
X        if (draw(1000,30000)) return(1);
X        if (draw(2000,2000)) return(1);
X        if (draw(31000,32000)) return(1);
X
X        if (movepen(0,0)) return(1);
X        if (draw(32767,0)) return(1);
X        if (draw(32767,32767)) return(1);
X        if (draw(0,32767)) return(1);
X        if (draw(0,0)) return(1);
X        if (draw(32767,32767)) return(1);
X        if (movepen(0,32767)) return(1);
X        if (draw(32767,0)) return(1);
X
X	return(0);
X}
XxX--EOF--XxX
echo restoring write_pix.c
sed 's/^X//' > write_pix.c <<XxX--EOF--XxX
X#ifndef lint
Xstatic char sccsid[] = "@(#) write_pix.c 4.9 88/06/19";
X#endif
X
X/*
X *	Copyright (c) David T. Lewis 1987, 1988
X *	All rights reserved.
X *
X *	Permission is granted to use this for any personal noncommercial use.
X *	You may not distribute source or executable code for profit, nor
X *	may you distribute it with a commercial product without the written
X *	consent of the author.  Please send modifications to the author for
X *	inclusion in updates to the program.  Thanks.
X */
X
X#include "graphics.h"
X/*
X *	The following routine writes a pixel dot on a CGA in modes 4
X *	and 6 and on Hercules for Microport System V/AT.
X *	Also writes to pixel buffer for printer support.
X *	Note: Operation of the "color" variable is untested; I have
X *	an Everex Edge with mono display.  Probably will work, though.
X *	I have used this in a program which does line drawing graphics,
X *	and it runs much faster than the equivalent MS-DOS program
X *	calling BIOS.  (Tested under MS-DOS with Mix-C compiler).
X */
X
Xint write_pix(x,y)  
X	int x, y;
X{
X
X/*	Mon Mar 23 00:14:50 EST 1987
X *	Sun Mar 13 22:21:46 EST 1988
X *	system5 dtlewis 2 1.3 AT
X *
X *	Compile with large memory model.
X *
X *	This routine currently supports modes 4, 6, and Hercules (arbitrarily
X *	defined as mode 8), as well as buffer for printer graphics.
X */
X
Xextern struct SVAT_graphics graphics;
X
Xstatic int row, col, page;
Xunsigned register char bitmask;
Xregister char shiftcount;
X
Xswitch (graphics.grafmode) {
X
X	case CGA_COLOR_MODE:
X
X		row = y >> 1;
X		col = x >> 2;
X
X		/* Select a color mask, consisting of four 2 bit patterns. */
X		switch (graphics.color) {
X			case 0:	bitmask = 0;
X				break;
X			case 1: bitmask = 0x055;
X				break;
X			case 2: bitmask = 0x0AA;
X				break;
X			case 3:	bitmask = 0x0FF;
X				break;
X			default:bitmask = 0x0FF;
X		}
X
X		/* Apply the color mask to the two bit pixel of interest. */
X		switch (x & 0x0003)  {
X			case 0:	bitmask &= PIX0;
X				break;
X			case 1:	bitmask &= PIX1;
X				break;
X			case 2:	bitmask &= PIX2;
X				break;
X			case 3:	bitmask &= PIX3;
X				break;
X		}
X
X		/* Write pixel to the appropriate page for this line. */
X		if (y & 0x0001) 
X			switch (graphics.wrt_mode)  {
X				case OR:
X					(graphics.cgamem)->page2[row][col] 
X						|= bitmask;
X					break;
X				case XOR:
X					(graphics.cgamem)->page2[row][col] 
X						^= bitmask;
X					break;
X			}
X		else
X			switch (graphics.wrt_mode)  {
X				case OR:
X					(graphics.cgamem)->page1[row][col] 
X						|= bitmask;
X					break;
X				case XOR:
X					(graphics.cgamem)->page1[row][col] 
X						^= bitmask;
X					break;
X			}
X		break;
X
X	case CGA_HI_RES_MODE:
X
X		row = y >> 1;
X		col = x >> 3;
X
X		bitmask = 0x80;
X		shiftcount = x & 0x0007;
X		bitmask = bitmask >> shiftcount;
X
X		if (y & 0x0001) {
X			switch (graphics.wrt_mode)  {
X				case OR:
X					(graphics.cgamem)->page2[row][col] 
X						|= bitmask;
X					break;
X				case XOR:
X					(graphics.cgamem)->page2[row][col] 
X						^= bitmask;
X					break;
X			}
X		}
X		else {
X			switch (graphics.wrt_mode)  {
X				case OR:
X					(graphics.cgamem)->page1[row][col] 
X						|= bitmask;
X					break;
X				case XOR:
X					(graphics.cgamem)->page1[row][col] 
X						^= bitmask;
X					break;
X			}
X		}
X		break;
X
X	case EGA_COLOR_MODE:
X
X		col = x >> 3;
X
X		bitmask = 0x80;
X		shiftcount = x & 0x0007;
X		bitmask = bitmask >> shiftcount;
X
X		(graphics.egamem)->mem[y][col] |= bitmask;
X		break;
X
X	case HERC_GRAF_MODE:
X
X		row = y >> 2;
X		col = x >> 3;
X
X		bitmask = 0x80 >> (x & 0x0007);
X
X		switch (y & 0x0003) {
X
X			case 0:
X				switch (graphics.wrt_mode)  {
X					case OR:
X						(graphics.hercmem)
X						->page1[row][col] 
X						|= bitmask;
X						break;
X					case XOR:
X						(graphics.hercmem)
X						->page1[row][col] 
X						^= bitmask;
X						break;
X				}
X				break;
X			case 1:
X				switch (graphics.wrt_mode)  {
X					case OR:
X						(graphics.hercmem)
X						->page2[row][col] 
X						|= bitmask;
X						break;
X					case XOR:
X						(graphics.hercmem)
X						->page2[row][col] 
X						^= bitmask;
X						break;
X				}
X				break;
X			case 2:
X				switch (graphics.wrt_mode)  {
X					case OR:
X						(graphics.hercmem)
X						->page3[row][col] 
X						|= bitmask;
X						break;
X					case XOR:
X						(graphics.hercmem)
X						->page3[row][col] 
X						^= bitmask;
X						break;
X				}
X				break;
X			case 3:
X				switch (graphics.wrt_mode)  {
X					case OR:
X						(graphics.hercmem)
X						->page4[row][col] 
X						|= bitmask;
X						break;
X					case XOR:
X						(graphics.hercmem)
X						->page4[row][col] 
X						^= bitmask;
X						break;
X				}
X				break;
X		}
X		break;
X
X	case IBM_PRINTER:
X
X		col = PRINTDENSITY - y - 1;
X
X		row = (x >> 3);
X		page = 0;
X		while (row >= PRINTLINES)  {
X			row -= PRINTLINES;
X			++page;
X		}
X
X		bitmask = 0x80 >> (x & 0x0007);
X
X		switch (page) {
X
X			case 0:	/* Page 0 */
X				switch (graphics.wrt_mode)  {
X					case OR:
X						(graphics.printbuf1)
X						->buf[row][col] 
X						|= bitmask;
X						break;
X					case XOR:
X						(graphics.printbuf1)
X						->buf[row][col] 
X						^= bitmask;
X						break;
X					}
X				break;
X			case 1:	/* Page 1 */
X				switch (graphics.wrt_mode)  {
X					case OR:
X						(graphics.printbuf2)
X						->buf[row][col] 
X						|= bitmask;
X						break;
X					case XOR:
X						(graphics.printbuf2)
X						->buf[row][col] 
X						^= bitmask;
X						break;
X					}
X				break;
X			case 2: /* Page 2 */
X				switch (graphics.wrt_mode)  {
X					case OR:
X						(graphics.printbuf3)
X						->buf[row][col] 
X						|= bitmask;
X						break;
X					case XOR:
X						(graphics.printbuf3)
X						->buf[row][col] 
X						^= bitmask;
X						break;
X					}
X				break;
X		}
X		break;
X	default:
X		return(1);
X	}
X	return(0);
X}
XxX--EOF--XxX
-- 
Dave Lewis
Ann Arbor, MI
...![ itivax umix ]!m-net!dtlewis!lewis