static int t1_get_flags(char const *flags);
static char *t1_from_utf8(char const *in, size_t len, int *outlen);
-static undef_int i_init_t1_low(int t1log);
+
static void t1_push_error(void);
-static void i_t1_set_aa(int st);
static int t1_active_fonts = 0;
static int t1_initialized = 0;
-static int t1_aa = 0;
-
-struct i_t1_font_tag {
- int font_id;
-};
-
-static i_mutex_t mutex;
-
-/*
-=item i_t1_start()
-
-Initialize the font driver. This does not actually initialize T1Lib,
-it just allocates the mutex we use to gate access to it.
-
-=cut
-*/
-
-void
-i_t1_start(void) {
- mutex = i_mutex_new();
-}
/*
=item i_init_t1(t1log)
undef_int
i_init_t1(int t1log) {
- undef_int result;
- i_mutex_lock(mutex);
-
- result = i_init_t1_low(t1log);
-
- i_mutex_unlock(mutex);
-
- return result;
-}
-
-static undef_int
-i_init_t1_low(int t1log) {
int init_flags = IGNORE_CONFIGFILE|IGNORE_FONTDATABASE;
-
- mm_log((1,"init_t1(%d)\n", t1log));
+ mm_log((1,"init_t1()\n"));
i_clear_error();
return(1);
}
T1_SetLogLevel(T1LOG_DEBUG);
+ i_t1_set_aa(1); /* Default Antialias value */
++t1_initialized;
void
i_close_t1(void) {
- i_mutex_lock(mutex);
T1_CloseLib();
t1_initialized = 0;
- i_mutex_unlock(mutex);
}
=cut
*/
-i_t1_font_t
+int
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;
- }
+ if (!t1_initialized && i_init_t1(0))
+ return -1;
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;
+ return font_id;
}
if (afm != NULL) {
t1_push_error();
i_push_error(0, "loading font");
T1_DeleteFont(font_id);
- i_mutex_unlock(mutex);
- return NULL;
+ return -1;
}
++t1_active_fonts;
- i_mutex_unlock(mutex);
-
- font = mymalloc(sizeof(*font));
- font->font_id = font_id;
+ mm_log((1, "i_t1_new() -> %d\n", font_id));
- mm_log((1, "i_t1_new() -> %p (%d)\n", font, font_id));
-
- return font;
+ return font_id;
}
/*
-=item i_t1_destroy(font)
+=item i_t1_destroy(font_id)
Frees resources for a t1 font with given font id.
- font - font to free
+ font_id - number of the font to free
=cut
*/
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));
+i_t1_destroy(int font_id) {
+ mm_log((1,"i_t1_destroy(font_id %d)\n",font_id));
--t1_active_fonts;
- result = T1_DeleteFont(font->font_id);
- myfree(font);
-
- i_mutex_unlock(mutex);
-
- return result;
+ return T1_DeleteFont(font_id);
}
st - 0 = NONE, 1 = LOW, 2 = HIGH.
-Must be called with the mutex locked.
-
=cut
*/
-static void
+void
i_t1_set_aa(int st) {
int i;
unsigned long cst[17];
-
- if (t1_aa == st)
- return;
-
switch(st) {
case 0:
T1_AASetBitsPerPixel( 8 );
T1_AAHSetGrayValues( cst );
mm_log((1,"setting T1 antialias to high\n"));
}
-
- t1_aa = st;
}
/*
-=item i_t1_cp(im, xb, yb, channel, fontnum, points, str, len, align,aa)
+=item i_t1_cp(im, xb, yb, channel, fontnum, points, str, len, align)
Interface to text rendering into a single channel in an image
str - string to render
len - string length
align - (0 - top of font glyph | 1 - baseline )
- aa - anti-aliasing level
=cut
*/
undef_int
-i_t1_cp(i_t1_font_t font, i_img *im,i_img_dim xb,i_img_dim yb,int channel,double points,char* str,size_t len,int align, int utf8, char const *flags, int aa) {
+i_t1_cp(i_img *im,i_img_dim xb,i_img_dim yb,int channel,int fontnum,double points,char* str,size_t len,int align, int utf8, char const *flags) {
GLYPH *glyph;
int xsize,ysize,x,y;
i_color val;
int mod_flags = t1_get_flags(flags);
- int fontnum = font->font_id;
unsigned int ch_mask_store;
- i_clear_error();
-
- mm_log((1, "i_t1_cp(font %p (%d), im %p, (xb,yb)=" i_DFp ", channel %d, points %g, str %p, len %u, align %d, utf8 %d, flags '%s', aa %d)\n",
- font, fontnum, im, i_DFcp(xb, yb), channel, points, str, (unsigned)len, align, utf8, flags, aa));
-
- if (im == NULL) {
- mm_log((1,"i_t1_cp: Null image in input\n"));
- i_push_error(0, "null image");
- return(0);
- }
-
- i_mutex_lock(mutex);
-
- i_t1_set_aa(aa);
+ if (im == NULL) { mm_log((1,"i_t1_cp: Null image in input\n")); return(0); }
if (utf8) {
int worklen;
else {
glyph=T1_AASetString( fontnum, str, len, 0, mod_flags, points, NULL);
}
- if (glyph == NULL) {
- t1_push_error();
- i_push_error(0, "i_t1_cp: T1_AASetString failed");
- i_mutex_unlock(mutex);
+ if (glyph == NULL)
return 0;
- }
mm_log((1,"metrics: ascent: %d descent: %d\n",glyph->metrics.ascent,glyph->metrics.descent));
mm_log((1," leftSideBearing: %d rightSideBearing: %d\n",glyph->metrics.leftSideBearing,glyph->metrics.rightSideBearing));
}
im->ch_mask=ch_mask_store;
-
- i_mutex_unlock(mutex);
-
return 1;
}
*/
int
-i_t1_bbox(i_t1_font_t font, double points,const char *str,size_t len, i_img_dim cords[6], int utf8,char const *flags) {
+i_t1_bbox(int fontnum, double points,const char *str,size_t len, i_img_dim cords[6], int utf8,char const *flags) {
BBox bbox;
BBox gbbox;
int mod_flags = t1_get_flags(flags);
i_img_dim advance;
- int fontnum = font->font_id;
- int space_position;
-
- i_mutex_lock(mutex);
-
- space_position = T1_GetEncodingIndex(fontnum, "space");
+ int space_position = T1_GetEncodingIndex(fontnum, "space");
- mm_log((1,"i_t1_bbox(font %p (%d),points %.2f,str '%.*s', len %d)\n",font, fontnum,points,len,str,len));
+ mm_log((1,"i_t1_bbox(fontnum %d,points %.2f,str '%.*s', len %d)\n",fontnum,points,len,str,len));
T1_LoadFont(fontnum); /* FIXME: Here a return code is ignored - haw haw haw */
if (len == 0) {
cords[BBOX_RIGHT_BEARING] =
cords[BBOX_ADVANCE_WIDTH] - cords[BBOX_POS_WIDTH];
- i_mutex_unlock(mutex);
-
return BBOX_RIGHT_BEARING+1;
}
/*
-=item i_t1_text(im, xb, yb, cl, fontnum, points, str, len, align, aa)
+=item i_t1_text(im, xb, yb, cl, fontnum, points, str, len, align)
Interface to text rendering in a single color onto an image
str - char pointer to string to render
len - string length
align - (0 - top of font glyph | 1 - baseline )
- aa - anti-aliasing level
=cut
*/
undef_int
-i_t1_text(i_t1_font_t font, i_img *im, i_img_dim xb, i_img_dim yb,const i_color *cl, double points,const char* str,size_t len,int align, int utf8, char const *flags, int aa) {
+i_t1_text(i_img *im, i_img_dim xb, i_img_dim yb,const i_color *cl,int fontnum, double points,const char* str,size_t len,int align, int utf8, char const *flags) {
GLYPH *glyph;
int xsize,ysize,y;
int mod_flags = t1_get_flags(flags);
i_render *r;
- int fontnum = font->font_id;
-
- mm_log((1, "i_t1_text(font %p (%d), im %p, (xb,yb)=" i_DFp ", cl (%d,%d,%d,%d), points %g, str %p, len %u, align %d, utf8 %d, flags '%s', aa %d)\n",
- font, fontnum, im, i_DFcp(xb, yb), cl->rgba.r, cl->rgba.g, cl->rgba.b, cl->rgba.a, points, str, (unsigned)len, align, utf8, flags, aa));
-
- i_clear_error();
-
- if (im == NULL) {
- i_push_error(0, "null image");
- mm_log((1,"i_t1_text: Null image in input\n"));
- return(0);
- }
- i_mutex_lock(mutex);
-
- i_t1_set_aa(aa);
+ if (im == NULL) { mm_log((1,"i_t1_cp: Null image in input\n")); return(0); }
if (utf8) {
int worklen;
/* T1_AASetString() accepts a char * not a const char */
glyph=T1_AASetString( fontnum, (char *)str, len, 0, mod_flags, points, NULL);
}
- if (glyph == NULL) {
- mm_log((1, "T1_AASetString failed\n"));
- t1_push_error();
- i_push_error(0, "i_t1_text(): T1_AASetString failed");
- i_mutex_unlock(mutex);
+ if (glyph == NULL)
return 0;
- }
mm_log((1,"metrics: ascent: %d descent: %d\n",glyph->metrics.ascent,glyph->metrics.descent));
mm_log((1," leftSideBearing: %d rightSideBearing: %d\n",glyph->metrics.leftSideBearing,glyph->metrics.rightSideBearing));
i_render_color(r, xb, yb+y, xsize, (unsigned char *)glyph->bits+y*xsize, cl);
}
i_render_delete(r);
-
- i_mutex_unlock(mutex);
return 1;
}
*/
int
-i_t1_has_chars(i_t1_font_t font, const char *text, size_t len, int utf8,
+i_t1_has_chars(int font_num, const char *text, size_t len, int utf8,
char *out) {
int count = 0;
- int font_num = font->font_id;
- i_mutex_lock(mutex);
-
mm_log((1, "i_t1_has_chars(font_num %d, text %p, len %d, utf8 %d)\n",
font_num, text, len, utf8));
i_clear_error();
if (T1_LoadFont(font_num)) {
t1_push_error();
- i_mutex_unlock(mutex);
return 0;
}
c = i_utf8_advance(&text, &len);
if (c == ~0UL) {
i_push_error(0, "invalid UTF8 character");
- i_mutex_unlock(mutex);
return 0;
}
}
++count;
}
- i_mutex_unlock(mutex);
-
return count;
}
/*
-=item i_t1_face_name(font, name_buf, name_buf_size)
+=item i_t1_face_name(font_num, name_buf, name_buf_size)
Copies the face name of the given C<font_num> to C<name_buf>. Returns
the number of characters required to store the name (which can be
*/
int
-i_t1_face_name(i_t1_font_t font, char *name_buf, size_t name_buf_size) {
+i_t1_face_name(int font_num, char *name_buf, size_t name_buf_size) {
char *name;
- int font_num = font->font_id;
-
- i_mutex_lock(mutex);
T1_errno = 0;
if (T1_LoadFont(font_num)) {
t1_push_error();
- i_mutex_unlock(mutex);
return 0;
}
name = T1_GetFontName(font_num);
if (name) {
- size_t len = strlen(name);
strncpy(name_buf, name, name_buf_size);
name_buf[name_buf_size-1] = '\0';
- i_mutex_unlock(mutex);
- return len + 1;
+ return strlen(name) + 1;
}
else {
t1_push_error();
- i_mutex_unlock(mutex);
return 0;
}
}
int
-i_t1_glyph_name(i_t1_font_t font, unsigned long ch, char *name_buf,
+i_t1_glyph_name(int font_num, unsigned long ch, char *name_buf,
size_t name_buf_size) {
char *name;
- int font_num = font->font_id;
- i_mutex_lock(mutex);
i_clear_error();
if (ch > 0xFF) {
- i_mutex_unlock(mutex);
return 0;
}
if (T1_LoadFont(font_num)) {
t1_push_error();
- i_mutex_unlock(mutex);
return 0;
}
name = T1_GetCharName(font_num, (unsigned char)ch);
if (name) {
if (strcmp(name, ".notdef")) {
- size_t len = strlen(name);
strncpy(name_buf, name, name_buf_size);
name_buf[name_buf_size-1] = '\0';
- i_mutex_unlock(mutex);
- return len + 1;
+ return strlen(name) + 1;
}
else {
- i_mutex_unlock(mutex);
return 0;
}
}
else {
t1_push_error();
- i_mutex_unlock(mutex);
return 0;
}
}
projects / imager.git / blobdiff