123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388 |
- /* -*- mode: c; tab-width: 4; c-basic-offset: 4; c-file-style: "linux" -*- */
- //
- // Copyright (c) 2009-2011, Wei Mingzhi <whistler_wmz@users.sf.net>.
- // Copyright (c) 2011-2017, SDLPAL development team.
- // All rights reserved.
- //
- // This file is part of SDLPAL.
- //
- // SDLPAL is free software: you can redistribute it and/or modify
- // it under the terms of the GNU General Public License as published by
- // the Free Software Foundation, either version 3 of the License, or
- // (at your option) any later version.
- //
- // This program is distributed in the hope that it will be useful,
- // but WITHOUT ANY WARRANTY; without even the implied warranty of
- // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- // GNU General Public License for more details.
- //
- // You should have received a copy of the GNU General Public License
- // along with this program. If not, see <http://www.gnu.org/licenses/>.
- //
- #include "font.h"
- #include "util.h"
- #include "text.h"
- #define _FONT_C
- #include "fontglyph.h"
- #include "ascii.h"
- static int _font_height = 16;
- static uint8_t reverseBits(uint8_t x) {
- uint8_t y = 0;
- for(int i = 0 ; i < 8; i++){
- y <<= 1;
- y |= (x & 1);
- x >>= 1;
- }
- return y;
- }
- static void PAL_LoadEmbeddedFont(void)
- {
- FILE *fp;
- char *char_buf;
- wchar_t *wchar_buf;
- size_t nBytes;
- int nChars, i;
- //
- // Load the wor16.asc file.
- //
- if (NULL == (fp = UTIL_OpenFile("wor16.asc")))
- {
- return;
- }
- //
- // Get the size of wor16.asc file.
- //
- fseek(fp, 0, SEEK_END);
- nBytes = ftell(fp);
- //
- // Allocate buffer & read all the character codes.
- //
- if (NULL == (char_buf = (char *)malloc(nBytes)))
- {
- fclose(fp);
- return;
- }
- fseek(fp, 0, SEEK_SET);
- if (fread(char_buf, 1, nBytes, fp) < nBytes)
- {
- fclose(fp);
- return;
- }
- //
- // Close wor16.asc file.
- //
- fclose(fp);
- //
- // Detect the codepage of 'wor16.asc' and exit if not BIG5 or probability < 99
- // Note: 100% probability is impossible as the function does not recognize some special
- // characters such as bopomofo that may be used by 'wor16.asc'.
- //
- if (PAL_DetectCodePageForString(char_buf, nBytes, CP_BIG5, &i) != CP_BIG5 || i < 99)
- {
- free(char_buf);
- return;
- }
- //
- // Convert characters into unicode
- // Explictly specify BIG5 here for compatibility with codepage auto-detection
- //
- nChars = PAL_MultiByteToWideCharCP(CP_BIG5, char_buf, nBytes, NULL, 0);
- if (NULL == (wchar_buf = (wchar_t *)malloc(nChars * sizeof(wchar_t))))
- {
- free(char_buf);
- return;
- }
- PAL_MultiByteToWideCharCP(CP_BIG5, char_buf, nBytes, wchar_buf, nChars);
- free(char_buf);
- //
- // Read bitmaps from wor16.fon file.
- //
- fp = UTIL_OpenFile("wor16.fon");
- //
- // The font glyph data begins at offset 0x682 in wor16.fon.
- //
- fseek(fp, 0x682, SEEK_SET);
- //
- // Replace the original fonts
- //
- for (i = 0; i < nChars; i++)
- {
- wchar_t w = (wchar_buf[i] >= unicode_upper_base) ? (wchar_buf[i] - unicode_upper_base + unicode_lower_top) : wchar_buf[i];
- if (fread(unicode_font[w], 30, 1, fp) == 1)
- {
- unicode_font[w][30] = 0;
- unicode_font[w][31] = 0;
- }
- font_width[w] = 32;
- }
- free(wchar_buf);
- fclose(fp);
- for (i = 0; i < 0x80; i++)
- {
- int j=-1;while(j++<16)unicode_font[i][j]=reverseBits(iso_font[i*15+j]);
- unicode_font[i][15] = 0;
- }
- _font_height = 15;
- }
- INT
- PAL_LoadUserFont(
- LPCSTR pszBdfFileName
- )
- /*++
- Purpose:
- Loads a BDF bitmap font file.
- Parameters:
- [IN] pszBdfFileName - Name of BDF bitmap font file..
- Return value:
- 0 = success, -1 = failure.
- --*/
- {
- char buf[4096];
- int state = 0;
- int codepage = -1;
- DWORD dwEncoding = 0;
- BYTE bFontGlyph[32] = {0};
- int iCurHeight = 0;
- FILE *fp = UTIL_OpenFileForMode(pszBdfFileName, "r");
- if (fp == NULL)
- {
- return -1;
- }
- while (fgets(buf, 4096, fp) != NULL)
- {
- if (state == 0)
- {
- if (strncmp(buf, "CHARSET_REGISTRY", 16) == 0)
- {
- if (strstr(buf, "Big5") != NULL)
- {
- codepage = CP_BIG5;
- }
- else if (strstr(buf, "BIG5") != NULL)
- {
- codepage = CP_BIG5;
- }
- //else if (strstr(buf, "JISX0208") != NULL)
- //
- // codepage = CP_JISX0208;
- //}
- }
- else if (strncmp(buf, "ENCODING", 8) == 0)
- {
- dwEncoding = atoi(buf + 8);
- }
- else if (strncmp(buf, "BITMAP", 6) == 0)
- {
- state = 1;
- iCurHeight = 0;
- memset(bFontGlyph, 0, sizeof(bFontGlyph));
- }
- }
- else if (state == 1)
- {
- if (strncmp(buf, "ENDCHAR", 7) == 0)
- {
- //
- // Replace the original fonts
- //
- BYTE szCp[3];
- szCp[0] = (dwEncoding >> 8) & 0xFF;
- szCp[1] = dwEncoding & 0xFF;
- szCp[2] = 0;
- wchar_t wc[2] = { 0 };
- PAL_MultiByteToWideCharCP(codepage, (LPCSTR)szCp, 2, wc, 1);
- if (wc[0] != 0)
- {
- wchar_t w = (wc[0] >= unicode_upper_base) ? (wc[0] - unicode_upper_base + unicode_lower_top) : wc[0];
- if (w < sizeof(unicode_font) / sizeof(unicode_font[0]))
- {
- memcpy(unicode_font[w], bFontGlyph, sizeof(bFontGlyph));
- }
- }
- state = 0;
- }
- else
- {
- if (iCurHeight < 16)
- {
- WORD wCode = strtoul(buf, NULL, 16);
- bFontGlyph[iCurHeight * 2] = (wCode >> 8);
- bFontGlyph[iCurHeight * 2 + 1] = (wCode & 0xFF);
- iCurHeight++;
- }
- }
- }
- }
- _font_height = 16;
- fclose(fp);
- return 0;
- }
- int
- PAL_InitFont(
- const CONFIGURATION* cfg
- )
- {
- if (!cfg->fIsWIN95)
- {
- PAL_LoadEmbeddedFont();
- }
- if (cfg->pszFontFile)
- {
- PAL_LoadUserFont(cfg->pszFontFile);
- }
- return 0;
- }
- void
- PAL_FreeFont(
- void
- )
- {
- }
- void
- PAL_DrawCharOnSurface(
- uint16_t wChar,
- SDL_Surface *lpSurface,
- PAL_POS pos,
- uint8_t bColor,
- BOOL fUse8x8Font
- )
- {
- int i, j;
- int x = PAL_X(pos), y = PAL_Y(pos);
- //
- // Check for NULL pointer & invalid char code.
- //
- if (lpSurface == NULL || (wChar >= unicode_lower_top && wChar < unicode_upper_base) ||
- wChar >= unicode_upper_top || (_font_height == 8 && wChar >= 0x100))
- {
- return;
- }
- //
- // Locate for this character in the font lib.
- //
- if (wChar >= unicode_upper_base)
- {
- wChar -= (unicode_upper_base - unicode_lower_top);
- }
- //
- // Draw the character to the surface.
- //
- LPBYTE dest = (LPBYTE)lpSurface->pixels + y * lpSurface->pitch + x;
- LPBYTE top = (LPBYTE)lpSurface->pixels + lpSurface->h * lpSurface->pitch;
- if (fUse8x8Font)
- {
- for (i = 0; i < 8 && dest < top; i++, dest += lpSurface->pitch)
- {
- for (j = 0; j < 8 && x + j < lpSurface->w; j++)
- {
- if (iso_font_8x8[wChar][i] & (1 << j))
- {
- dest[j] = bColor;
- }
- }
- }
- }
- else
- {
- if (font_width[wChar] == 32)
- {
- for (i = 0; i < _font_height * 2 && dest < top; i += 2, dest += lpSurface->pitch)
- {
- for (j = 0; j < 8 && x + j < lpSurface->w; j++)
- {
- if (unicode_font[wChar][i] & (1 << (7 - j)))
- {
- dest[j] = bColor;
- }
- }
- for (j = 0; j < 8 && x + j + 8 < lpSurface->w; j++)
- {
- if (unicode_font[wChar][i + 1] & (1 << (7 - j)))
- {
- dest[j + 8] = bColor;
- }
- }
- }
- }
- else
- {
- for (i = 0; i < _font_height && dest < top; i++, dest += lpSurface->pitch)
- {
- for (j = 0; j < 8 && x + j < lpSurface->w; j++)
- {
- if (unicode_font[wChar][i] & (1 << (7 - j)))
- {
- dest[j] = bColor;
- }
- }
- }
- }
- }
- }
- int
- PAL_CharWidth(
- uint16_t wChar
- )
- {
- if ((wChar >= unicode_lower_top && wChar < unicode_upper_base) || wChar >= unicode_upper_top)
- {
- return 0;
- }
- //
- // Locate for this character in the font lib.
- //
- if (wChar >= unicode_upper_base)
- {
- wChar -= (unicode_upper_base - unicode_lower_top);
- }
- return font_width[wChar] >> 1;
- }
- int
- PAL_FontHeight(
- void
- )
- {
- return _font_height;
- }
|