objects/brush.c

   1 /*
   2  * GDI brush objects
   3  *
   4  * Copyright 1993, 1994  Alexandre Julliard
   5  */
   6
   7 #include <stdlib.h>
   8 #include "brush.h"
   9 #include "bitmap.h"
  10 #include "metafile.h"
  11 #include "color.h"
  12 #include "stddebug.h"
  13 #include "debug.h"
  14
  15 #define NB_HATCH_STYLES  6
  16
  17 static const char HatchBrushes[NB_HATCH_STYLES][8] =
  18 {
  19     { 0x00, 0x00, 0x00, 0xff, 0x00, 0x00, 0x00, 0x00 }, /* HS_HORIZONTAL */
  20     { 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08, 0x08 }, /* HS_VERTICAL   */
  21     { 0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80 }, /* HS_FDIAGONAL  */
  22     { 0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01 }, /* HS_BDIAGONAL  */
  23     { 0x08, 0x08, 0x08, 0xff, 0x08, 0x08, 0x08, 0x08 }, /* HS_CROSS      */
  24     { 0x81, 0x42, 0x24, 0x18, 0x18, 0x24, 0x42, 0x81 }  /* HS_DIAGCROSS  */
  25 };
  26
  27   /* Levels of each primary for dithering */
  28 #define PRIMARY_LEVELS  3
  29 #define TOTAL_LEVELS    (PRIMARY_LEVELS*PRIMARY_LEVELS*PRIMARY_LEVELS)
  30
  31  /* Dithering matrix size  */
  32 #define MATRIX_SIZE     8
  33 #define MATRIX_SIZE_2   (MATRIX_SIZE*MATRIX_SIZE)
  34
  35   /* Total number of possible levels for a dithered primary color */
  36 #define DITHER_LEVELS   (MATRIX_SIZE_2 * (PRIMARY_LEVELS-1) + 1)
  37
  38   /* Dithering matrix */
  39 static const int dither_matrix[MATRIX_SIZE_2] =
  40 {
  41      0, 32,  8, 40,  2, 34, 10, 42,
  42     48, 16, 56, 24, 50, 18, 58, 26,
  43     12, 44,  4, 36, 14, 46,  6, 38,
  44     60, 28, 52, 20, 62, 30, 54, 22,
  45      3, 35, 11, 43,  1, 33,  9, 41,
  46     51, 19, 59, 27, 49, 17, 57, 25,
  47     15, 47,  7, 39, 13, 45,  5, 37,
  48     63, 31, 55, 23, 61, 29, 53, 21
  49 };
  50
  51   /* Mapping between (R,G,B) triples and EGA colors */
  52 static const int EGAmapping[TOTAL_LEVELS] =
  53 {
  54     0,  /* 000000 -> 000000 */
  55     4,  /* 00007f -> 000080 */
  56     12, /* 0000ff -> 0000ff */
  57     2,  /* 007f00 -> 008000 */
  58     6,  /* 007f7f -> 008080 */
  59     6,  /* 007fff -> 008080 */
  60     10, /* 00ff00 -> 00ff00 */
  61     6,  /* 00ff7f -> 008080 */
  62     14, /* 00ffff -> 00ffff */
  63     1,  /* 7f0000 -> 800000 */
  64     5,  /* 7f007f -> 800080 */
  65     5,  /* 7f00ff -> 800080 */
  66     3,  /* 7f7f00 -> 808000 */
  67     8,  /* 7f7f7f -> 808080 */
  68     7,  /* 7f7fff -> c0c0c0 */
  69     3,  /* 7fff00 -> 808000 */
  70     7,  /* 7fff7f -> c0c0c0 */
  71     7,  /* 7fffff -> c0c0c0 */
  72     9,  /* ff0000 -> ff0000 */
  73     5,  /* ff007f -> 800080 */
  74     13, /* ff00ff -> ff00ff */
  75     3,  /* ff7f00 -> 808000 */
  76     7,  /* ff7f7f -> c0c0c0 */
  77     7,  /* ff7fff -> c0c0c0 */
  78     11, /* ffff00 -> ffff00 */
  79     7,  /* ffff7f -> c0c0c0 */
  80     15  /* ffffff -> ffffff */
  81 };
  82
  83 #define PIXEL_VALUE(r,g,b) \
  84     COLOR_mapEGAPixel[EGAmapping[((r)*PRIMARY_LEVELS+(g))*PRIMARY_LEVELS+(b)]]
  85
  86   /* X image for building dithered pixmap */
  87 static XImage *ditherImage = NULL;
  88
  89
  90 /***********************************************************************
  91  *           BRUSH_Init
  92  *
  93  * Create the X image used for dithering.
  94  */
  95 BOOL BRUSH_Init(void)
  96 {
  97     XCREATEIMAGE( ditherImage, MATRIX_SIZE, MATRIX_SIZE, screenDepth );
  98     return (ditherImage != NULL);
  99 }
 100
 101
 102 /***********************************************************************
 103  *           BRUSH_DitherColor
 104  */
 105 Pixmap BRUSH_DitherColor( DC *dc, COLORREF color )
 106 {
 107     static COLORREF prevColor = 0xffffffff;
 108     unsigned int x, y;
 109     Pixmap pixmap;
 110
 111     if (color != prevColor)
 112     {
 113         int r = GetRValue( color ) * DITHER_LEVELS;
 114         int g = GetGValue( color ) * DITHER_LEVELS;
 115         int b = GetBValue( color ) * DITHER_LEVELS;
 116         const int *pmatrix = dither_matrix;
 117
 118         for (y = 0; y < MATRIX_SIZE; y++)
 119         {
 120             for (x = 0; x < MATRIX_SIZE; x++)
 121             {
 122                 int d  = *pmatrix++ * 256;
 123                 int dr = ((r + d) / MATRIX_SIZE_2) / 256;
 124                 int dg = ((g + d) / MATRIX_SIZE_2) / 256;
 125                 int db = ((b + d) / MATRIX_SIZE_2) / 256;
 126                 XPutPixel( ditherImage, x, y, PIXEL_VALUE(dr,dg,db) );
 127             }
 128         }
 129         prevColor = color;
 130     }
 131
 132     pixmap = XCreatePixmap( display, rootWindow,
 133                             MATRIX_SIZE, MATRIX_SIZE, screenDepth );
 134     XPutImage( display, pixmap, BITMAP_colorGC, ditherImage, 0, 0,
 135                0, 0, MATRIX_SIZE, MATRIX_SIZE );
 136     return pixmap;
 137 }
 138
 139
 140 /***********************************************************************
 141  *           CreateBrushIndirect    (GDI.50)
 142  */
 143 HBRUSH CreateBrushIndirect( LOGBRUSH * brush )
 144 {
 145     BRUSHOBJ * brushPtr;
 146     HBRUSH hbrush = GDI_AllocObject( sizeof(BRUSHOBJ), BRUSH_MAGIC );
 147     if (!hbrush) return 0;
 148     brushPtr = (BRUSHOBJ *) GDI_HEAP_LIN_ADDR( hbrush );
 149     memcpy( &brushPtr->logbrush, brush, sizeof(LOGBRUSH) );
 150     return hbrush;
 151 }
 152
 153
 154 /***********************************************************************
 155  *           CreateHatchBrush    (GDI.58)
 156  */
 157 HBRUSH CreateHatchBrush( short style, COLORREF color )
 158 {
 159     LOGBRUSH logbrush = { BS_HATCHED, color, style };
 160     dprintf_gdi(stddeb, "CreateHatchBrush: %d %06lx\n", style, color );
 161     if ((style < 0) || (style >= NB_HATCH_STYLES)) return 0;
 162     return CreateBrushIndirect( &logbrush );
 163 }
 164
 165
 166 /***********************************************************************
 167  *           CreatePatternBrush    (GDI.60)
 168  */
 169 HBRUSH CreatePatternBrush( HBITMAP hbitmap )
 170 {
 171     LOGBRUSH logbrush = { BS_PATTERN, 0, 0 };
 172     BITMAPOBJ *bmp, *newbmp;
 173
 174     dprintf_gdi(stddeb, "CreatePatternBrush: "NPFMT"\n", hbitmap );
 175
 176       /* Make a copy of the bitmap */
 177
 178     if (!(bmp = (BITMAPOBJ *) GDI_GetObjPtr( hbitmap, BITMAP_MAGIC )))
 179         return 0;
 180 #ifdef WINELIB32
 181     logbrush.lbHatch = (LONG)CreateBitmapIndirect( &bmp->bitmap );
 182 #else
 183     logbrush.lbHatch = (INT)CreateBitmapIndirect( &bmp->bitmap );
 184 #endif
 185     newbmp = (BITMAPOBJ *) GDI_GetObjPtr( (HANDLE)logbrush.lbHatch, BITMAP_MAGIC );
 186     if (!newbmp) return 0;
 187     XCopyArea( display, bmp->pixmap, newbmp->pixmap, BITMAP_GC(bmp),
 188                0, 0, bmp->bitmap.bmWidth, bmp->bitmap.bmHeight, 0, 0 );
 189     return CreateBrushIndirect( &logbrush );
 190 }
 191
 192
 193 /***********************************************************************
 194  *           CreateDIBPatternBrush    (GDI.445)
 195  */
 196 HBRUSH CreateDIBPatternBrush( HANDLE hbitmap, WORD coloruse )
 197 {
 198     LOGBRUSH logbrush = { BS_DIBPATTERN, coloruse, 0 };
 199     BITMAPINFO *info, *newInfo;
 200     int size;
 201
 202     dprintf_gdi(stddeb, "CreateDIBPatternBrush: "NPFMT"\n", hbitmap );
 203
 204       /* Make a copy of the bitmap */
 205
 206     if (!(info = (BITMAPINFO *) GlobalLock( hbitmap ))) return 0;
 207
 208     size = info->bmiHeader.biSizeImage;
 209     if (!size)
 210         size = (info->bmiHeader.biWidth * info->bmiHeader.biBitCount + 31) / 32
 211                  * 8 * info->bmiHeader.biHeight;
 212     size += DIB_BitmapInfoSize( info, coloruse );
 213
 214 #ifdef WINELIB32
 215     if (!(logbrush.lbHatch = (LONG)GlobalAlloc( GMEM_MOVEABLE, size )))
 216 #else
 217     if (!(logbrush.lbHatch = (INT)GlobalAlloc( GMEM_MOVEABLE, size )))
 218 #endif
 219     {
 220         GlobalUnlock( hbitmap );
 221         return 0;
 222     }
 223     newInfo = (BITMAPINFO *) GlobalLock( (HANDLE)logbrush.lbHatch );
 224     memcpy( newInfo, info, size );
 225     GlobalUnlock( (HANDLE)logbrush.lbHatch );
 226     GlobalUnlock( hbitmap );
 227     return CreateBrushIndirect( &logbrush );
 228 }
 229
 230
 231 /***********************************************************************
 232  *           CreateSolidBrush    (GDI.66)
 233  */
 234 HBRUSH CreateSolidBrush( COLORREF color )
 235 {
 236     LOGBRUSH logbrush = { BS_SOLID, color, 0 };
 237     dprintf_gdi(stddeb, "CreateSolidBrush: %06lx\n", color );
 238     return CreateBrushIndirect( &logbrush );
 239 }
 240
 241
 242 /***********************************************************************
 243  *           SetBrushOrg    (GDI.148)
 244  */
 245 DWORD SetBrushOrg( HDC hdc, short x, short y )
 246 {
 247     DWORD retval;
 248     DC * dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
 249     if (!dc) return FALSE;
 250     retval = dc->w.brushOrgX | (dc->w.brushOrgY << 16);
 251     dc->w.brushOrgX = x;
 252     dc->w.brushOrgY = y;
 253     return retval;
 254 }
 255
 256 /***********************************************************************
 257  *           GetSysColorBrush    (USER.281)
 258  */
 259 HBRUSH GetSysColorBrush(WORD x)
 260 {
 261         return GetStockObject(GRAY_BRUSH);
 262 }
 263
 264 /***********************************************************************
 265  *           BRUSH_DeleteObject
 266  */
 267 BOOL BRUSH_DeleteObject( HBRUSH hbrush, BRUSHOBJ * brush )
 268 {
 269     switch(brush->logbrush.lbStyle)
 270     {
 271       case BS_PATTERN:
 272           DeleteObject( (HANDLE)brush->logbrush.lbHatch );
 273           break;
 274       case BS_DIBPATTERN:
 275           GlobalFree( (HANDLE)brush->logbrush.lbHatch );
 276           break;
 277     }
 278     return GDI_FreeObject( hbrush );
 279 }
 280
 281
 282 /***********************************************************************
 283  *           BRUSH_GetObject
 284  */
 285 int BRUSH_GetObject( BRUSHOBJ * brush, int count, LPSTR buffer )
 286 {
 287     if (count > sizeof(LOGBRUSH)) count = sizeof(LOGBRUSH);
 288     memcpy( buffer, &brush->logbrush, count );
 289     return count;
 290 }
 291
 292
 293 /***********************************************************************
 294  *           BRUSH_SelectSolidBrush
 295  */
 296 static void BRUSH_SelectSolidBrush( DC *dc, COLORREF color )
 297 {
 298     if ((dc->w.bitsPerPixel > 1) && (screenDepth <= 8) && !COLOR_IsSolid( color ))
 299     {
 300           /* Dithered brush */
 301         dc->u.x.brush.pixmap = BRUSH_DitherColor( dc, color );
 302         dc->u.x.brush.fillStyle = FillTiled;
 303         dc->u.x.brush.pixel = 0;
 304     }
 305     else
 306     {
 307           /* Solid brush */
 308         dc->u.x.brush.pixel = COLOR_ToPhysical( dc, color );
 309         dc->u.x.brush.fillStyle = FillSolid;
 310     }
 311 }
 312
 313
 314 /***********************************************************************
 315  *           BRUSH_SelectPatternBrush
 316  */
 317 static BOOL BRUSH_SelectPatternBrush( DC * dc, HBITMAP hbitmap )
 318 {
 319     BITMAPOBJ * bmp = (BITMAPOBJ *) GDI_GetObjPtr( hbitmap, BITMAP_MAGIC );
 320     if (!bmp) return FALSE;
 321     dc->u.x.brush.pixmap = XCreatePixmap( display, rootWindow,
 322                                           8, 8, bmp->bitmap.bmBitsPixel );
 323     XCopyArea( display, bmp->pixmap, dc->u.x.brush.pixmap,
 324                BITMAP_GC(bmp), 0, 0, 8, 8, 0, 0 );
 325
 326     if (bmp->bitmap.bmBitsPixel > 1)
 327     {
 328         dc->u.x.brush.fillStyle = FillTiled;
 329         dc->u.x.brush.pixel = 0;  /* Ignored */
 330     }
 331     else
 332     {
 333         dc->u.x.brush.fillStyle = FillOpaqueStippled;
 334         dc->u.x.brush.pixel = -1;  /* Special case (see DC_SetupGCForBrush) */
 335     }
 336     return TRUE;
 337 }
 338
 339
 340
 341 /***********************************************************************
 342  *           BRUSH_SelectObject
 343  */
 344 HBRUSH BRUSH_SelectObject( HDC hdc, DC * dc, HBRUSH hbrush, BRUSHOBJ * brush )
 345 {
 346     HBITMAP hBitmap;
 347     BITMAPINFO * bmpInfo;
 348     HBRUSH prevHandle = dc->w.hBrush;
 349
 350     dprintf_gdi(stddeb, "Brush_SelectObject   hdc="NPFMT"  hbrush="NPFMT"\n",
 351                 hdc,hbrush);
 352     if (dc->header.wMagic == METAFILE_DC_MAGIC)
 353     {
 354         switch (brush->logbrush.lbStyle)
 355         {
 356         case BS_SOLID:
 357         case BS_HATCHED:
 358         case BS_HOLLOW:
 359             if (!MF_CreateBrushIndirect(dc, hbrush, &(brush->logbrush)))
 360                 return (HBRUSH)0;
 361             break;
 362
 363         case BS_PATTERN:
 364         case BS_DIBPATTERN:
 365             if (!MF_CreatePatternBrush(dc, hbrush, &(brush->logbrush)))
 366                 return (HBRUSH)0;
 367             break;
 368         }
 369         return (HBRUSH)1;
 370     }
 371
 372     dc->w.hBrush = hbrush;
 373
 374     if (dc->u.x.brush.pixmap)
 375     {
 376         XFreePixmap( display, dc->u.x.brush.pixmap );
 377         dc->u.x.brush.pixmap = 0;
 378     }
 379     dc->u.x.brush.style = brush->logbrush.lbStyle;
 380
 381     switch(brush->logbrush.lbStyle)
 382     {
 383       case BS_NULL:
 384         dprintf_gdi( stddeb,"BS_NULL\n" );
 385         break;
 386
 387       case BS_SOLID:
 388         dprintf_gdi( stddeb,"BS_SOLID\n" );
 389         BRUSH_SelectSolidBrush( dc, brush->logbrush.lbColor );
 390         break;
 391
 392       case BS_HATCHED:
 393         dprintf_gdi( stddeb, "BS_HATCHED\n" );
 394         dc->u.x.brush.pixel = COLOR_ToPhysical( dc, brush->logbrush.lbColor );
 395         dc->u.x.brush.pixmap = XCreateBitmapFromData( display, rootWindow,
 396                                  HatchBrushes[brush->logbrush.lbHatch], 8, 8 );
 397         dc->u.x.brush.fillStyle = FillStippled;
 398         break;
 399
 400       case BS_PATTERN:
 401         dprintf_gdi( stddeb, "BS_PATTERN\n");
 402         BRUSH_SelectPatternBrush( dc, (HBRUSH)brush->logbrush.lbHatch );
 403         break;
 404
 405       case BS_DIBPATTERN:
 406         dprintf_gdi( stddeb, "BS_DIBPATTERN\n");
 407         if ((bmpInfo = (BITMAPINFO *) GlobalLock( (HANDLE)brush->logbrush.lbHatch )))
 408         {
 409             int size = DIB_BitmapInfoSize( bmpInfo, brush->logbrush.lbColor );
 410             hBitmap = CreateDIBitmap( hdc, &bmpInfo->bmiHeader, CBM_INIT,
 411                                       ((char *)bmpInfo) + size, bmpInfo,
 412                                       (WORD) brush->logbrush.lbColor );
 413             BRUSH_SelectPatternBrush( dc, hBitmap );
 414             DeleteObject( hBitmap );
 415             GlobalUnlock( (HANDLE)brush->logbrush.lbHatch );
 416         }
 417
 418         break;
 419     }
 420
 421     return prevHandle;
 422 }