Changeset b6f5f64 in buchla-emu

Timestamp:

09/02/2017 06:14:05 PM (7 years ago)

Author:

Thomas Lopatic <thomas@…>

Branches:

master

Children:

4f967e8

Parents:

8c8a883

Message:

Support character objects.

File:

• emu/vid.c (modified) (11 diffs)

emu/vid.c

@@ -34 +34 @@
 #define REG_ODTBA 7
 #define REG_ATBA 8
+#define REG_CGBA 10
 #define REG_ATBAC 11
 
@@ -48 +49 @@
 #define OD0_BLA 0x0010
 #define OD0_CB 0x0800
+
+#define AT_CG 0x8000
 
 #define WIN_SZ_W 0x10000
@@ -63 +66 @@
         uint16_t *mem;
         bool tran;
-} bm_obj_t;
+        int32_t fon_h;
+} obj_t;
 
 static int32_t reg_off = REG_OFF;
@@ -72 +76 @@
 static uint32_t pal[16];
 
-static bm_obj_t bm_objs[16];
-static int32_t n_bm_objs = 0;
+static obj_t objs[16];
+static int32_t n_objs = 0;
 
 static SDL_Window *win;
@@ -80 +84 @@
 static SDL_atomic_t frame;
 
+static void rend_bm(uint16_t *vid, int32_t w, int32_t h, uint32_t *pix, int32_t pitch)
+{
+        for (int32_t y = 0; y < h; ++y) {
+                for (int32_t x = 0; x < w / 4; ++x) {
+                        uint16_t v4 = *vid++;
+
+                        *pix++ = pal[(v4 & 0x000f) >>  0];
+                        *pix++ = pal[(v4 & 0x00f0) >>  4];
+                        *pix++ = pal[(v4 & 0x0f00) >>  8];
+                        *pix++ = pal[(v4 & 0xf000) >> 12];
+                }
+
+                pix += pitch / 4 - w;
+        }
+}
+
+static void rend_tx(uint16_t *vid, int32_t w, int32_t h, int32_t fon_h,
+                uint32_t *pix, int32_t pitch)
+{
+        int32_t cgba = mem[REG_CGBA];
+
+        uint16_t *cg0 = mem + ((cgba & 0x00f0) <<  8);
+        uint16_t *cg1 = mem + ((cgba & 0x000f) << 12);
+
+        int32_t line = fon_h - 1;
+
+        for (int32_t y = 0; y < h; ++y) {
+                uint16_t *walk = vid;
+
+                for (int32_t col2 = 0; col2 < w / 16; ++col2) {
+                        uint16_t ch2 = *walk++;
+
+                        for (int32_t i = 0; i < 2; ++i) {
+                                int32_t ch = (uint8_t)ch2;
+                                int32_t at = *walk++;
+
+                                int32_t bg = at & 0x000f;
+                                int32_t fg = (at & 0x00f0) >> 4;
+
+                                uint16_t *cg = (at & AT_CG) != 0 ? cg0 : cg1;
+                                int32_t bits = cg[256 * line + ch];
+                                int32_t mask = 0x01;
+
+                                for (int32_t k = 0; k < 8; ++k) {
+                                        *pix++ = (bits & mask) != 0 ? pal[fg] : pal[bg];
+                                        mask <<= 1;
+                                }
+
+                                ch2 >>= 8;
+                        }
+                }
+
+                if (--line < 0) {
+                        line = fon_h - 1;
+                        vid = walk;
+                }
+
+                pix += pitch / 4 - w;
+        }
+}
+
 void vid_sdl(void)
 {
@@ -98 +163 @@
         }
 
-        void *buf;
-        int32_t pitch;
-
         if (SDL_LockMutex(cpu_mutex) < 0) {
                 fail("SDL_LockMutex() failed: %s", SDL_GetError());
         }
 
-        for (int32_t i = 0; i < n_bm_objs; ++i) {
-                bm_obj_t *bm_obj = bm_objs + i;
-
-                pal[0] = bm_obj->tran ? pal[0] & 0xffffff00 : pal[0] | 0x000000ff;
+        for (int32_t i = 0; i < n_objs; ++i) {
+                obj_t *obj = objs + i;
+
+                pal[0] = obj->tran ? pal[0] & 0xffffff00 : pal[0] | 0x000000ff;
 
                 SDL_Rect src = {
-                        .x = 0, .y = 0, .w = bm_obj->w, .h = bm_obj->h
+                        .x = 0, .y = 0, .w = obj->w, .h = obj->h
                 };
+
+                void *buf;
+                int32_t pitch;
 
                 if (SDL_LockTexture(tex, &src, &buf, &pitch) < 0) {
@@ -118 +183 @@
                 }
 
-                uint32_t *pix = buf;
-                uint16_t *vid = bm_obj->mem;
-
-                for (int32_t y = 0; y < src.h; ++y) {
-                        for (int32_t x = 0; x < src.w / 4; ++x) {
-                                uint16_t v4 = *vid++;
-
-                                *pix++ = pal[(v4 & 0x000f) >>  0];
-                                *pix++ = pal[(v4 & 0x00f0) >>  4];
-                                *pix++ = pal[(v4 & 0x0f00) >>  8];
-                                *pix++ = pal[(v4 & 0xf000) >> 12];
-                        }
-
-                        pix += pitch / 4 - src.w;
+                if (obj->fon_h < 0) {
+                        rend_bm(obj->mem, obj->w, obj->h, buf, pitch);
+                }
+                else {
+                        rend_tx(obj->mem, obj->w, obj->h, obj->fon_h, buf, pitch);
                 }
 
@@ -137 +193 @@
 
                 SDL_Rect dst = {
-                        .x = SCALE(bm_obj->x), .y = SCALE(bm_obj->y),
-                        .w = SCALE(bm_obj->w), .h = SCALE(bm_obj->h)
+                        .x = SCALE(obj->x), .y = SCALE(obj->y),
+                        .w = SCALE(obj->w), .h = SCALE(obj->h)
                 };
 
                 ver2("vid rend %d %dx%d -> (%d, %d) (%d, %d) %dx%d",
                                 i,
-                                bm_obj->w, bm_obj->h,
-                                bm_obj->x, bm_obj->y,
-                                SCALE(bm_obj->x), SCALE(bm_obj->y),
-                                SCALE(bm_obj->w), SCALE(bm_obj->h));
+                                obj->w, obj->h,
+                                obj->x, obj->y,
+                                SCALE(obj->x), SCALE(obj->y),
+                                SCALE(obj->w), SCALE(obj->h));
 
                 if (SDL_RenderCopy(ren, tex, &src, &dst) < 0) {
@@ -250 +306 @@
         int32_t odtba = mem[REG_ODTBA] & 0xffc0;
 
-        n_bm_objs = 0;
+        n_objs = 0;
 
         for (int32_t i = 0; i < 16; ++i) {
@@ -263 +319 @@
                 }
 
-                int32_t w = (od[1] & 0xfc00) >> 6;
+                int32_t w = (od[1] & 0xfc00) >> 10;
 
                 if (w == 0) {
@@ -293 +349 @@
 
                 int32_t x = (od[1] & 0x03ff) * 2;
-                int32_t off = ((od[0] & 0x00c0) << 10) | od[2];
+                int32_t off = od[2];
+
+                obj_t *obj = objs + n_objs;
+
+                if (cb) {
+                        int32_t vcr1 = mem[REG_VCR1];
+                        obj->fon_h = (vcr1 & 0xf000) >> 12;
+                        w = w * 4 / 3 * 2 * 8; // 4 words per block, 3 words per 2 chars, 8 pixels per char
+                }
+                else {
+                        off |= (od[0] & 0x00c0) << 10;
+                        obj->fon_h = -1;
+                        w *= 16; // 16 pixels per block
+                }
+
+                obj->x = x;
+                obj->y = flips[0];
+                obj->w = w;
+                obj->h = flips[1] - flips[0];
+                obj->mem = mem + off;
+                obj->tran = tde;
 
                 ver2("vid obj %d %c %c %d:%d %d+%d 0x%05x",
                                 i, cb ? 'c' : 'b', tde ? 't' : '-', flips[0], flips[1], x, w, off);
 
-                if (!cb) {
-                        bm_obj_t *bm_obj = bm_objs + n_bm_objs;
-
-                        bm_obj->x = x;
-                        bm_obj->y = flips[0];
-                        bm_obj->w = w;
-                        bm_obj->h = flips[1] - flips[0];
-                        bm_obj->mem = mem + off;
-                        bm_obj->tran = tde;
-
-                        ++n_bm_objs;
-                }
-                else {
-                        int32_t vcr1 = mem[REG_VCR1];
-                        int32_t fon_h = (vcr1 & 0xf000) >> 12;
-                }
+                ++n_objs;
         }