i_t1_font_t
i_t1_new(char *pfb,char *afm) {
int font_id;
i_t1_font_t font;
i_mutex_lock(mutex);
i_clear_error();
if (!t1_initialized && i_init_t1_low(0)) {
i_mutex_unlock(mutex);
return NULL;
}
mm_log((1,"i_t1_new(pfb %s,afm %s)\n",pfb,(afm?afm:"NULL")));
font_id = T1_AddFont(pfb);
if (font_id<0) {
mm_log((1,"i_t1_new: Failed to load pfb file '%s' - return code %d.\n",pfb,font_id));
t1_push_error();
i_mutex_unlock(mutex);
return NULL;
}
if (afm != NULL) {
mm_log((1,"i_t1_new: requesting afm file '%s'.\n",afm));
if (T1_SetAfmFileName(font_id,afm)<0) mm_log((1,"i_t1_new: afm loading of '%s' failed.\n",afm));
}
if (T1_LoadFont(font_id)) {
mm_log((1, "i_t1_new() -> -1 - T1_LoadFont failed (%d)\n", T1_errno));
t1_push_error();
i_push_error(0, "loading font");
T1_DeleteFont(font_id);
i_mutex_unlock(mutex);
return NULL;
}
++t1_active_fonts;
i_mutex_unlock(mutex);
font = mymalloc(sizeof(*font));
font->font_id = font_id;
mm_log((1, "i_t1_new() -> %p (%d)\n", font, font_id));
return font;
}
int
i_t1_destroy(i_t1_font_t font) {
int result;
i_mutex_lock(mutex);
mm_log((1,"i_t1_destroy(font %p (%d))\n", font, font->font_id));
--t1_active_fonts;
result = T1_DeleteFont(font->font_id);
myfree(font);
i_mutex_unlock(mutex);
return result;
}
void DoneT1(struct font_entry *tfontp)
{
int c=0;
int error = T1_DeleteFont( tfontp->T1id );
if (error)
Warning("font file %s could not be closed", tfontp->name);
while(c<NFNTCHARS) {
if (tfontp->chr[c]!=NULL) {
UnLoadT1((struct char_entry*)tfontp->chr[c]);
free(tfontp->chr[c]);
tfontp->chr[c]=NULL;
}
c++;
}
if (tfontp->name!=NULL)
free(tfontp->name);
tfontp->name=NULL;
}
void php_free_ps_font(int font_id)
{
T1_DeleteFont(font_id);
}
SWFFONT* swf_LoadT1Font(const char*filename)
{
SWFFONT * font;
int nr;
float angle,underline;
char*fontname,*fullname,*familyname;
BBox bbox;
int s,num;
char**charnames;
char**charname;
char*encoding[256];
int c;
int t;
if(!t1lib_initialized) {
T1_SetBitmapPad(16);
if ((T1_InitLib(NO_LOGFILE)==NULL)){
fprintf(stderr, "Initialization of t1lib failed\n");
return 0;
}
t1lib_initialized = 1;
}
nr = T1_AddFont(filename);
T1_LoadFont(nr);
charnames = T1_GetAllCharNames(nr);
if(!charnames) {
fprintf(stderr, "No Charnames record- not a Type1 Font?\n");
return 0;
}
angle = T1_GetItalicAngle(nr);
fontname = T1_GetFontName(nr);
fullname = T1_GetFullName(nr);
familyname = T1_GetFamilyName(nr);
underline = T1_GetUnderlinePosition(nr);
bbox = T1_GetFontBBox(nr);
font = (SWFFONT*)rfx_calloc(sizeof(SWFFONT));
font->version = 2;
if(fontname)
font->name = (U8*)strdup(fontname);
else
font->name = 0;
font->layout = (SWFLAYOUT*)rfx_calloc(sizeof(SWFLAYOUT));
num = 0;
charname = charnames;
while(*charname) {
charname++;
if(num<256) {
if(*charname) encoding[num] = strdup(*charname);
else encoding[num] = strdup(".notdef");
}
num++;
}
for(t=num;t<256;t++)
encoding[t] = strdup(".notdef");
//T1_ReencodeFont(nr, encoding);
font->maxascii = num;
font->numchars = num;
font->style = (/*bold*/0?FONT_STYLE_BOLD:0) + (angle>0.05?FONT_STYLE_ITALIC:0);
font->glyph = (SWFGLYPH*)rfx_calloc(num*sizeof(SWFGLYPH));
font->glyph2ascii = (U16*)rfx_calloc(num*sizeof(U16));
font->ascii2glyph = (int*)rfx_calloc(font->maxascii*sizeof(int));
font->layout->ascent = (U16)(underline - bbox.lly);
font->layout->descent = (U16)(bbox.ury - underline);
font->layout->leading = (U16)(font->layout->ascent -
font->layout->descent -
(bbox.lly - bbox.ury));
font->layout->bounds = (SRECT*)rfx_calloc(sizeof(SRECT)*num);
font->layout->kerningcount = 0;
font->layout->kerning = 0;
font->glyphnames = rfx_calloc(num*sizeof(char*));
num = 0;
charname = charnames;
for(c=0;c<font->numchars;c++) {
drawer_t draw;
SRECT bbox;
T1_OUTLINE * outline;
FPOINT pos,last;
int firstx;
outline = T1_GetCharOutline(nr, c, 100.0, 0);
firstx = outline->dest.x/0xffff;
pos.x = 0;
pos.y = 0;
last = pos;
font->glyphnames[c] = strdup(*charname);
if(c<font->maxascii)
font->ascii2glyph[c] = c;
font->glyph2ascii[c] = c;
swf_Shape01DrawerInit(&draw, 0);
while(outline) {
pos.x += (outline->dest.x/(float)0xffff);
pos.y += (outline->dest.y/(float)0xffff);
if(outline->type == T1_PATHTYPE_MOVE) {
draw.moveTo(&draw,&pos);
} else if(outline->type == T1_PATHTYPE_LINE) {
draw.lineTo(&draw,&pos);
} else if(outline->type == T1_PATHTYPE_BEZIER) {
T1_BEZIERSEGMENT*o2 = (T1_BEZIERSEGMENT*)outline;
FPOINT b,c;
b.x = o2->B.x/(float)0xffff+last.x;
b.y = o2->B.y/(float)0xffff+last.y;
c.x = o2->C.x/(float)0xffff+last.x;
c.y = o2->C.y/(float)0xffff+last.y;
draw_cubicTo(&draw,&b,&c,&pos);
} else {
fprintf(stderr, "loadT1Font: unknown outline type:%d\n", outline->type);
}
last = pos;
outline = outline->link;
}
draw.finish(&draw);
font->glyph[c].shape = swf_ShapeDrawerToShape(&draw);
bbox = swf_ShapeDrawerGetBBox(&draw);
draw.dealloc(&draw);
font->layout->bounds[c] = bbox;
font->glyph[c].advance = bbox.xmax;
if(!font->glyph[c].advance) {
font->glyph[c].advance = firstx;
}
charname++;
}
T1_DeleteFont(nr);
for(t=0;t<256;t++)
rfx_free(encoding[t]);
return font;
}
