ite_cc.c revision 1.3 1 /* $NetBSD: ite_cc.c,v 1.3 1995/05/21 10:56:54 leo Exp $ */
2
3 /*
4 * Copyright (c) 1994 Christian E. Hopps
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 * must display the following acknowledgement:
17 * This product includes software developed by Christian E. Hopps.
18 * 4. The name of the author may not be used to endorse or promote products
19 * derived from this software without specific prior written permission
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
22 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
23 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
24 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
25 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
26 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
27 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
28 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
29 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
30 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 */
32
33 #include "grf.h"
34 #if NGRF > 0
35
36 #include <sys/param.h>
37 #include <sys/conf.h>
38 #include <sys/proc.h>
39 #include <sys/device.h>
40 #include <sys/ioctl.h>
41 #include <sys/tty.h>
42 #include <sys/systm.h>
43 #include <sys/queue.h>
44 #include <sys/termios.h>
45 #include <sys/malloc.h>
46 #include <dev/cons.h>
47 #include <machine/cpu.h>
48 #include <atari/dev/itevar.h>
49 #include <atari/dev/iteioctl.h>
50 #include <atari/dev/grfioctl.h>
51 #include <atari/dev/grfabs_reg.h>
52 #include <atari/dev/grfvar.h>
53 #include <atari/dev/font.h>
54 #include <atari/dev/viewioctl.h>
55 #include <atari/dev/viewvar.h>
56
57 /*
58 * This is what ip->priv points to;
59 * it contains local variables for custom-chip ites.
60 */
61 struct ite_priv {
62 u_char **row_ptr; /* array of pointers into the bitmap */
63 u_long row_bytes;
64 u_long cursor_opt;
65 u_short *column_offset; /* array of offsets for columns */
66 u_int row_offset; /* the row offset */
67 u_short width; /* the bitmap width */
68 u_short underline; /* where the underline goes */
69 u_short ft_x; /* the font width */
70 u_short ft_y; /* the font height */
71 u_char *font_cell[256];/* the font pointer */
72 };
73 typedef struct ite_priv ipriv_t;
74
75 /*
76 * We need the following space to get an ite-console setup before
77 * the VM-system is brought up. We setup for a 1280x960 monitor with
78 * an 8x8 font.
79 */
80 extern int atari_realconfig;
81
82 #define CONS_MAXROW 120 /* Max. number of rows on console */
83 #define CONS_MAXCOL 160 /* Max. number of columns on console */
84 static u_short con_columns[CONS_MAXCOL];
85 static u_char *con_rows[CONS_MAXROW];
86 static ipriv_t con_ipriv;
87
88 extern font_info font_info_8x8;
89 extern font_info font_info_8x16;
90
91 static void view_init __P((struct ite_softc *));
92 static void view_deinit __P((struct ite_softc *));
93 static int ite_newsize __P((struct ite_softc *, struct itewinsize *));
94 static void cursor32 __P((struct ite_softc *, int));
95 static void putc8 __P((struct ite_softc *, int, int, int, int));
96 static void clear8 __P((struct ite_softc *, int, int, int, int));
97 static void scroll8 __P((struct ite_softc *, int, int, int, int));
98 static void scrollbmap __P((bmap_t *, u_short, u_short, u_short, u_short,
99 short, short));
100
101 /*
102 * Patchable
103 */
104 int ite_default_x = 0; /* def leftedge offset */
105 int ite_default_y = 0; /* def topedge offset */
106 int ite_default_width = 640; /* def width */
107 int ite_default_depth = 1; /* def depth */
108 int ite_default_height = 400; /* def height */
109
110 /*
111 * called from grf_cc to return console priority
112 */
113 int
114 grfcc_cnprobe()
115 {
116 return(CN_INTERNAL);
117 }
118 /*
119 * called from grf_cc to init ite portion of
120 * grf_softc struct
121 */
122 void
123 grfcc_iteinit(gp)
124 struct grf_softc *gp;
125 {
126
127 gp->g_itecursor = cursor32;
128 gp->g_iteputc = putc8;
129 gp->g_iteclear = clear8;
130 gp->g_itescroll = scroll8;
131 gp->g_iteinit = view_init;
132 gp->g_itedeinit = view_deinit;
133 }
134
135 static void
136 view_deinit(ip)
137 struct ite_softc *ip;
138 {
139 ip->flags &= ~ITE_INITED;
140 }
141
142 static void
143 view_init(ip)
144 register struct ite_softc *ip;
145 {
146 struct itewinsize wsz;
147 ipriv_t *cci;
148
149 if(cci = ip->priv)
150 return;
151
152 #if defined(KFONT_8X8)
153 ip->font = font_info_8x8;
154 #else
155 ip->font = font_info_8x16;
156 #endif
157
158 /* Find the correct set of rendering routines for this font. */
159 if(ip->font.width != 8)
160 panic("kernel font size not supported");
161
162 if(!atari_realconfig)
163 ip->priv = cci = &con_ipriv;
164 else ip->priv = cci = (ipriv_t*)malloc(sizeof(*cci), M_DEVBUF,M_WAITOK);
165 if(cci == NULL)
166 panic("No memory for ite-view");
167 bzero(cci, sizeof(*cci));
168
169 cci->cursor_opt = 0;
170 cci->row_ptr = NULL;
171 cci->column_offset = NULL;
172
173 wsz.x = ite_default_x;
174 wsz.y = ite_default_y;
175 wsz.width = ite_default_width;
176 wsz.height = ite_default_height;
177 wsz.depth = ite_default_depth;
178
179 ite_newsize (ip, &wsz);
180
181 /*
182 * Only console will be turned on by default..
183 */
184 if(ip->flags & ITE_ISCONS)
185 ip->grf->g_mode(ip->grf, GM_GRFON, NULL, 0, 0);
186 }
187
188 static int
189 ite_newsize(ip, winsz)
190 struct ite_softc *ip;
191 struct itewinsize *winsz;
192 {
193 extern struct view_softc views[];
194 struct view_size vs;
195 ipriv_t *cci = ip->priv;
196 u_long fbp, i, j;
197 int error = 0;
198 view_t *view;
199
200 vs.x = winsz->x;
201 vs.y = winsz->y;
202 vs.width = winsz->width;
203 vs.height = winsz->height;
204 vs.depth = winsz->depth;
205
206 error = viewioctl(ip->grf->g_viewdev, VIOCSSIZE, &vs, 0, -1);
207 view = ip->grf->g_view = views[ip->grf->g_viewdev].view;
208
209 /*
210 * Reinitialize our structs
211 */
212 ip->cols = view->display.width / ip->font.width;
213 ip->rows = view->display.height / ip->font.height;
214
215 /*
216 * save new values so that future opens use them
217 * this may not be correct when we implement Virtual Consoles
218 */
219 ite_default_height = view->display.height;
220 ite_default_width = view->display.width;
221 ite_default_x = view->display.x;
222 ite_default_y = view->display.y;
223 ite_default_depth = view->bitmap->depth;
224
225 if(cci->row_ptr && (cci->row_ptr != con_rows)) {
226 free(cci->row_ptr, M_DEVBUF);
227 cci->row_ptr = NULL;
228 }
229 if(cci->column_offset && (cci->column_offset != con_columns)) {
230 free(cci->column_offset, M_DEVBUF);
231 cci->column_offset = NULL;
232 }
233
234 if(!atari_realconfig) {
235 cci->row_ptr = con_rows;
236 cci->column_offset = con_columns;
237 }
238 else {
239 cci->row_ptr = malloc(sizeof(u_char *) * ip->rows,M_DEVBUF,M_NOWAIT);
240 cci->column_offset = malloc(sizeof(u_int)*ip->cols,M_DEVBUF,M_NOWAIT);
241 }
242
243 if(!cci->row_ptr || !cci->column_offset)
244 panic("No memory for ite-view");
245
246 cci->width = view->bitmap->bytes_per_row << 3;
247 cci->underline = ip->font.baseline + 1;
248 cci->row_offset = view->bitmap->bytes_per_row;
249 cci->ft_x = ip->font.width;
250 cci->ft_y = ip->font.height;
251 cci->row_bytes = cci->row_offset * cci->ft_y;
252 cci->row_ptr[0] = view->bitmap->plane;
253 for(i = 1; i < ip->rows; i++)
254 cci->row_ptr[i] = cci->row_ptr[i-1] + cci->row_bytes;
255
256 /*
257 * Initialize the column offsets to point at the correct location
258 * in the first plane. This definitely assumes a font width of 8!
259 */
260 j = view->bitmap->depth * 2;
261 cci->column_offset[0] = 0;
262 for(i = 1; i < ip->cols; i++)
263 cci->column_offset[i] = ((i >> 1) * j) + (i & 1);
264
265 /* initialize the font cell pointers */
266 cci->font_cell[ip->font.font_lo] = ip->font.font_p;
267 for(i = ip->font.font_lo+1; i <= ip->font.font_hi; i++)
268 cci->font_cell[i] = cci->font_cell[i-1] + ip->font.height;
269
270 return(error);
271 }
272
273 int
274 ite_grf_ioctl(ip, cmd, addr, flag, p)
275 struct ite_softc *ip;
276 u_long cmd;
277 caddr_t addr;
278 int flag;
279 struct proc *p;
280 {
281 struct winsize ws;
282 struct itewinsize *is;
283 struct itebell *ib;
284 int error = 0;
285 ipriv_t *cci = ip->priv;
286 view_t *view = ip->grf->g_view;
287
288 switch (cmd) {
289 case ITEIOCGWINSZ:
290 is = (struct itewinsize *)addr;
291 is->x = view->display.x;
292 is->y = view->display.y;
293 is->width = view->display.width;
294 is->height = view->display.height;
295 is->depth = view->bitmap->depth;
296 break;
297 case ITEIOCSWINSZ:
298 is = (struct itewinsize *)addr;
299
300 if(ite_newsize(ip, is))
301 error = ENOMEM;
302 else {
303 view = ip->grf->g_view;
304 ws.ws_row = ip->rows;
305 ws.ws_col = ip->cols;
306 ws.ws_xpixel = view->display.width;
307 ws.ws_ypixel = view->display.height;
308 ite_reset(ip);
309 /*
310 * XXX tell tty about the change
311 * XXX this is messy, but works
312 */
313 iteioctl(ip->grf->g_itedev,TIOCSWINSZ,(caddr_t)&ws,0,p);
314 }
315 break;
316 case ITEIOCDSPWIN:
317 ip->grf->g_mode(ip->grf, GM_GRFON, NULL, 0, 0);
318 break;
319 case ITEIOCREMWIN:
320 ip->grf->g_mode(ip->grf, GM_GRFOFF, NULL, 0, 0);
321 break;
322 case ITEIOCGBELL:
323 #if 0 /* LWP */
324 /* XXX This won't work now */
325 /* XXX Should the bell be device dependent? */
326 ib = (struct itebell *)addr;
327 ib->volume = bvolume;
328 ib->pitch = bpitch;
329 ib->msec = bmsec;
330 #endif
331 break;
332 case ITEIOCSBELL:
333 #if 0 /* LWP */
334 /* XXX See above */
335 ib = (struct itebell *)addr;
336 /* bounds check */
337 if(ib->pitch > MAXBPITCH || ib->pitch < MINBPITCH ||
338 ib->volume > MAXBVOLUME || ib->msec > MAXBTIME)
339 error = EINVAL;
340 else {
341 bvolume = ib->volume;
342 bpitch = ib->pitch;
343 bmsec = ib->msec;
344 }
345 #endif
346 break;
347 case VIOCSCMAP:
348 case VIOCGCMAP:
349 /*
350 * XXX watchout for that -1 its not really the kernel talking
351 * XXX these two commands don't use the proc pointer though
352 */
353 error = viewioctl(ip->grf->g_viewdev, cmd, addr, flag, -1);
354 break;
355 default:
356 error = -1;
357 break;
358 }
359 return (error);
360 }
361
362 static void
363 cursor32(struct ite_softc *ip, int flag)
364 {
365 int cend;
366 u_char *pl;
367 ipriv_t *cci;
368
369 cci = ip->priv;
370
371 if(flag == END_CURSOROPT)
372 cci->cursor_opt--;
373 else if(flag == START_CURSOROPT) {
374 if(!cci->cursor_opt)
375 cursor32(ip, ERASE_CURSOR);
376 cci->cursor_opt++;
377 return; /* if we are already opted. */
378 }
379
380 if(cci->cursor_opt)
381 return; /* if we are still nested. */
382 /* else we draw the cursor. */
383
384 if(flag != DRAW_CURSOR && flag != END_CURSOROPT) {
385 /*
386 * erase the cursor
387 */
388 cend = ip->font.height-1;
389 pl = cci->column_offset[ip->cursorx]
390 + cci->row_ptr[ip->cursory];
391 __asm__ __volatile__
392 ("1: notb %0@ ; addaw %4,%0\n\t"
393 "dbra %1,1b"
394 : "=a" (pl), "=d" (cend)
395 : "0" (pl), "1" (cend),
396 "d" (cci->row_offset)
397 );
398 }
399
400 if(flag != DRAW_CURSOR && flag != MOVE_CURSOR && flag != END_CURSOROPT)
401 return;
402
403 /*
404 * draw the cursor
405 */
406 ip->cursorx = min(ip->curx, ip->cols-1);
407 ip->cursory = ip->cury;
408 cend = ip->font.height-1;
409 pl = cci->column_offset[ip->cursorx]
410 + cci->row_ptr[ip->cursory];
411
412 __asm__ __volatile__
413 ("1: notb %0@ ; addaw %4,%0\n\t"
414 "dbra %1,1b"
415 : "=a" (pl), "=d" (cend)
416 : "0" (pl), "1" (cend),
417 "d" (cci->row_offset)
418 );
419 }
420
421 static void
422 putc8(struct ite_softc *ip, int c, int dy, int dx, int mode)
423 {
424 register ipriv_t *cci = (ipriv_t *)ip->priv;
425 register u_char *pl = cci->column_offset[dx] + cci->row_ptr[dy];
426 register u_int fh = cci->ft_y;
427 register u_int ro = cci->row_offset;
428 register u_char eor_mask;
429 register u_char bl, tmp, ul;
430 register u_char *ft;
431
432 if(c < ip->font.font_lo || c > ip->font.font_hi)
433 return;
434
435 ft = cci->font_cell[c];
436
437 if(!mode) {
438 while(fh--) {
439 *pl = *ft++; pl += ro;
440 }
441 return;
442 }
443
444 eor_mask = (mode & ATTR_INV) ? 0xff : 0x00;
445 bl = (mode & ATTR_BOLD) ? 1 : 0;
446 ul = (mode & ATTR_UL) ? fh - cci->underline : fh;
447 for(; fh--; pl += ro) {
448 if(fh != ul) {
449 tmp = *ft++;
450 if(bl)
451 tmp |= (tmp >> 1);
452 *pl = tmp ^ eor_mask;
453 }
454 else {
455 *pl = 0xff ^ eor_mask;
456 ft++;
457 }
458 }
459 }
460
461 static void
462 clear8(struct ite_softc *ip, int sy, int sx, int h, int w)
463 {
464 ipriv_t *cci = (ipriv_t *) ip->priv;
465 view_t *v = ip->grf->g_view;
466 bmap_t *bm = v->bitmap;
467
468 if((sx == 0) && (w == ip->cols)) {
469 /* common case: clearing whole lines */
470 while (h--) {
471 int i;
472 u_char *ptr = cci->row_ptr[sy];
473 for(i = 0; i < ip->font.height; i++) {
474 bzero(ptr, bm->bytes_per_row);
475 ptr += bm->bytes_per_row;
476 }
477 sy++;
478 }
479 }
480 else {
481 /*
482 * clearing only part of a line
483 * XXX could be optimized MUCH better, but is it worth the
484 * trouble?
485 */
486
487 int i;
488 u_char *pls, *ple;
489
490 pls = cci->row_ptr[sy];
491 ple = pls + cci->column_offset[sx + w-1];
492 pls = pls + cci->column_offset[sx];
493
494 for(i = ((ip->font.height) * h)-1; i >= 0; i--) {
495 u_char *p = pls;
496 while(p <= ple)
497 *p++ = 0;
498 pls += bm->bytes_per_row;
499 ple += bm->bytes_per_row;
500 }
501 }
502 }
503
504 /* Note: sx is only relevant for SCROLL_LEFT or SCROLL_RIGHT. */
505 static void
506 scroll8(ip, sy, sx, count, dir)
507 register struct ite_softc *ip;
508 register int sy;
509 int dir, sx, count;
510 {
511 bmap_t *bm = ip->grf->g_view->bitmap;
512 u_char *pl = ((ipriv_t *)ip->priv)->row_ptr[sy];
513
514 if(dir == SCROLL_UP) {
515 int dy = sy - count;
516 int height = ip->bottom_margin - sy + 1;
517 int i;
518
519 cursor32(ip, ERASE_CURSOR);
520 scrollbmap(bm, 0, dy*ip->font.height, bm->bytes_per_row >> 3,
521 (ip->bottom_margin-dy+1)*ip->font.height,
522 0, -(count*ip->font.height));
523 }
524 else if(dir == SCROLL_DOWN) {
525 int dy = sy + count;
526 int height = ip->bottom_margin - dy + 1;
527 int i;
528
529 cursor32(ip, ERASE_CURSOR);
530 scrollbmap(bm, 0, sy*ip->font.height, bm->bytes_per_row >> 3,
531 (ip->bottom_margin-sy+1)*ip->font.height,
532 0, count*ip->font.height);
533 }
534 else if(dir == SCROLL_RIGHT) {
535 int sofs = (ip->cols - count) * ip->font.width;
536 int dofs = (ip->cols) * ip->font.width;
537 int i, j;
538
539 cursor32(ip, ERASE_CURSOR);
540 for(j = ip->font.height-1; j >= 0; j--) {
541 int sofs2 = sofs, dofs2 = dofs;
542 for (i = (ip->cols - (sx + count))-1; i >= 0; i--) {
543 int t;
544 sofs2 -= ip->font.width;
545 dofs2 -= ip->font.width;
546 asm("bfextu %1@{%2:%3},%0" : "=d" (t)
547 : "a" (pl), "d" (sofs2), "d" (ip->font.width));
548 asm("bfins %3,%0@{%1:%2}" :
549 : "a" (pl), "d" (dofs2), "d" (ip->font.width),
550 "d" (t));
551 }
552 pl += bm->bytes_per_row;
553 }
554 }
555 else { /* SCROLL_LEFT */
556 int sofs = (sx) * ip->font.width;
557 int dofs = (sx - count) * ip->font.width;
558 int i, j;
559
560 cursor32(ip, ERASE_CURSOR);
561 for(j = ip->font.height-1; j >= 0; j--) {
562 int sofs2 = sofs, dofs2 = dofs;
563 for(i = (ip->cols - sx)-1; i >= 0; i--) {
564 int t;
565
566 asm("bfextu %1@{%2:%3},%0" : "=d" (t)
567 : "a" (pl), "d" (sofs2), "d" (ip->font.width));
568 asm("bfins %3,%0@{%1:%2}"
569 : : "a" (pl), "d" (dofs2),"d" (ip->font.width),
570 "d" (t));
571 sofs2 += ip->font.width;
572 dofs2 += ip->font.width;
573 }
574 pl += bm->bytes_per_row;
575 }
576 }
577 }
578
579 static void
580 scrollbmap (bmap_t *bm, u_short x, u_short y, u_short width, u_short height, short dx, short dy)
581 {
582 u_short depth = bm->depth;
583 u_short lwpr = bm->bytes_per_row >> 2;
584
585 if(dx) {
586 /* FIX: */ panic ("delta x not supported in scroll bitmap yet.");
587 }
588
589 if(dy == 0) {
590 return;
591 }
592 if(dy > 0) {
593 u_long *pl = (u_long *)bm->plane;
594 u_long *src_y = pl + (lwpr*y);
595 u_long *dest_y = pl + (lwpr*(y+dy));
596 u_long count = lwpr*(height-dy);
597 u_long *clr_y = src_y;
598 u_long clr_count = dest_y - src_y;
599 u_long bc, cbc;
600
601 src_y += count - 1;
602 dest_y += count - 1;
603
604 bc = count >> 4;
605 count &= 0xf;
606
607 while (bc--) {
608 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
609 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
610 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
611 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
612 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
613 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
614 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
615 *dest_y-- = *src_y--; *dest_y-- = *src_y--;
616 }
617 while (count--)
618 *dest_y-- = *src_y--;
619
620 cbc = clr_count >> 4;
621 clr_count &= 0xf;
622
623 while (cbc--) {
624 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
625 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
626 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
627 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
628 }
629 while(clr_count--)
630 *clr_y++ = 0;
631 }
632 else {
633 u_long *pl = (u_long *)bm->plane;
634 u_long *src_y = pl + (lwpr*(y-dy));
635 u_long *dest_y = pl + (lwpr*y);
636 long count = lwpr*(height + dy);
637 u_long *clr_y = dest_y + count;
638 u_long clr_count = src_y - dest_y;
639 u_long bc, cbc;
640
641 bc = count >> 4;
642 count &= 0xf;
643
644 while(bc--) {
645 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
646 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
647 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
648 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
649 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
650 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
651 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
652 *dest_y++ = *src_y++; *dest_y++ = *src_y++;
653 }
654 while(count--)
655 *dest_y++ = *src_y++;
656
657 cbc = clr_count >> 4;
658 clr_count &= 0xf;
659
660 while (cbc--) {
661 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
662 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
663 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
664 *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
665 }
666 while (clr_count--)
667 *clr_y++ = 0;
668 }
669 }
670 #else
671 #error Must be defined
672 #endif /* NGRF */
673