mirror of https://github.com/nmlgc/ReC98.git
99 lines
2.2 KiB
C
99 lines
2.2 KiB
C
|
#include <mbctype.h>
|
||
|
|
#include <mbstring.h>
|
||
|
|
|
||
|
|
#define GLYPH_HEIGHT 16
|
||
|
|
|
||
|
|
void graph_putsa_fx(int x, int y, int fx, const unsigned char *str)
|
||
|
|
{
|
||
|
|
unsigned int codepoint;
|
||
|
|
unsigned int glyph_row;
|
||
|
|
unsigned char far *vram;
|
||
|
|
int fullwidth;
|
||
|
|
int first_bit;
|
||
|
|
int weight = (fx >> 4) & 3;
|
||
|
|
int spacing = (fx >> 6) & 7;
|
||
|
|
int line;
|
||
|
|
unsigned int glyph[GLYPH_HEIGHT];
|
||
|
|
register unsigned int glyph_row_orig;
|
||
|
|
|
||
|
|
grcg_setcolor(GC_RMW, fx);
|
||
|
|
OUTB(0x68, 0xB); // CG ROM dot access
|
||
|
|
|
||
|
|
while(str[0]) {
|
||
|
|
vram = MK_FP(GRAM_400, (y * ROW_SIZE) + (x / 8));
|
||
|
|
first_bit = x % 8;
|
||
|
|
|
||
|
|
if(_ismbblead(str[0])) {
|
||
|
|
codepoint = _mbcjmstojis(((char)str[0] << 8) + str[1]);
|
||
|
|
str += 2;
|
||
|
|
} else if(_ismbbkana((char)str[0])) {
|
||
|
|
codepoint = str[0] + 0x2980;
|
||
|
|
str += 1;
|
||
|
|
} else if(isgraph((char)str[0])) {
|
||
|
|
codepoint = str[0] + 0x2900;
|
||
|
|
str += 1;
|
||
|
|
} else {
|
||
|
|
codepoint = 0x2B21;
|
||
|
|
str += 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
OUTB(0xA1, codepoint & 0xFF);
|
||
|
|
OUTB(0xA3, (codepoint >> 8) - 0x20);
|
||
|
|
if(codepoint >= 0x2921 && codepoint <= 0x2B7E) {
|
||
|
|
if(x <= 632) {
|
||
|
|
for(line = 0; line < GLYPH_HEIGHT; line++) {
|
||
|
|
OUTB(0xA5, line | 0x20);
|
||
|
|
glyph[line] = INPB(0xA9) << 8;
|
||
|
|
}
|
||
|
|
fullwidth = 0;
|
||
|
|
} else {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
} else if(x <= 624) {
|
||
|
|
for(line = 0; line < GLYPH_HEIGHT; line++) {
|
||
|
|
OUTB(0xA5, line | 0x20);
|
||
|
|
glyph[line] = INPB(0xA9) << 8;
|
||
|
|
OUTB(0xA5, line);
|
||
|
|
glyph[line] += INPB(0xA9);
|
||
|
|
}
|
||
|
|
fullwidth = 1;
|
||
|
|
} else {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
for(line = 0; line < GLYPH_HEIGHT; line++) {
|
||
|
|
glyph_row = glyph[line];
|
||
|
|
#define GLYPH_DOUBLE \
|
||
|
|
glyph_row_orig = glyph_row; \
|
||
|
|
glyph_row |= glyph_row_orig << 1;
|
||
|
|
switch(weight) {
|
||
|
|
case 1:
|
||
|
|
GLYPH_DOUBLE;
|
||
|
|
break;
|
||
|
|
case 3:
|
||
|
|
GLYPH_DOUBLE;
|
||
|
|
// fallthrough
|
||
|
|
case 2:
|
||
|
|
GLYPH_DOUBLE;
|
||
|
|
glyph_row_orig ^= glyph_row;
|
||
|
|
glyph_row &= ~(glyph_row_orig << 1);
|
||
|
|
}
|
||
|
|
if(first_bit) {
|
||
|
|
vram[0] = glyph_row >> (first_bit + 8);
|
||
|
|
vram[1] = glyph_row >> (first_bit + 0);
|
||
|
|
vram[2] = glyph_row << (8 - first_bit);
|
||
|
|
} else {
|
||
|
|
vram[0] = glyph_row >> 8;
|
||
|
|
vram[1] = glyph_row;
|
||
|
|
}
|
||
|
|
vram += ROW_SIZE;
|
||
|
|
}
|
||
|
|
if(fullwidth) {
|
||
|
|
x += 8;
|
||
|
|
}
|
||
|
|
x += spacing + 8;
|
||
|
|
}
|
||
|
|
OUTB(0x68, 0xA); // CG ROM code access
|
||
|
|
grcg_off();
|
||
|
|
}
|