src/crt.c

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