1719 lines
34 KiB
C
1719 lines
34 KiB
C
/*
|
|
THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
|
|
SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
|
|
END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
|
|
ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
|
|
IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
|
|
SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
|
|
FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
|
|
CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
|
|
AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
|
|
COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include <conf.h>
|
|
#endif
|
|
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include <fcntl.h>
|
|
#include <unistd.h>
|
|
|
|
#include "pa_enabl.h" //$$POLY_ACC
|
|
#include "u_mem.h"
|
|
|
|
#include "gr.h"
|
|
#include "grdef.h"
|
|
#include "error.h"
|
|
|
|
#include "cfile.h"
|
|
#include "mono.h"
|
|
#include "byteswap.h"
|
|
#include "bitmap.h"
|
|
|
|
#if defined(POLY_ACC)
|
|
#include "poly_acc.h"
|
|
#endif
|
|
|
|
#define MAX_OPEN_FONTS 50
|
|
#define FILENAME_LEN 13
|
|
|
|
typedef struct openfont {
|
|
char filename[FILENAME_LEN];
|
|
grs_font *ptr;
|
|
} openfont;
|
|
|
|
//list of open fonts, for use (for now) for palette remapping
|
|
openfont open_font[MAX_OPEN_FONTS];
|
|
|
|
#define FONT grd_curcanv->cv_font
|
|
#define FG_COLOR grd_curcanv->cv_font_fg_color
|
|
#define BG_COLOR grd_curcanv->cv_font_bg_color
|
|
#define FWIDTH FONT->ft_w
|
|
#define FHEIGHT FONT->ft_h
|
|
#define FBASELINE FONT->ft_baseline
|
|
#define FFLAGS FONT->ft_flags
|
|
#define FMINCHAR FONT->ft_minchar
|
|
#define FMAXCHAR FONT->ft_maxchar
|
|
#define FDATA FONT->ft_data
|
|
#define FCHARS FONT->ft_chars
|
|
#define FWIDTHS FONT->ft_widths
|
|
|
|
#define BITS_TO_BYTES(x) (((x)+7)>>3)
|
|
|
|
int gr_internal_string_clipped(int x, int y, char *s );
|
|
int gr_internal_string_clipped_m(int x, int y, char *s );
|
|
|
|
ubyte *find_kern_entry(grs_font *font,ubyte first,ubyte second)
|
|
{
|
|
ubyte *p=font->ft_kerndata;
|
|
|
|
while (*p!=255)
|
|
if (p[0]==first && p[1]==second)
|
|
return p;
|
|
else p+=3;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
//takes the character AFTER being offset into font
|
|
#define INFONT(_c) ((_c >= 0) && (_c <= FMAXCHAR-FMINCHAR))
|
|
|
|
//takes the character BEFORE being offset into current font
|
|
void get_char_width(ubyte c,ubyte c2,int *width,int *spacing)
|
|
{
|
|
int letter;
|
|
|
|
letter = c-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
*width=0;
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
*spacing = FWIDTH/2;
|
|
else
|
|
*spacing = FWIDTH;
|
|
return;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
*width = FWIDTHS[letter];
|
|
else
|
|
*width = FWIDTH;
|
|
|
|
*spacing = *width;
|
|
|
|
if (FFLAGS & FT_KERNED) {
|
|
ubyte *p;
|
|
|
|
if (!(c2==0 || c2=='\n')) {
|
|
int letter2;
|
|
|
|
letter2 = c2-FMINCHAR;
|
|
|
|
if (INFONT(letter2)) {
|
|
|
|
p = find_kern_entry(FONT,letter,letter2);
|
|
|
|
if (p)
|
|
*spacing = p[2];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
int get_centered_x(char *s)
|
|
{
|
|
int w,w2,s2;
|
|
|
|
for (w=0;*s!=0 && *s!='\n';s++) {
|
|
get_char_width(s[0],s[1],&w2,&s2);
|
|
w += s2;
|
|
}
|
|
|
|
return ((grd_curcanv->cv_bitmap.bm_w - w) / 2);
|
|
}
|
|
|
|
|
|
int gr_internal_string0(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
ubyte * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int skip_lines = 0;
|
|
|
|
unsigned int VideoOffset, VideoOffset1;
|
|
|
|
bits=0;
|
|
|
|
VideoOffset1 = y * ROWSIZE + x;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
if (x==0x8000) { //centered
|
|
int xx = get_centered_x(text_ptr1);
|
|
VideoOffset1 = y * ROWSIZE + xx;
|
|
}
|
|
|
|
for (r=0; r<FHEIGHT; r++)
|
|
{
|
|
|
|
text_ptr = text_ptr1;
|
|
|
|
VideoOffset = VideoOffset1;
|
|
|
|
while (*text_ptr)
|
|
{
|
|
if (*text_ptr == '\n' )
|
|
{
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
skip_lines = *(text_ptr+1) - '0';
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE )
|
|
{
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
VideoOffset += spacing;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline)
|
|
for (i=0; i< width; i++ )
|
|
DATA[VideoOffset++] = FG_COLOR;
|
|
else
|
|
{
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
DATA[VideoOffset++] = FG_COLOR;
|
|
else
|
|
DATA[VideoOffset++] = BG_COLOR;
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
|
|
VideoOffset += spacing-width; //for kerning
|
|
|
|
text_ptr++;
|
|
}
|
|
|
|
VideoOffset1 += ROWSIZE; y++;
|
|
}
|
|
|
|
y += skip_lines;
|
|
VideoOffset1 += ROWSIZE * skip_lines;
|
|
skip_lines = 0;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int gr_internal_string0m(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
ubyte * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int skip_lines = 0;
|
|
|
|
unsigned int VideoOffset, VideoOffset1;
|
|
|
|
bits=0;
|
|
|
|
VideoOffset1 = y * ROWSIZE + x;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
if (x==0x8000) { //centered
|
|
int xx = get_centered_x(text_ptr1);
|
|
VideoOffset1 = y * ROWSIZE + xx;
|
|
}
|
|
|
|
for (r=0; r<FHEIGHT; r++)
|
|
{
|
|
|
|
text_ptr = text_ptr1;
|
|
|
|
VideoOffset = VideoOffset1;
|
|
|
|
while (*text_ptr)
|
|
{
|
|
if (*text_ptr == '\n' )
|
|
{
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
skip_lines = *(text_ptr+1) - '0';
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE )
|
|
{
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
VideoOffset += spacing;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline)
|
|
for (i=0; i< width; i++ )
|
|
DATA[VideoOffset++] = FG_COLOR;
|
|
else
|
|
{
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
DATA[VideoOffset++] = FG_COLOR;
|
|
else
|
|
VideoOffset++;
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
text_ptr++;
|
|
|
|
VideoOffset += spacing-width;
|
|
}
|
|
|
|
VideoOffset1 += ROWSIZE; y++;
|
|
}
|
|
y += skip_lines;
|
|
VideoOffset1 += ROWSIZE * skip_lines;
|
|
skip_lines = 0;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
#ifdef __ENV_MSDOS__
|
|
int gr_internal_string2(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
char * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int page_switched, skip_lines = 0;
|
|
|
|
unsigned int VideoOffset, VideoOffset1;
|
|
|
|
VideoOffset1 = (unsigned int)DATA + y * ROWSIZE + x;
|
|
|
|
gr_vesa_setpage(VideoOffset1 >> 16);
|
|
|
|
VideoOffset1 &= 0xFFFF;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
if (x==0x8000) { //centered
|
|
int xx = get_centered_x(text_ptr1);
|
|
VideoOffset1 = y * ROWSIZE + xx;
|
|
gr_vesa_setpage(VideoOffset1 >> 16);
|
|
VideoOffset1 &= 0xFFFF;
|
|
}
|
|
|
|
for (r=0; r<FHEIGHT; r++)
|
|
{
|
|
text_ptr = text_ptr1;
|
|
|
|
VideoOffset = VideoOffset1;
|
|
|
|
page_switched = 0;
|
|
|
|
while (*text_ptr)
|
|
{
|
|
if (*text_ptr == '\n' )
|
|
{
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
skip_lines = *(text_ptr+1) - '0';
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE )
|
|
{
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
Assert(width==spacing); //no kerning support here
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
VideoOffset += spacing;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline)
|
|
{
|
|
if ( VideoOffset+width > 0xFFFF )
|
|
{
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
|
|
if (VideoOffset > 0xFFFF )
|
|
{
|
|
VideoOffset -= 0xFFFF + 1;
|
|
page_switched = 1;
|
|
gr_vesa_incpage();
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (i=0; i< width; i++ )
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// fp -- dword
|
|
// VideoOffset
|
|
// width
|
|
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
if ( VideoOffset+width > 0xFFFF )
|
|
{
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
else
|
|
gr_video_memory[VideoOffset++] = BG_COLOR;
|
|
|
|
BitMask >>= 1;
|
|
|
|
if (VideoOffset > 0xFFFF )
|
|
{
|
|
VideoOffset -= 0xFFFF + 1;
|
|
page_switched = 1;
|
|
gr_vesa_incpage();
|
|
}
|
|
|
|
}
|
|
} else {
|
|
|
|
if (width == 8 )
|
|
{
|
|
bits = *fp++;
|
|
|
|
if (bits & 0x80) gr_video_memory[VideoOffset+0] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+0] = BG_COLOR;
|
|
|
|
if (bits & 0x40) gr_video_memory[VideoOffset+1] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+1] = BG_COLOR;
|
|
|
|
if (bits & 0x20) gr_video_memory[VideoOffset+2] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+2] = BG_COLOR;
|
|
|
|
if (bits & 0x10) gr_video_memory[VideoOffset+3] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+3] = BG_COLOR;
|
|
|
|
if (bits & 0x08) gr_video_memory[VideoOffset+4] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+4] = BG_COLOR;
|
|
|
|
if (bits & 0x04) gr_video_memory[VideoOffset+5] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+5] = BG_COLOR;
|
|
|
|
if (bits & 0x02) gr_video_memory[VideoOffset+6] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+6] = BG_COLOR;
|
|
|
|
if (bits & 0x01) gr_video_memory[VideoOffset+7] = FG_COLOR;
|
|
else gr_video_memory[VideoOffset+7] = BG_COLOR;
|
|
|
|
VideoOffset += 8;
|
|
} else {
|
|
for (i=0; i< width/2 ; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
else
|
|
gr_video_memory[VideoOffset++] = BG_COLOR;
|
|
BitMask >>= 1;
|
|
|
|
|
|
// Unroll twice
|
|
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
else
|
|
gr_video_memory[VideoOffset++] = BG_COLOR;
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
text_ptr++;
|
|
}
|
|
|
|
y ++;
|
|
VideoOffset1 += ROWSIZE;
|
|
|
|
if (VideoOffset1 > 0xFFFF ) {
|
|
VideoOffset1 -= 0xFFFF + 1;
|
|
if (!page_switched)
|
|
gr_vesa_incpage();
|
|
}
|
|
}
|
|
|
|
y += skip_lines;
|
|
VideoOffset1 += ROWSIZE * skip_lines;
|
|
skip_lines = 0;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int gr_internal_string2m(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
char * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int page_switched, skip_lines = 0;
|
|
|
|
unsigned int VideoOffset, VideoOffset1;
|
|
|
|
VideoOffset1 = (unsigned int)DATA + y * ROWSIZE + x;
|
|
|
|
gr_vesa_setpage(VideoOffset1 >> 16);
|
|
|
|
VideoOffset1 &= 0xFFFF;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
if (x==0x8000) { //centered
|
|
int xx = get_centered_x(text_ptr1);
|
|
VideoOffset1 = y * ROWSIZE + xx;
|
|
gr_vesa_setpage(VideoOffset1 >> 16);
|
|
VideoOffset1 &= 0xFFFF;
|
|
}
|
|
|
|
for (r=0; r<FHEIGHT; r++)
|
|
{
|
|
text_ptr = text_ptr1;
|
|
|
|
VideoOffset = VideoOffset1;
|
|
|
|
page_switched = 0;
|
|
|
|
while (*text_ptr)
|
|
{
|
|
if (*text_ptr == '\n' )
|
|
{
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
skip_lines = *(text_ptr+1) - '0';
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE )
|
|
{
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
VideoOffset += width;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline)
|
|
{
|
|
if ( VideoOffset+width > 0xFFFF )
|
|
{
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
|
|
if (VideoOffset > 0xFFFF )
|
|
{
|
|
VideoOffset -= 0xFFFF + 1;
|
|
page_switched = 1;
|
|
gr_vesa_incpage();
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (i=0; i< width; i++ )
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
if ( VideoOffset+width > 0xFFFF )
|
|
{
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
else
|
|
VideoOffset++;
|
|
|
|
BitMask >>= 1;
|
|
|
|
if (VideoOffset > 0xFFFF )
|
|
{
|
|
VideoOffset -= 0xFFFF + 1;
|
|
page_switched = 1;
|
|
gr_vesa_incpage();
|
|
}
|
|
|
|
}
|
|
} else {
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
gr_video_memory[VideoOffset++] = FG_COLOR;
|
|
else
|
|
VideoOffset++;;
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
}
|
|
text_ptr++;
|
|
|
|
VideoOffset += spacing-width;
|
|
}
|
|
|
|
y ++;
|
|
VideoOffset1 += ROWSIZE;
|
|
|
|
if (VideoOffset1 > 0xFFFF ) {
|
|
VideoOffset1 -= 0xFFFF + 1;
|
|
if (!page_switched)
|
|
gr_vesa_incpage();
|
|
}
|
|
}
|
|
|
|
y += skip_lines;
|
|
VideoOffset1 += ROWSIZE * skip_lines;
|
|
skip_lines = 0;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
#endif // __ENV_MSDOS__
|
|
|
|
#if defined(POLY_ACC)
|
|
int gr_internal_string5(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
ubyte * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int skip_lines = 0;
|
|
|
|
unsigned int VideoOffset, VideoOffset1;
|
|
|
|
pa_flush();
|
|
VideoOffset1 = y * ROWSIZE + x * PA_BPP;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
if (x==0x8000) { //centered
|
|
int xx = get_centered_x(text_ptr1);
|
|
VideoOffset1 = y * ROWSIZE + xx * PA_BPP;
|
|
}
|
|
|
|
for (r=0; r<FHEIGHT; r++)
|
|
{
|
|
|
|
text_ptr = text_ptr1;
|
|
|
|
VideoOffset = VideoOffset1;
|
|
|
|
while (*text_ptr)
|
|
{
|
|
if (*text_ptr == '\n' )
|
|
{
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
skip_lines = *(text_ptr+1) - '0';
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE )
|
|
{
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
VideoOffset += spacing * PA_BPP;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline)
|
|
for (i=0; i< width; i++ )
|
|
{ *(short *)(DATA + VideoOffset) = pa_clut[FG_COLOR]; VideoOffset += PA_BPP; }
|
|
else
|
|
{
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
{ *(short *)(DATA + VideoOffset) = pa_clut[FG_COLOR]; VideoOffset += PA_BPP; }
|
|
else
|
|
{ *(short *)(DATA + VideoOffset) = pa_clut[BG_COLOR]; VideoOffset += PA_BPP; }
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
|
|
VideoOffset += PA_BPP * (spacing-width); //for kerning
|
|
|
|
text_ptr++;
|
|
}
|
|
|
|
VideoOffset1 += ROWSIZE; y++;
|
|
}
|
|
|
|
y += skip_lines;
|
|
VideoOffset1 += ROWSIZE * skip_lines;
|
|
skip_lines = 0;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int gr_internal_string5m(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
ubyte * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int skip_lines = 0;
|
|
|
|
unsigned int VideoOffset, VideoOffset1;
|
|
|
|
pa_flush();
|
|
VideoOffset1 = y * ROWSIZE + x * PA_BPP;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
if (x==0x8000) { //centered
|
|
int xx = get_centered_x(text_ptr1);
|
|
VideoOffset1 = y * ROWSIZE + xx * PA_BPP;
|
|
}
|
|
|
|
for (r=0; r<FHEIGHT; r++)
|
|
{
|
|
|
|
text_ptr = text_ptr1;
|
|
|
|
VideoOffset = VideoOffset1;
|
|
|
|
while (*text_ptr)
|
|
{
|
|
if (*text_ptr == '\n' )
|
|
{
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
skip_lines = *(text_ptr+1) - '0';
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE )
|
|
{
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
VideoOffset += spacing * PA_BPP;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline)
|
|
for (i=0; i< width; i++ )
|
|
{ *(short *)(DATA + VideoOffset) = pa_clut[FG_COLOR]; VideoOffset += PA_BPP; }
|
|
else
|
|
{
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
for (i=0; i< width; i++ )
|
|
{
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
|
|
if (bits & BitMask)
|
|
{ *(short *)(DATA + VideoOffset) = pa_clut[FG_COLOR]; VideoOffset += PA_BPP; }
|
|
else
|
|
VideoOffset += PA_BPP;
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
text_ptr++;
|
|
|
|
VideoOffset += PA_BPP * (spacing-width);
|
|
}
|
|
|
|
VideoOffset1 += ROWSIZE; y++;
|
|
}
|
|
y += skip_lines;
|
|
VideoOffset1 += ROWSIZE * skip_lines;
|
|
skip_lines = 0;
|
|
}
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
//a bitmap for the character
|
|
grs_bitmap char_bm = {
|
|
0,0,0,0, //x,y,w,h
|
|
BM_LINEAR, //type
|
|
BM_FLAG_TRANSPARENT, //flags
|
|
0, //rowsize
|
|
NULL, //data
|
|
0 //selector
|
|
};
|
|
|
|
int gr_internal_color_string(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
ubyte * text_ptr, * next_row, * text_ptr1;
|
|
int width, spacing,letter;
|
|
int xx,yy;
|
|
|
|
char_bm.bm_h = FHEIGHT; //set height for chars of this font
|
|
|
|
next_row = s;
|
|
|
|
yy = y;
|
|
|
|
|
|
while (next_row != NULL)
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
text_ptr = text_ptr1;
|
|
|
|
xx = x;
|
|
|
|
if (xx==0x8000) //centered
|
|
xx = get_centered_x(text_ptr);
|
|
|
|
while (*text_ptr)
|
|
{
|
|
if (*text_ptr == '\n' )
|
|
{
|
|
next_row = &text_ptr[1];
|
|
yy += FHEIGHT;
|
|
break;
|
|
}
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
xx += spacing;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
char_bm.bm_w = char_bm.bm_rowsize = width;
|
|
|
|
char_bm.bm_data = fp;
|
|
gr_bitmapm(xx,yy,&char_bm);
|
|
|
|
xx += spacing;
|
|
|
|
text_ptr++;
|
|
}
|
|
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int gr_string(int x, int y, char *s )
|
|
{
|
|
int w, h, aw;
|
|
int clipped=0;
|
|
|
|
Assert(FONT != NULL);
|
|
|
|
if ( x == 0x8000 ) {
|
|
if ( y<0 ) clipped |= 1;
|
|
gr_get_string_size(s, &w, &h, &aw );
|
|
// for x, since this will be centered, only look at
|
|
// width.
|
|
if ( w > grd_curcanv->cv_bitmap.bm_w ) clipped |= 1;
|
|
if ( (y+h) > grd_curcanv->cv_bitmap.bm_h ) clipped |= 1;
|
|
|
|
if ( (y+h) < 0 ) clipped |= 2;
|
|
if ( y > grd_curcanv->cv_bitmap.bm_h ) clipped |= 2;
|
|
|
|
} else {
|
|
if ( (x<0) || (y<0) ) clipped |= 1;
|
|
gr_get_string_size(s, &w, &h, &aw );
|
|
if ( (x+w) > grd_curcanv->cv_bitmap.bm_w ) clipped |= 1;
|
|
if ( (y+h) > grd_curcanv->cv_bitmap.bm_h ) clipped |= 1;
|
|
if ( (x+w) < 0 ) clipped |= 2;
|
|
if ( (y+h) < 0 ) clipped |= 2;
|
|
if ( x > grd_curcanv->cv_bitmap.bm_w ) clipped |= 2;
|
|
if ( y > grd_curcanv->cv_bitmap.bm_h ) clipped |= 2;
|
|
}
|
|
|
|
if ( !clipped )
|
|
return gr_ustring(x, y, s );
|
|
|
|
if ( clipped & 2 ) {
|
|
// Completely clipped...
|
|
mprintf( (1, "Text '%s' at (%d,%d) is off screen!\n", s, x, y ));
|
|
return 0;
|
|
}
|
|
|
|
if ( clipped & 1 ) {
|
|
// Partially clipped...
|
|
//mprintf( (0, "Text '%s' at (%d,%d) is getting clipped!\n", s, x, y ));
|
|
}
|
|
|
|
// Partially clipped...
|
|
|
|
if (FFLAGS & FT_COLOR)
|
|
return gr_internal_color_string( x, y, s);
|
|
|
|
if ( BG_COLOR == -1)
|
|
return gr_internal_string_clipped_m( x, y, s );
|
|
|
|
return gr_internal_string_clipped( x, y, s );
|
|
}
|
|
|
|
int gr_ustring(int x, int y, char *s )
|
|
{
|
|
if (FFLAGS & FT_COLOR) {
|
|
|
|
return gr_internal_color_string(x,y,s);
|
|
|
|
}
|
|
else
|
|
switch( TYPE )
|
|
{
|
|
case BM_LINEAR:
|
|
if ( BG_COLOR == -1)
|
|
return gr_internal_string0m(x,y,s);
|
|
else
|
|
return gr_internal_string0(x,y,s);
|
|
#ifdef __ENV_MSDOS__
|
|
case BM_SVGA:
|
|
if ( BG_COLOR == -1)
|
|
return gr_internal_string2m(x,y,s);
|
|
else
|
|
return gr_internal_string2(x,y,s);
|
|
#endif // __ENV_MSDOS__
|
|
#if defined(POLY_ACC)
|
|
case BM_LINEAR15:
|
|
if ( BG_COLOR == -1)
|
|
return gr_internal_string5m(x,y,s);
|
|
else
|
|
return gr_internal_string5(x,y,s);
|
|
#endif
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
void gr_get_string_size(char *s, int *string_width, int *string_height, int *average_width )
|
|
{
|
|
int i = 0, longest_width = 0;
|
|
int width,spacing;
|
|
|
|
*string_height = FHEIGHT;
|
|
*string_width = 0;
|
|
*average_width = FWIDTH;
|
|
|
|
if (s != NULL )
|
|
{
|
|
*string_width = 0;
|
|
while (*s)
|
|
{
|
|
// if (*s == CC_UNDERLINE)
|
|
// s++;
|
|
while (*s == '\n')
|
|
{
|
|
s++;
|
|
*string_height += FHEIGHT;
|
|
*string_width = 0;
|
|
}
|
|
|
|
if (*s == 0) break;
|
|
|
|
// 1 = next byte specifies color, so skip the 1 and the color value
|
|
if (*s == CC_COLOR)
|
|
s += 2;
|
|
else if (*s == CC_LSPACING) {
|
|
*string_height += *(s+1)-'0';
|
|
s += 2;
|
|
} else {
|
|
get_char_width(s[0],s[1],&width,&spacing);
|
|
*string_width += spacing;
|
|
if (*string_width > longest_width)
|
|
longest_width = *string_width;
|
|
i++;
|
|
s++;
|
|
}
|
|
}
|
|
}
|
|
*string_width = longest_width;
|
|
}
|
|
|
|
|
|
int gr_uprintf( int x, int y, char * format, ... )
|
|
{
|
|
char buffer[1000];
|
|
va_list args;
|
|
|
|
va_start(args, format );
|
|
vsprintf(buffer,format,args);
|
|
return gr_ustring( x, y, buffer );
|
|
}
|
|
|
|
int gr_printf( int x, int y, char * format, ... )
|
|
{
|
|
char buffer[1000];
|
|
va_list args;
|
|
|
|
va_start(args, format );
|
|
vsprintf(buffer,format,args);
|
|
return gr_string( x, y, buffer );
|
|
}
|
|
|
|
void gr_close_font( grs_font * font )
|
|
{
|
|
if (font)
|
|
{
|
|
int fontnum;
|
|
|
|
//find font in list
|
|
for (fontnum=0;fontnum<MAX_OPEN_FONTS && open_font[fontnum].ptr!=font;fontnum++);
|
|
Assert(fontnum<MAX_OPEN_FONTS); //did we find slot?
|
|
|
|
open_font[fontnum].ptr = NULL;
|
|
|
|
if ( font->ft_chars )
|
|
d_free( font->ft_chars );
|
|
d_free( font );
|
|
|
|
}
|
|
}
|
|
|
|
//remap (by re-reading) all the color fonts
|
|
void gr_remap_color_fonts()
|
|
{
|
|
int fontnum;
|
|
|
|
for (fontnum=0;fontnum<MAX_OPEN_FONTS;fontnum++) {
|
|
grs_font *font;
|
|
|
|
font = open_font[fontnum].ptr;
|
|
|
|
if (font && (font->ft_flags & FT_COLOR))
|
|
gr_remap_font(font,open_font[fontnum].filename);
|
|
}
|
|
}
|
|
|
|
void build_colormap_good( ubyte * palette, ubyte * colormap, int * freq );
|
|
void decode_data_asm(ubyte *data, int num_pixels, ubyte * colormap, int * count );
|
|
#ifdef __WATCOMC__
|
|
#pragma aux decode_data_asm parm [esi] [ecx] [edi] [ebx] modify exact [esi edi eax ebx ecx] = \
|
|
"again_ddn:" \
|
|
"xor eax,eax" \
|
|
"mov al,[esi]" \
|
|
"inc dword ptr [ebx+eax*4]" \
|
|
"mov al,[edi+eax]" \
|
|
"mov [esi],al" \
|
|
"inc esi" \
|
|
"dec ecx" \
|
|
"jne again_ddn"
|
|
|
|
#endif
|
|
|
|
grs_font * gr_init_font( char * fontname )
|
|
{
|
|
static int first_time=1;
|
|
grs_font *font;
|
|
int i,fontnum;
|
|
unsigned char * ptr;
|
|
int nchars;
|
|
CFILE *fontfile;
|
|
char file_id[4];
|
|
int datasize; //size up to (but not including) palette
|
|
|
|
if (first_time) {
|
|
int i;
|
|
for (i=0;i<MAX_OPEN_FONTS;i++)
|
|
open_font[i].ptr = NULL;
|
|
first_time=0;
|
|
}
|
|
|
|
//find free font slot
|
|
for (fontnum=0;fontnum<MAX_OPEN_FONTS && open_font[fontnum].ptr!=NULL;fontnum++);
|
|
Assert(fontnum<MAX_OPEN_FONTS); //did we find one?
|
|
|
|
strncpy(open_font[fontnum].filename,fontname,FILENAME_LEN);
|
|
|
|
fontfile = cfopen(fontname, "rb");
|
|
|
|
if (!fontfile)
|
|
Error( "Can't open font file %s", fontname );
|
|
|
|
cfread( file_id, 1, 4, fontfile );
|
|
datasize = cfile_read_int(fontfile);
|
|
|
|
|
|
if ((file_id[0] != 'P') ||
|
|
(file_id[1] != 'S') ||
|
|
(file_id[2] != 'F') ||
|
|
(file_id[3] != 'N'))
|
|
Error( "File %s is not a font file", fontname );
|
|
|
|
font = (grs_font *) d_malloc(datasize);
|
|
|
|
open_font[fontnum].ptr = font;
|
|
|
|
cfread(font,1,datasize,fontfile);
|
|
|
|
#ifdef MACINTOSH
|
|
// gotta translate those endian things
|
|
|
|
font->ft_w = SWAPSHORT(font->ft_w);
|
|
font->ft_h = SWAPSHORT(font->ft_h);
|
|
font->ft_flags = SWAPSHORT(font->ft_flags);
|
|
font->ft_bytewidth = SWAPSHORT(font->ft_bytewidth);
|
|
font->ft_data = (ubyte *)SWAPINT((int)(font->ft_data));
|
|
font->ft_chars = (ubyte **)SWAPINT((int)(font->ft_chars));
|
|
font->ft_widths = (short *)SWAPINT((int)(font->ft_widths));
|
|
font->ft_kerndata = (ubyte *)SWAPINT((int)(font->ft_kerndata));
|
|
#endif
|
|
|
|
nchars = font->ft_maxchar-font->ft_minchar+1;
|
|
|
|
if (font->ft_flags & FT_PROPORTIONAL) {
|
|
|
|
font->ft_widths = (short *) (((int) font->ft_widths) + ((ubyte *) font));
|
|
|
|
#ifdef MACINTOSH
|
|
for (i = 0; i < nchars; i++)
|
|
font->ft_widths[i] = SWAPSHORT(font->ft_widths[i]);
|
|
#endif
|
|
|
|
font->ft_data = ((int) font->ft_data) + ((ubyte *) font);
|
|
|
|
font->ft_chars = (unsigned char **)d_malloc( nchars * sizeof(unsigned char *));
|
|
|
|
ptr = font->ft_data;
|
|
|
|
for (i=0; i< nchars; i++ ) {
|
|
font->ft_chars[i] = ptr;
|
|
if (font->ft_flags & FT_COLOR)
|
|
ptr += font->ft_widths[i] * font->ft_h;
|
|
else
|
|
ptr += BITS_TO_BYTES(font->ft_widths[i]) * font->ft_h;
|
|
}
|
|
|
|
} else {
|
|
|
|
font->ft_data = ((unsigned char *) font) + sizeof(*font);
|
|
|
|
font->ft_chars = NULL;
|
|
font->ft_widths = NULL;
|
|
|
|
ptr = font->ft_data + (nchars * font->ft_w * font->ft_h);
|
|
}
|
|
|
|
if (font->ft_flags & FT_KERNED)
|
|
font->ft_kerndata = ((int) font->ft_kerndata) + ((ubyte *) font);
|
|
|
|
|
|
if (font->ft_flags & FT_COLOR) { //remap palette
|
|
ubyte palette[256*3];
|
|
ubyte colormap[256];
|
|
int freq[256];
|
|
|
|
cfread(palette,3,256,fontfile); //read the palette
|
|
|
|
#ifdef MACINTOSH // swap the first and last palette entries (black and white)
|
|
{
|
|
int i;
|
|
ubyte c;
|
|
|
|
for (i = 0; i < 3; i++) {
|
|
c = palette[i];
|
|
palette[i] = palette[765+i];
|
|
palette[765+i] = c;
|
|
}
|
|
|
|
// we also need to swap the data entries as well. black is white and white is black
|
|
|
|
for (i = 0; i < ptr-font->ft_data; i++) {
|
|
if (font->ft_data[i] == 0)
|
|
font->ft_data[i] = 255;
|
|
else if (font->ft_data[i] == 255)
|
|
font->ft_data[i] = 0;
|
|
}
|
|
|
|
}
|
|
#endif
|
|
|
|
build_colormap_good( (ubyte *)&palette, colormap, freq );
|
|
|
|
colormap[TRANSPARENCY_COLOR] = TRANSPARENCY_COLOR; // chaged from colormap[255] = 255 to this for macintosh
|
|
|
|
decode_data_asm(font->ft_data, ptr-font->ft_data, colormap, freq );
|
|
|
|
}
|
|
|
|
cfclose(fontfile);
|
|
|
|
//set curcanv vars
|
|
|
|
FONT = font;
|
|
FG_COLOR = 0;
|
|
BG_COLOR = 0;
|
|
|
|
return font;
|
|
|
|
}
|
|
|
|
//remap a font by re-reading its data & palette
|
|
void gr_remap_font( grs_font *font, char * fontname )
|
|
{
|
|
int i;
|
|
int nchars;
|
|
CFILE *fontfile;
|
|
char file_id[4];
|
|
int datasize; //size up to (but not including) palette
|
|
int data_ofs,data_len;
|
|
|
|
if (! (font->ft_flags & FT_COLOR))
|
|
return;
|
|
|
|
fontfile = cfopen(fontname, "rb");
|
|
|
|
if (!fontfile)
|
|
Error( "Can't open font file %s", fontname );
|
|
|
|
cfread( file_id, 1, 4, fontfile );
|
|
datasize = cfile_read_int(fontfile);
|
|
|
|
|
|
if ((file_id[0] != 'P') ||
|
|
(file_id[1] != 'S') ||
|
|
(file_id[2] != 'F') ||
|
|
(file_id[3] != 'N'))
|
|
Error( "File %s is not a font file", fontname );
|
|
|
|
nchars = font->ft_maxchar-font->ft_minchar+1;
|
|
|
|
//compute data length
|
|
data_len = 0;
|
|
if (font->ft_flags & FT_PROPORTIONAL) {
|
|
|
|
for (i=0; i< nchars; i++ ) {
|
|
if (font->ft_flags & FT_COLOR)
|
|
data_len += font->ft_widths[i] * font->ft_h;
|
|
else
|
|
data_len += BITS_TO_BYTES(font->ft_widths[i]) * font->ft_h;
|
|
}
|
|
|
|
} else
|
|
data_len = nchars * font->ft_w * font->ft_h;
|
|
|
|
data_ofs = font->ft_data - ((ubyte *) font);
|
|
|
|
cfseek(fontfile,data_ofs,SEEK_CUR);
|
|
cfread(font->ft_data,1,data_len,fontfile); //read raw data
|
|
|
|
if (font->ft_flags & FT_COLOR) { //remap palette
|
|
ubyte palette[256*3];
|
|
ubyte colormap[256];
|
|
int freq[256];
|
|
|
|
cfseek(fontfile,-sizeof(palette),SEEK_END);
|
|
|
|
cfread(palette,3,256,fontfile); //read the palette
|
|
|
|
#ifdef MACINTOSH // swap the first and last palette entries (black and white)
|
|
{
|
|
int i;
|
|
ubyte c;
|
|
|
|
for (i = 0; i < 3; i++) {
|
|
c = palette[i];
|
|
palette[i] = palette[765+i];
|
|
palette[765+i] = c;
|
|
}
|
|
|
|
// we also need to swap the data entries as well. black is white and white is black
|
|
|
|
for (i = 0; i < data_len; i++) {
|
|
if (font->ft_data[i] == 0)
|
|
font->ft_data[i] = 255;
|
|
else if (font->ft_data[i] == 255)
|
|
font->ft_data[i] = 0;
|
|
}
|
|
|
|
}
|
|
#endif
|
|
|
|
build_colormap_good( (ubyte *)&palette, colormap, freq );
|
|
|
|
colormap[TRANSPARENCY_COLOR] = TRANSPARENCY_COLOR; // changed from colormap[255] = 255;
|
|
|
|
decode_data_asm(font->ft_data, data_len, colormap, freq );
|
|
|
|
|
|
}
|
|
|
|
cfclose(fontfile);
|
|
}
|
|
|
|
|
|
void gr_set_fontcolor( int fg, int bg )
|
|
{
|
|
FG_COLOR = fg;
|
|
BG_COLOR = bg;
|
|
}
|
|
|
|
void gr_set_curfont( grs_font * new )
|
|
{
|
|
FONT = new;
|
|
}
|
|
|
|
|
|
int gr_internal_string_clipped(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
char * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int x1 = x, last_x;
|
|
|
|
bits=0;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
x = x1;
|
|
if (x==0x8000) //centered
|
|
x = get_centered_x(text_ptr1);
|
|
|
|
last_x = x;
|
|
|
|
for (r=0; r<FHEIGHT; r++) {
|
|
text_ptr = text_ptr1;
|
|
x = last_x;
|
|
|
|
while (*text_ptr) {
|
|
if (*text_ptr == '\n' ) {
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
Int3(); // Warning: skip lines not supported for clipped strings.
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE ) {
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
x += spacing;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline) {
|
|
for (i=0; i< width; i++ ) {
|
|
gr_setcolor(FG_COLOR);
|
|
gr_pixel( x++, y );
|
|
}
|
|
} else {
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
for (i=0; i< width; i++ ) {
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
if (bits & BitMask)
|
|
gr_setcolor(FG_COLOR);
|
|
else
|
|
gr_setcolor(BG_COLOR);
|
|
gr_pixel( x++, y );
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
|
|
x += spacing-width; //for kerning
|
|
|
|
text_ptr++;
|
|
}
|
|
y++;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int gr_internal_string_clipped_m(int x, int y, char *s )
|
|
{
|
|
unsigned char * fp;
|
|
char * text_ptr, * next_row, * text_ptr1;
|
|
int r, BitMask, i, bits, width, spacing, letter, underline;
|
|
int x1 = x, last_x;
|
|
|
|
bits=0;
|
|
|
|
next_row = s;
|
|
|
|
while (next_row != NULL )
|
|
{
|
|
text_ptr1 = next_row;
|
|
next_row = NULL;
|
|
|
|
x = x1;
|
|
if (x==0x8000) //centered
|
|
x = get_centered_x(text_ptr1);
|
|
|
|
last_x = x;
|
|
|
|
for (r=0; r<FHEIGHT; r++) {
|
|
x = last_x;
|
|
|
|
text_ptr = text_ptr1;
|
|
|
|
while (*text_ptr) {
|
|
if (*text_ptr == '\n' ) {
|
|
next_row = &text_ptr[1];
|
|
break;
|
|
}
|
|
|
|
if (*text_ptr == CC_COLOR) {
|
|
FG_COLOR = *(text_ptr+1);
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
if (*text_ptr == CC_LSPACING) {
|
|
Int3(); // Warning: skip lines not supported for clipped strings.
|
|
text_ptr += 2;
|
|
continue;
|
|
}
|
|
|
|
underline = 0;
|
|
if (*text_ptr == CC_UNDERLINE ) {
|
|
if ((r==FBASELINE+2) || (r==FBASELINE+3))
|
|
underline = 1;
|
|
text_ptr++;
|
|
}
|
|
|
|
get_char_width(text_ptr[0],text_ptr[1],&width,&spacing);
|
|
|
|
letter = *text_ptr-FMINCHAR;
|
|
|
|
if (!INFONT(letter)) { //not in font, draw as space
|
|
x += spacing;
|
|
text_ptr++;
|
|
continue;
|
|
}
|
|
|
|
if (FFLAGS & FT_PROPORTIONAL)
|
|
fp = FCHARS[letter];
|
|
else
|
|
fp = FDATA + letter * BITS_TO_BYTES(width)*FHEIGHT;
|
|
|
|
if (underline) {
|
|
for (i=0; i< width; i++ ) {
|
|
gr_setcolor(FG_COLOR);
|
|
gr_pixel( x++, y );
|
|
}
|
|
} else {
|
|
fp += BITS_TO_BYTES(width)*r;
|
|
|
|
BitMask = 0;
|
|
|
|
for (i=0; i< width; i++ ) {
|
|
if (BitMask==0) {
|
|
bits = *fp++;
|
|
BitMask = 0x80;
|
|
}
|
|
if (bits & BitMask) {
|
|
gr_setcolor(FG_COLOR);
|
|
gr_pixel( x++, y );
|
|
} else {
|
|
x++;
|
|
}
|
|
BitMask >>= 1;
|
|
}
|
|
}
|
|
|
|
x += spacing-width; //for kerning
|
|
|
|
text_ptr++;
|
|
}
|
|
y++;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|