git.oblomov.eu Git - wine/blob - graphics/x11drv/text.c

   1 /*
   2  * X11 graphics driver text functions
   3  *
   4  * Copyright 1993,1994 Alexandre Julliard
   5  */
   6
   7 #include "config.h"
   8
   9 #include <X11/Xatom.h>
  10
  11 #include "ts_xlib.h"
  12
  13 #include <stdlib.h>
  14 #include <math.h>
  15
  16 #include "windef.h"
  17 #include "winnls.h"
  18 #include "gdi.h"
  19 #include "heap.h"
  20 #include "x11font.h"
  21 #include "bitmap.h"
  22 #include "debugtools.h"
  23
  24 DEFAULT_DEBUG_CHANNEL(text);
  25
  26 #define SWAP_INT(a,b)  { int t = a; a = b; b = t; }
  27 #define IROUND(x) (int)((x)>0? (x)+0.5 : (x) - 0.5)
  28
  29
  30 /***********************************************************************
  31  *           X11DRV_ExtTextOut
  32  */
  33 BOOL
  34 X11DRV_ExtTextOut( DC *dc, INT x, INT y, UINT flags,
  35                    const RECT *lprect, LPCWSTR wstr, UINT count,
  36                    const INT *lpDx )
  37 {
  38     int                 i;
  39     fontObject*         pfo;
  40     INT                 width, ascent, descent, xwidth, ywidth;
  41     XFontStruct*        font;
  42     RECT                rect;
  43     char                dfBreakChar, lfUnderline, lfStrikeOut;
  44     BOOL                rotated = FALSE;
  45     X11DRV_PDEVICE      *physDev = (X11DRV_PDEVICE *)dc->physDev;
  46     XChar2b             *str2b = NULL;
  47     BOOL                dibUpdateFlag = FALSE;
  48     BOOL                result = TRUE;
  49
  50     if (!X11DRV_SetupGCForText( dc )) return TRUE;
  51
  52     pfo = XFONT_GetFontObject( physDev->font );
  53     font = pfo->fs;
  54
  55     if (pfo->lf.lfEscapement && pfo->lpX11Trans)
  56         rotated = TRUE;
  57     dfBreakChar = (char)pfo->fi->df.dfBreakChar;
  58     lfUnderline = (pfo->fo_flags & FO_SYNTH_UNDERLINE) ? 1 : 0;
  59     lfStrikeOut = (pfo->fo_flags & FO_SYNTH_STRIKEOUT) ? 1 : 0;
  60
  61     TRACE("hdc=%04x df=%04x %d,%d %s, %d  flags=%d lpDx=%p\n",
  62           dc->hSelf, (UINT16)(physDev->font), x, y,
  63           debugstr_wn (wstr, count), count, flags, lpDx);
  64
  65     /* some strings sent here end in a newline for whatever reason.  I have no
  66        clue what the right treatment should be in general, but ignoring
  67        terminating newlines seems ok.  MW, April 1998.  */
  68     if (count > 0 && wstr[count - 1] == '\n') count--;
  69
  70     if (lprect != NULL) TRACE("\trect=(%d,%d - %d,%d)\n",
  71                                      lprect->left, lprect->top,
  72                                      lprect->right, lprect->bottom );
  73       /* Setup coordinates */
  74
  75     if (dc->textAlign & TA_UPDATECP)
  76     {
  77         x = dc->CursPosX;
  78         y = dc->CursPosY;
  79     }
  80
  81     if (flags & (ETO_OPAQUE | ETO_CLIPPED))  /* there's a rectangle */
  82     {
  83         if (!lprect)  /* not always */
  84         {
  85             SIZE sz;
  86             if (flags & ETO_CLIPPED)  /* Can't clip with no rectangle */
  87               return FALSE;
  88             if (!X11DRV_GetTextExtentPoint( dc, wstr, count, &sz ))
  89               return FALSE;
  90             rect.left   = INTERNAL_XWPTODP( dc, x, y );
  91             rect.right  = INTERNAL_XWPTODP( dc, x+sz.cx, y+sz.cy );
  92             rect.top    = INTERNAL_YWPTODP( dc, x, y );
  93             rect.bottom = INTERNAL_YWPTODP( dc, x+sz.cx, y+sz.cy );
  94         }
  95         else
  96         {
  97             rect.left   = INTERNAL_XWPTODP( dc, lprect->left, lprect->top );
  98             rect.right  = INTERNAL_XWPTODP( dc, lprect->right, lprect->bottom );
  99             rect.top    = INTERNAL_YWPTODP( dc, lprect->left, lprect->top );
 100             rect.bottom = INTERNAL_YWPTODP( dc, lprect->right, lprect->bottom );
 101         }
 102         if (rect.right < rect.left) SWAP_INT( rect.left, rect.right );
 103         if (rect.bottom < rect.top) SWAP_INT( rect.top, rect.bottom );
 104     }
 105
 106     x = INTERNAL_XWPTODP( dc, x, y );
 107     y = INTERNAL_YWPTODP( dc, x, y );
 108
 109     TRACE("\treal coord: x=%i, y=%i, rect=(%d,%d - %d,%d)\n",
 110                           x, y, rect.left, rect.top, rect.right, rect.bottom);
 111
 112       /* Draw the rectangle */
 113
 114     if (flags & ETO_OPAQUE)
 115     {
 116         X11DRV_LockDIBSection( dc, DIB_Status_GdiMod, FALSE );
 117         dibUpdateFlag = TRUE;
 118         TSXSetForeground( gdi_display, physDev->gc, physDev->backgroundPixel );
 119         TSXFillRectangle( gdi_display, physDev->drawable, physDev->gc,
 120                         dc->DCOrgX + rect.left, dc->DCOrgY + rect.top,
 121                         rect.right-rect.left, rect.bottom-rect.top );
 122     }
 123     if (!count) goto END;  /* Nothing more to do */
 124
 125       /* Compute text starting position */
 126
 127     if (lpDx) /* have explicit character cell x offsets in logical coordinates */
 128     {
 129         for (i = width = 0; i < count; i++) width += lpDx[i];
 130         width = INTERNAL_XWSTODS(dc, width);
 131     }
 132     else
 133     {
 134         SIZE sz;
 135         if (!X11DRV_GetTextExtentPoint( dc, wstr, count, &sz ))
 136             return FALSE;
 137         width = INTERNAL_XWSTODS(dc, sz.cx);
 138     }
 139     ascent = pfo->lpX11Trans ? pfo->lpX11Trans->ascent : font->ascent;
 140     descent = pfo->lpX11Trans ? pfo->lpX11Trans->descent : font->descent;
 141     xwidth = pfo->lpX11Trans ? width * pfo->lpX11Trans->a /
 142       pfo->lpX11Trans->pixelsize : width;
 143     ywidth = pfo->lpX11Trans ? width * pfo->lpX11Trans->b /
 144       pfo->lpX11Trans->pixelsize : 0;
 145
 146     switch( dc->textAlign & (TA_LEFT | TA_RIGHT | TA_CENTER) )
 147     {
 148       case TA_LEFT:
 149           if (dc->textAlign & TA_UPDATECP) {
 150               dc->CursPosX = INTERNAL_XDPTOWP( dc, x + xwidth, y - ywidth );
 151               dc->CursPosY = INTERNAL_YDPTOWP( dc, x + xwidth, y - ywidth );
 152           }
 153           break;
 154       case TA_RIGHT:
 155           x -= xwidth;
 156           y += ywidth;
 157           if (dc->textAlign & TA_UPDATECP) {
 158               dc->CursPosX = INTERNAL_XDPTOWP( dc, x, y );
 159               dc->CursPosY = INTERNAL_YDPTOWP( dc, x, y );
 160           }
 161           break;
 162       case TA_CENTER:
 163           x -= xwidth / 2;
 164           y += ywidth / 2;
 165           break;
 166     }
 167
 168     switch( dc->textAlign & (TA_TOP | TA_BOTTOM | TA_BASELINE) )
 169     {
 170       case TA_TOP:
 171           x -= pfo->lpX11Trans ? ascent * pfo->lpX11Trans->c /
 172             pfo->lpX11Trans->pixelsize : 0;
 173           y += pfo->lpX11Trans ? ascent * pfo->lpX11Trans->d /
 174             pfo->lpX11Trans->pixelsize : ascent;
 175           break;
 176       case TA_BOTTOM:
 177           x += pfo->lpX11Trans ? descent * pfo->lpX11Trans->c /
 178             pfo->lpX11Trans->pixelsize : 0;
 179           y -= pfo->lpX11Trans ? descent * pfo->lpX11Trans->d /
 180             pfo->lpX11Trans->pixelsize : descent;
 181           break;
 182       case TA_BASELINE:
 183           break;
 184     }
 185
 186       /* Set the clip region */
 187
 188     if (flags & ETO_CLIPPED)
 189     {
 190         SaveVisRgn16( dc->hSelf );
 191         CLIPPING_IntersectVisRect( dc, rect.left, rect.top, rect.right,
 192                                    rect.bottom, FALSE );
 193     }
 194
 195       /* Draw the text background if necessary */
 196
 197     if (!dibUpdateFlag)
 198     {
 199         X11DRV_LockDIBSection( dc, DIB_Status_GdiMod, FALSE );
 200         dibUpdateFlag = TRUE;
 201     }
 202
 203     if (dc->backgroundMode != TRANSPARENT)
 204     {
 205           /* If rectangle is opaque and clipped, do nothing */
 206         if (!(flags & ETO_CLIPPED) || !(flags & ETO_OPAQUE))
 207         {
 208               /* Only draw if rectangle is not opaque or if some */
 209               /* text is outside the rectangle */
 210             if (!(flags & ETO_OPAQUE) ||
 211                 (x < rect.left) ||
 212                 (x + width >= rect.right) ||
 213                 (y - ascent < rect.top) ||
 214                 (y + descent >= rect.bottom))
 215             {
 216                 TSXSetForeground( gdi_display, physDev->gc, physDev->backgroundPixel );
 217                 TSXFillRectangle( gdi_display, physDev->drawable, physDev->gc,
 218                                 dc->DCOrgX + x,
 219                                 dc->DCOrgY + y - ascent,
 220                                 width,
 221                                 ascent + descent );
 222             }
 223         }
 224     }
 225
 226     /* Draw the text (count > 0 verified) */
 227     if (!(str2b = X11DRV_cptable[pfo->fi->cptable].punicode_to_char2b( pfo, wstr, count )))
 228         goto FAIL;
 229
 230     TSXSetForeground( gdi_display, physDev->gc, physDev->textPixel );
 231     if(!rotated)
 232     {
 233       if (!dc->charExtra && !dc->breakExtra && !lpDx)
 234       {
 235         X11DRV_cptable[pfo->fi->cptable].pDrawString(
 236                 pfo, gdi_display, physDev->drawable, physDev->gc,
 237                 dc->DCOrgX + x, dc->DCOrgY + y, str2b, count );
 238       }
 239       else  /* Now the fun begins... */
 240       {
 241         XTextItem16 *items, *pitem;
 242         int delta;
 243
 244         /* allocate max items */
 245
 246         pitem = items = HeapAlloc( GetProcessHeap(), 0,
 247                                    count * sizeof(XTextItem16) );
 248         if(items == NULL) goto FAIL;
 249         delta = i = 0;
 250         if( lpDx ) /* explicit character widths */
 251         {
 252             long ve_we;
 253             unsigned short err = 0;
 254
 255             ve_we = (LONG)(dc->xformWorld2Vport.eM11 * 0x10000);
 256
 257             while (i < count)
 258             {
 259                 /* initialize text item with accumulated delta */
 260
 261                 long sum;
 262                 long fSum;
 263                 sum = 0;
 264                 pitem->chars  = str2b + i;
 265                 pitem->delta  = delta;
 266                 pitem->nchars = 0;
 267                 pitem->font   = None;
 268                 delta = 0;
 269
 270                 /* add characters to the same XTextItem
 271                  * until new delta becomes non-zero */
 272
 273                 do
 274                 {
 275                     sum += lpDx[i];
 276                     fSum = sum*ve_we+err;
 277                     delta = SHIWORD(fSum)
 278                       - X11DRV_cptable[pfo->fi->cptable].pTextWidth(
 279                                                 pfo, pitem->chars, pitem->nchars+1);
 280                     pitem->nchars++;
 281                 } while ((++i < count) && !delta);
 282                 pitem++;
 283                 err = LOWORD(fSum);
 284            }
 285         }
 286         else /* charExtra or breakExtra */
 287         {
 288             while (i < count)
 289             {
 290                 pitem->chars  = str2b + i;
 291                 pitem->delta  = delta;
 292                 pitem->nchars = 0;
 293                 pitem->font   = None;
 294                 delta = 0;
 295
 296                 do
 297                 {
 298                     delta += dc->charExtra;
 299                     if (str2b[i].byte2 == (char)dfBreakChar)
 300                       delta += dc->breakExtra;
 301                     pitem->nchars++;
 302                 } while ((++i < count) && !delta);
 303                 pitem++;
 304             }
 305         }
 306
 307         X11DRV_cptable[pfo->fi->cptable].pDrawText( pfo, gdi_display,
 308                 physDev->drawable, physDev->gc,
 309                 dc->DCOrgX + x, dc->DCOrgY + y, items, pitem - items );
 310         HeapFree( GetProcessHeap(), 0, items );
 311       }
 312     }
 313     else /* rotated */
 314     {
 315       /* have to render character by character. */
 316       double offset = 0.0;
 317       int i;
 318
 319       for (i=0; i<count; i++)
 320       {
 321         int char_metric_offset = str2b[i].byte2 + (str2b[i].byte1 << 8)
 322           - font->min_char_or_byte2;
 323         int x_i = IROUND((double) (dc->DCOrgX + x) + offset *
 324                          pfo->lpX11Trans->a / pfo->lpX11Trans->pixelsize );
 325         int y_i = IROUND((double) (dc->DCOrgY + y) - offset *
 326                          pfo->lpX11Trans->b / pfo->lpX11Trans->pixelsize );
 327
 328         X11DRV_cptable[pfo->fi->cptable].pDrawString(
 329                 pfo, gdi_display, physDev->drawable, physDev->gc,
 330                 x_i, y_i, &str2b[i], 1);
 331         if (lpDx)
 332         {
 333           offset += INTERNAL_XWSTODS(dc, lpDx[i]);
 334         }
 335         else
 336         {
 337           offset += (double) (font->per_char ?
 338                               font->per_char[char_metric_offset].attributes:
 339                               font->min_bounds.attributes)
 340                           * pfo->lpX11Trans->pixelsize / 1000.0;
 341           offset += dc->charExtra;
 342           if (str2b[i].byte2 == (char)dfBreakChar)
 343             offset += dc->breakExtra;
 344         }
 345       }
 346     }
 347     HeapFree( GetProcessHeap(), 0, str2b );
 348
 349       /* Draw underline and strike-out if needed */
 350
 351     if (lfUnderline)
 352     {
 353         long linePos, lineWidth;
 354
 355         if (!TSXGetFontProperty( font, XA_UNDERLINE_POSITION, &linePos ))
 356             linePos = descent - 1;
 357         if (!TSXGetFontProperty( font, XA_UNDERLINE_THICKNESS, &lineWidth ))
 358             lineWidth = 0;
 359         else if (lineWidth == 1) lineWidth = 0;
 360         TSXSetLineAttributes( gdi_display, physDev->gc, lineWidth,
 361                               LineSolid, CapRound, JoinBevel );
 362         TSXDrawLine( gdi_display, physDev->drawable, physDev->gc,
 363                      dc->DCOrgX + x, dc->DCOrgY + y + linePos,
 364                      dc->DCOrgX + x + width, dc->DCOrgY + y + linePos );
 365     }
 366     if (lfStrikeOut)
 367     {
 368         long lineAscent, lineDescent;
 369         if (!TSXGetFontProperty( font, XA_STRIKEOUT_ASCENT, &lineAscent ))
 370             lineAscent = ascent / 2;
 371         if (!TSXGetFontProperty( font, XA_STRIKEOUT_DESCENT, &lineDescent ))
 372             lineDescent = -lineAscent * 2 / 3;
 373         TSXSetLineAttributes( gdi_display, physDev->gc, lineAscent + lineDescent,
 374                             LineSolid, CapRound, JoinBevel );
 375         TSXDrawLine( gdi_display, physDev->drawable, physDev->gc,
 376                    dc->DCOrgX + x, dc->DCOrgY + y - lineAscent,
 377                    dc->DCOrgX + x + width, dc->DCOrgY + y - lineAscent );
 378     }
 379
 380     if (flags & ETO_CLIPPED)
 381         RestoreVisRgn16( dc->hSelf );
 382
 383     goto END;
 384
 385 FAIL:
 386     if(str2b != NULL) HeapFree( GetProcessHeap(), 0, str2b );
 387     result = FALSE;
 388
 389 END:
 390     if (dibUpdateFlag) X11DRV_UnlockDIBSection( dc, TRUE );
 391     return result;
 392 }
 393
 394
 395 /***********************************************************************
 396  *           X11DRV_GetTextExtentPoint
 397  */
 398 BOOL X11DRV_GetTextExtentPoint( DC *dc, LPCWSTR str, INT count,
 399                                   LPSIZE size )
 400 {
 401     X11DRV_PDEVICE *physDev = (X11DRV_PDEVICE *)dc->physDev;
 402     fontObject* pfo = XFONT_GetFontObject( physDev->font );
 403
 404     TRACE("%s %d\n", debugstr_wn(str,count), count);
 405     if( pfo ) {
 406         XChar2b *p = X11DRV_cptable[pfo->fi->cptable].punicode_to_char2b( pfo, str, count );
 407         if (!p) return FALSE;
 408         if( !pfo->lpX11Trans ) {
 409             int dir, ascent, descent;
 410             int info_width;
 411             X11DRV_cptable[pfo->fi->cptable].pTextExtents( pfo, p,
 412                                 count, &dir, &ascent, &descent, &info_width );
 413
 414           size->cx = fabs((FLOAT)(info_width + dc->breakRem + count *
 415                                   dc->charExtra) * dc->xformVport2World.eM11);
 416           size->cy = fabs((FLOAT)(pfo->fs->ascent + pfo->fs->descent) *
 417                           dc->xformVport2World.eM22);
 418         } else {
 419             INT i;
 420             float x = 0.0, y = 0.0;
 421             /* FIXME: Deal with *_char_or_byte2 != 0 situations */
 422             for(i = 0; i < count; i++) {
 423                 x += pfo->fs->per_char ?
 424            pfo->fs->per_char[p[i].byte2 - pfo->fs->min_char_or_byte2].attributes :
 425            pfo->fs->min_bounds.attributes;
 426             }
 427             y = pfo->lpX11Trans->RAW_ASCENT + pfo->lpX11Trans->RAW_DESCENT;
 428             TRACE("x = %f y = %f\n", x, y);
 429             x *= pfo->lpX11Trans->pixelsize / 1000.0;
 430             y *= pfo->lpX11Trans->pixelsize / 1000.0;
 431             size->cx = fabs((x + dc->breakRem + count * dc->charExtra) *
 432                             dc->xformVport2World.eM11);
 433             size->cy = fabs(y * dc->xformVport2World.eM22);
 434         }
 435         size->cx *= pfo->rescale;
 436         size->cy *= pfo->rescale;
 437         HeapFree( GetProcessHeap(), 0, p );
 438         return TRUE;
 439     }
 440     return FALSE;
 441 }