| /* |
| * GDI font objects |
| * |
| * Copyright 1993 Alexandre Julliard |
| */ |
| |
| static char Copyright[] = "Copyright Alexandre Julliard, 1993"; |
| |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <X11/Xatom.h> |
| #include "gdi.h" |
| |
| extern Display * XT_display; |
| extern Screen * XT_screen; |
| |
| |
| /*********************************************************************** |
| * FONT_MatchFont |
| * |
| * Find a X font matching the logical font. |
| */ |
| XFontStruct * FONT_MatchFont( DC * dc, LOGFONT * font ) |
| { |
| char pattern[100]; |
| char *family, *weight, *charset; |
| char **names; |
| char slant, spacing; |
| int width, height, count; |
| XFontStruct * fontStruct; |
| |
| weight = (font->lfWeight > 550) ? "bold" : "medium"; |
| slant = font->lfItalic ? 'i' : 'r'; |
| height = font->lfHeight * 10; |
| width = font->lfWidth * 10; |
| spacing = (font->lfPitchAndFamily & FIXED_PITCH) ? 'm' : |
| (font->lfPitchAndFamily & VARIABLE_PITCH) ? 'p' : '*'; |
| charset = (font->lfCharSet == ANSI_CHARSET) ? "iso8859-1" : "*"; |
| family = font->lfFaceName; |
| if (!*family) switch(font->lfPitchAndFamily & 0xf0) |
| { |
| case FF_ROMAN: family = "times"; break; |
| case FF_SWISS: family = "helvetica"; break; |
| case FF_MODERN: family = "courier"; break; |
| case FF_SCRIPT: family = "*"; break; |
| case FF_DECORATIVE: family = "*"; break; |
| default: family = "*"; break; |
| } |
| |
| sprintf( pattern, "-*-%s-%s-%c-normal--*-%d-*-*-%c-%d-%s", |
| family, weight, slant, height, spacing, width, charset ); |
| #ifdef DEBUG_FONT |
| printf( "FONT_MatchFont: '%s'\n", pattern ); |
| #endif |
| names = XListFonts( XT_display, pattern, 1, &count ); |
| if (!count) |
| { |
| #ifdef DEBUG_FONT |
| printf( " No matching font found\n" ); |
| #endif |
| return NULL; |
| } |
| #ifdef DEBUG_FONT |
| printf( " Found '%s'\n", *names ); |
| #endif |
| fontStruct = XLoadQueryFont( XT_display, *names ); |
| XFreeFontNames( names ); |
| return fontStruct; |
| } |
| |
| |
| /*********************************************************************** |
| * FONT_GetMetrics |
| */ |
| void FONT_GetMetrics( LOGFONT * logfont, XFontStruct * xfont, |
| TEXTMETRIC * metrics ) |
| { |
| int average, i; |
| unsigned long prop; |
| |
| metrics->tmAscent = xfont->ascent; |
| metrics->tmDescent = xfont->descent; |
| metrics->tmHeight = xfont->ascent + xfont->descent; |
| |
| metrics->tmInternalLeading = 0; |
| if (XGetFontProperty( xfont, XA_X_HEIGHT, &prop )) |
| metrics->tmInternalLeading = xfont->ascent - (short)prop; |
| metrics->tmExternalLeading = 0; |
| metrics->tmMaxCharWidth = xfont->max_bounds.width; |
| metrics->tmWeight = logfont->lfWeight; |
| metrics->tmItalic = logfont->lfItalic; |
| metrics->tmUnderlined = logfont->lfUnderline; |
| metrics->tmStruckOut = logfont->lfStrikeOut; |
| metrics->tmFirstChar = xfont->min_char_or_byte2; |
| metrics->tmLastChar = xfont->max_char_or_byte2; |
| metrics->tmDefaultChar = xfont->default_char; |
| metrics->tmBreakChar = ' '; |
| metrics->tmPitchAndFamily = logfont->lfPitchAndFamily; |
| metrics->tmCharSet = logfont->lfCharSet; |
| metrics->tmOverhang = 0; |
| metrics->tmDigitizedAspectX = 1; |
| metrics->tmDigitizedAspectY = 1; |
| |
| if (xfont->per_char) average = metrics->tmMaxCharWidth; |
| else |
| { |
| XCharStruct * charPtr = xfont->per_char; |
| average = 0; |
| for (i = metrics->tmFirstChar; i <= metrics->tmLastChar; i++) |
| { |
| average += charPtr->width; |
| charPtr++; |
| } |
| average /= metrics->tmLastChar - metrics->tmFirstChar + 1; |
| } |
| metrics->tmAveCharWidth = average; |
| } |
| |
| |
| /*********************************************************************** |
| * CreateFontIndirect (GDI.57) |
| */ |
| HFONT CreateFontIndirect( LOGFONT * font ) |
| { |
| FONTOBJ * fontPtr; |
| HFONT hfont = GDI_AllocObject( sizeof(FONTOBJ), FONT_MAGIC ); |
| if (!hfont) return 0; |
| fontPtr = (FONTOBJ *) GDI_HEAP_ADDR( hfont ); |
| memcpy( &fontPtr->logfont, font, sizeof(LOGFONT) ); |
| return hfont; |
| } |
| |
| |
| /*********************************************************************** |
| * CreateFont (GDI.56) |
| */ |
| HFONT CreateFont( int height, int width, int esc, int orient, int weight, |
| BYTE italic, BYTE underline, BYTE strikeout, BYTE charset, |
| BYTE outpres, BYTE clippres, BYTE quality, BYTE pitch, |
| LPSTR name ) |
| { |
| LOGFONT logfont = { height, width, esc, orient, weight, italic, underline, |
| strikeout, charset, outpres, clippres, quality, pitch, }; |
| strncpy( logfont.lfFaceName, name, LF_FACESIZE ); |
| return CreateFontIndirect( &logfont ); |
| } |
| |
| |
| /*********************************************************************** |
| * FONT_GetObject |
| */ |
| int FONT_GetObject( FONTOBJ * font, int count, LPSTR buffer ) |
| { |
| if (count > sizeof(LOGFONT)) count = sizeof(LOGFONT); |
| memcpy( buffer, &font->logfont, count ); |
| return count; |
| } |
| |
| |
| /*********************************************************************** |
| * FONT_SelectObject |
| */ |
| HFONT FONT_SelectObject( DC * dc, HFONT hfont, FONTOBJ * font ) |
| { |
| static X_PHYSFONT stockFonts[LAST_STOCK_FONT-FIRST_STOCK_FONT+1]; |
| X_PHYSFONT * stockPtr; |
| HFONT prevHandle = dc->w.hFont; |
| XFontStruct * fontStruct; |
| |
| /* Load font if necessary */ |
| |
| if ((hfont >= FIRST_STOCK_FONT) && (hfont <= LAST_STOCK_FONT)) |
| stockPtr = &stockFonts[hfont - FIRST_STOCK_FONT]; |
| else stockPtr = NULL; |
| |
| if (!stockPtr || !stockPtr->fstruct) |
| { |
| fontStruct = FONT_MatchFont( dc, &font->logfont ); |
| } |
| else |
| { |
| fontStruct = stockPtr->fstruct; |
| #ifdef DEBUG_FONT |
| printf( "FONT_SelectObject: Loaded font from cache %x %p\n", |
| hfont, fontStruct ); |
| #endif |
| } |
| if (!fontStruct) return 0; |
| |
| /* Free previous font */ |
| |
| if ((prevHandle < FIRST_STOCK_FONT) || (prevHandle > LAST_STOCK_FONT)) |
| { |
| if (dc->u.x.font.fstruct) |
| XFreeFont( XT_display, dc->u.x.font.fstruct ); |
| } |
| |
| /* Store font */ |
| |
| dc->w.hFont = hfont; |
| if (stockPtr) |
| { |
| if (!stockPtr->fstruct) |
| { |
| stockPtr->fstruct = fontStruct; |
| FONT_GetMetrics( &font->logfont, fontStruct, &stockPtr->metrics ); |
| } |
| memcpy( &dc->u.x.font, stockPtr, sizeof(*stockPtr) ); |
| } |
| else |
| { |
| dc->u.x.font.fstruct = fontStruct; |
| FONT_GetMetrics( &font->logfont, fontStruct, &dc->u.x.font.metrics ); |
| } |
| return prevHandle; |
| } |
| |
| |
| /*********************************************************************** |
| * GetTextCharacterExtra (GDI.89) |
| */ |
| short GetTextCharacterExtra( HDC hdc ) |
| { |
| DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); |
| if (!dc) return 0; |
| return abs( (dc->w.charExtra * dc->w.WndExtX + dc->w.VportExtX / 2) |
| / dc->w.VportExtX ); |
| } |
| |
| |
| /*********************************************************************** |
| * SetTextCharacterExtra (GDI.8) |
| */ |
| short SetTextCharacterExtra( HDC hdc, short extra ) |
| { |
| short prev; |
| DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); |
| if (!dc) return 0; |
| extra = (extra * dc->w.VportExtX + dc->w.WndExtX / 2) / dc->w.WndExtX; |
| prev = dc->w.charExtra; |
| dc->w.charExtra = abs(extra); |
| return (prev * dc->w.WndExtX + dc->w.VportExtX / 2) / dc->w.VportExtX; |
| } |
| |
| |
| /*********************************************************************** |
| * SetTextJustification (GDI.10) |
| */ |
| short SetTextJustification( HDC hdc, short extra, short breaks ) |
| { |
| DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); |
| if (!dc) return 0; |
| |
| extra = abs((extra * dc->w.VportExtX + dc->w.WndExtX / 2) / dc->w.WndExtX); |
| if (!extra) breaks = 0; |
| dc->w.breakTotalExtra = extra; |
| dc->w.breakCount = breaks; |
| if (breaks) |
| { |
| dc->w.breakExtra = extra / breaks; |
| dc->w.breakRem = extra - (dc->w.breakCount * dc->w.breakExtra); |
| } |
| else |
| { |
| dc->w.breakExtra = 0; |
| dc->w.breakRem = 0; |
| } |
| return 1; |
| } |
| |
| |
| /*********************************************************************** |
| * GetTextExtent (GDI.91) |
| */ |
| DWORD GetTextExtent( HDC hdc, LPSTR str, short count ) |
| { |
| SIZE size; |
| if (!GetTextExtentPoint( hdc, str, count, &size )) return 0; |
| return size.cx | (size.cy << 16); |
| } |
| |
| |
| /*********************************************************************** |
| * GetTextExtentPoint (GDI.471) |
| */ |
| BOOL GetTextExtentPoint( HDC hdc, LPSTR str, short count, LPSIZE size ) |
| { |
| int dir, ascent, descent; |
| XCharStruct info; |
| |
| DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); |
| if (!dc) return FALSE; |
| XTextExtents( dc->u.x.font.fstruct, str, count, &dir, |
| &ascent, &descent, &info ); |
| size->cx = abs((info.width + dc->w.breakRem + count * dc->w.charExtra) |
| * dc->w.WndExtX / dc->w.VportExtX); |
| size->cy = abs((dc->u.x.font.fstruct->ascent+dc->u.x.font.fstruct->descent) |
| * dc->w.WndExtY / dc->w.VportExtY); |
| |
| #ifdef DEBUG_FONT |
| printf( "GetTextExtentPoint(%d '%s' %d %p): returning %d,%d\n", |
| hdc, str, count, size, size->cx, size->cy ); |
| #endif |
| return TRUE; |
| } |
| |
| |
| /*********************************************************************** |
| * GetTextMetrics (GDI.93) |
| */ |
| BOOL GetTextMetrics( HDC hdc, LPTEXTMETRIC metrics ) |
| { |
| DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); |
| if (!dc) return FALSE; |
| memcpy( metrics, &dc->u.x.font.metrics, sizeof(*metrics) ); |
| |
| metrics->tmAscent = abs( metrics->tmAscent |
| * dc->w.WndExtY / dc->w.VportExtY ); |
| metrics->tmDescent = abs( metrics->tmDescent |
| * dc->w.WndExtY / dc->w.VportExtY ); |
| metrics->tmHeight = metrics->tmAscent + metrics->tmDescent; |
| metrics->tmInternalLeading = abs( metrics->tmInternalLeading |
| * dc->w.WndExtY / dc->w.VportExtY ); |
| metrics->tmExternalLeading = abs( metrics->tmExternalLeading |
| * dc->w.WndExtY / dc->w.VportExtY ); |
| metrics->tmMaxCharWidth = abs( metrics->tmMaxCharWidth |
| * dc->w.WndExtX / dc->w.VportExtX ); |
| metrics->tmAveCharWidth = abs( metrics->tmAveCharWidth |
| * dc->w.WndExtX / dc->w.VportExtX ); |
| return TRUE; |
| } |
| |
| |
| /*********************************************************************** |
| * GetCharWidth (GDI.350) |
| */ |
| BOOL GetCharWidth(HDC hdc, WORD wFirstChar, WORD wLastChar, LPINT lpBuffer) |
| { |
| int i, j; |
| XFontStruct *xfont; |
| XCharStruct *charPtr; |
| int default_width; |
| |
| DC *dc = (DC *)GDI_GetObjPtr(hdc, DC_MAGIC); |
| if (!dc) return FALSE; |
| xfont = dc->u.x.font.fstruct; |
| |
| /* fixed font? */ |
| if (xfont->per_char == NULL) |
| { |
| for (i = wFirstChar, j = 0; i <= wLastChar; i++, j++) |
| *(lpBuffer + j) = xfont->max_bounds.width; |
| return TRUE; |
| } |
| |
| charPtr = xfont->per_char; |
| default_width = (charPtr + xfont->default_char)->width; |
| |
| for (i = wFirstChar, j = 0; i <= wLastChar; i++, j++) |
| { |
| if (i < xfont->min_char_or_byte2 || i > xfont->max_char_or_byte2) |
| *(lpBuffer + j) = default_width; |
| else |
| *(lpBuffer + j) = charPtr->width; |
| } |
| return TRUE; |
| } |