2 * GDI drawing functions.
4 * Copyright 1993, 1994 Alexandre Julliard
5 * Copyright 1997 Bertho A. Stultiens
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 #include "wine/port.h"
35 #include "gdi_private.h"
36 #include "wine/debug.h"
38 WINE_DEFAULT_DEBUG_CHANNEL(gdi);
41 /***********************************************************************
44 BOOL WINAPI LineTo( HDC hdc, INT x, INT y )
46 DC * dc = DC_GetDCUpdate( hdc );
51 if(PATH_IsPathOpen(dc->path))
52 ret = PATH_LineTo(dc, x, y);
54 ret = dc->funcs->pLineTo && dc->funcs->pLineTo(dc->physDev,x,y);
59 GDI_ReleaseObj( hdc );
64 /***********************************************************************
67 BOOL WINAPI MoveToEx( HDC hdc, INT x, INT y, LPPOINT pt )
70 DC * dc = DC_GetDCPtr( hdc );
81 if(PATH_IsPathOpen(dc->path)) ret = PATH_MoveTo(dc);
82 else if (dc->funcs->pMoveTo) ret = dc->funcs->pMoveTo(dc->physDev,x,y);
83 GDI_ReleaseObj( hdc );
88 /***********************************************************************
91 BOOL WINAPI Arc( HDC hdc, INT left, INT top, INT right,
92 INT bottom, INT xstart, INT ystart,
96 DC * dc = DC_GetDCUpdate( hdc );
99 if(PATH_IsPathOpen(dc->path))
100 ret = PATH_Arc(dc, left, top, right, bottom, xstart, ystart, xend, yend,0);
101 else if (dc->funcs->pArc)
102 ret = dc->funcs->pArc(dc->physDev,left,top,right,bottom,xstart,ystart,xend,yend);
103 GDI_ReleaseObj( hdc );
108 /***********************************************************************
111 BOOL WINAPI ArcTo( HDC hdc,
113 INT right, INT bottom,
114 INT xstart, INT ystart,
118 DC * dc = DC_GetDCUpdate( hdc );
119 if(!dc) return FALSE;
121 if(dc->funcs->pArcTo)
123 result = dc->funcs->pArcTo( dc->physDev, left, top, right, bottom,
124 xstart, ystart, xend, yend );
125 GDI_ReleaseObj( hdc );
128 GDI_ReleaseObj( hdc );
131 * According to the documentation, a line is drawn from the current
132 * position to the starting point of the arc.
134 LineTo(hdc, xstart, ystart);
136 * Then the arc is drawn.
138 result = Arc(hdc, left, top, right, bottom, xstart, ystart, xend, yend);
140 * If no error occurred, the current position is moved to the ending
143 if (result) MoveToEx(hdc, xend, yend, NULL);
148 /***********************************************************************
151 BOOL WINAPI Pie( HDC hdc, INT left, INT top,
152 INT right, INT bottom, INT xstart, INT ystart,
156 DC * dc = DC_GetDCUpdate( hdc );
157 if (!dc) return FALSE;
159 if(PATH_IsPathOpen(dc->path))
160 ret = PATH_Arc(dc,left,top,right,bottom,xstart,ystart,xend,yend,2);
161 else if(dc->funcs->pPie)
162 ret = dc->funcs->pPie(dc->physDev,left,top,right,bottom,xstart,ystart,xend,yend);
164 GDI_ReleaseObj( hdc );
169 /***********************************************************************
172 BOOL WINAPI Chord( HDC hdc, INT left, INT top,
173 INT right, INT bottom, INT xstart, INT ystart,
177 DC * dc = DC_GetDCUpdate( hdc );
178 if (!dc) return FALSE;
180 if(PATH_IsPathOpen(dc->path))
181 ret = PATH_Arc(dc,left,top,right,bottom,xstart,ystart,xend,yend,1);
182 else if(dc->funcs->pChord)
183 ret = dc->funcs->pChord(dc->physDev,left,top,right,bottom,xstart,ystart,xend,yend);
185 GDI_ReleaseObj( hdc );
190 /***********************************************************************
193 BOOL WINAPI Ellipse( HDC hdc, INT left, INT top,
194 INT right, INT bottom )
197 DC * dc = DC_GetDCUpdate( hdc );
198 if (!dc) return FALSE;
200 if(PATH_IsPathOpen(dc->path))
201 ret = PATH_Ellipse(dc,left,top,right,bottom);
202 else if (dc->funcs->pEllipse)
203 ret = dc->funcs->pEllipse(dc->physDev,left,top,right,bottom);
205 GDI_ReleaseObj( hdc );
210 /***********************************************************************
211 * Rectangle (GDI32.@)
213 BOOL WINAPI Rectangle( HDC hdc, INT left, INT top,
214 INT right, INT bottom )
217 DC * dc = DC_GetDCUpdate( hdc );
220 if(PATH_IsPathOpen(dc->path))
221 ret = PATH_Rectangle(dc, left, top, right, bottom);
222 else if (dc->funcs->pRectangle)
223 ret = dc->funcs->pRectangle(dc->physDev,left,top,right,bottom);
224 GDI_ReleaseObj( hdc );
230 /***********************************************************************
231 * RoundRect (GDI32.@)
233 BOOL WINAPI RoundRect( HDC hdc, INT left, INT top, INT right,
234 INT bottom, INT ell_width, INT ell_height )
237 DC *dc = DC_GetDCUpdate( hdc );
241 if(PATH_IsPathOpen(dc->path))
242 ret = PATH_RoundRect(dc,left,top,right,bottom,ell_width,ell_height);
243 else if (dc->funcs->pRoundRect)
244 ret = dc->funcs->pRoundRect(dc->physDev,left,top,right,bottom,ell_width,ell_height);
245 GDI_ReleaseObj( hdc );
250 /***********************************************************************
253 COLORREF WINAPI SetPixel( HDC hdc, INT x, INT y, COLORREF color )
256 DC * dc = DC_GetDCUpdate( hdc );
259 if (dc->funcs->pSetPixel) ret = dc->funcs->pSetPixel(dc->physDev,x,y,color);
260 GDI_ReleaseObj( hdc );
265 /***********************************************************************
266 * SetPixelV (GDI32.@)
268 BOOL WINAPI SetPixelV( HDC hdc, INT x, INT y, COLORREF color )
271 DC * dc = DC_GetDCUpdate( hdc );
274 if (dc->funcs->pSetPixel)
276 dc->funcs->pSetPixel(dc->physDev,x,y,color);
279 GDI_ReleaseObj( hdc );
284 /***********************************************************************
287 COLORREF WINAPI GetPixel( HDC hdc, INT x, INT y )
289 COLORREF ret = CLR_INVALID;
290 DC * dc = DC_GetDCUpdate( hdc );
294 /* FIXME: should this be in the graphics driver? */
295 if (PtVisible( hdc, x, y ))
297 if (dc->funcs->pGetPixel) ret = dc->funcs->pGetPixel(dc->physDev,x,y);
299 GDI_ReleaseObj( hdc );
305 /******************************************************************************
306 * ChoosePixelFormat [GDI32.@]
307 * Matches a pixel format to given format
310 * hdc [I] Device context to search for best pixel match
311 * ppfd [I] Pixel format for which a match is sought
314 * Success: Pixel format index closest to given format
317 INT WINAPI ChoosePixelFormat( HDC hdc, const PIXELFORMATDESCRIPTOR* ppfd )
320 DC * dc = DC_GetDCPtr( hdc );
322 TRACE("(%p,%p)\n",hdc,ppfd);
326 if (!dc->funcs->pChoosePixelFormat) FIXME(" :stub\n");
327 else ret = dc->funcs->pChoosePixelFormat(dc->physDev,ppfd);
329 GDI_ReleaseObj( hdc );
334 /******************************************************************************
335 * SetPixelFormat [GDI32.@]
336 * Sets pixel format of device context
339 * hdc [I] Device context to search for best pixel match
340 * iPixelFormat [I] Pixel format index
341 * ppfd [I] Pixel format for which a match is sought
347 BOOL WINAPI SetPixelFormat( HDC hdc, INT iPixelFormat,
348 const PIXELFORMATDESCRIPTOR *ppfd)
351 DC * dc = DC_GetDCPtr( hdc );
353 TRACE("(%p,%d,%p)\n",hdc,iPixelFormat,ppfd);
357 if (!dc->funcs->pSetPixelFormat) FIXME(" :stub\n");
358 else bRet = dc->funcs->pSetPixelFormat(dc->physDev,iPixelFormat,ppfd);
360 GDI_ReleaseObj( hdc );
365 /******************************************************************************
366 * GetPixelFormat [GDI32.@]
367 * Gets index of pixel format of DC
370 * hdc [I] Device context whose pixel format index is sought
373 * Success: Currently selected pixel format
376 INT WINAPI GetPixelFormat( HDC hdc )
379 DC * dc = DC_GetDCPtr( hdc );
385 if (!dc->funcs->pGetPixelFormat) FIXME(" :stub\n");
386 else ret = dc->funcs->pGetPixelFormat(dc->physDev);
388 GDI_ReleaseObj( hdc );
393 /******************************************************************************
394 * DescribePixelFormat [GDI32.@]
395 * Gets info about pixel format from DC
398 * hdc [I] Device context
399 * iPixelFormat [I] Pixel format selector
400 * nBytes [I] Size of buffer
401 * ppfd [O] Pointer to structure to receive pixel format data
404 * Success: Maximum pixel format index of the device context
407 INT WINAPI DescribePixelFormat( HDC hdc, INT iPixelFormat, UINT nBytes,
408 LPPIXELFORMATDESCRIPTOR ppfd )
411 DC * dc = DC_GetDCPtr( hdc );
413 TRACE("(%p,%d,%d,%p): stub\n",hdc,iPixelFormat,nBytes,ppfd);
417 if (!dc->funcs->pDescribePixelFormat)
420 ppfd->nSize = nBytes;
424 else ret = dc->funcs->pDescribePixelFormat(dc->physDev,iPixelFormat,nBytes,ppfd);
426 GDI_ReleaseObj( hdc );
431 /******************************************************************************
432 * SwapBuffers [GDI32.@]
433 * Exchanges front and back buffers of window
436 * hdc [I] Device context whose buffers get swapped
442 BOOL WINAPI SwapBuffers( HDC hdc )
445 DC * dc = DC_GetDCPtr( hdc );
449 if (!dc) return TRUE;
451 if (!dc->funcs->pSwapBuffers)
456 else bRet = dc->funcs->pSwapBuffers(dc->physDev);
458 GDI_ReleaseObj( hdc );
463 /***********************************************************************
466 BOOL WINAPI PaintRgn( HDC hdc, HRGN hrgn )
469 DC * dc = DC_GetDCUpdate( hdc );
472 if (dc->funcs->pPaintRgn) ret = dc->funcs->pPaintRgn(dc->physDev,hrgn);
473 GDI_ReleaseObj( hdc );
479 /***********************************************************************
482 BOOL WINAPI FillRgn( HDC hdc, HRGN hrgn, HBRUSH hbrush )
486 DC * dc = DC_GetDCUpdate( hdc );
488 if (!dc) return FALSE;
489 if(dc->funcs->pFillRgn)
490 retval = dc->funcs->pFillRgn(dc->physDev, hrgn, hbrush);
491 else if ((prevBrush = SelectObject( hdc, hbrush )))
493 retval = PaintRgn( hdc, hrgn );
494 SelectObject( hdc, prevBrush );
496 GDI_ReleaseObj( hdc );
501 /***********************************************************************
504 BOOL WINAPI FrameRgn( HDC hdc, HRGN hrgn, HBRUSH hbrush,
505 INT nWidth, INT nHeight )
508 DC *dc = DC_GetDCUpdate( hdc );
510 if (!dc) return FALSE;
511 if(dc->funcs->pFrameRgn)
512 ret = dc->funcs->pFrameRgn( dc->physDev, hrgn, hbrush, nWidth, nHeight );
515 HRGN tmp = CreateRectRgn( 0, 0, 0, 0 );
518 if (REGION_FrameRgn( tmp, hrgn, nWidth, nHeight ))
520 FillRgn( hdc, tmp, hbrush );
526 GDI_ReleaseObj( hdc );
531 /***********************************************************************
532 * InvertRgn (GDI32.@)
534 BOOL WINAPI InvertRgn( HDC hdc, HRGN hrgn )
539 DC *dc = DC_GetDCUpdate( hdc );
540 if (!dc) return FALSE;
542 if(dc->funcs->pInvertRgn)
543 retval = dc->funcs->pInvertRgn( dc->physDev, hrgn );
546 prevBrush = SelectObject( hdc, GetStockObject(BLACK_BRUSH) );
547 prevROP = SetROP2( hdc, R2_NOT );
548 retval = PaintRgn( hdc, hrgn );
549 SelectObject( hdc, prevBrush );
550 SetROP2( hdc, prevROP );
552 GDI_ReleaseObj( hdc );
557 /**********************************************************************
560 BOOL WINAPI Polyline( HDC hdc, const POINT* pt, INT count )
563 DC * dc = DC_GetDCUpdate( hdc );
566 if (PATH_IsPathOpen(dc->path)) ret = PATH_Polyline(dc, pt, count);
567 else if (dc->funcs->pPolyline) ret = dc->funcs->pPolyline(dc->physDev,pt,count);
568 GDI_ReleaseObj( hdc );
573 /**********************************************************************
574 * PolylineTo (GDI32.@)
576 BOOL WINAPI PolylineTo( HDC hdc, const POINT* pt, DWORD cCount )
578 DC * dc = DC_GetDCUpdate( hdc );
581 if(!dc) return FALSE;
583 if(PATH_IsPathOpen(dc->path))
584 ret = PATH_PolylineTo(dc, pt, cCount);
586 else if(dc->funcs->pPolylineTo)
587 ret = dc->funcs->pPolylineTo(dc->physDev, pt, cCount);
589 else { /* do it using Polyline */
590 POINT *pts = HeapAlloc( GetProcessHeap(), 0,
591 sizeof(POINT) * (cCount + 1) );
594 pts[0].x = dc->CursPosX;
595 pts[0].y = dc->CursPosY;
596 memcpy( pts + 1, pt, sizeof(POINT) * cCount );
597 ret = Polyline( hdc, pts, cCount + 1 );
598 HeapFree( GetProcessHeap(), 0, pts );
602 dc->CursPosX = pt[cCount-1].x;
603 dc->CursPosY = pt[cCount-1].y;
605 GDI_ReleaseObj( hdc );
610 /**********************************************************************
613 BOOL WINAPI Polygon( HDC hdc, const POINT* pt, INT count )
616 DC * dc = DC_GetDCUpdate( hdc );
619 if (PATH_IsPathOpen(dc->path)) ret = PATH_Polygon(dc, pt, count);
620 else if (dc->funcs->pPolygon) ret = dc->funcs->pPolygon(dc->physDev,pt,count);
621 GDI_ReleaseObj( hdc );
627 /**********************************************************************
628 * PolyPolygon (GDI32.@)
630 BOOL WINAPI PolyPolygon( HDC hdc, const POINT* pt, const INT* counts,
634 DC * dc = DC_GetDCUpdate( hdc );
637 if (PATH_IsPathOpen(dc->path)) ret = PATH_PolyPolygon(dc, pt, counts, polygons);
638 else if (dc->funcs->pPolyPolygon) ret = dc->funcs->pPolyPolygon(dc->physDev,pt,counts,polygons);
639 GDI_ReleaseObj( hdc );
644 /**********************************************************************
645 * PolyPolyline (GDI32.@)
647 BOOL WINAPI PolyPolyline( HDC hdc, const POINT* pt, const DWORD* counts,
651 DC * dc = DC_GetDCUpdate( hdc );
654 if (PATH_IsPathOpen(dc->path)) ret = PATH_PolyPolyline(dc, pt, counts, polylines);
655 else if (dc->funcs->pPolyPolyline) ret = dc->funcs->pPolyPolyline(dc->physDev,pt,counts,polylines);
656 GDI_ReleaseObj( hdc );
661 /**********************************************************************
662 * ExtFloodFill (GDI32.@)
664 BOOL WINAPI ExtFloodFill( HDC hdc, INT x, INT y, COLORREF color,
668 DC * dc = DC_GetDCUpdate( hdc );
671 if (dc->funcs->pExtFloodFill) ret = dc->funcs->pExtFloodFill(dc->physDev,x,y,color,fillType);
672 GDI_ReleaseObj( hdc );
678 /**********************************************************************
679 * FloodFill (GDI32.@)
681 BOOL WINAPI FloodFill( HDC hdc, INT x, INT y, COLORREF color )
683 return ExtFloodFill( hdc, x, y, color, FLOODFILLBORDER );
687 /******************************************************************************
688 * PolyBezier [GDI32.@]
689 * Draws one or more Bezier curves
692 * hDc [I] Handle to device context
693 * lppt [I] Pointer to endpoints and control points
694 * cPoints [I] Count of endpoints and control points
700 BOOL WINAPI PolyBezier( HDC hdc, const POINT* lppt, DWORD cPoints )
705 /* cPoints must be 3 * n + 1 (where n>=1) */
706 if (cPoints == 1 || (cPoints % 3) != 1) return FALSE;
708 dc = DC_GetDCUpdate( hdc );
709 if(!dc) return FALSE;
711 if(PATH_IsPathOpen(dc->path))
712 ret = PATH_PolyBezier(dc, lppt, cPoints);
713 else if (dc->funcs->pPolyBezier)
714 ret = dc->funcs->pPolyBezier(dc->physDev, lppt, cPoints);
715 else /* We'll convert it into line segments and draw them using Polyline */
720 if ((Pts = GDI_Bezier( lppt, cPoints, &nOut )))
722 TRACE("Pts = %p, no = %d\n", Pts, nOut);
723 ret = Polyline( dc->hSelf, Pts, nOut );
724 HeapFree( GetProcessHeap(), 0, Pts );
728 GDI_ReleaseObj( hdc );
732 /******************************************************************************
733 * PolyBezierTo [GDI32.@]
734 * Draws one or more Bezier curves
737 * hDc [I] Handle to device context
738 * lppt [I] Pointer to endpoints and control points
739 * cPoints [I] Count of endpoints and control points
745 BOOL WINAPI PolyBezierTo( HDC hdc, const POINT* lppt, DWORD cPoints )
750 /* cbPoints must be 3 * n (where n>=1) */
751 if (!cPoints || (cPoints % 3) != 0) return FALSE;
753 dc = DC_GetDCUpdate( hdc );
754 if(!dc) return FALSE;
756 if(PATH_IsPathOpen(dc->path))
757 ret = PATH_PolyBezierTo(dc, lppt, cPoints);
758 else if(dc->funcs->pPolyBezierTo)
759 ret = dc->funcs->pPolyBezierTo(dc->physDev, lppt, cPoints);
760 else { /* We'll do it using PolyBezier */
762 pt = HeapAlloc( GetProcessHeap(), 0, sizeof(POINT) * (cPoints + 1) );
763 if(!pt) return FALSE;
764 pt[0].x = dc->CursPosX;
765 pt[0].y = dc->CursPosY;
766 memcpy(pt + 1, lppt, sizeof(POINT) * cPoints);
767 ret = PolyBezier(dc->hSelf, pt, cPoints+1);
768 HeapFree( GetProcessHeap(), 0, pt );
771 dc->CursPosX = lppt[cPoints-1].x;
772 dc->CursPosY = lppt[cPoints-1].y;
774 GDI_ReleaseObj( hdc );
778 /***********************************************************************
781 BOOL WINAPI AngleArc(HDC hdc, INT x, INT y, DWORD dwRadius, FLOAT eStartAngle, FLOAT eSweepAngle)
783 INT x1,y1,x2,y2, arcdir;
787 if( (signed int)dwRadius < 0 )
790 dc = DC_GetDCUpdate( hdc );
791 if(!dc) return FALSE;
793 if(dc->funcs->pAngleArc)
795 result = dc->funcs->pAngleArc( dc->physDev, x, y, dwRadius, eStartAngle, eSweepAngle );
797 GDI_ReleaseObj( hdc );
800 GDI_ReleaseObj( hdc );
802 /* AngleArc always works counterclockwise */
803 arcdir = GetArcDirection( hdc );
804 SetArcDirection( hdc, AD_COUNTERCLOCKWISE );
806 x1 = x + cos(eStartAngle*M_PI/180) * dwRadius;
807 y1 = y - sin(eStartAngle*M_PI/180) * dwRadius;
808 x2 = x + cos((eStartAngle+eSweepAngle)*M_PI/180) * dwRadius;
809 y2 = x - sin((eStartAngle+eSweepAngle)*M_PI/180) * dwRadius;
811 LineTo( hdc, x1, y1 );
812 if( eSweepAngle >= 0 )
813 result = Arc( hdc, x-dwRadius, y-dwRadius, x+dwRadius, y+dwRadius,
816 result = Arc( hdc, x-dwRadius, y-dwRadius, x+dwRadius, y+dwRadius,
819 if( result ) MoveToEx( hdc, x2, y2, NULL );
820 SetArcDirection( hdc, arcdir );
824 /***********************************************************************
827 BOOL WINAPI PolyDraw(HDC hdc, const POINT *lppt, const BYTE *lpbTypes,
835 dc = DC_GetDCUpdate( hdc );
836 if(!dc) return FALSE;
838 if(dc->funcs->pPolyDraw)
840 result = dc->funcs->pPolyDraw( dc->physDev, lppt, lpbTypes, cCount );
841 GDI_ReleaseObj( hdc );
844 GDI_ReleaseObj( hdc );
846 /* check for each bezierto if there are two more points */
847 for( i = 0; i < cCount; i++ )
848 if( lpbTypes[i] != PT_MOVETO &&
849 lpbTypes[i] & PT_BEZIERTO )
857 /* if no moveto occurs, we will close the figure here */
858 lastmove.x = dc->CursPosX;
859 lastmove.y = dc->CursPosY;
862 for( i = 0; i < cCount; i++ )
864 if( lpbTypes[i] == PT_MOVETO )
866 MoveToEx( hdc, lppt[i].x, lppt[i].y, NULL );
867 lastmove.x = dc->CursPosX;
868 lastmove.y = dc->CursPosY;
870 else if( lpbTypes[i] & PT_LINETO )
871 LineTo( hdc, lppt[i].x, lppt[i].y );
872 else if( lpbTypes[i] & PT_BEZIERTO )
874 PolyBezierTo( hdc, &lppt[i], 3 );
880 if( lpbTypes[i] & PT_CLOSEFIGURE )
882 if( PATH_IsPathOpen( dc->path ) )
885 LineTo( hdc, lastmove.x, lastmove.y );
893 /**********************************************************************
896 BOOL WINAPI LineDDA(INT nXStart, INT nYStart, INT nXEnd, INT nYEnd,
897 LINEDDAPROC callback, LPARAM lParam )
899 INT xadd = 1, yadd = 1;
902 INT dx = nXEnd - nXStart;
903 INT dy = nYEnd - nYStart;
915 if (dx > dy) /* line is "more horizontal" */
917 err = 2*dy - dx; erradd = 2*dy - 2*dx;
918 for(cnt = 0;cnt <= dx; cnt++)
920 callback(nXStart,nYStart,lParam);
930 else /* line is "more vertical" */
932 err = 2*dx - dy; erradd = 2*dx - 2*dy;
933 for(cnt = 0;cnt <= dy; cnt++)
935 callback(nXStart,nYStart,lParam);
949 /******************************************************************
951 * *Very* simple bezier drawing code,
953 * It uses a recursive algorithm to divide the curve in a series
954 * of straight line segements. Not ideal but for me sufficient.
955 * If you are in need for something better look for some incremental
958 * 7 July 1998 Rein Klazes
962 * some macro definitions for bezier drawing
964 * to avoid truncation errors the coordinates are
965 * shifted upwards. When used in drawing they are
966 * shifted down again, including correct rounding
967 * and avoiding floating point arithmetic
968 * 4 bits should allow 27 bits coordinates which I saw
969 * somewhere in the win32 doc's
973 #define BEZIERSHIFTBITS 4
974 #define BEZIERSHIFTUP(x) ((x)<<BEZIERSHIFTBITS)
975 #define BEZIERPIXEL BEZIERSHIFTUP(1)
976 #define BEZIERSHIFTDOWN(x) (((x)+(1<<(BEZIERSHIFTBITS-1)))>>BEZIERSHIFTBITS)
977 /* maximum depth of recursion */
978 #define BEZIERMAXDEPTH 8
980 /* size of array to store points on */
981 /* enough for one curve */
982 #define BEZIER_INITBUFSIZE (150)
984 /* calculate Bezier average, in this case the middle
985 * correctly rounded...
988 #define BEZIERMIDDLE(Mid, P1, P2) \
989 (Mid).x=((P1).x+(P2).x + 1)/2;\
990 (Mid).y=((P1).y+(P2).y + 1)/2;
992 /**********************************************************
993 * BezierCheck helper function to check
994 * that recursion can be terminated
995 * Points[0] and Points[3] are begin and endpoint
996 * Points[1] and Points[2] are control points
997 * level is the recursion depth
998 * returns true if the recusion can be terminated
1000 static BOOL BezierCheck( int level, POINT *Points)
1003 dx=Points[3].x-Points[0].x;
1004 dy=Points[3].y-Points[0].y;
1005 if(abs(dy)<=abs(dx)){/* shallow line */
1006 /* check that control points are between begin and end */
1007 if(Points[1].x < Points[0].x){
1008 if(Points[1].x < Points[3].x)
1011 if(Points[1].x > Points[3].x)
1013 if(Points[2].x < Points[0].x){
1014 if(Points[2].x < Points[3].x)
1017 if(Points[2].x > Points[3].x)
1019 dx=BEZIERSHIFTDOWN(dx);
1020 if(!dx) return TRUE;
1021 if(abs(Points[1].y-Points[0].y-(dy/dx)*
1022 BEZIERSHIFTDOWN(Points[1].x-Points[0].x)) > BEZIERPIXEL ||
1023 abs(Points[2].y-Points[0].y-(dy/dx)*
1024 BEZIERSHIFTDOWN(Points[2].x-Points[0].x)) > BEZIERPIXEL )
1028 }else{ /* steep line */
1029 /* check that control points are between begin and end */
1030 if(Points[1].y < Points[0].y){
1031 if(Points[1].y < Points[3].y)
1034 if(Points[1].y > Points[3].y)
1036 if(Points[2].y < Points[0].y){
1037 if(Points[2].y < Points[3].y)
1040 if(Points[2].y > Points[3].y)
1042 dy=BEZIERSHIFTDOWN(dy);
1043 if(!dy) return TRUE;
1044 if(abs(Points[1].x-Points[0].x-(dx/dy)*
1045 BEZIERSHIFTDOWN(Points[1].y-Points[0].y)) > BEZIERPIXEL ||
1046 abs(Points[2].x-Points[0].x-(dx/dy)*
1047 BEZIERSHIFTDOWN(Points[2].y-Points[0].y)) > BEZIERPIXEL )
1054 /* Helper for GDI_Bezier.
1055 * Just handles one Bezier, so Points should point to four POINTs
1057 static void GDI_InternalBezier( POINT *Points, POINT **PtsOut, INT *dwOut,
1058 INT *nPtsOut, INT level )
1060 if(*nPtsOut == *dwOut) {
1062 *PtsOut = HeapReAlloc( GetProcessHeap(), 0, *PtsOut,
1063 *dwOut * sizeof(POINT) );
1066 if(!level || BezierCheck(level, Points)) {
1068 (*PtsOut)[0].x = BEZIERSHIFTDOWN(Points[0].x);
1069 (*PtsOut)[0].y = BEZIERSHIFTDOWN(Points[0].y);
1072 (*PtsOut)[*nPtsOut].x = BEZIERSHIFTDOWN(Points[3].x);
1073 (*PtsOut)[*nPtsOut].y = BEZIERSHIFTDOWN(Points[3].y);
1076 POINT Points2[4]; /* for the second recursive call */
1077 Points2[3]=Points[3];
1078 BEZIERMIDDLE(Points2[2], Points[2], Points[3]);
1079 BEZIERMIDDLE(Points2[0], Points[1], Points[2]);
1080 BEZIERMIDDLE(Points2[1],Points2[0],Points2[2]);
1082 BEZIERMIDDLE(Points[1], Points[0], Points[1]);
1083 BEZIERMIDDLE(Points[2], Points[1], Points2[0]);
1084 BEZIERMIDDLE(Points[3], Points[2], Points2[1]);
1086 Points2[0]=Points[3];
1088 /* do the two halves */
1089 GDI_InternalBezier(Points, PtsOut, dwOut, nPtsOut, level-1);
1090 GDI_InternalBezier(Points2, PtsOut, dwOut, nPtsOut, level-1);
1096 /***********************************************************************
1097 * GDI_Bezier [INTERNAL]
1098 * Calculate line segments that approximate -what microsoft calls- a bezier
1100 * The routine recursively divides the curve in two parts until a straight
1105 * Points [I] Ptr to count POINTs which are the end and control points
1106 * of the set of Bezier curves to flatten.
1107 * count [I] Number of Points. Must be 3n+1.
1108 * nPtsOut [O] Will contain no of points that have been produced (i.e. no. of
1113 * Ptr to an array of POINTs that contain the lines that approximinate the
1114 * Beziers. The array is allocated on the process heap and it is the caller's
1115 * responsibility to HeapFree it. [this is not a particularly nice interface
1116 * but since we can't know in advance how many points will generate, the
1117 * alternative would be to call the function twice, once to determine the size
1118 * and a second time to do the work - I decided this was too much of a pain].
1120 POINT *GDI_Bezier( const POINT *Points, INT count, INT *nPtsOut )
1123 INT Bezier, dwOut = BEZIER_INITBUFSIZE, i;
1125 if (count == 1 || (count - 1) % 3 != 0) {
1126 ERR("Invalid no. of points %d\n", count);
1130 out = HeapAlloc( GetProcessHeap(), 0, dwOut * sizeof(POINT));
1131 for(Bezier = 0; Bezier < (count-1)/3; Bezier++) {
1133 memcpy(ptBuf, Points + Bezier * 3, sizeof(POINT) * 4);
1134 for(i = 0; i < 4; i++) {
1135 ptBuf[i].x = BEZIERSHIFTUP(ptBuf[i].x);
1136 ptBuf[i].y = BEZIERSHIFTUP(ptBuf[i].y);
1138 GDI_InternalBezier( ptBuf, &out, &dwOut, nPtsOut, BEZIERMAXDEPTH );
1140 TRACE("Produced %d points\n", *nPtsOut);
1144 /******************************************************************************
1145 * GdiGradientFill (GDI32.@)
1147 * FIXME: we don't support the Alpha channel properly
1149 BOOL WINAPI GdiGradientFill( HDC hdc, TRIVERTEX *vert_array, ULONG nvert,
1150 void * grad_array, ULONG ngrad, ULONG mode )
1154 TRACE("vert_array:0x%08lx nvert:%d grad_array:0x%08lx ngrad:%d\n",
1155 (long)vert_array, nvert, (long)grad_array, ngrad);
1159 case GRADIENT_FILL_RECT_H:
1160 for(i = 0; i < ngrad; i++)
1162 GRADIENT_RECT *rect = ((GRADIENT_RECT *)grad_array) + i;
1163 TRIVERTEX *v1 = vert_array + rect->UpperLeft;
1164 TRIVERTEX *v2 = vert_array + rect->LowerRight;
1165 int y1 = v1->y < v2->y ? v1->y : v2->y;
1166 int y2 = v2->y > v1->y ? v2->y : v1->y;
1175 for (x = 0; x < dx; x++)
1180 hPen = CreatePen( PS_SOLID, 1, RGB(
1181 (v1->Red * (dx - x) + v2->Red * x) / dx >> 8,
1182 (v1->Green * (dx - x) + v2->Green * x) / dx >> 8,
1183 (v1->Blue * (dx - x) + v2->Blue * x) / dx >> 8));
1184 hOldPen = SelectObject( hdc, hPen );
1185 pts[0].x = v1->x + x;
1187 pts[1].x = v1->x + x;
1189 Polyline( hdc, &pts[0], 2 );
1190 DeleteObject( SelectObject(hdc, hOldPen ) );
1194 case GRADIENT_FILL_RECT_V:
1195 for(i = 0; i < ngrad; i++)
1197 GRADIENT_RECT *rect = ((GRADIENT_RECT *)grad_array) + i;
1198 TRIVERTEX *v1 = vert_array + rect->UpperLeft;
1199 TRIVERTEX *v2 = vert_array + rect->LowerRight;
1200 int x1 = v1->x < v2->x ? v1->x : v2->x;
1201 int x2 = v2->x > v1->x ? v2->x : v1->x;
1210 for (y = 0; y < dy; y++)
1215 hPen = CreatePen( PS_SOLID, 1, RGB(
1216 (v1->Red * (dy - y) + v2->Red * y) / dy >> 8,
1217 (v1->Green * (dy - y) + v2->Green * y) / dy >> 8,
1218 (v1->Blue * (dy - y) + v2->Blue * y) / dy >> 8));
1219 hOldPen = SelectObject( hdc, hPen );
1221 pts[0].y = v1->y + y;
1223 pts[1].y = v1->y + y;
1224 Polyline( hdc, &pts[0], 2 );
1225 DeleteObject( SelectObject(hdc, hOldPen ) );
1229 case GRADIENT_FILL_TRIANGLE:
1230 for (i = 0; i < ngrad; i++)
1232 GRADIENT_TRIANGLE *tri = ((GRADIENT_TRIANGLE *)grad_array) + i;
1233 TRIVERTEX *v1 = vert_array + tri->Vertex1;
1234 TRIVERTEX *v2 = vert_array + tri->Vertex2;
1235 TRIVERTEX *v3 = vert_array + tri->Vertex3;
1239 { TRIVERTEX *t = v1; v1 = v2; v2 = t; }
1242 TRIVERTEX *t = v2; v2 = v3; v3 = t;
1244 { t = v1; v1 = v2; v2 = t; }
1246 /* v1->y <= v2->y <= v3->y */
1249 for (y = 0; y < dy; y++)
1251 /* v1->y <= y < v3->y */
1252 TRIVERTEX *v = y < (v2->y - v1->y) ? v1 : v3;
1253 /* (v->y <= y < v2->y) || (v2->y <= y < v->y) */
1254 int dy2 = v2->y - v->y;
1255 int y2 = y + v1->y - v->y;
1257 int x1 = (v3->x * y + v1->x * (dy - y )) / dy;
1258 int x2 = (v2->x * y2 + v-> x * (dy2 - y2)) / dy2;
1259 int r1 = (v3->Red * y + v1->Red * (dy - y )) / dy;
1260 int r2 = (v2->Red * y2 + v-> Red * (dy2 - y2)) / dy2;
1261 int g1 = (v3->Green * y + v1->Green * (dy - y )) / dy;
1262 int g2 = (v2->Green * y2 + v-> Green * (dy2 - y2)) / dy2;
1263 int b1 = (v3->Blue * y + v1->Blue * (dy - y )) / dy;
1264 int b2 = (v2->Blue * y2 + v-> Blue * (dy2 - y2)) / dy2;
1270 for (x = 0; x < dx; x++)
1271 SetPixel (hdc, x + x1, y + v1->y, RGB(
1272 (r1 * (dx - x) + r2 * x) / dx >> 8,
1273 (g1 * (dx - x) + g2 * x) / dx >> 8,
1274 (b1 * (dx - x) + b2 * x) / dx >> 8));
1279 for (x = 0; x < dx; x++)
1280 SetPixel (hdc, x + x2, y + v1->y, RGB(
1281 (r2 * (dx - x) + r1 * x) / dx >> 8,
1282 (g2 * (dx - x) + g1 * x) / dx >> 8,
1283 (b2 * (dx - x) + b1 * x) / dx >> 8));