xref: /csrg-svn/old/lib2648/areaclear.c (revision 11461)
1*11461Sralph /*	areaclear.c	4.1	83/03/09	*/
2*11461Sralph 
3*11461Sralph #include "2648.h"
4*11461Sralph 
5*11461Sralph areaclear(rmin, cmin, rmax, cmax)
6*11461Sralph int rmin, cmin, rmax, cmax;
7*11461Sralph {
8*11461Sralph 	int osm;
9*11461Sralph 	char mes[20];
10*11461Sralph 	register int i;
11*11461Sralph 
12*11461Sralph #ifdef TRACE
13*11461Sralph 	if (trace)
14*11461Sralph 		fprintf(trace, "areaclear(%d, %d, %d, %d)\n", rmin, cmin, rmax, cmax);
15*11461Sralph #endif
16*11461Sralph 	osm = _supsmode;
17*11461Sralph 	setclear();
18*11461Sralph 	sync();
19*11461Sralph #ifdef notdef
20*11461Sralph 	/* old kludge because I couldn't get area fill to work */
21*11461Sralph 	for (i=rmax; i>=rmin; i--) {
22*11461Sralph 		move(cmin, i);
23*11461Sralph 		draw(cmax, i);
24*11461Sralph 	}
25*11461Sralph #endif
26*11461Sralph 	sprintf(mes, "%da1b%d %d %d %de", (_video==NORMAL) ? 1 : 2, cmin, rmin, cmax, rmax);
27*11461Sralph 	escseq(ESCM);
28*11461Sralph 	outstr(mes);
29*11461Sralph 	_supsmode = osm;
30*11461Sralph }
31