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.9  2008/02/07 13:22:51  james
  14  * *** empty log message ***
  15  *
  16  * Revision 1.8  2008/02/07 13:19:48  james
  17  * *** empty log message ***
  18  *
  19  * Revision 1.7  2008/02/07 12:41:06  james
  20  * *** empty log message ***
  21  *
  22  * Revision 1.6  2008/02/07 12:16:04  james
  23  * *** empty log message ***
  24  *
  25  * Revision 1.5  2008/02/06 11:30:37  james
  26  * *** empty log message ***
  27  *
  28  * Revision 1.4  2008/02/05 01:11:46  james
  29  * *** empty log message ***
  30  *
  31  * Revision 1.3  2008/02/04 20:23:55  james
  32  * *** empty log message ***
  33  *
  34  * Revision 1.2  2008/02/04 02:05:06  james
  35  * *** empty log message ***
  36  *
  37  * Revision 1.1  2008/02/03 23:31:25  james
  38  * *** empty log message ***
  39  *
  40  */
  41
  42 #include "project.h"
  43
  44 void
  45 crt_erase (CRT * c, CRT_Pos s, CRT_Pos e, int ea)
  46 {
  47   CRT_CA *ps = &c->screen[CRT_ADDR_POS (&s)];
  48   CRT_CA *pe = &c->screen[CRT_ADDR_POS (&e)];
  49
  50   while (ps <= pe)
  51     {
  52       ps->chr = ' ';
  53       if (ea)
  54         {
  55           ps->attr = CRT_ATTR_NORMAL;
  56           ps->color = CRT_COLOR_NORMAL;
  57         }
  58       ps++;
  59     }
  60
  61 }
  62
  63 void
  64 crt_cls (CRT * c)
  65 {
  66   CRT_Pos s = { 0, 0 };
  67   CRT_Pos e = { CRT_COLS - 1, CRT_ROWS - 1 };
  68   int i;
  69
  70   crt_erase (c, s, e, 1);
  71   c->sh.dir = 0;
  72 }
  73
  74 void
  75 crt_scroll_up (CRT * c, CRT_Pos s, CRT_Pos e, int ea)
  76 {
  77   int l, n;
  78   int p;
  79
  80
  81   s.x = 0;
  82   e.x = CRT_COLS - 1;
  83
  84   c->sh.s = s;
  85   c->sh.e = e;
  86   c->sh.dir = -1;
  87
  88   l = e.x - s.x;
  89   l++;
  90   l *= sizeof (CRT_CA);
  91
  92   n = e.y - s.y;
  93
  94
  95   p = CRT_ADDR_POS (&s);
  96
  97   while (n--)
  98     {
  99       memcpy (&c->screen[p], &c->screen[p + CRT_COLS], l);
 100       p += CRT_COLS;
 101     }
 102
 103   s.y = e.y;
 104   crt_erase (c, s, e, ea);
 105
 106 }
 107
 108 void
 109 crt_scroll_down (CRT * c, CRT_Pos s, CRT_Pos e, int ea)
 110 {
 111   int l, n;
 112   int p;
 113
 114   s.x = 0;
 115   e.x = CRT_COLS - 1;
 116
 117   c->sh.s = s;
 118   c->sh.e = e;
 119   c->sh.dir = 1;
 120
 121   l = e.x - s.x;
 122   l++;
 123   l *= sizeof (CRT_CA);
 124
 125   n = e.y - s.y;
 126   n++;
 127
 128   p = CRT_ADDR_POS (&e);
 129
 130   while (n--)
 131     {
 132       memcpy (&c->screen[p], &c->screen[p - CRT_COLS], l);
 133       p -= CRT_COLS;
 134     }
 135
 136   e.y = s.y;
 137   crt_erase (c, s, e, ea);
 138
 139 }
 140
 141 void
 142 crt_reset (CRT * c)
 143 {
 144   crt_cls (c);
 145
 146   c->pos.x = 0;
 147   c->pos.y = 0;
 148   c->hide_cursor = 1;
 149   c->sh.dir = 0;
 150 }
 151
 152 void
 153 crt_insert (CRT * c, CRT_CA ca)
 154 {
 155   if (c->pos.x < 0)
 156     c->pos.x = 0;
 157   if (c->pos.x >= CRT_COLS)
 158     c->pos.x = CRT_COLS - 1;
 159   if (c->pos.y < 0)
 160     c->pos.y = 0;
 161   if (c->pos.y >= CRT_ROWS)
 162     c->pos.y = CRT_ROWS - 1;
 163
 164   c->screen[CRT_ADDR (c->pos.y, c->pos.x)] = ca;
 165
 166   c->sh.dir = 0;
 167 }