src/crt.c

   1 /*
   2  * crt.c:
   3  *
   4  * Copyright (c) 2008 James McKenzie <sympathy@madingley.org>,
   5  * All rights reserved.
   6  *
   7  */
   8
   9 static char rcsid[] = "$Id: crt.c,v 1.18 2008/03/07 12:37:04 james Exp $";
  10
  11 /*
  12  * $Log: crt.c,v $
  13  * Revision 1.18  2008/03/07 12:37:04  james
  14  * *** empty log message ***
  15  *
  16  * Revision 1.17  2008/03/03 06:04:42  james
  17  * *** empty log message ***
  18  *
  19  * Revision 1.16  2008/03/02 10:37:56  james
  20  * *** empty log message ***
  21  *
  22  * Revision 1.15  2008/02/27 09:42:21  james
  23  * *** empty log message ***
  24  *
  25  * Revision 1.14  2008/02/27 00:27:21  james
  26  * *** empty log message ***
  27  *
  28  * Revision 1.13  2008/02/26 23:56:12  james
  29  * *** empty log message ***
  30  *
  31  * Revision 1.12  2008/02/26 23:23:17  james
  32  * *** empty log message ***
  33  *
  34  * Revision 1.11  2008/02/23 11:48:37  james
  35  * *** empty log message ***
  36  *
  37  * Revision 1.10  2008/02/22 17:07:00  james
  38  * *** empty log message ***
  39  *
  40  * Revision 1.9  2008/02/07 13:22:51  james
  41  * *** empty log message ***
  42  *
  43  * Revision 1.8  2008/02/07 13:19:48  james
  44  * *** empty log message ***
  45  *
  46  * Revision 1.7  2008/02/07 12:41:06  james
  47  * *** empty log message ***
  48  *
  49  * Revision 1.6  2008/02/07 12:16:04  james
  50  * *** empty log message ***
  51  *
  52  * Revision 1.5  2008/02/06 11:30:37  james
  53  * *** empty log message ***
  54  *
  55  * Revision 1.4  2008/02/05 01:11:46  james
  56  * *** empty log message ***
  57  *
  58  * Revision 1.3  2008/02/04 20:23:55  james
  59  * *** empty log message ***
  60  *
  61  * Revision 1.2  2008/02/04 02:05:06  james
  62  * *** empty log message ***
  63  *
  64  * Revision 1.1  2008/02/03 23:31:25  james
  65  * *** empty log message ***
  66  *
  67  */
  68
  69 #include "project.h"
  70
  71 void
  72 crt_erase (CRT * c, CRT_Pos s, CRT_Pos e, int ea, int color)
  73 {
  74   CRT_CA *ps = &c->screen[CRT_ADDR_POS (&s)];
  75   CRT_CA *pe = &c->screen[CRT_ADDR_POS (&e)];
  76
  77   while (ps <= pe) {
  78     ps->chr = ' ';
  79     if (ea) {
  80       ps->attr = CRT_ATTR_NORMAL;
  81       ps->color = color;
  82     }
  83     ps++;
  84   }
  85
  86 }
  87
  88 void
  89 crt_cls (CRT * c)
  90 {
  91   CRT_Pos s = { 0, 0 };
  92   CRT_Pos e = { CRT_COLS - 1, CRT_ROWS - 1 };
  93   int i;
  94
  95   crt_erase (c, s, e, 1, CRT_COLOR_NORMAL);
  96 #if 0
  97   c->sh.dir = 0;
  98 #endif
  99 }
 100
 101 void
 102 crt_scroll_up (CRT * c, CRT_Pos s, CRT_Pos e, int ea, int color)
 103 {
 104   int l, n;
 105   int p;
 106
 107
 108   s.x = 0;
 109   e.x = CRT_COLS - 1;
 110
 111 #if 0
 112   c->sh.s = s;
 113   c->sh.e = e;
 114   c->sh.dir = -1;
 115 #endif
 116
 117   l = e.x - s.x;
 118   l++;
 119   l *= sizeof (CRT_CA);
 120
 121   n = e.y - s.y;
 122
 123
 124   p = CRT_ADDR_POS (&s);
 125
 126   while (n--) {
 127     memcpy (&c->screen[p], &c->screen[p + CRT_COLS], l);
 128     p += CRT_COLS;
 129   }
 130
 131   s.y = e.y;
 132   crt_erase (c, s, e, ea, color);
 133
 134 }
 135
 136 void
 137 crt_scroll_down (CRT * c, CRT_Pos s, CRT_Pos e, int ea, int color)
 138 {
 139   int l, n;
 140   int p;
 141
 142   s.x = 0;
 143   e.x = CRT_COLS - 1;
 144
 145 #if 0
 146   c->sh.s = s;
 147   c->sh.e = e;
 148   c->sh.dir = 1;
 149 #endif
 150
 151   l = e.x - s.x;
 152   l++;
 153   l *= sizeof (CRT_CA);
 154
 155   n = e.y - s.y;
 156   // n++;
 157
 158   p = CRT_ADDR_POS (&e);
 159
 160   while (n--) {
 161     p -= CRT_COLS;
 162     memcpy (&c->screen[p], &c->screen[p - CRT_COLS], l);
 163   }
 164
 165   e.y = s.y;
 166   crt_erase (c, s, e, ea, color);
 167
 168 }
 169
 170 void
 171 crt_reset (CRT * c)
 172 {
 173   crt_cls (c);
 174
 175   c->pos.x = 0;
 176   c->pos.y = 0;
 177   c->hide_cursor = 1;
 178   c->size.x = CRT_COLS;
 179   c->size.y = CRT_ROWS;
 180 #if 0
 181   c->sh.dir = 0;
 182 #endif
 183 }
 184
 185 void
 186 crt_insert (CRT * c, CRT_CA ca)
 187 {
 188   if (c->pos.x < 0)
 189     c->pos.x = 0;
 190   if (c->pos.x >= CRT_COLS)
 191     c->pos.x = CRT_COLS - 1;
 192   if (c->pos.y < 0)
 193     c->pos.y = 0;
 194   if (c->pos.y >= CRT_ROWS)
 195     c->pos.y = CRT_ROWS - 1;
 196
 197   c->screen[CRT_ADDR (c->pos.y, c->pos.x)] = ca;
 198
 199 #if 0
 200   c->sh.dir = 0;
 201 #endif
 202 }