dlls/wineps.drv/graphics.c

   1 /*
   2  *      PostScript driver graphics functions
   3  *
   4  *      Copyright 1998  Huw D M Davies
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include <stdio.h>
  24 #include <string.h>
  25 #include <math.h>
  26 #if defined(HAVE_FLOAT_H)
  27 # include <float.h>
  28 #endif
  29 #if !defined(PI)
  30 # define PI M_PI
  31 #endif
  32 #include "psdrv.h"
  33 #include "wine/debug.h"
  34
  35 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
  36
  37 /***********************************************************************
  38  *           PSDRV_XWStoDS
  39  *
  40  * Performs a world-to-viewport transformation on the specified width.
  41  */
  42 INT PSDRV_XWStoDS( PHYSDEV dev, INT width )
  43 {
  44     POINT pt[2];
  45
  46     pt[0].x = 0;
  47     pt[0].y = 0;
  48     pt[1].x = width;
  49     pt[1].y = 0;
  50     LPtoDP( dev->hdc, pt, 2 );
  51     return pt[1].x - pt[0].x;
  52 }
  53
  54 /***********************************************************************
  55  *           PSDRV_DrawLine
  56  */
  57 static void PSDRV_DrawLine( PHYSDEV dev )
  58 {
  59     PSDRV_PDEVICE *physDev = get_psdrv_dev( dev );
  60
  61     if(physDev->pathdepth)
  62         return;
  63
  64     if (physDev->pen.style == PS_NULL)
  65         PSDRV_WriteNewPath(dev);
  66     else
  67         PSDRV_WriteStroke(dev);
  68 }
  69
  70 /***********************************************************************
  71  *           PSDRV_LineTo
  72  */
  73 BOOL PSDRV_LineTo(PHYSDEV dev, INT x, INT y)
  74 {
  75     POINT pt[2];
  76
  77     TRACE("%d %d\n", x, y);
  78
  79     GetCurrentPositionEx( dev->hdc, pt );
  80     pt[1].x = x;
  81     pt[1].y = y;
  82     LPtoDP( dev->hdc, pt, 2 );
  83
  84     PSDRV_SetPen(dev);
  85
  86     PSDRV_SetClip(dev);
  87     PSDRV_WriteMoveTo(dev, pt[0].x, pt[0].y );
  88     PSDRV_WriteLineTo(dev, pt[1].x, pt[1].y );
  89     PSDRV_DrawLine(dev);
  90     PSDRV_ResetClip(dev);
  91
  92     return TRUE;
  93 }
  94
  95
  96 /***********************************************************************
  97  *           PSDRV_Rectangle
  98  */
  99 BOOL PSDRV_Rectangle( PHYSDEV dev, INT left, INT top, INT right, INT bottom )
 100 {
 101     PSDRV_PDEVICE *physDev = get_psdrv_dev( dev );
 102     RECT rect;
 103
 104     TRACE("%d %d - %d %d\n", left, top, right, bottom);
 105
 106     rect.left = left;
 107     rect.top = top;
 108     rect.right = right;
 109     rect.bottom = bottom;
 110     LPtoDP( dev->hdc, (POINT *)&rect, 2 );
 111
 112     /* Windows does something truly hacky here.  If we're in passthrough mode
 113        and our rop is R2_NOP, then we output the string below.  This is used in
 114        Office 2k when inserting eps files */
 115     if(physDev->job.in_passthrough && !physDev->job.had_passthrough_rect && GetROP2(dev->hdc) == R2_NOP) {
 116       char buf[256];
 117       sprintf(buf, "N %d %d %d %d B\n", rect.right - rect.left, rect.bottom - rect.top, rect.left, rect.top);
 118       write_spool(dev, buf, strlen(buf));
 119       physDev->job.had_passthrough_rect = TRUE;
 120       return TRUE;
 121     }
 122
 123     PSDRV_SetPen(dev);
 124
 125     PSDRV_SetClip(dev);
 126     PSDRV_WriteRectangle(dev, rect.left, rect.top, rect.right - rect.left,
 127                          rect.bottom - rect.top );
 128     PSDRV_Brush(dev,0);
 129     PSDRV_DrawLine(dev);
 130     PSDRV_ResetClip(dev);
 131     return TRUE;
 132 }
 133
 134
 135 /***********************************************************************
 136  *           PSDRV_RoundRect
 137  */
 138 BOOL PSDRV_RoundRect( PHYSDEV dev, INT left, INT top, INT right,
 139                       INT bottom, INT ell_width, INT ell_height )
 140 {
 141     RECT rect[2];
 142
 143     rect[0].left   = left;
 144     rect[0].top    = top;
 145     rect[0].right  = right;
 146     rect[0].bottom = bottom;
 147     rect[1].left   = 0;
 148     rect[1].top    = 0;
 149     rect[1].right  = ell_width;
 150     rect[1].bottom = ell_height;
 151     LPtoDP( dev->hdc, (POINT *)rect, 4 );
 152
 153     left   = rect[0].left;
 154     top    = rect[0].top;
 155     right  = rect[0].right;
 156     bottom = rect[0].bottom;
 157     if (left > right) { INT tmp = left; left = right; right = tmp; }
 158     if (top > bottom) { INT tmp = top; top = bottom; bottom = tmp; }
 159
 160     ell_width  = rect[1].right - rect[1].left;
 161     ell_height = rect[1].bottom - rect[1].top;
 162     if (ell_width > right - left) ell_width = right - left;
 163     if (ell_height > bottom - top) ell_height = bottom - top;
 164
 165     PSDRV_WriteSpool(dev, "%RoundRect\n",11);
 166     PSDRV_SetPen(dev);
 167
 168     PSDRV_SetClip(dev);
 169     PSDRV_WriteMoveTo( dev, left, top + ell_height/2 );
 170     PSDRV_WriteArc( dev, left + ell_width/2, top + ell_height/2, ell_width,
 171                     ell_height, 90.0, 180.0);
 172     PSDRV_WriteLineTo( dev, right - ell_width/2, top );
 173     PSDRV_WriteArc( dev, right - ell_width/2, top + ell_height/2, ell_width,
 174                     ell_height, 0.0, 90.0);
 175     PSDRV_WriteLineTo( dev, right, bottom - ell_height/2 );
 176     PSDRV_WriteArc( dev, right - ell_width/2, bottom - ell_height/2, ell_width,
 177                     ell_height, -90.0, 0.0);
 178     PSDRV_WriteLineTo( dev, right - ell_width/2, bottom);
 179     PSDRV_WriteArc( dev, left + ell_width/2, bottom - ell_height/2, ell_width,
 180                     ell_height, 180.0, -90.0);
 181     PSDRV_WriteClosePath( dev );
 182
 183     PSDRV_Brush(dev,0);
 184     PSDRV_DrawLine(dev);
 185     PSDRV_ResetClip(dev);
 186     return TRUE;
 187 }
 188
 189 /***********************************************************************
 190  *           PSDRV_DrawArc
 191  *
 192  * Does the work of Arc, Chord and Pie. lines is 0, 1 or 2 respectively.
 193  */
 194 static BOOL PSDRV_DrawArc( PHYSDEV dev, INT left, INT top,
 195                            INT right, INT bottom, INT xstart, INT ystart,
 196                            INT xend, INT yend, int lines )
 197 {
 198     INT x, y, h, w;
 199     double start_angle, end_angle, ratio;
 200     RECT rect;
 201     POINT start, end;
 202
 203     rect.left = left;
 204     rect.top = top;
 205     rect.right = right;
 206     rect.bottom = bottom;
 207     LPtoDP( dev->hdc, (POINT *)&rect, 2 );
 208     start.x = xstart;
 209     start.y = ystart;
 210     end.x = xend;
 211     end.y = yend;
 212     LPtoDP( dev->hdc, &start, 1 );
 213     LPtoDP( dev->hdc, &end, 1 );
 214
 215     x = (rect.left + rect.right) / 2;
 216     y = (rect.top + rect.bottom) / 2;
 217     w = rect.right - rect.left;
 218     h = rect.bottom - rect.top;
 219
 220     if(w < 0) w = -w;
 221     if(h < 0) h = -h;
 222     ratio = ((double)w)/h;
 223
 224     /* angle is the angle after the rectangle is transformed to a square and is
 225        measured anticlockwise from the +ve x-axis */
 226
 227     start_angle = atan2((double)(y - start.y) * ratio, (double)(start.x - x));
 228     end_angle = atan2((double)(y - end.y) * ratio, (double)(end.x - x));
 229
 230     start_angle *= 180.0 / PI;
 231     end_angle *= 180.0 / PI;
 232
 233     PSDRV_WriteSpool(dev,"%DrawArc\n", 9);
 234     PSDRV_SetPen(dev);
 235
 236     PSDRV_SetClip(dev);
 237     if(lines == 2) /* pie */
 238         PSDRV_WriteMoveTo(dev, x, y);
 239     else
 240         PSDRV_WriteNewPath( dev );
 241
 242     PSDRV_WriteArc(dev, x, y, w, h, start_angle, end_angle);
 243     if(lines == 1 || lines == 2) { /* chord or pie */
 244         PSDRV_WriteClosePath(dev);
 245         PSDRV_Brush(dev,0);
 246     }
 247     PSDRV_DrawLine(dev);
 248     PSDRV_ResetClip(dev);
 249
 250     return TRUE;
 251 }
 252
 253
 254 /***********************************************************************
 255  *           PSDRV_Arc
 256  */
 257 BOOL PSDRV_Arc( PHYSDEV dev, INT left, INT top, INT right, INT bottom,
 258                 INT xstart, INT ystart, INT xend, INT yend )
 259 {
 260     return PSDRV_DrawArc( dev, left, top, right, bottom, xstart, ystart, xend, yend, 0 );
 261 }
 262
 263 /***********************************************************************
 264  *           PSDRV_Chord
 265  */
 266 BOOL PSDRV_Chord( PHYSDEV dev, INT left, INT top, INT right, INT bottom,
 267                   INT xstart, INT ystart, INT xend, INT yend )
 268 {
 269     return PSDRV_DrawArc( dev, left, top, right, bottom, xstart, ystart, xend, yend, 1 );
 270 }
 271
 272
 273 /***********************************************************************
 274  *           PSDRV_Pie
 275  */
 276 BOOL PSDRV_Pie( PHYSDEV dev, INT left, INT top, INT right, INT bottom,
 277                 INT xstart, INT ystart, INT xend, INT yend )
 278 {
 279     return PSDRV_DrawArc( dev, left, top, right, bottom, xstart, ystart, xend, yend, 2 );
 280 }
 281
 282
 283 /***********************************************************************
 284  *           PSDRV_Ellipse
 285  */
 286 BOOL PSDRV_Ellipse( PHYSDEV dev, INT left, INT top, INT right, INT bottom)
 287 {
 288     INT x, y, w, h;
 289     RECT rect;
 290
 291     TRACE("%d %d - %d %d\n", left, top, right, bottom);
 292
 293     rect.left   = left;
 294     rect.top    = top;
 295     rect.right  = right;
 296     rect.bottom = bottom;
 297     LPtoDP( dev->hdc, (POINT *)&rect, 2 );
 298
 299     x = (rect.left + rect.right) / 2;
 300     y = (rect.top + rect.bottom) / 2;
 301     w = rect.right - rect.left;
 302     h = rect.bottom - rect.top;
 303
 304     PSDRV_WriteSpool(dev, "%Ellipse\n", 9);
 305     PSDRV_SetPen(dev);
 306
 307     PSDRV_SetClip(dev);
 308     PSDRV_WriteNewPath(dev);
 309     PSDRV_WriteArc(dev, x, y, w, h, 0.0, 360.0);
 310     PSDRV_WriteClosePath(dev);
 311     PSDRV_Brush(dev,0);
 312     PSDRV_DrawLine(dev);
 313     PSDRV_ResetClip(dev);
 314     return TRUE;
 315 }
 316
 317
 318 /***********************************************************************
 319  *           PSDRV_PolyPolyline
 320  */
 321 BOOL PSDRV_PolyPolyline( PHYSDEV dev, const POINT* pts, const DWORD* counts, DWORD polylines )
 322 {
 323     DWORD polyline, line, total;
 324     POINT *dev_pts, *pt;
 325
 326     TRACE("\n");
 327
 328     for (polyline = total = 0; polyline < polylines; polyline++) total += counts[polyline];
 329     if (!(dev_pts = HeapAlloc( GetProcessHeap(), 0, total * sizeof(*dev_pts) ))) return FALSE;
 330     memcpy( dev_pts, pts, total * sizeof(*dev_pts) );
 331     LPtoDP( dev->hdc, dev_pts, total );
 332
 333     pt = dev_pts;
 334
 335     PSDRV_WriteSpool(dev, "%PolyPolyline\n",14);
 336     PSDRV_SetPen(dev);
 337     PSDRV_SetClip(dev);
 338
 339     for(polyline = 0; polyline < polylines; polyline++) {
 340         PSDRV_WriteMoveTo(dev, pt->x, pt->y);
 341         pt++;
 342         for(line = 1; line < counts[polyline]; line++, pt++)
 343             PSDRV_WriteLineTo(dev, pt->x, pt->y);
 344     }
 345     HeapFree( GetProcessHeap(), 0, dev_pts );
 346
 347     PSDRV_DrawLine(dev);
 348     PSDRV_ResetClip(dev);
 349     return TRUE;
 350 }
 351
 352
 353 /***********************************************************************
 354  *           PSDRV_Polyline
 355  */
 356 BOOL PSDRV_Polyline( PHYSDEV dev, const POINT* pt, INT count )
 357 {
 358     return PSDRV_PolyPolyline( dev, pt, (LPDWORD) &count, 1 );
 359 }
 360
 361
 362 /***********************************************************************
 363  *           PSDRV_PolyPolygon
 364  */
 365 BOOL PSDRV_PolyPolygon( PHYSDEV dev, const POINT* pts, const INT* counts, UINT polygons )
 366 {
 367     DWORD polygon, total;
 368     INT line;
 369     POINT *dev_pts, *pt;
 370
 371     TRACE("\n");
 372
 373     for (polygon = total = 0; polygon < polygons; polygon++) total += counts[polygon];
 374     if (!(dev_pts = HeapAlloc( GetProcessHeap(), 0, total * sizeof(*dev_pts) ))) return FALSE;
 375     memcpy( dev_pts, pts, total * sizeof(*dev_pts) );
 376     LPtoDP( dev->hdc, dev_pts, total );
 377
 378     pt = dev_pts;
 379
 380     PSDRV_WriteSpool(dev, "%PolyPolygon\n",13);
 381     PSDRV_SetPen(dev);
 382     PSDRV_SetClip(dev);
 383     PSDRV_WriteNewPath(dev);
 384
 385     for(polygon = 0; polygon < polygons; polygon++) {
 386         PSDRV_WriteMoveTo(dev, pt->x, pt->y);
 387         pt++;
 388         for(line = 1; line < counts[polygon]; line++, pt++)
 389             PSDRV_WriteLineTo(dev, pt->x, pt->y);
 390         PSDRV_WriteClosePath(dev);
 391     }
 392     HeapFree( GetProcessHeap(), 0, dev_pts );
 393
 394     if(GetPolyFillMode( dev->hdc ) == ALTERNATE)
 395         PSDRV_Brush(dev, 1);
 396     else /* WINDING */
 397         PSDRV_Brush(dev, 0);
 398
 399     PSDRV_DrawLine(dev);
 400     PSDRV_ResetClip(dev);
 401     return TRUE;
 402 }
 403
 404
 405 /***********************************************************************
 406  *           PSDRV_Polygon
 407  */
 408 BOOL PSDRV_Polygon( PHYSDEV dev, const POINT* pt, INT count )
 409 {
 410      return PSDRV_PolyPolygon( dev, pt, &count, 1 );
 411 }
 412
 413
 414 /***********************************************************************
 415  *           PSDRV_SetPixel
 416  */
 417 COLORREF PSDRV_SetPixel( PHYSDEV dev, INT x, INT y, COLORREF color )
 418 {
 419     PSCOLOR pscolor;
 420     POINT pt;
 421
 422     pt.x = x;
 423     pt.y = y;
 424     LPtoDP( dev->hdc, &pt, 1 );
 425
 426     PSDRV_SetClip(dev);
 427     /* we bracket the setcolor in gsave/grestore so that we don't trash
 428        the current pen colour */
 429     PSDRV_WriteGSave(dev);
 430     PSDRV_WriteRectangle( dev, pt.x, pt.y, 0, 0 );
 431     PSDRV_CreateColor( dev, &pscolor, color );
 432     PSDRV_WriteSetColor( dev, &pscolor );
 433     PSDRV_WriteFill( dev );
 434     PSDRV_WriteGRestore(dev);
 435     PSDRV_ResetClip(dev);
 436     return color;
 437 }
 438
 439 /***********************************************************************
 440  *           PSDRV_PaintRgn
 441  */
 442 BOOL PSDRV_PaintRgn( PHYSDEV dev, HRGN hrgn )
 443 {
 444     RGNDATA *rgndata = NULL;
 445     RECT *pRect;
 446     DWORD size, i;
 447
 448     TRACE("hdc=%p\n", dev->hdc);
 449
 450     size = GetRegionData(hrgn, 0, NULL);
 451     rgndata = HeapAlloc( GetProcessHeap(), 0, size );
 452     if(!rgndata) {
 453         ERR("Can't allocate buffer\n");
 454         return FALSE;
 455     }
 456
 457     GetRegionData(hrgn, size, rgndata);
 458     if (rgndata->rdh.nCount == 0)
 459         goto end;
 460
 461     LPtoDP(dev->hdc, (POINT*)rgndata->Buffer, rgndata->rdh.nCount * 2);
 462
 463     PSDRV_SetClip(dev);
 464     PSDRV_WriteNewPath(dev);
 465     for(i = 0, pRect = (RECT*)rgndata->Buffer; i < rgndata->rdh.nCount; i++, pRect++)
 466         PSDRV_WriteRectangle(dev, pRect->left, pRect->top, pRect->right - pRect->left, pRect->bottom - pRect->top);
 467
 468     PSDRV_Brush(dev, 0);
 469     PSDRV_ResetClip(dev);
 470
 471  end:
 472     HeapFree(GetProcessHeap(), 0, rgndata);
 473     return TRUE;
 474 }