dlls/gdiplus/graphics.c

   1 /*
   2  * Copyright (C) 2007 Google (Evan Stade)
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <stdarg.h>
  20 #include <math.h>
  21
  22 #include "windef.h"
  23 #include "winbase.h"
  24 #include "winuser.h"
  25 #include "wingdi.h"
  26 #include "gdiplus.h"
  27 #include "gdiplus_private.h"
  28 #include "wine/debug.h"
  29
  30 WINE_DEFAULT_DEBUG_CHANNEL(gdiplus);
  31
  32 /* looks-right constants */
  33 #define TENSION_CONST (0.3)
  34 #define ANCHOR_WIDTH (2.0)
  35 #define MAX_ITERS (50)
  36
  37 /* Converts angle (in degrees) to x/y coordinates */
  38 static void deg2xy(REAL angle, REAL x_0, REAL y_0, REAL *x, REAL *y)
  39 {
  40     REAL radAngle, hypotenuse;
  41
  42     radAngle = deg2rad(angle);
  43     hypotenuse = 50.0; /* arbitrary */
  44
  45     *x = x_0 + cos(radAngle) * hypotenuse;
  46     *y = y_0 + sin(radAngle) * hypotenuse;
  47 }
  48
  49 /* Converts from gdiplus path point type to gdi path point type. */
  50 static BYTE convert_path_point_type(BYTE type)
  51 {
  52     BYTE ret;
  53
  54     switch(type & PathPointTypePathTypeMask){
  55         case PathPointTypeBezier:
  56             ret = PT_BEZIERTO;
  57             break;
  58         case PathPointTypeLine:
  59             ret = PT_LINETO;
  60             break;
  61         case PathPointTypeStart:
  62             ret = PT_MOVETO;
  63             break;
  64         default:
  65             ERR("Bad point type\n");
  66             return 0;
  67     }
  68
  69     if(type & PathPointTypeCloseSubpath)
  70         ret |= PT_CLOSEFIGURE;
  71
  72     return ret;
  73 }
  74
  75 /* GdipDrawPie/GdipFillPie helper function */
  76 static GpStatus draw_pie(GpGraphics *graphics, HBRUSH gdibrush, HPEN gdipen,
  77     REAL x, REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle)
  78 {
  79     INT save_state;
  80     REAL x_0, y_0, x_1, y_1, x_2, y_2;
  81
  82     if(!graphics)
  83         return InvalidParameter;
  84
  85     save_state = SaveDC(graphics->hdc);
  86     EndPath(graphics->hdc);
  87     SelectObject(graphics->hdc, gdipen);
  88     SelectObject(graphics->hdc, gdibrush);
  89
  90     x_0 = x + (width/2.0);
  91     y_0 = y + (height/2.0);
  92
  93     deg2xy(startAngle+sweepAngle, x_0, y_0, &x_1, &y_1);
  94     deg2xy(startAngle, x_0, y_0, &x_2, &y_2);
  95
  96     Pie(graphics->hdc, roundr(x), roundr(y), roundr(x+width), roundr(y+height),
  97         roundr(x_1), roundr(y_1), roundr(x_2), roundr(y_2));
  98
  99     RestoreDC(graphics->hdc, save_state);
 100
 101     return Ok;
 102 }
 103
 104 /* GdipDrawCurve helper function.
 105  * Calculates Bezier points from cardinal spline points. */
 106 static void calc_curve_bezier(CONST GpPointF *pts, REAL tension, REAL *x1,
 107     REAL *y1, REAL *x2, REAL *y2)
 108 {
 109     REAL xdiff, ydiff;
 110
 111     /* calculate tangent */
 112     xdiff = pts[2].X - pts[0].X;
 113     ydiff = pts[2].Y - pts[0].Y;
 114
 115     /* apply tangent to get control points */
 116     *x1 = pts[1].X - tension * xdiff;
 117     *y1 = pts[1].Y - tension * ydiff;
 118     *x2 = pts[1].X + tension * xdiff;
 119     *y2 = pts[1].Y + tension * ydiff;
 120 }
 121
 122 /* GdipDrawCurve helper function.
 123  * Calculates Bezier points from cardinal spline endpoints. */
 124 static void calc_curve_bezier_endp(REAL xend, REAL yend, REAL xadj, REAL yadj,
 125     REAL tension, REAL *x, REAL *y)
 126 {
 127     /* tangent at endpoints is the line from the endpoint to the adjacent point */
 128     *x = roundr(tension * (xadj - xend) + xend);
 129     *y = roundr(tension * (yadj - yend) + yend);
 130 }
 131
 132 /* Draws the linecap the specified color and size on the hdc.  The linecap is in
 133  * direction of the line from x1, y1 to x2, y2 and is anchored on x2, y2. Probably
 134  * should not be called on an hdc that has a path you care about. */
 135 static void draw_cap(HDC hdc, COLORREF color, GpLineCap cap, REAL size,
 136     const GpCustomLineCap *custom, REAL x1, REAL y1, REAL x2, REAL y2)
 137 {
 138     HGDIOBJ oldbrush, oldpen;
 139     GpMatrix *matrix = NULL;
 140     HBRUSH brush;
 141     HPEN pen;
 142     PointF *custptf = NULL;
 143     POINT pt[4], *custpt = NULL;
 144     BYTE *tp = NULL;
 145     REAL theta, dsmall, dbig, dx, dy;
 146     INT i, count;
 147     LOGBRUSH lb;
 148
 149     if(x2 != x1)
 150         theta = atan2(y2 - y1, x2 - x1);
 151     else if(y2 != y1){
 152         theta = M_PI_2 * (y2 > y1 ? 1.0 : -1.0);
 153     }
 154     else
 155         return;
 156
 157     brush = CreateSolidBrush(color);
 158     lb.lbStyle = BS_SOLID;
 159     lb.lbColor = color;
 160     lb.lbHatch = 0;
 161     pen = ExtCreatePen(PS_GEOMETRIC | PS_SOLID | PS_ENDCAP_FLAT,
 162                ((cap == LineCapCustom) && custom && (custom->fill)) ? size : 1,
 163                &lb, 0, NULL);
 164     oldbrush = SelectObject(hdc, brush);
 165     oldpen = SelectObject(hdc, pen);
 166
 167     switch(cap){
 168         case LineCapFlat:
 169             break;
 170         case LineCapSquare:
 171         case LineCapSquareAnchor:
 172         case LineCapDiamondAnchor:
 173             size = size * (cap & LineCapNoAnchor ? ANCHOR_WIDTH : 1.0) / 2.0;
 174             if(cap == LineCapDiamondAnchor){
 175                 dsmall = cos(theta + M_PI_2) * size;
 176                 dbig = sin(theta + M_PI_2) * size;
 177             }
 178             else{
 179                 dsmall = cos(theta + M_PI_4) * size;
 180                 dbig = sin(theta + M_PI_4) * size;
 181             }
 182
 183             /* calculating the latter points from the earlier points makes them
 184              * look a little better because of rounding issues */
 185             pt[0].x = roundr(x2 - dsmall);
 186             pt[1].x = roundr(((REAL)pt[0].x) + dbig + dsmall);
 187
 188             pt[0].y = roundr(y2 - dbig);
 189             pt[3].y = roundr(((REAL)pt[0].y) + dsmall + dbig);
 190
 191             pt[1].y = roundr(y2 - dsmall);
 192             pt[2].y = roundr(dbig + dsmall + ((REAL)pt[1].y));
 193
 194             pt[3].x = roundr(x2 - dbig);
 195             pt[2].x = roundr(((REAL)pt[3].x) + dsmall + dbig);
 196
 197             Polygon(hdc, pt, 4);
 198
 199             break;
 200         case LineCapArrowAnchor:
 201             size = size * 4.0 / sqrt(3.0);
 202
 203             dx = cos(M_PI / 6.0 + theta) * size;
 204             dy = sin(M_PI / 6.0 + theta) * size;
 205
 206             pt[0].x = roundr(x2 - dx);
 207             pt[0].y = roundr(y2 - dy);
 208
 209             dx = cos(- M_PI / 6.0 + theta) * size;
 210             dy = sin(- M_PI / 6.0 + theta) * size;
 211
 212             pt[1].x = roundr(x2 - dx);
 213             pt[1].y = roundr(y2 - dy);
 214
 215             pt[2].x = roundr(x2);
 216             pt[2].y = roundr(y2);
 217
 218             Polygon(hdc, pt, 3);
 219
 220             break;
 221         case LineCapRoundAnchor:
 222             dx = dy = ANCHOR_WIDTH * size / 2.0;
 223
 224             x2 = (REAL) roundr(x2 - dx);
 225             y2 = (REAL) roundr(y2 - dy);
 226
 227             Ellipse(hdc, (INT) x2, (INT) y2, roundr(x2 + 2.0 * dx),
 228                 roundr(y2 + 2.0 * dy));
 229             break;
 230         case LineCapTriangle:
 231             size = size / 2.0;
 232             dx = cos(M_PI_2 + theta) * size;
 233             dy = sin(M_PI_2 + theta) * size;
 234
 235             /* Using roundr here can make the triangle float off the end of the
 236              * line. */
 237             pt[0].x = ((x2 - x1) >= 0 ? floorf(x2 - dx) : ceilf(x2 - dx));
 238             pt[0].y = ((y2 - y1) >= 0 ? floorf(y2 - dy) : ceilf(y2 - dy));
 239             pt[1].x = roundr(pt[0].x + 2.0 * dx);
 240             pt[1].y = roundr(pt[0].y + 2.0 * dy);
 241
 242             dx = cos(theta) * size;
 243             dy = sin(theta) * size;
 244
 245             pt[2].x = roundr(x2 + dx);
 246             pt[2].y = roundr(y2 + dy);
 247
 248             Polygon(hdc, pt, 3);
 249
 250             break;
 251         case LineCapRound:
 252             dx = -cos(M_PI_2 + theta) * size;
 253             dy = -sin(M_PI_2 + theta) * size;
 254
 255             pt[0].x = ((x2 - x1) >= 0 ? floorf(x2 - dx) : ceilf(x2 - dx));
 256             pt[0].y = ((y2 - y1) >= 0 ? floorf(y2 - dy) : ceilf(y2 - dy));
 257             pt[1].x = roundr(pt[0].x + 2.0 * dx);
 258             pt[1].y = roundr(pt[0].y + 2.0 * dy);
 259
 260             dx = dy = size / 2.0;
 261
 262             x2 = (REAL) roundr(x2 - dx);
 263             y2 = (REAL) roundr(y2 - dy);
 264
 265             Pie(hdc, (INT) x2, (INT) y2, roundr(x2 + 2.0 * dx),
 266                 roundr(y2 + 2.0 * dy), pt[0].x, pt[0].y, pt[1].x, pt[1].y);
 267             break;
 268         case LineCapCustom:
 269             if(!custom)
 270                 break;
 271
 272             count = custom->pathdata.Count;
 273             custptf = GdipAlloc(count * sizeof(PointF));
 274             custpt = GdipAlloc(count * sizeof(POINT));
 275             tp = GdipAlloc(count);
 276
 277             if(!custptf || !custpt || !tp || (GdipCreateMatrix(&matrix) != Ok))
 278                 goto custend;
 279
 280             memcpy(custptf, custom->pathdata.Points, count * sizeof(PointF));
 281
 282             GdipScaleMatrix(matrix, size, size, MatrixOrderAppend);
 283             GdipRotateMatrix(matrix, (180.0 / M_PI) * (theta - M_PI_2),
 284                              MatrixOrderAppend);
 285             GdipTranslateMatrix(matrix, x2, y2, MatrixOrderAppend);
 286             GdipTransformMatrixPoints(matrix, custptf, count);
 287
 288             for(i = 0; i < count; i++){
 289                 custpt[i].x = roundr(custptf[i].X);
 290                 custpt[i].y = roundr(custptf[i].Y);
 291                 tp[i] = convert_path_point_type(custom->pathdata.Types[i]);
 292             }
 293
 294             if(custom->fill){
 295                 BeginPath(hdc);
 296                 PolyDraw(hdc, custpt, tp, count);
 297                 EndPath(hdc);
 298                 StrokeAndFillPath(hdc);
 299             }
 300             else
 301                 PolyDraw(hdc, custpt, tp, count);
 302
 303 custend:
 304             GdipFree(custptf);
 305             GdipFree(custpt);
 306             GdipFree(tp);
 307             GdipDeleteMatrix(matrix);
 308             break;
 309         default:
 310             break;
 311     }
 312
 313     SelectObject(hdc, oldbrush);
 314     SelectObject(hdc, oldpen);
 315     DeleteObject(brush);
 316     DeleteObject(pen);
 317 }
 318
 319 /* Shortens the line by the given percent by changing x2, y2.
 320  * If percent is > 1.0 then the line will change direction.
 321  * If percent is negative it can lengthen the line. */
 322 static void shorten_line_percent(REAL x1, REAL  y1, REAL *x2, REAL *y2, REAL percent)
 323 {
 324     REAL dist, theta, dx, dy;
 325
 326     if((y1 == *y2) && (x1 == *x2))
 327         return;
 328
 329     dist = sqrt((*x2 - x1) * (*x2 - x1) + (*y2 - y1) * (*y2 - y1)) * -percent;
 330     theta = (*x2 == x1 ? M_PI_2 : atan2((*y2 - y1), (*x2 - x1)));
 331     dx = cos(theta) * dist;
 332     dy = sin(theta) * dist;
 333
 334     *x2 = *x2 + dx;
 335     *y2 = *y2 + dy;
 336 }
 337
 338 /* Shortens the line by the given amount by changing x2, y2.
 339  * If the amount is greater than the distance, the line will become length 0.
 340  * If the amount is negative, it can lengthen the line. */
 341 static void shorten_line_amt(REAL x1, REAL y1, REAL *x2, REAL *y2, REAL amt)
 342 {
 343     REAL dx, dy, percent;
 344
 345     dx = *x2 - x1;
 346     dy = *y2 - y1;
 347     if(dx == 0 && dy == 0)
 348         return;
 349
 350     percent = amt / sqrt(dx * dx + dy * dy);
 351     if(percent >= 1.0){
 352         *x2 = x1;
 353         *y2 = y1;
 354         return;
 355     }
 356
 357     shorten_line_percent(x1, y1, x2, y2, percent);
 358 }
 359
 360 /* Draws lines between the given points, and if caps is true then draws an endcap
 361  * at the end of the last line.  FIXME: Startcaps not implemented. */
 362 static GpStatus draw_polyline(HDC hdc, GpPen *pen, GDIPCONST GpPointF * pt,
 363     INT count, BOOL caps)
 364 {
 365     POINT *pti = NULL;
 366     GpPointF *ptcopy = NULL;
 367     INT i;
 368     GpStatus status = GenericError;
 369
 370     if(!count)
 371         return Ok;
 372
 373     pti = GdipAlloc(count * sizeof(POINT));
 374     ptcopy = GdipAlloc(count * sizeof(GpPointF));
 375
 376     if(!pti || !ptcopy){
 377         status = OutOfMemory;
 378         goto end;
 379     }
 380
 381     memcpy(ptcopy, pt, count * sizeof(GpPointF));
 382
 383     if(caps){
 384         if(pen->endcap == LineCapArrowAnchor)
 385             shorten_line_amt(ptcopy[count-2].X, ptcopy[count-2].Y,
 386                              &ptcopy[count-1].X, &ptcopy[count-1].Y, pen->width);
 387         else if((pen->endcap == LineCapCustom) && pen->customend)
 388             shorten_line_amt(ptcopy[count-2].X, ptcopy[count-2].Y,
 389                              &ptcopy[count-1].X, &ptcopy[count-1].Y,
 390                              pen->customend->inset * pen->width);
 391
 392         if(pen->startcap == LineCapArrowAnchor)
 393             shorten_line_amt(ptcopy[1].X, ptcopy[1].Y,
 394                              &ptcopy[0].X, &ptcopy[0].Y, pen->width);
 395         else if((pen->startcap == LineCapCustom) && pen->customstart)
 396             shorten_line_amt(ptcopy[1].X, ptcopy[1].Y,
 397                              &ptcopy[0].X, &ptcopy[0].Y,
 398                              pen->customend->inset * pen->width);
 399
 400         draw_cap(hdc, pen->color, pen->endcap, pen->width, pen->customend,
 401                  pt[count - 2].X, pt[count - 2].Y, pt[count - 1].X, pt[count - 1].Y);
 402         draw_cap(hdc, pen->color, pen->startcap, pen->width, pen->customstart,
 403                          pt[1].X, pt[1].Y, pt[0].X, pt[0].Y);
 404     }
 405
 406     for(i = 0; i < count; i ++){
 407         pti[i].x = roundr(ptcopy[i].X);
 408         pti[i].y = roundr(ptcopy[i].Y);
 409     }
 410
 411     Polyline(hdc, pti, count);
 412
 413 end:
 414     GdipFree(pti);
 415     GdipFree(ptcopy);
 416
 417     return status;
 418 }
 419
 420 /* Conducts a linear search to find the bezier points that will back off
 421  * the endpoint of the curve by a distance of amt. Linear search works
 422  * better than binary in this case because there are multiple solutions,
 423  * and binary searches often find a bad one. I don't think this is what
 424  * Windows does but short of rendering the bezier without GDI's help it's
 425  * the best we can do. If rev then work from the start of the passed points
 426  * instead of the end. */
 427 static void shorten_bezier_amt(GpPointF * pt, REAL amt, BOOL rev)
 428 {
 429     GpPointF origpt[4];
 430     REAL percent = 0.00, dx, dy, origx, origy, diff = -1.0;
 431     INT i, first = 0, second = 1, third = 2, fourth = 3;
 432
 433     if(rev){
 434         first = 3;
 435         second = 2;
 436         third = 1;
 437         fourth = 0;
 438     }
 439
 440     origx = pt[fourth].X;
 441     origy = pt[fourth].Y;
 442     memcpy(origpt, pt, sizeof(GpPointF) * 4);
 443
 444     for(i = 0; (i < MAX_ITERS) && (diff < amt); i++){
 445         /* reset bezier points to original values */
 446         memcpy(pt, origpt, sizeof(GpPointF) * 4);
 447         /* Perform magic on bezier points. Order is important here.*/
 448         shorten_line_percent(pt[third].X, pt[third].Y, &pt[fourth].X, &pt[fourth].Y, percent);
 449         shorten_line_percent(pt[second].X, pt[second].Y, &pt[third].X, &pt[third].Y, percent);
 450         shorten_line_percent(pt[third].X, pt[third].Y, &pt[fourth].X, &pt[fourth].Y, percent);
 451         shorten_line_percent(pt[first].X, pt[first].Y, &pt[second].X, &pt[second].Y, percent);
 452         shorten_line_percent(pt[second].X, pt[second].Y, &pt[third].X, &pt[third].Y, percent);
 453         shorten_line_percent(pt[third].X, pt[third].Y, &pt[fourth].X, &pt[fourth].Y, percent);
 454
 455         dx = pt[fourth].X - origx;
 456         dy = pt[fourth].Y - origy;
 457
 458         diff = sqrt(dx * dx + dy * dy);
 459         percent += 0.0005 * amt;
 460     }
 461 }
 462
 463 /* Draws bezier curves between given points, and if caps is true then draws an
 464  * endcap at the end of the last line.  FIXME: Startcaps not implemented. */
 465 static GpStatus draw_polybezier(HDC hdc, GpPen *pen, GDIPCONST GpPointF * pt,
 466     INT count, BOOL caps)
 467 {
 468     POINT *pti, curpos;
 469     GpPointF *ptcopy;
 470     INT i;
 471     REAL x, y;
 472     GpStatus status = GenericError;
 473
 474     if(!count)
 475         return Ok;
 476
 477     pti = GdipAlloc(count * sizeof(POINT));
 478     ptcopy = GdipAlloc(count * sizeof(GpPointF));
 479
 480     if(!pti || !ptcopy){
 481         status = OutOfMemory;
 482         goto end;
 483     }
 484
 485     memcpy(ptcopy, pt, count * sizeof(GpPointF));
 486
 487     if(caps){
 488         if(pen->endcap == LineCapArrowAnchor)
 489             shorten_bezier_amt(&ptcopy[count-4], pen->width, FALSE);
 490         /* FIXME The following is seemingly correct only for baseinset < 0 or
 491          * baseinset > ~3. With smaller baseinsets, windows actually
 492          * lengthens the bezier line instead of shortening it. */
 493         else if((pen->endcap == LineCapCustom) && pen->customend){
 494             x = pt[count - 1].X;
 495             y = pt[count - 1].Y;
 496             shorten_line_amt(pt[count - 2].X, pt[count - 2].Y, &x, &y,
 497                              pen->width * pen->customend->inset);
 498             MoveToEx(hdc, roundr(pt[count - 1].X), roundr(pt[count - 1].Y), &curpos);
 499             LineTo(hdc, roundr(x), roundr(y));
 500             MoveToEx(hdc, curpos.x, curpos.y, NULL);
 501         }
 502
 503         if(pen->startcap == LineCapArrowAnchor)
 504             shorten_bezier_amt(ptcopy, pen->width, TRUE);
 505         else if((pen->startcap == LineCapCustom) && pen->customstart){
 506             x = ptcopy[0].X;
 507             y = ptcopy[0].Y;
 508             shorten_line_amt(ptcopy[1].X, ptcopy[1].Y, &x, &y,
 509                              pen->width * pen->customend->inset);
 510             MoveToEx(hdc, roundr(pt[0].X), roundr(pt[0].Y), &curpos);
 511             LineTo(hdc, roundr(x), roundr(y));
 512             MoveToEx(hdc, curpos.x, curpos.y, NULL);
 513         }
 514
 515         /* the direction of the line cap is parallel to the direction at the
 516          * end of the bezier (which, if it has been shortened, is not the same
 517          * as the direction from pt[count-2] to pt[count-1]) */
 518         draw_cap(hdc, pen->color, pen->endcap, pen->width, pen->customend,
 519             pt[count - 1].X - (ptcopy[count - 1].X - ptcopy[count - 2].X),
 520             pt[count - 1].Y - (ptcopy[count - 1].Y - ptcopy[count - 2].Y),
 521             pt[count - 1].X, pt[count - 1].Y);
 522
 523         draw_cap(hdc, pen->color, pen->startcap, pen->width, pen->customstart,
 524             pt[0].X - (ptcopy[0].X - ptcopy[1].X),
 525             pt[0].Y - (ptcopy[0].Y - ptcopy[1].Y), pt[0].X, pt[0].Y);
 526     }
 527
 528     for(i = 0; i < count; i ++){
 529         pti[i].x = roundr(ptcopy[i].X);
 530         pti[i].y = roundr(ptcopy[i].Y);
 531     }
 532
 533     PolyBezier(hdc, pti, count);
 534
 535     status = Ok;
 536
 537 end:
 538     GdipFree(pti);
 539     GdipFree(ptcopy);
 540
 541     return status;
 542 }
 543
 544 /* Draws a combination of bezier curves and lines between points. */
 545 static GpStatus draw_poly(HDC hdc, GpPen *pen, GDIPCONST GpPointF * pt,
 546     GDIPCONST BYTE * types, INT count, BOOL caps)
 547 {
 548     POINT *pti = GdipAlloc(count * sizeof(POINT)), curpos;
 549     BYTE *tp = GdipAlloc(count);
 550     GpPointF *ptcopy = GdipAlloc(count * sizeof(GpPointF));
 551     REAL x = pt[count - 1].X, y = pt[count - 1].Y;
 552     INT i, j;
 553     GpStatus status = GenericError;
 554
 555     if(!count){
 556         status = Ok;
 557         goto end;
 558     }
 559     if(!pti || !tp || !ptcopy){
 560         status = OutOfMemory;
 561         goto end;
 562     }
 563
 564     for(i = 1; i < count; i++){
 565         if((types[i] & PathPointTypePathTypeMask) == PathPointTypeBezier){
 566             if((i + 2 >= count) || !(types[i + 1] & PathPointTypeBezier)
 567                 || !(types[i + 1] & PathPointTypeBezier)){
 568                 ERR("Bad bezier points\n");
 569                 goto end;
 570             }
 571             i += 2;
 572         }
 573     }
 574
 575     /* If we are drawing caps, go through the points and adjust them accordingly,
 576      * and draw the caps. */
 577     if(caps){
 578         memcpy(ptcopy, pt, count * sizeof(GpPointF));
 579
 580         switch(types[count - 1] & PathPointTypePathTypeMask){
 581             case PathPointTypeBezier:
 582                 if(pen->endcap == LineCapArrowAnchor)
 583                     shorten_bezier_amt(&ptcopy[count - 4], pen->width, FALSE);
 584                 else if((pen->endcap == LineCapCustom) && pen->customend){
 585                     x = pt[count - 1].X;
 586                     y = pt[count - 1].Y;
 587                     shorten_line_amt(pt[count - 2].X, pt[count - 2].Y, &x, &y,
 588                                      pen->width * pen->customend->inset);
 589                     MoveToEx(hdc, roundr(pt[count - 1].X), roundr(pt[count - 1].Y), &curpos);
 590                     LineTo(hdc, roundr(x), roundr(y));
 591                     MoveToEx(hdc, curpos.x, curpos.y, NULL);
 592                 }
 593
 594                 draw_cap(hdc, pen->color, pen->endcap, pen->width, pen->customend,
 595                     pt[count - 1].X - (ptcopy[count - 1].X - ptcopy[count - 2].X),
 596                     pt[count - 1].Y - (ptcopy[count - 1].Y - ptcopy[count - 2].Y),
 597                     pt[count - 1].X, pt[count - 1].Y);
 598
 599                 break;
 600             case PathPointTypeLine:
 601                 if(pen->endcap == LineCapArrowAnchor)
 602                     shorten_line_amt(ptcopy[count - 2].X, ptcopy[count - 2].Y,
 603                                      &ptcopy[count - 1].X, &ptcopy[count - 1].Y,
 604                                      pen->width);
 605                 else if((pen->endcap == LineCapCustom) && pen->customend)
 606                     shorten_line_amt(ptcopy[count - 2].X, ptcopy[count - 2].Y,
 607                                      &ptcopy[count - 1].X, &ptcopy[count - 1].Y,
 608                                      pen->customend->inset * pen->width);
 609
 610                 draw_cap(hdc, pen->color, pen->endcap, pen->width, pen->customend,
 611                          pt[count - 2].X, pt[count - 2].Y, pt[count - 1].X,
 612                          pt[count - 1].Y);
 613
 614                 break;
 615             default:
 616                 ERR("Bad path last point\n");
 617                 goto end;
 618         }
 619
 620         /* Find start of points */
 621         for(j = 1; j < count && ((types[j] & PathPointTypePathTypeMask)
 622             == PathPointTypeStart); j++);
 623
 624         switch(types[j] & PathPointTypePathTypeMask){
 625             case PathPointTypeBezier:
 626                 if(pen->startcap == LineCapArrowAnchor)
 627                     shorten_bezier_amt(&ptcopy[j - 1], pen->width, TRUE);
 628                 else if((pen->startcap == LineCapCustom) && pen->customstart){
 629                     x = pt[j - 1].X;
 630                     y = pt[j - 1].Y;
 631                     shorten_line_amt(ptcopy[j].X, ptcopy[j].Y, &x, &y,
 632                                      pen->width * pen->customstart->inset);
 633                     MoveToEx(hdc, roundr(pt[j - 1].X), roundr(pt[j - 1].Y), &curpos);
 634                     LineTo(hdc, roundr(x), roundr(y));
 635                     MoveToEx(hdc, curpos.x, curpos.y, NULL);
 636                 }
 637
 638                 draw_cap(hdc, pen->color, pen->startcap, pen->width, pen->customstart,
 639                     pt[j - 1].X - (ptcopy[j - 1].X - ptcopy[j].X),
 640                     pt[j - 1].Y - (ptcopy[j - 1].Y - ptcopy[j].Y),
 641                     pt[j - 1].X, pt[j - 1].Y);
 642
 643                 break;
 644             case PathPointTypeLine:
 645                 if(pen->startcap == LineCapArrowAnchor)
 646                     shorten_line_amt(ptcopy[j].X, ptcopy[j].Y,
 647                                      &ptcopy[j - 1].X, &ptcopy[j - 1].Y,
 648                                      pen->width);
 649                 else if((pen->startcap == LineCapCustom) && pen->customstart)
 650                     shorten_line_amt(ptcopy[j].X, ptcopy[j].Y,
 651                                      &ptcopy[j - 1].X, &ptcopy[j - 1].Y,
 652                                      pen->customstart->inset * pen->width);
 653
 654                 draw_cap(hdc, pen->color, pen->endcap, pen->width, pen->customstart,
 655                          pt[j].X, pt[j].Y, pt[j - 1].X,
 656                          pt[j - 1].Y);
 657
 658                 break;
 659             default:
 660                 ERR("Bad path points\n");
 661                 goto end;
 662         }
 663         for(i = 0; i < count; i++){
 664             pti[i].x = roundr(ptcopy[i].X);
 665             pti[i].y = roundr(ptcopy[i].Y);
 666         }
 667     }
 668     else
 669         for(i = 0; i < count; i++){
 670             pti[i].x = roundr(pt[i].X);
 671             pti[i].y = roundr(pt[i].Y);
 672         }
 673
 674     for(i = 0; i < count; i++){
 675         tp[i] = convert_path_point_type(types[i]);
 676     }
 677
 678     PolyDraw(hdc, pti, tp, count);
 679
 680     status = Ok;
 681
 682 end:
 683     GdipFree(pti);
 684     GdipFree(ptcopy);
 685     GdipFree(tp);
 686
 687     return status;
 688 }
 689
 690 GpStatus WINGDIPAPI GdipCreateFromHDC(HDC hdc, GpGraphics **graphics)
 691 {
 692     if(hdc == NULL)
 693         return OutOfMemory;
 694
 695     if(graphics == NULL)
 696         return InvalidParameter;
 697
 698     *graphics = GdipAlloc(sizeof(GpGraphics));
 699     if(!*graphics)  return OutOfMemory;
 700
 701     (*graphics)->hdc = hdc;
 702     (*graphics)->hwnd = NULL;
 703     (*graphics)->smoothing = SmoothingModeDefault;
 704     (*graphics)->compqual = CompositingQualityDefault;
 705     (*graphics)->interpolation = InterpolationModeDefault;
 706     (*graphics)->pixeloffset = PixelOffsetModeDefault;
 707
 708     return Ok;
 709 }
 710
 711 GpStatus WINGDIPAPI GdipCreateFromHWND(HWND hwnd, GpGraphics **graphics)
 712 {
 713     GpStatus ret;
 714
 715     if((ret = GdipCreateFromHDC(GetDC(hwnd), graphics)) != Ok)
 716         return ret;
 717
 718     (*graphics)->hwnd = hwnd;
 719
 720     return Ok;
 721 }
 722
 723 GpStatus WINGDIPAPI GdipDeleteGraphics(GpGraphics *graphics)
 724 {
 725     if(!graphics) return InvalidParameter;
 726     if(graphics->hwnd)
 727         ReleaseDC(graphics->hwnd, graphics->hdc);
 728
 729     HeapFree(GetProcessHeap(), 0, graphics);
 730
 731     return Ok;
 732 }
 733
 734 GpStatus WINGDIPAPI GdipDrawArc(GpGraphics *graphics, GpPen *pen, REAL x,
 735     REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle)
 736 {
 737     INT save_state, num_pts;
 738     GpPointF points[MAX_ARC_PTS];
 739     GpStatus retval;
 740
 741     if(!graphics || !pen)
 742         return InvalidParameter;
 743
 744     num_pts = arc2polybezier(points, x, y, width, height, startAngle, sweepAngle);
 745
 746     save_state = SaveDC(graphics->hdc);
 747     EndPath(graphics->hdc);
 748     SelectObject(graphics->hdc, pen->gdipen);
 749
 750     retval = draw_polybezier(graphics->hdc, pen, points, num_pts, TRUE);
 751
 752     RestoreDC(graphics->hdc, save_state);
 753
 754     return retval;
 755 }
 756
 757 GpStatus WINGDIPAPI GdipDrawBezier(GpGraphics *graphics, GpPen *pen, REAL x1,
 758     REAL y1, REAL x2, REAL y2, REAL x3, REAL y3, REAL x4, REAL y4)
 759 {
 760     INT save_state;
 761     GpPointF pt[4];
 762     GpStatus retval;
 763
 764     if(!graphics || !pen)
 765         return InvalidParameter;
 766
 767     pt[0].X = x1;
 768     pt[0].Y = y1;
 769     pt[1].X = x2;
 770     pt[1].Y = y2;
 771     pt[2].X = x3;
 772     pt[2].Y = y3;
 773     pt[3].X = x4;
 774     pt[3].Y = y4;
 775
 776     save_state = SaveDC(graphics->hdc);
 777     EndPath(graphics->hdc);
 778     SelectObject(graphics->hdc, pen->gdipen);
 779
 780     retval = draw_polybezier(graphics->hdc, pen, pt, 4, TRUE);
 781
 782     RestoreDC(graphics->hdc, save_state);
 783
 784     return retval;
 785 }
 786
 787 /* Approximates cardinal spline with Bezier curves. */
 788 GpStatus WINGDIPAPI GdipDrawCurve2(GpGraphics *graphics, GpPen *pen,
 789     GDIPCONST GpPointF *points, INT count, REAL tension)
 790 {
 791     /* PolyBezier expects count*3-2 points. */
 792     INT i, len_pt = count*3-2, save_state;
 793     GpPointF *pt;
 794     REAL x1, x2, y1, y2;
 795     GpStatus retval;
 796
 797     if(!graphics || !pen)
 798         return InvalidParameter;
 799
 800     pt = GdipAlloc(len_pt * sizeof(GpPointF));
 801     tension = tension * TENSION_CONST;
 802
 803     calc_curve_bezier_endp(points[0].X, points[0].Y, points[1].X, points[1].Y,
 804         tension, &x1, &y1);
 805
 806     pt[0].X = points[0].X;
 807     pt[0].Y = points[0].Y;
 808     pt[1].X = x1;
 809     pt[1].Y = y1;
 810
 811     for(i = 0; i < count-2; i++){
 812         calc_curve_bezier(&(points[i]), tension, &x1, &y1, &x2, &y2);
 813
 814         pt[3*i+2].X = x1;
 815         pt[3*i+2].Y = y1;
 816         pt[3*i+3].X = points[i+1].X;
 817         pt[3*i+3].Y = points[i+1].Y;
 818         pt[3*i+4].X = x2;
 819         pt[3*i+4].Y = y2;
 820     }
 821
 822     calc_curve_bezier_endp(points[count-1].X, points[count-1].Y,
 823         points[count-2].X, points[count-2].Y, tension, &x1, &y1);
 824
 825     pt[len_pt-2].X = x1;
 826     pt[len_pt-2].Y = y1;
 827     pt[len_pt-1].X = points[count-1].X;
 828     pt[len_pt-1].Y = points[count-1].Y;
 829
 830     save_state = SaveDC(graphics->hdc);
 831     EndPath(graphics->hdc);
 832     SelectObject(graphics->hdc, pen->gdipen);
 833
 834     retval = draw_polybezier(graphics->hdc, pen, pt, len_pt, TRUE);
 835
 836     GdipFree(pt);
 837     RestoreDC(graphics->hdc, save_state);
 838
 839     return retval;
 840 }
 841
 842 GpStatus WINGDIPAPI GdipDrawLineI(GpGraphics *graphics, GpPen *pen, INT x1,
 843     INT y1, INT x2, INT y2)
 844 {
 845     INT save_state;
 846     GpPointF pt[2];
 847     GpStatus retval;
 848
 849     if(!pen || !graphics)
 850         return InvalidParameter;
 851
 852     pt[0].X = (REAL)x1;
 853     pt[0].Y = (REAL)y1;
 854     pt[1].X = (REAL)x2;
 855     pt[1].Y = (REAL)y2;
 856
 857     save_state = SaveDC(graphics->hdc);
 858     EndPath(graphics->hdc);
 859     SelectObject(graphics->hdc, pen->gdipen);
 860
 861     retval = draw_polyline(graphics->hdc, pen, pt, 2, TRUE);
 862
 863     RestoreDC(graphics->hdc, save_state);
 864
 865     return retval;
 866 }
 867
 868 GpStatus WINGDIPAPI GdipDrawLines(GpGraphics *graphics, GpPen *pen, GDIPCONST
 869     GpPointF *points, INT count)
 870 {
 871     INT save_state;
 872     GpStatus retval;
 873
 874     if(!pen || !graphics || (count < 2))
 875         return InvalidParameter;
 876
 877     save_state = SaveDC(graphics->hdc);
 878     EndPath(graphics->hdc);
 879     SelectObject(graphics->hdc, pen->gdipen);
 880
 881     retval = draw_polyline(graphics->hdc, pen, points, count, TRUE);
 882
 883     RestoreDC(graphics->hdc, save_state);
 884
 885     return retval;
 886 }
 887
 888 GpStatus WINGDIPAPI GdipDrawPath(GpGraphics *graphics, GpPen *pen, GpPath *path)
 889 {
 890     INT save_state;
 891     GpStatus retval;
 892
 893     if(!pen || !graphics)
 894         return InvalidParameter;
 895
 896     save_state = SaveDC(graphics->hdc);
 897     EndPath(graphics->hdc);
 898     SelectObject(graphics->hdc, pen->gdipen);
 899
 900     retval = draw_poly(graphics->hdc, pen, path->pathdata.Points,
 901                        path->pathdata.Types, path->pathdata.Count, TRUE);
 902
 903     RestoreDC(graphics->hdc, save_state);
 904
 905     return retval;
 906 }
 907
 908 GpStatus WINGDIPAPI GdipDrawPie(GpGraphics *graphics, GpPen *pen, REAL x,
 909     REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle)
 910 {
 911     if(!pen)
 912         return InvalidParameter;
 913
 914     return draw_pie(graphics, GetStockObject(NULL_BRUSH), pen->gdipen, x, y,
 915         width, height, startAngle, sweepAngle);
 916 }
 917
 918 GpStatus WINGDIPAPI GdipDrawRectangleI(GpGraphics *graphics, GpPen *pen, INT x,
 919     INT y, INT width, INT height)
 920 {
 921     INT save_state;
 922
 923     if(!pen || !graphics)
 924         return InvalidParameter;
 925
 926     save_state = SaveDC(graphics->hdc);
 927     EndPath(graphics->hdc);
 928     SelectObject(graphics->hdc, pen->gdipen);
 929     SelectObject(graphics->hdc, GetStockObject(NULL_BRUSH));
 930
 931     Rectangle(graphics->hdc, x, y, x + width, y + height);
 932
 933     RestoreDC(graphics->hdc, save_state);
 934
 935     return Ok;
 936 }
 937
 938 GpStatus WINGDIPAPI GdipFillPath(GpGraphics *graphics, GpBrush *brush, GpPath *path)
 939 {
 940     INT save_state;
 941     GpStatus retval;
 942
 943     if(!brush || !graphics || !path)
 944         return InvalidParameter;
 945
 946     save_state = SaveDC(graphics->hdc);
 947     EndPath(graphics->hdc);
 948     SelectObject(graphics->hdc, brush->gdibrush);
 949     SetPolyFillMode(graphics->hdc, (path->fill == FillModeAlternate ? ALTERNATE
 950                                                                     : WINDING));
 951
 952     BeginPath(graphics->hdc);
 953     retval = draw_poly(graphics->hdc, NULL, path->pathdata.Points,
 954                        path->pathdata.Types, path->pathdata.Count, FALSE);
 955
 956     if(retval != Ok)
 957         goto end;
 958
 959     EndPath(graphics->hdc);
 960     FillPath(graphics->hdc);
 961
 962     retval = Ok;
 963
 964 end:
 965     RestoreDC(graphics->hdc, save_state);
 966
 967     return retval;
 968 }
 969
 970 GpStatus WINGDIPAPI GdipFillPie(GpGraphics *graphics, GpBrush *brush, REAL x,
 971     REAL y, REAL width, REAL height, REAL startAngle, REAL sweepAngle)
 972 {
 973     if(!brush)
 974         return InvalidParameter;
 975
 976     return draw_pie(graphics, brush->gdibrush, GetStockObject(NULL_PEN), x, y,
 977         width, height, startAngle, sweepAngle);
 978 }
 979
 980 /* FIXME: Compositing quality is not used anywhere except the getter/setter. */
 981 GpStatus WINGDIPAPI GdipGetCompositingQuality(GpGraphics *graphics,
 982     CompositingQuality *quality)
 983 {
 984     if(!graphics || !quality)
 985         return InvalidParameter;
 986
 987     *quality = graphics->compqual;
 988
 989     return Ok;
 990 }
 991
 992 /* FIXME: Interpolation mode is not used anywhere except the getter/setter. */
 993 GpStatus WINGDIPAPI GdipGetInterpolationMode(GpGraphics *graphics,
 994     InterpolationMode *mode)
 995 {
 996     if(!graphics || !mode)
 997         return InvalidParameter;
 998
 999     *mode = graphics->interpolation;
1000
1001     return Ok;
1002 }
1003
1004 /* FIXME: Pixel offset mode is not used anywhere except the getter/setter. */
1005 GpStatus WINGDIPAPI GdipGetPixelOffsetMode(GpGraphics *graphics, PixelOffsetMode
1006     *mode)
1007 {
1008     if(!graphics || !mode)
1009         return InvalidParameter;
1010
1011     *mode = graphics->pixeloffset;
1012
1013     return Ok;
1014 }
1015
1016 /* FIXME: Smoothing mode is not used anywhere except the getter/setter. */
1017 GpStatus WINGDIPAPI GdipGetSmoothingMode(GpGraphics *graphics, SmoothingMode *mode)
1018 {
1019     if(!graphics || !mode)
1020         return InvalidParameter;
1021
1022     *mode = graphics->smoothing;
1023
1024     return Ok;
1025 }
1026
1027 GpStatus WINGDIPAPI GdipRestoreGraphics(GpGraphics *graphics, GraphicsState state)
1028 {
1029     if(!graphics)
1030         return InvalidParameter;
1031
1032     FIXME("graphics state not implemented\n");
1033
1034     return NotImplemented;
1035 }
1036
1037 GpStatus WINGDIPAPI GdipSaveGraphics(GpGraphics *graphics, GraphicsState *state)
1038 {
1039     if(!graphics || !state)
1040         return InvalidParameter;
1041
1042     FIXME("graphics state not implemented\n");
1043
1044     return NotImplemented;
1045 }
1046
1047 GpStatus WINGDIPAPI GdipSetCompositingQuality(GpGraphics *graphics,
1048     CompositingQuality quality)
1049 {
1050     if(!graphics)
1051         return InvalidParameter;
1052
1053     graphics->compqual = quality;
1054
1055     return Ok;
1056 }
1057
1058 GpStatus WINGDIPAPI GdipSetInterpolationMode(GpGraphics *graphics,
1059     InterpolationMode mode)
1060 {
1061     if(!graphics)
1062         return InvalidParameter;
1063
1064     graphics->interpolation = mode;
1065
1066     return Ok;
1067 }
1068
1069 GpStatus WINGDIPAPI GdipSetPixelOffsetMode(GpGraphics *graphics, PixelOffsetMode
1070     mode)
1071 {
1072     if(!graphics)
1073         return InvalidParameter;
1074
1075     graphics->pixeloffset = mode;
1076
1077     return Ok;
1078 }
1079
1080 GpStatus WINGDIPAPI GdipSetSmoothingMode(GpGraphics *graphics, SmoothingMode mode)
1081 {
1082     if(!graphics)
1083         return InvalidParameter;
1084
1085     graphics->smoothing = mode;
1086
1087     return Ok;
1088 }