pad.c

   1 #include <ctype.h>
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include <string.h>
   5 #include "config.h"
   6 #include "draw.h"
   7 #include "fbpad.h"
   8
   9 #define NCACHE          (1 << 11)
  10
  11 static unsigned int cd[256] = {
  12         COLOR0, COLOR1, COLOR2, COLOR3,
  13         COLOR4, COLOR5, COLOR6, COLOR7,
  14         COLOR8, COLOR9, COLOR10, COLOR11,
  15         COLOR12, COLOR13, COLOR14, COLOR15};
  16 static int rows, cols;
  17 static int fnrows, fncols;
  18 static struct font *fonts[3];
  19
  20 int pad_init(void)
  21 {
  22         int r, g, b;
  23         if (fb_init())
  24                 return 1;
  25         if (sizeof(fbval_t) != FBM_BPP(fb_mode())) {
  26                 fprintf(stderr, "pad_init: fbval_t doesn't match fb depth\n");
  27                 return 1;
  28         }
  29         if (pad_font(FR, FI, FB) < 0)
  30                 return -1;
  31         fnrows = font_rows(fonts[0]);
  32         fncols = font_cols(fonts[0]);
  33         rows = fb_rows() / fnrows;
  34         cols = fb_cols() / fncols;
  35         for (r = 0; r < 6; r++) {
  36                 for (g = 0; g < 6; g++) {
  37                         for (b = 0; b < 6; b++) {
  38                                 int idx = 16 + r * 36 + g * 6 + b;
  39                                 cd[idx] = ((r * 40 + 55) << 16) |
  40                                                 ((g * 40 + 55) << 8) |
  41                                                 (b * 40 + 55);
  42                         }
  43                 }
  44         }
  45         for (r = 0; r < 24; r++)
  46                 cd[232 + r] = ((r * 10 + 8) << 16) |
  47                                 ((r * 10 + 8) << 8) | (r * 10 + 8);
  48         return 0;
  49 }
  50
  51 void pad_free(void)
  52 {
  53         int i;
  54         for (i = 0; i < 3; i++)
  55                 if (fonts[i])
  56                         font_free(fonts[i]);
  57         fb_free();
  58 }
  59
  60 #define CR(a)           (((a) >> 16) & 0x0000ff)
  61 #define CG(a)           (((a) >> 8) & 0x0000ff)
  62 #define CB(a)           ((a) & 0x0000ff)
  63 #define COLORMERGE(f, b, c)             ((b) + (((f) - (b)) * (c) >> 8u))
  64
  65 static unsigned mixed_color(int fg, int bg, unsigned val)
  66 {
  67         unsigned int fore = cd[fg], back = cd[bg];
  68         unsigned char r = COLORMERGE(CR(fore), CR(back), val);
  69         unsigned char g = COLORMERGE(CG(fore), CG(back), val);
  70         unsigned char b = COLORMERGE(CB(fore), CB(back), val);
  71         return FB_VAL(r, g, b);
  72 }
  73
  74 static unsigned color2fb(int c)
  75 {
  76         return FB_VAL(CR(cd[c]), CG(cd[c]), CB(cd[c]));
  77 }
  78
  79 static fbval_t cache[NCACHE][NDOTS];
  80 static struct glyph {
  81         int c;
  82         short fg, bg;
  83 } glyphs[NCACHE];
  84
  85 static struct glyph *glyph_entry(int c, int fg, int bg)
  86 {
  87         return &glyphs[((c - 32) ^ (fg << 6) ^ (bg << 5)) & (NCACHE - 1)];
  88 }
  89
  90 static fbval_t *glyph_cache(int c, short fg, short bg)
  91 {
  92         struct glyph *g = glyph_entry(c, fg, bg);
  93         if (g->c == c && g->fg == fg && g->bg == bg)
  94                 return cache[g - glyphs];
  95         return NULL;
  96 }
  97
  98 static fbval_t *glyph_add(int c, short fg, short bg)
  99 {
 100         struct glyph *g = glyph_entry(c, fg, bg);
 101         g->c = c;
 102         g->fg = fg;
 103         g->bg = bg;
 104         return cache[g - glyphs];
 105 }
 106
 107 static void bmp2fb(fbval_t *d, char *s, int fg, int bg, int nr, int nc)
 108 {
 109         int i, j;
 110         for (i = 0; i < fnrows; i++) {
 111                 for (j = 0; j < fncols; j++) {
 112                         unsigned v = i < nr && j < nc ?
 113                                 (unsigned char) s[i * nc + j] : 0;
 114                         d[i * fncols + j] = mixed_color(fg, bg, v);
 115                 }
 116         }
 117 }
 118
 119 static fbval_t *ch2fb(int fn, int c, short fg, short bg)
 120 {
 121         char bits[NDOTS];
 122         fbval_t *fbbits;
 123         if (c < 0 || (c < 128 && (!isprint(c) || isspace(c))))
 124                 return NULL;
 125         if ((fbbits = glyph_cache(c, fg, bg)))
 126                 return fbbits;
 127         if (font_bitmap(fonts[fn], bits, c))
 128                 return NULL;
 129         fbbits = glyph_add(c, fg, bg);
 130         bmp2fb(fbbits, bits, fg & FN_C, bg & FN_C,
 131                 font_rows(fonts[fn]), font_cols(fonts[fn]));
 132         return fbbits;
 133 }
 134
 135 static void fb_box(int sr, int er, int sc, int ec, fbval_t val)
 136 {
 137         static fbval_t line[32 * NCOLS];
 138         int cn = ec - sc;
 139         int i;
 140         for (i = 0; i < cn; i++)
 141                 line[i] = val;
 142         for (i = sr; i < er; i++)
 143                 fb_set(i, sc, line, cn);
 144 }
 145
 146 static int fnsel(int fg, int bg)
 147 {
 148         if ((fg | bg) & FN_B)
 149                 return fonts[2] ? 2 : 0;
 150         if ((fg | bg) & FN_I)
 151                 return fonts[1] ? 1 : 0;
 152         return 0;
 153 }
 154
 155 void pad_put(int ch, int r, int c, int fg, int bg)
 156 {
 157         int sr = fnrows * r;
 158         int sc = fncols * c;
 159         fbval_t *bits;
 160         int i;
 161         if ((fg & 0xfff8) == FN_B && !fonts[2])
 162                 fg |= 8;                /* increase intensity of no FB */
 163         bits = ch2fb(fnsel(fg, bg), ch, fg, bg);
 164         if (!bits)
 165                 bits = ch2fb(0, ch, fg, bg);
 166         if (!bits)
 167                 fb_box(sr, sr + fnrows, sc, sc + fncols, color2fb(bg & FN_C));
 168         else
 169                 for (i = 0; i < fnrows; i++)
 170                         fb_set(sr + i, sc, bits + (i * fncols), fncols);
 171 }
 172
 173 void pad_fill(int sr, int er, int sc, int ec, int c)
 174 {
 175         int fber = er >= 0 ? er * fnrows : fb_rows();
 176         int fbec = ec >= 0 ? ec * fncols : fb_cols();
 177         fb_box(sr * fnrows, fber, sc * fncols, fbec, color2fb(c & FN_C));
 178 }
 179
 180 int pad_rows(void)
 181 {
 182         return rows;
 183 }
 184
 185 int pad_cols(void)
 186 {
 187         return cols;
 188 }
 189
 190 int pad_font(char *fr, char *fi, char *fb)
 191 {
 192         char *fns[] = {fr, fi, fb};
 193         int i;
 194         for (i = 0; i < 3; i++) {
 195                 if (fonts[i])
 196                         font_free(fonts[i]);
 197                 fonts[i] = fns[i] ? font_open(fns[i]) : NULL;
 198         }
 199         memset(glyphs, 0, sizeof(glyphs));
 200         if (!fonts[0])
 201                 fprintf(stderr, "pad: bad font <%s>\n", fr);
 202         return fonts[0] ? 0 : -1;
 203 }