objects/font.c

   1 /*
   2  * GDI font objects
   3  *
   4  * Copyright 1993 Alexandre Julliard
   5  */
   6
   7 static char Copyright[] = "Copyright  Alexandre Julliard, 1993";
   8
   9 #include <stdio.h>
  10 #include <stdlib.h>
  11 #include <X11/Xatom.h>
  12 #include "gdi.h"
  13
  14 extern Display * XT_display;
  15 extern Screen * XT_screen;
  16
  17
  18 /***********************************************************************
  19  *           FONT_MatchFont
  20  *
  21  * Find a X font matching the logical font.
  22  */
  23 XFontStruct * FONT_MatchFont( DC * dc, LOGFONT * font )
  24 {
  25     char pattern[100];
  26     char *family, *weight, *charset;
  27     char **names;
  28     char slant, spacing;
  29     int width, height, count;
  30     XFontStruct * fontStruct;
  31
  32     weight = (font->lfWeight > 550) ? "bold" : "medium";
  33     slant = font->lfItalic ? 'i' : 'r';
  34     height = font->lfHeight * 10;
  35     width = font->lfWidth * 10;
  36     spacing = (font->lfPitchAndFamily & FIXED_PITCH) ? 'm' :
  37               (font->lfPitchAndFamily & VARIABLE_PITCH) ? 'p' : '*';
  38     charset = (font->lfCharSet == ANSI_CHARSET) ? "iso8859-1" : "*";
  39     family = font->lfFaceName;
  40     if (!*family) switch(font->lfPitchAndFamily & 0xf0)
  41     {
  42       case FF_ROMAN:      family = "times"; break;
  43       case FF_SWISS:      family = "helvetica"; break;
  44       case FF_MODERN:     family = "courier"; break;
  45       case FF_SCRIPT:     family = "*"; break;
  46       case FF_DECORATIVE: family = "*"; break;
  47       default:            family = "*"; break;
  48     }
  49
  50     sprintf( pattern, "-*-%s-%s-%c-normal--*-%d-*-*-%c-%d-%s",
  51             family, weight, slant, height, spacing, width, charset );
  52 #ifdef DEBUG_FONT
  53     printf( "FONT_MatchFont: '%s'\n", pattern );
  54 #endif
  55     names = XListFonts( XT_display, pattern, 1, &count );
  56     if (!count)
  57     {
  58 #ifdef DEBUG_FONT
  59         printf( "        No matching font found\n" );
  60 #endif
  61         return NULL;
  62     }
  63 #ifdef DEBUG_FONT
  64     printf( "        Found '%s'\n", *names );
  65 #endif
  66     fontStruct = XLoadQueryFont( XT_display, *names );
  67     XFreeFontNames( names );
  68     return fontStruct;
  69 }
  70
  71
  72 /***********************************************************************
  73  *           FONT_GetMetrics
  74  */
  75 void FONT_GetMetrics( LOGFONT * logfont, XFontStruct * xfont,
  76                       TEXTMETRIC * metrics )
  77 {
  78     int average, i;
  79     unsigned long prop;
  80
  81     metrics->tmAscent  = xfont->ascent;
  82     metrics->tmDescent = xfont->descent;
  83     metrics->tmHeight  = xfont->ascent + xfont->descent;
  84
  85     metrics->tmInternalLeading  = 0;
  86     if (XGetFontProperty( xfont, XA_X_HEIGHT, &prop ))
  87         metrics->tmInternalLeading = xfont->ascent - (short)prop;
  88     metrics->tmExternalLeading  = 0;
  89     metrics->tmMaxCharWidth     = xfont->max_bounds.width;
  90     metrics->tmWeight           = logfont->lfWeight;
  91     metrics->tmItalic           = logfont->lfItalic;
  92     metrics->tmUnderlined       = logfont->lfUnderline;
  93     metrics->tmStruckOut        = logfont->lfStrikeOut;
  94     metrics->tmFirstChar        = xfont->min_char_or_byte2;
  95     metrics->tmLastChar         = xfont->max_char_or_byte2;
  96     metrics->tmDefaultChar      = xfont->default_char;
  97     metrics->tmBreakChar        = ' ';
  98     metrics->tmPitchAndFamily   = logfont->lfPitchAndFamily;
  99     metrics->tmCharSet          = logfont->lfCharSet;
 100     metrics->tmOverhang         = 0;
 101     metrics->tmDigitizedAspectX = 1;
 102     metrics->tmDigitizedAspectY = 1;
 103
 104     if (xfont->per_char) average = metrics->tmMaxCharWidth;
 105     else
 106     {
 107         XCharStruct * charPtr = xfont->per_char;
 108         average = 0;
 109         for (i = metrics->tmFirstChar; i <= metrics->tmLastChar; i++)
 110         {
 111             average += charPtr->width;
 112             charPtr++;
 113         }
 114         average /= metrics->tmLastChar - metrics->tmFirstChar + 1;
 115     }
 116     metrics->tmAveCharWidth = average;
 117 }
 118
 119
 120 /***********************************************************************
 121  *           CreateFontIndirect    (GDI.57)
 122  */
 123 HFONT CreateFontIndirect( LOGFONT * font )
 124 {
 125     FONTOBJ * fontPtr;
 126     HFONT hfont = GDI_AllocObject( sizeof(FONTOBJ), FONT_MAGIC );
 127     if (!hfont) return 0;
 128     fontPtr = (FONTOBJ *) GDI_HEAP_ADDR( hfont );
 129     memcpy( &fontPtr->logfont, font, sizeof(LOGFONT) );
 130     return hfont;
 131 }
 132
 133
 134 /***********************************************************************
 135  *           CreateFont    (GDI.56)
 136  */
 137 HFONT CreateFont( int height, int width, int esc, int orient, int weight,
 138                   BYTE italic, BYTE underline, BYTE strikeout, BYTE charset,
 139                   BYTE outpres, BYTE clippres, BYTE quality, BYTE pitch,
 140                   LPSTR name )
 141 {
 142     LOGFONT logfont = { height, width, esc, orient, weight, italic, underline,
 143                     strikeout, charset, outpres, clippres, quality, pitch, };
 144     strncpy( logfont.lfFaceName, name, LF_FACESIZE );
 145     return CreateFontIndirect( &logfont );
 146 }
 147
 148
 149 /***********************************************************************
 150  *           FONT_GetObject
 151  */
 152 int FONT_GetObject( FONTOBJ * font, int count, LPSTR buffer )
 153 {
 154     if (count > sizeof(LOGFONT)) count = sizeof(LOGFONT);
 155     memcpy( buffer, &font->logfont, count );
 156     return count;
 157 }
 158
 159
 160 /***********************************************************************
 161  *           FONT_SelectObject
 162  */
 163 HFONT FONT_SelectObject( DC * dc, HFONT hfont, FONTOBJ * font )
 164 {
 165     static X_PHYSFONT stockFonts[LAST_STOCK_FONT-FIRST_STOCK_FONT+1];
 166     X_PHYSFONT * stockPtr;
 167     HFONT prevHandle = dc->w.hFont;
 168     XFontStruct * fontStruct;
 169
 170       /* Load font if necessary */
 171
 172     if ((hfont >= FIRST_STOCK_FONT) && (hfont <= LAST_STOCK_FONT))
 173         stockPtr = &stockFonts[hfont - FIRST_STOCK_FONT];
 174     else stockPtr = NULL;
 175
 176     if (!stockPtr || !stockPtr->fstruct)
 177     {
 178         fontStruct = FONT_MatchFont( dc, &font->logfont );
 179     }
 180     else
 181     {
 182         fontStruct = stockPtr->fstruct;
 183 #ifdef DEBUG_FONT
 184         printf( "FONT_SelectObject: Loaded font from cache %x %p\n",
 185                 hfont, fontStruct );
 186 #endif
 187     }
 188     if (!fontStruct) return 0;
 189
 190       /* Free previous font */
 191
 192     if ((prevHandle < FIRST_STOCK_FONT) || (prevHandle > LAST_STOCK_FONT))
 193     {
 194         if (dc->u.x.font.fstruct)
 195             XFreeFont( XT_display, dc->u.x.font.fstruct );
 196     }
 197
 198       /* Store font */
 199
 200     dc->w.hFont = hfont;
 201     if (stockPtr)
 202     {
 203         if (!stockPtr->fstruct)
 204         {
 205             stockPtr->fstruct = fontStruct;
 206             FONT_GetMetrics( &font->logfont, fontStruct, &stockPtr->metrics );
 207         }
 208         memcpy( &dc->u.x.font, stockPtr, sizeof(*stockPtr) );
 209     }
 210     else
 211     {
 212         dc->u.x.font.fstruct = fontStruct;
 213         FONT_GetMetrics( &font->logfont, fontStruct, &dc->u.x.font.metrics );
 214     }
 215     return prevHandle;
 216 }
 217
 218
 219 /***********************************************************************
 220  *           GetTextCharacterExtra    (GDI.89)
 221  */
 222 short GetTextCharacterExtra( HDC hdc )
 223 {
 224     DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
 225     if (!dc) return 0;
 226     return abs( (dc->w.charExtra * dc->w.WndExtX + dc->w.VportExtX / 2)
 227                  / dc->w.VportExtX );
 228 }
 229
 230
 231 /***********************************************************************
 232  *           SetTextCharacterExtra    (GDI.8)
 233  */
 234 short SetTextCharacterExtra( HDC hdc, short extra )
 235 {
 236     short prev;
 237     DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
 238     if (!dc) return 0;
 239     extra = (extra * dc->w.VportExtX + dc->w.WndExtX / 2) / dc->w.WndExtX;
 240     prev = dc->w.charExtra;
 241     dc->w.charExtra = abs(extra);
 242     return (prev * dc->w.WndExtX + dc->w.VportExtX / 2) / dc->w.VportExtX;
 243 }
 244
 245
 246 /***********************************************************************
 247  *           SetTextJustification    (GDI.10)
 248  */
 249 short SetTextJustification( HDC hdc, short extra, short breaks )
 250 {
 251     DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
 252     if (!dc) return 0;
 253
 254     extra = abs((extra * dc->w.VportExtX + dc->w.WndExtX / 2) / dc->w.WndExtX);
 255     if (!extra) breaks = 0;
 256     dc->w.breakTotalExtra = extra;
 257     dc->w.breakCount = breaks;
 258     if (breaks)
 259     {
 260         dc->w.breakExtra = extra / breaks;
 261         dc->w.breakRem   = extra - (dc->w.breakCount * dc->w.breakExtra);
 262     }
 263     else
 264     {
 265         dc->w.breakExtra = 0;
 266         dc->w.breakRem   = 0;
 267     }
 268     return 1;
 269 }
 270
 271
 272 /***********************************************************************
 273  *           GetTextExtent    (GDI.91)
 274  */
 275 DWORD GetTextExtent( HDC hdc, LPSTR str, short count )
 276 {
 277     SIZE size;
 278     if (!GetTextExtentPoint( hdc, str, count, &size )) return 0;
 279     return size.cx | (size.cy << 16);
 280 }
 281
 282
 283 /***********************************************************************
 284  *           GetTextExtentPoint    (GDI.471)
 285  */
 286 BOOL GetTextExtentPoint( HDC hdc, LPSTR str, short count, LPSIZE size )
 287 {
 288     int dir, ascent, descent;
 289     XCharStruct info;
 290
 291     DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
 292     if (!dc) return FALSE;
 293     XTextExtents( dc->u.x.font.fstruct, str, count, &dir,
 294                   &ascent, &descent, &info );
 295     size->cx = abs((info.width + dc->w.breakRem + count * dc->w.charExtra)
 296                     * dc->w.WndExtX / dc->w.VportExtX);
 297     size->cy = abs((dc->u.x.font.fstruct->ascent+dc->u.x.font.fstruct->descent)
 298                     * dc->w.WndExtY / dc->w.VportExtY);
 299
 300 #ifdef DEBUG_FONT
 301     printf( "GetTextExtentPoint(%d '%s' %d %p): returning %d,%d\n",
 302             hdc, str, count, size, size->cx, size->cy );
 303 #endif
 304     return TRUE;
 305 }
 306
 307
 308 /***********************************************************************
 309  *           GetTextMetrics    (GDI.93)
 310  */
 311 BOOL GetTextMetrics( HDC hdc, LPTEXTMETRIC metrics )
 312 {
 313     DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
 314     if (!dc) return FALSE;
 315     memcpy( metrics, &dc->u.x.font.metrics, sizeof(*metrics) );
 316
 317     metrics->tmAscent  = abs( metrics->tmAscent
 318                               * dc->w.WndExtY / dc->w.VportExtY );
 319     metrics->tmDescent = abs( metrics->tmDescent
 320                               * dc->w.WndExtY / dc->w.VportExtY );
 321     metrics->tmHeight  = metrics->tmAscent + metrics->tmDescent;
 322     metrics->tmInternalLeading = abs( metrics->tmInternalLeading
 323                                       * dc->w.WndExtY / dc->w.VportExtY );
 324     metrics->tmExternalLeading = abs( metrics->tmExternalLeading
 325                                       * dc->w.WndExtY / dc->w.VportExtY );
 326     metrics->tmMaxCharWidth    = abs( metrics->tmMaxCharWidth
 327                                       * dc->w.WndExtX / dc->w.VportExtX );
 328     metrics->tmAveCharWidth    = abs( metrics->tmAveCharWidth
 329                                       * dc->w.WndExtX / dc->w.VportExtX );
 330     return TRUE;
 331 }
 332