static XftPattern * _XftDefaultInit (Display *dpy) { XftPattern *pat; pat = XftPatternCreate (); if (!pat) goto bail0; if (!_XftDefaultInitBool (dpy, pat, XFT_CORE)) goto bail1; if (!_XftDefaultInitDouble (dpy, pat, XFT_SCALE)) goto bail1; if (!_XftDefaultInitDouble (dpy, pat, XFT_DPI)) goto bail1; if (!_XftDefaultInitBool (dpy, pat, XFT_RENDER)) goto bail1; if (!_XftDefaultInitInteger (dpy, pat, XFT_RGBA)) goto bail1; if (!_XftDefaultInitBool (dpy, pat, XFT_ANTIALIAS)) goto bail1; if (!_XftDefaultInitBool (dpy, pat, XFT_MINSPACE)) goto bail1; return pat; bail1: XftPatternDestroy (pat); bail0: return 0; }
status ws_create_font(FontObj f, DisplayObj d) { XpceFontInfo xref; DisplayWsXref r = d->ws_ref; XftFont *xft = NULL; if ( !instanceOfObject(f->x_name, ClassCharArray) || !isstrA(&f->x_name->data) ) /* HACK */ { XftPattern *p = XftPatternCreate(); XftPattern *match; FcResult fcrc; int i; char *fam; int mono = FALSE; Real scale = getClassVariableValueObject(f, NAME_scale); double fscale = (scale ? valReal(scale) : 1.0); if ( f->family == NAME_screen ) { fam = "monospace"; mono = TRUE; } else fam = strName(f->family); XftPatternAddString(p, XFT_FAMILY, fam); XftPatternAddDouble(p, XFT_PIXEL_SIZE, (double)valInt(f->points)*fscale); if ( f->style == NAME_italic ) XftPatternAddInteger(p, XFT_SLANT, XFT_SLANT_ITALIC); else if ( f->style == NAME_roman ) XftPatternAddInteger(p, XFT_SLANT, XFT_SLANT_ROMAN); else if ( f->style == NAME_bold ) XftPatternAddInteger(p, XFT_WEIGHT, XFT_WEIGHT_BOLD); if ( mono ) { DEBUG(NAME_font, Cprintf("Asking for fixed\n")); XftPatternAddInteger(p, XFT_SPACING, XFT_MONO); } if ( !(match = XftFontMatch(r->display_xref, r->screen, p, &fcrc)) ) { DEBUG(NAME_font, Cprintf("XftFontMatch() failed. Calling replaceFont()\n")); return replaceFont(f, d); } #ifdef HAVE_XFTNAMEUNPARSE DEBUG(NAME_font, { char buf[1024]; XftNameUnparse(match, buf, sizeof(buf)); Cprintf("Match = '%s'\n", buf); });
XftPattern * XftXlfdParse (const char *xlfd_orig, Bool ignore_scalable, Bool complete) { XftPattern *pat; const char *xlfd = xlfd_orig; const char *foundry; const char *family; const char *weight_name; const char *slant; const char *registry; const char *encoding; char *save; char style[128]; int pixel; int point; int resx; int resy; int slant_value, weight_value; double dpixel; if (*xlfd != '-') return 0; if (!(xlfd = strchr (foundry = ++xlfd, '-'))) return 0; if (!(xlfd = strchr (family = ++xlfd, '-'))) return 0; if (!(xlfd = strchr (weight_name = ++xlfd, '-'))) return 0; if (!(xlfd = strchr (slant = ++xlfd, '-'))) return 0; if (!(xlfd = strchr (/* setwidth_name = */ ++xlfd, '-'))) return 0; if (!(xlfd = strchr (/* add_style_name = */ ++xlfd, '-'))) return 0; if (!(xlfd = _XftGetInt (++xlfd, &pixel))) return 0; if (!(xlfd = _XftGetInt (++xlfd, &point))) return 0; if (!(xlfd = _XftGetInt (++xlfd, &resx))) return 0; if (!(xlfd = _XftGetInt (++xlfd, &resy))) return 0; if (!(xlfd = strchr (/* spacing = */ ++xlfd, '-'))) return 0; if (!(xlfd = strchr (/* average_width = */ ++xlfd, '-'))) return 0; if (!(xlfd = strchr (registry = ++xlfd, '-'))) return 0; /* make sure no fields follow this one */ if ((xlfd = strchr (encoding = ++xlfd, '-'))) return 0; if (ignore_scalable && !pixel) return 0; pat = XftPatternCreate (); if (!pat) return 0; save = (char *) malloc (strlen (foundry) + 1); if (!save) return 0; if (!XftPatternAddString (pat, XFT_XLFD, xlfd_orig)) goto bail; _XftSplitStr (foundry, save); if (save[0] && strcmp (save, "*") != 0) if (!XftPatternAddString (pat, XFT_FOUNDRY, save)) goto bail; _XftSplitStr (family, save); if (save[0] && strcmp (save, "*") != 0) if (!XftPatternAddString (pat, XFT_FAMILY, save)) goto bail; weight_value = _XftMatchSymbolic (XftXlfdWeights, NUM_XLFD_WEIGHTS, _XftSplitStr (weight_name, save), XFT_WEIGHT_MEDIUM); if (!XftPatternAddInteger (pat, XFT_WEIGHT, weight_value)) goto bail; slant_value = _XftMatchSymbolic (XftXlfdSlants, NUM_XLFD_SLANTS, _XftSplitStr (slant, save), XFT_SLANT_ROMAN); if (!XftPatternAddInteger (pat, XFT_SLANT, slant_value)) goto bail; dpixel = (double) pixel; if (complete) { /* * Build a style name */ style[0] = '\0'; switch (weight_value) { case XFT_WEIGHT_LIGHT: strcat (style, "light"); break; case XFT_WEIGHT_DEMIBOLD: strcat (style, "demibold"); break; case XFT_WEIGHT_BOLD: strcat (style, "bold"); break; case XFT_WEIGHT_BLACK: strcat (style, "black"); break; } if (slant_value != XFT_SLANT_ROMAN) { if (style[0]) strcat (style, " "); switch (slant_value) { case XFT_SLANT_ITALIC: strcat (style, "italic"); break; case XFT_SLANT_OBLIQUE: strcat (style, "oblique"); break; } } if (!style[0]) strcat (style, "Regular"); if (!XftPatternAddString (pat, XFT_STYLE, style)) goto bail; if (!XftPatternAddBool (pat, XFT_SCALABLE, pixel == 0)) goto bail; if (!XftPatternAddBool (pat, XFT_CORE, True)) goto bail; if (!XftPatternAddBool (pat, XFT_ANTIALIAS, False)) goto bail; } else { if (point > 0) { if (!XftPatternAddDouble (pat, XFT_SIZE, ((double) point) / 10.0)) goto bail; if (pixel <= 0 && resy > 0) { dpixel = (double) point * (double) resy / 720.0; } } } if (dpixel > 0) if (!XftPatternAddDouble (pat, XFT_PIXEL_SIZE, dpixel)) goto bail; _XftDownStr (registry, save); if (registry[0] && !strchr (registry, '*')) if (!XftPatternAddString (pat, XFT_ENCODING, save)) goto bail; free (save); return pat; bail: free (save); XftPatternDestroy (pat); return 0; }
TkFont * TkpGetFontFromAttributes( TkFont *tkFontPtr, /* If non-NULL, store the information in this * existing TkFont structure, rather than * allocating a new structure to hold the * font; the existing contents of the font * will be released. If NULL, a new TkFont * structure is allocated. */ Tk_Window tkwin, /* For display where font will be used. */ CONST TkFontAttributes *faPtr) /* Set of attributes to match. */ { XftPattern *pattern; int weight, slant; UnixFtFont *fontPtr; #if DEBUG_FONTSEL printf("TkpGetFontFromAttributes %s-%d %d %d\n", faPtr->family, faPtr->size, faPtr->weight, faPtr->slant); #endif /* DEBUG_FONTSEL */ pattern = XftPatternCreate(); if (faPtr->family) { XftPatternAddString(pattern, XFT_FAMILY, faPtr->family); } if (faPtr->size > 0) { XftPatternAddDouble(pattern, XFT_SIZE, (double)faPtr->size); } else if (faPtr->size < 0) { XftPatternAddInteger(pattern, XFT_PIXEL_SIZE, -faPtr->size); } else { XftPatternAddDouble(pattern, XFT_SIZE, 12.0); } switch (faPtr->weight) { case TK_FW_NORMAL: default: weight = XFT_WEIGHT_MEDIUM; break; case TK_FW_BOLD: weight = XFT_WEIGHT_BOLD; break; } XftPatternAddInteger(pattern, XFT_WEIGHT, weight); switch (faPtr->slant) { case TK_FS_ROMAN: default: slant = XFT_SLANT_ROMAN; break; case TK_FS_ITALIC: slant = XFT_SLANT_ITALIC; break; case TK_FS_OBLIQUE: slant = XFT_SLANT_OBLIQUE; break; } XftPatternAddInteger(pattern, XFT_SLANT, slant); fontPtr = (UnixFtFont *) tkFontPtr; if (fontPtr != NULL) { FinishedWithFont(fontPtr); } fontPtr = InitFont(tkwin, pattern, fontPtr); if (!fontPtr) { return NULL; } return &fontPtr->font; }
TkFont * TkpGetFontFromAttributes( TkFont *tkFontPtr, /* If non-NULL, store the information in this * existing TkFont structure, rather than * allocating a new structure to hold the * font; the existing contents of the font * will be released. If NULL, a new TkFont * structure is allocated. */ Tk_Window tkwin, /* For display where font will be used. */ const TkFontAttributes *faPtr) /* Set of attributes to match. */ { XftPattern *pattern; int weight, slant; UnixFtFont *fontPtr; #if DEBUG_FONTSEL printf("TkpGetFontFromAttributes %s-%d %d %d\n", faPtr->family, faPtr->size, faPtr->weight, faPtr->slant); #endif /* DEBUG_FONTSEL */ pattern = XftPatternCreate(); if (faPtr->family) { XftPatternAddString(pattern, XFT_FAMILY, faPtr->family); } if (faPtr->size > 0) { XftPatternAddDouble(pattern, XFT_SIZE, (double)faPtr->size); } else if (faPtr->size < 0) { XftPatternAddInteger(pattern, XFT_PIXEL_SIZE, -faPtr->size); } else { XftPatternAddDouble(pattern, XFT_SIZE, 12.0); } switch (faPtr->weight) { case TK_FW_NORMAL: default: weight = XFT_WEIGHT_MEDIUM; break; case TK_FW_BOLD: weight = XFT_WEIGHT_BOLD; break; } XftPatternAddInteger(pattern, XFT_WEIGHT, weight); switch (faPtr->slant) { case TK_FS_ROMAN: default: slant = XFT_SLANT_ROMAN; break; case TK_FS_ITALIC: slant = XFT_SLANT_ITALIC; break; case TK_FS_OBLIQUE: slant = XFT_SLANT_OBLIQUE; break; } XftPatternAddInteger(pattern, XFT_SLANT, slant); fontPtr = (UnixFtFont *) tkFontPtr; if (fontPtr != NULL) { FinishedWithFont(fontPtr); } fontPtr = InitFont(tkwin, pattern, fontPtr); /* * Hack to work around issues with weird issues with Xft/Xrender * connection. For details, see comp.lang.tcl thread starting from * <*****@*****.**> */ if (!fontPtr) { XftPatternAddBool(pattern, XFT_RENDER, FcFalse); fontPtr = InitFont(tkwin, pattern, fontPtr); } if (!fontPtr) { FcPatternDestroy(pattern); return NULL; } fontPtr->font.fa.underline = faPtr->underline; fontPtr->font.fa.overstrike = faPtr->overstrike; return &fontPtr->font; }