vbscript: Skip the first (null) instruction in dump_code.
[wine] / dlls / gdi32 / painting.c
1 /*
2  * GDI drawing functions.
3  *
4  * Copyright 1993, 1994 Alexandre Julliard
5  * Copyright 1997 Bertho A. Stultiens
6  *           1999 Huw D M Davies
7  *
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.
12  *
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.
17  *
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
21  */
22
23 #include "config.h"
24 #include "wine/port.h"
25
26 #include <stdarg.h>
27 #include <string.h>
28 #include <stdlib.h>
29
30 #include "windef.h"
31 #include "winbase.h"
32 #include "wingdi.h"
33 #include "winerror.h"
34 #include "gdi_private.h"
35 #include "wine/debug.h"
36
37 WINE_DEFAULT_DEBUG_CHANNEL(gdi);
38
39
40 /***********************************************************************
41  *           null driver fallback implementations
42  */
43
44 BOOL nulldrv_AngleArc( PHYSDEV dev, INT x, INT y, DWORD radius, FLOAT start, FLOAT sweep )
45 {
46     INT x1 = GDI_ROUND( x + cos( start * M_PI / 180 ) * radius );
47     INT y1 = GDI_ROUND( y - sin( start * M_PI / 180 ) * radius );
48     INT x2 = GDI_ROUND( x + cos( (start + sweep) * M_PI / 180) * radius );
49     INT y2 = GDI_ROUND( y - sin( (start + sweep) * M_PI / 180) * radius );
50     INT arcdir = SetArcDirection( dev->hdc, sweep >= 0 ? AD_COUNTERCLOCKWISE : AD_CLOCKWISE );
51     BOOL ret = ArcTo( dev->hdc, x - radius, y - radius, x + radius, y + radius, x1, y1, x2, y2 );
52     SetArcDirection( dev->hdc, arcdir );
53     return ret;
54 }
55
56 BOOL nulldrv_ArcTo( PHYSDEV dev, INT left, INT top, INT right, INT bottom,
57                     INT xstart, INT ystart, INT xend, INT yend )
58 {
59     INT width = abs( right - left );
60     INT height = abs( bottom - top );
61     double xradius = width / 2.0;
62     double yradius = height / 2.0;
63     double xcenter = right > left ? left + xradius : right + xradius;
64     double ycenter = bottom > top ? top + yradius : bottom + yradius;
65     double angle;
66
67     if (!height || !width) return FALSE;
68     /* draw a line from the current position to the starting point of the arc, then draw the arc */
69     angle = atan2( (ystart - ycenter) / height, (xstart - xcenter) / width );
70     LineTo( dev->hdc, GDI_ROUND( xcenter + cos(angle) * xradius ),
71             GDI_ROUND( ycenter + sin(angle) * yradius ));
72     return Arc( dev->hdc, left, top, right, bottom, xstart, ystart, xend, yend );
73 }
74
75 BOOL nulldrv_FillRgn( PHYSDEV dev, HRGN rgn, HBRUSH brush )
76 {
77     BOOL ret = FALSE;
78     HBRUSH prev;
79
80     if ((prev = SelectObject( dev->hdc, brush )))
81     {
82         ret = PaintRgn( dev->hdc, rgn );
83         SelectObject( dev->hdc, prev );
84     }
85     return ret;
86 }
87
88 BOOL nulldrv_FrameRgn( PHYSDEV dev, HRGN rgn, HBRUSH brush, INT width, INT height )
89 {
90     BOOL ret = FALSE;
91     HRGN tmp = CreateRectRgn( 0, 0, 0, 0 );
92
93     if (tmp)
94     {
95         if (REGION_FrameRgn( tmp, rgn, width, height )) ret = FillRgn( dev->hdc, tmp, brush );
96         DeleteObject( tmp );
97     }
98     return ret;
99 }
100
101 BOOL nulldrv_InvertRgn( PHYSDEV dev, HRGN rgn )
102 {
103     HBRUSH prev_brush = SelectObject( dev->hdc, GetStockObject(BLACK_BRUSH) );
104     INT prev_rop = SetROP2( dev->hdc, R2_NOT );
105     BOOL ret = PaintRgn( dev->hdc, rgn );
106     SelectObject( dev->hdc, prev_brush );
107     SetROP2( dev->hdc, prev_rop );
108     return ret;
109 }
110
111 BOOL nulldrv_PolyBezier( PHYSDEV dev, const POINT *points, DWORD count )
112 {
113     BOOL ret = FALSE;
114     POINT *pts;
115     INT n;
116
117     if ((pts = GDI_Bezier( points, count, &n )))
118     {
119         ret = Polyline( dev->hdc, pts, n );
120         HeapFree( GetProcessHeap(), 0, pts );
121     }
122     return ret;
123 }
124
125 BOOL nulldrv_PolyBezierTo( PHYSDEV dev, const POINT *points, DWORD count )
126 {
127     BOOL ret = FALSE;
128     POINT *pts = HeapAlloc( GetProcessHeap(), 0, sizeof(POINT) * (count + 1) );
129
130     if (pts)
131     {
132         GetCurrentPositionEx( dev->hdc, &pts[0] );
133         memcpy( pts + 1, points, sizeof(POINT) * count );
134         ret = PolyBezier( dev->hdc, pts, count + 1 );
135         HeapFree( GetProcessHeap(), 0, pts );
136     }
137     return ret;
138 }
139
140 BOOL nulldrv_PolyDraw( PHYSDEV dev, const POINT *points, const BYTE *types, DWORD count )
141 {
142     POINT *line_pts = NULL, *bzr_pts = NULL, bzr[4];
143     INT i, num_pts, num_bzr_pts, space, size;
144
145     /* check for valid point types */
146     for (i = 0; i < count; i++)
147     {
148         switch (types[i])
149         {
150         case PT_MOVETO:
151         case PT_LINETO | PT_CLOSEFIGURE:
152         case PT_LINETO:
153             break;
154         case PT_BEZIERTO:
155             if((i + 2 < count) && (types[i + 1] == PT_BEZIERTO) &&
156                ((types[i + 2] & ~PT_CLOSEFIGURE) == PT_BEZIERTO))
157             {
158                 i += 2;
159                 break;
160             }
161         default:
162             return FALSE;
163         }
164     }
165
166     space = count + 300;
167     line_pts = HeapAlloc( GetProcessHeap(), 0, space * sizeof(POINT) );
168     num_pts = 1;
169
170     GetCurrentPositionEx( dev->hdc, &line_pts[0] );
171     for (i = 0; i < count; i++)
172     {
173         switch (types[i])
174         {
175         case PT_MOVETO:
176             if (num_pts >= 2) Polyline( dev->hdc, line_pts, num_pts );
177             num_pts = 0;
178             line_pts[num_pts++] = points[i];
179             break;
180         case PT_LINETO:
181         case (PT_LINETO | PT_CLOSEFIGURE):
182             line_pts[num_pts++] = points[i];
183             break;
184         case PT_BEZIERTO:
185             bzr[0].x = line_pts[num_pts - 1].x;
186             bzr[0].y = line_pts[num_pts - 1].y;
187             memcpy( &bzr[1], &points[i], 3 * sizeof(POINT) );
188
189             if ((bzr_pts = GDI_Bezier( bzr, 4, &num_bzr_pts )))
190             {
191                 size = num_pts + (count - i) + num_bzr_pts;
192                 if (space < size)
193                 {
194                     space = size * 2;
195                     line_pts = HeapReAlloc( GetProcessHeap(), 0, line_pts, space * sizeof(POINT) );
196                 }
197                 memcpy( &line_pts[num_pts], &bzr_pts[1], (num_bzr_pts - 1) * sizeof(POINT) );
198                 num_pts += num_bzr_pts - 1;
199                 HeapFree( GetProcessHeap(), 0, bzr_pts );
200             }
201             i += 2;
202             break;
203         }
204         if (types[i] & PT_CLOSEFIGURE) line_pts[num_pts++] = line_pts[0];
205     }
206
207     if (num_pts >= 2) Polyline( dev->hdc, line_pts, num_pts );
208     MoveToEx( dev->hdc, line_pts[num_pts - 1].x, line_pts[num_pts - 1].y, NULL );
209     HeapFree( GetProcessHeap(), 0, line_pts );
210     return TRUE;
211 }
212
213 BOOL nulldrv_PolylineTo( PHYSDEV dev, const POINT *points, INT count )
214 {
215     BOOL ret = FALSE;
216     POINT *pts;
217
218     if (!count) return FALSE;
219     if ((pts = HeapAlloc( GetProcessHeap(), 0, sizeof(POINT) * (count + 1) )))
220     {
221         GetCurrentPositionEx( dev->hdc, &pts[0] );
222         memcpy( pts + 1, points, sizeof(POINT) * count );
223         ret = Polyline( dev->hdc, pts, count + 1 );
224         HeapFree( GetProcessHeap(), 0, pts );
225     }
226     return ret;
227 }
228
229 /***********************************************************************
230  *           LineTo    (GDI32.@)
231  */
232 BOOL WINAPI LineTo( HDC hdc, INT x, INT y )
233 {
234     DC * dc = get_dc_ptr( hdc );
235     PHYSDEV physdev;
236     BOOL ret;
237
238     if(!dc) return FALSE;
239
240     update_dc( dc );
241     physdev = GET_DC_PHYSDEV( dc, pLineTo );
242     ret = physdev->funcs->pLineTo( physdev, x, y );
243
244     if(ret) {
245         dc->CursPosX = x;
246         dc->CursPosY = y;
247     }
248     release_dc_ptr( dc );
249     return ret;
250 }
251
252
253 /***********************************************************************
254  *           MoveToEx    (GDI32.@)
255  */
256 BOOL WINAPI MoveToEx( HDC hdc, INT x, INT y, LPPOINT pt )
257 {
258     BOOL ret;
259     PHYSDEV physdev;
260     DC * dc = get_dc_ptr( hdc );
261
262     if(!dc) return FALSE;
263
264     if(pt) {
265         pt->x = dc->CursPosX;
266         pt->y = dc->CursPosY;
267     }
268     dc->CursPosX = x;
269     dc->CursPosY = y;
270
271     physdev = GET_DC_PHYSDEV( dc, pMoveTo );
272     ret = physdev->funcs->pMoveTo( physdev, x, y );
273     release_dc_ptr( dc );
274     return ret;
275 }
276
277
278 /***********************************************************************
279  *           Arc    (GDI32.@)
280  */
281 BOOL WINAPI Arc( HDC hdc, INT left, INT top, INT right,
282                      INT bottom, INT xstart, INT ystart,
283                      INT xend, INT yend )
284 {
285     BOOL ret = FALSE;
286     DC * dc = get_dc_ptr( hdc );
287
288     if (dc)
289     {
290         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pArc );
291         update_dc( dc );
292         ret = physdev->funcs->pArc( physdev, left, top, right, bottom, xstart, ystart, xend, yend );
293         release_dc_ptr( dc );
294     }
295     return ret;
296 }
297
298 /***********************************************************************
299  *           ArcTo    (GDI32.@)
300  */
301 BOOL WINAPI ArcTo( HDC hdc,
302                      INT left,   INT top,
303                      INT right,  INT bottom,
304                      INT xstart, INT ystart,
305                      INT xend,   INT yend )
306 {
307     double width = fabs(right-left),
308         height = fabs(bottom-top),
309         xradius = width/2,
310         yradius = height/2,
311         xcenter = right > left ? left+xradius : right+xradius,
312         ycenter = bottom > top ? top+yradius : bottom+yradius,
313         angle;
314     PHYSDEV physdev;
315     BOOL result;
316     DC * dc = get_dc_ptr( hdc );
317     if(!dc) return FALSE;
318
319     update_dc( dc );
320     physdev = GET_DC_PHYSDEV( dc, pArcTo );
321     result = physdev->funcs->pArcTo( physdev, left, top, right, bottom, xstart, ystart, xend, yend );
322
323     if (result) {
324         angle = atan2(((yend-ycenter)/height),
325                       ((xend-xcenter)/width));
326         dc->CursPosX = GDI_ROUND(xcenter+(cos(angle)*xradius));
327         dc->CursPosY = GDI_ROUND(ycenter+(sin(angle)*yradius));
328     }
329     release_dc_ptr( dc );
330     return result;
331 }
332
333
334 /***********************************************************************
335  *           Pie   (GDI32.@)
336  */
337 BOOL WINAPI Pie( HDC hdc, INT left, INT top,
338                      INT right, INT bottom, INT xstart, INT ystart,
339                      INT xend, INT yend )
340 {
341     BOOL ret;
342     PHYSDEV physdev;
343     DC * dc = get_dc_ptr( hdc );
344     if (!dc) return FALSE;
345
346     update_dc( dc );
347     physdev = GET_DC_PHYSDEV( dc, pPie );
348     ret = physdev->funcs->pPie( physdev, left, top, right, bottom, xstart, ystart, xend, yend );
349     release_dc_ptr( dc );
350     return ret;
351 }
352
353
354 /***********************************************************************
355  *           Chord    (GDI32.@)
356  */
357 BOOL WINAPI Chord( HDC hdc, INT left, INT top,
358                        INT right, INT bottom, INT xstart, INT ystart,
359                        INT xend, INT yend )
360 {
361     BOOL ret;
362     PHYSDEV physdev;
363     DC * dc = get_dc_ptr( hdc );
364     if (!dc) return FALSE;
365
366     update_dc( dc );
367     physdev = GET_DC_PHYSDEV( dc, pChord );
368     ret = physdev->funcs->pChord( physdev, left, top, right, bottom, xstart, ystart, xend, yend );
369     release_dc_ptr( dc );
370     return ret;
371 }
372
373
374 /***********************************************************************
375  *           Ellipse    (GDI32.@)
376  */
377 BOOL WINAPI Ellipse( HDC hdc, INT left, INT top,
378                          INT right, INT bottom )
379 {
380     BOOL ret;
381     PHYSDEV physdev;
382     DC * dc = get_dc_ptr( hdc );
383     if (!dc) return FALSE;
384
385     update_dc( dc );
386     physdev = GET_DC_PHYSDEV( dc, pEllipse );
387     ret = physdev->funcs->pEllipse( physdev, left, top, right, bottom );
388     release_dc_ptr( dc );
389     return ret;
390 }
391
392
393 /***********************************************************************
394  *           Rectangle    (GDI32.@)
395  */
396 BOOL WINAPI Rectangle( HDC hdc, INT left, INT top,
397                            INT right, INT bottom )
398 {
399     BOOL ret = FALSE;
400     DC * dc = get_dc_ptr( hdc );
401
402     if (dc)
403     {
404         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pRectangle );
405         update_dc( dc );
406         ret = physdev->funcs->pRectangle( physdev, left, top, right, bottom );
407         release_dc_ptr( dc );
408     }
409     return ret;
410 }
411
412
413 /***********************************************************************
414  *           RoundRect    (GDI32.@)
415  */
416 BOOL WINAPI RoundRect( HDC hdc, INT left, INT top, INT right,
417                            INT bottom, INT ell_width, INT ell_height )
418 {
419     BOOL ret = FALSE;
420     DC *dc = get_dc_ptr( hdc );
421
422     if (dc)
423     {
424         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pRoundRect );
425         update_dc( dc );
426         ret = physdev->funcs->pRoundRect( physdev, left, top, right, bottom, ell_width, ell_height );
427         release_dc_ptr( dc );
428     }
429     return ret;
430 }
431
432 /***********************************************************************
433  *           SetPixel    (GDI32.@)
434  */
435 COLORREF WINAPI SetPixel( HDC hdc, INT x, INT y, COLORREF color )
436 {
437     COLORREF ret = 0;
438     DC * dc = get_dc_ptr( hdc );
439
440     if (dc)
441     {
442         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pSetPixel );
443         update_dc( dc );
444         ret = physdev->funcs->pSetPixel( physdev, x, y, color );
445         release_dc_ptr( dc );
446     }
447     return ret;
448 }
449
450 /***********************************************************************
451  *           SetPixelV    (GDI32.@)
452  */
453 BOOL WINAPI SetPixelV( HDC hdc, INT x, INT y, COLORREF color )
454 {
455     BOOL ret = FALSE;
456     DC * dc = get_dc_ptr( hdc );
457
458     if (dc)
459     {
460         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pSetPixel );
461         update_dc( dc );
462         physdev->funcs->pSetPixel( physdev, x, y, color );
463         ret = TRUE;
464         release_dc_ptr( dc );
465     }
466     return ret;
467 }
468
469 /***********************************************************************
470  *           GetPixel    (GDI32.@)
471  */
472 COLORREF WINAPI GetPixel( HDC hdc, INT x, INT y )
473 {
474     COLORREF ret = CLR_INVALID;
475     DC * dc = get_dc_ptr( hdc );
476
477     if (dc)
478     {
479         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pGetPixel );
480         update_dc( dc );
481         ret = physdev->funcs->pGetPixel( physdev, x, y );
482         release_dc_ptr( dc );
483     }
484     return ret;
485 }
486
487
488 /******************************************************************************
489  * GdiSetPixelFormat [GDI32.@]
490  *
491  * Probably not the correct semantics, it's supposed to be an internal backend for SetPixelFormat.
492  */
493 BOOL WINAPI GdiSetPixelFormat( HDC hdc, INT iPixelFormat, const PIXELFORMATDESCRIPTOR *ppfd)
494 {
495     INT bRet = FALSE;
496     DC * dc = get_dc_ptr( hdc );
497
498     TRACE("(%p,%d,%p)\n",hdc,iPixelFormat,ppfd);
499
500     if (dc)
501     {
502         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pSetPixelFormat );
503         update_dc( dc );
504         bRet = physdev->funcs->pSetPixelFormat( physdev, iPixelFormat, ppfd );
505         release_dc_ptr( dc );
506     }
507     return bRet;
508 }
509
510
511 /******************************************************************************
512  * GdiDescribePixelFormat [GDI32.@]
513  *
514  * Probably not the correct semantics, it's supposed to be an internal backend for DescribePixelFormat.
515  */
516 INT WINAPI GdiDescribePixelFormat( HDC hdc, INT iPixelFormat, UINT nBytes,
517                                    LPPIXELFORMATDESCRIPTOR ppfd )
518 {
519     INT ret = 0;
520     DC * dc = get_dc_ptr( hdc );
521
522     TRACE("(%p,%d,%d,%p): stub\n",hdc,iPixelFormat,nBytes,ppfd);
523
524     if (dc)
525     {
526         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pDescribePixelFormat );
527         update_dc( dc );
528         ret = physdev->funcs->pDescribePixelFormat( physdev, iPixelFormat, nBytes, ppfd );
529         release_dc_ptr( dc );
530     }
531     return ret;
532 }
533
534
535 /******************************************************************************
536  * GdiSwapBuffers [GDI32.@]
537  *
538  * Probably not the correct semantics, it's supposed to be an internal backend for SwapBuffers.
539  */
540 BOOL WINAPI GdiSwapBuffers( HDC hdc )
541 {
542     INT bRet = FALSE;
543     DC * dc = get_dc_ptr( hdc );
544
545     TRACE("(%p)\n",hdc);
546
547     if (dc)
548     {
549         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pSwapBuffers );
550         update_dc( dc );
551         bRet = physdev->funcs->pSwapBuffers( physdev );
552         release_dc_ptr( dc );
553     }
554     return bRet;
555 }
556
557
558 /***********************************************************************
559  *           PaintRgn    (GDI32.@)
560  */
561 BOOL WINAPI PaintRgn( HDC hdc, HRGN hrgn )
562 {
563     BOOL ret = FALSE;
564     DC * dc = get_dc_ptr( hdc );
565
566     if (dc)
567     {
568         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pPaintRgn );
569         update_dc( dc );
570         ret = physdev->funcs->pPaintRgn( physdev, hrgn );
571         release_dc_ptr( dc );
572     }
573     return ret;
574 }
575
576
577 /***********************************************************************
578  *           FillRgn    (GDI32.@)
579  */
580 BOOL WINAPI FillRgn( HDC hdc, HRGN hrgn, HBRUSH hbrush )
581 {
582     BOOL retval = FALSE;
583     DC * dc = get_dc_ptr( hdc );
584
585     if (dc)
586     {
587         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pFillRgn );
588         update_dc( dc );
589         retval = physdev->funcs->pFillRgn( physdev, hrgn, hbrush );
590         release_dc_ptr( dc );
591     }
592     return retval;
593 }
594
595
596 /***********************************************************************
597  *           FrameRgn     (GDI32.@)
598  */
599 BOOL WINAPI FrameRgn( HDC hdc, HRGN hrgn, HBRUSH hbrush,
600                           INT nWidth, INT nHeight )
601 {
602     BOOL ret = FALSE;
603     DC *dc = get_dc_ptr( hdc );
604
605     if (dc)
606     {
607         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pFrameRgn );
608         update_dc( dc );
609         ret = physdev->funcs->pFrameRgn( physdev, hrgn, hbrush, nWidth, nHeight );
610         release_dc_ptr( dc );
611     }
612     return ret;
613 }
614
615
616 /***********************************************************************
617  *           InvertRgn    (GDI32.@)
618  */
619 BOOL WINAPI InvertRgn( HDC hdc, HRGN hrgn )
620 {
621     BOOL ret = FALSE;
622     DC *dc = get_dc_ptr( hdc );
623
624     if (dc)
625     {
626         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pInvertRgn );
627         update_dc( dc );
628         ret = physdev->funcs->pInvertRgn( physdev, hrgn );
629         release_dc_ptr( dc );
630     }
631     return ret;
632 }
633
634
635 /**********************************************************************
636  *          Polyline   (GDI32.@)
637  */
638 BOOL WINAPI Polyline( HDC hdc, const POINT* pt, INT count )
639 {
640     BOOL ret = FALSE;
641     DC * dc = get_dc_ptr( hdc );
642
643     if (dc)
644     {
645         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pPolyline );
646         update_dc( dc );
647         ret = physdev->funcs->pPolyline( physdev, pt, count );
648         release_dc_ptr( dc );
649     }
650     return ret;
651 }
652
653 /**********************************************************************
654  *          PolylineTo   (GDI32.@)
655  */
656 BOOL WINAPI PolylineTo( HDC hdc, const POINT* pt, DWORD cCount )
657 {
658     DC * dc = get_dc_ptr( hdc );
659     PHYSDEV physdev;
660     BOOL ret;
661
662     if(!dc) return FALSE;
663
664     update_dc( dc );
665     physdev = GET_DC_PHYSDEV( dc, pPolylineTo );
666     ret = physdev->funcs->pPolylineTo( physdev, pt, cCount );
667
668     if (ret && cCount)
669     {
670         dc->CursPosX = pt[cCount-1].x;
671         dc->CursPosY = pt[cCount-1].y;
672     }
673     release_dc_ptr( dc );
674     return ret;
675 }
676
677
678 /**********************************************************************
679  *          Polygon  (GDI32.@)
680  */
681 BOOL WINAPI Polygon( HDC hdc, const POINT* pt, INT count )
682 {
683     BOOL ret = FALSE;
684     DC * dc = get_dc_ptr( hdc );
685
686     if (dc)
687     {
688         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pPolygon );
689         update_dc( dc );
690         ret = physdev->funcs->pPolygon( physdev, pt, count );
691         release_dc_ptr( dc );
692     }
693     return ret;
694 }
695
696
697 /**********************************************************************
698  *          PolyPolygon  (GDI32.@)
699  */
700 BOOL WINAPI PolyPolygon( HDC hdc, const POINT* pt, const INT* counts,
701                              UINT polygons )
702 {
703     BOOL ret = FALSE;
704     DC * dc = get_dc_ptr( hdc );
705
706     if (dc)
707     {
708         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pPolyPolygon );
709         update_dc( dc );
710         ret = physdev->funcs->pPolyPolygon( physdev, pt, counts, polygons );
711         release_dc_ptr( dc );
712     }
713     return ret;
714 }
715
716 /**********************************************************************
717  *          PolyPolyline  (GDI32.@)
718  */
719 BOOL WINAPI PolyPolyline( HDC hdc, const POINT* pt, const DWORD* counts,
720                             DWORD polylines )
721 {
722     BOOL ret = FALSE;
723     DC * dc = get_dc_ptr( hdc );
724
725     if (dc)
726     {
727         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pPolyPolyline );
728         update_dc( dc );
729         ret = physdev->funcs->pPolyPolyline( physdev, pt, counts, polylines );
730         release_dc_ptr( dc );
731     }
732     return ret;
733 }
734
735 /**********************************************************************
736  *          ExtFloodFill   (GDI32.@)
737  */
738 BOOL WINAPI ExtFloodFill( HDC hdc, INT x, INT y, COLORREF color,
739                               UINT fillType )
740 {
741     BOOL ret = FALSE;
742     DC * dc = get_dc_ptr( hdc );
743
744     if (dc)
745     {
746         PHYSDEV physdev = GET_DC_PHYSDEV( dc, pExtFloodFill );
747
748         update_dc( dc );
749         ret = physdev->funcs->pExtFloodFill( physdev, x, y, color, fillType );
750         release_dc_ptr( dc );
751     }
752     return ret;
753 }
754
755
756 /**********************************************************************
757  *          FloodFill   (GDI32.@)
758  */
759 BOOL WINAPI FloodFill( HDC hdc, INT x, INT y, COLORREF color )
760 {
761     return ExtFloodFill( hdc, x, y, color, FLOODFILLBORDER );
762 }
763
764
765 /******************************************************************************
766  * PolyBezier [GDI32.@]
767  * Draws one or more Bezier curves
768  *
769  * PARAMS
770  *    hDc     [I] Handle to device context
771  *    lppt    [I] Pointer to endpoints and control points
772  *    cPoints [I] Count of endpoints and control points
773  *
774  * RETURNS
775  *    Success: TRUE
776  *    Failure: FALSE
777  */
778 BOOL WINAPI PolyBezier( HDC hdc, const POINT* lppt, DWORD cPoints )
779 {
780     PHYSDEV physdev;
781     BOOL ret;
782     DC * dc;
783
784     /* cPoints must be 3 * n + 1 (where n>=1) */
785     if (cPoints == 1 || (cPoints % 3) != 1) return FALSE;
786
787     dc = get_dc_ptr( hdc );
788     if(!dc) return FALSE;
789
790     update_dc( dc );
791     physdev = GET_DC_PHYSDEV( dc, pPolyBezier );
792     ret = physdev->funcs->pPolyBezier( physdev, lppt, cPoints );
793     release_dc_ptr( dc );
794     return ret;
795 }
796
797 /******************************************************************************
798  * PolyBezierTo [GDI32.@]
799  * Draws one or more Bezier curves
800  *
801  * PARAMS
802  *    hDc     [I] Handle to device context
803  *    lppt    [I] Pointer to endpoints and control points
804  *    cPoints [I] Count of endpoints and control points
805  *
806  * RETURNS
807  *    Success: TRUE
808  *    Failure: FALSE
809  */
810 BOOL WINAPI PolyBezierTo( HDC hdc, const POINT* lppt, DWORD cPoints )
811 {
812     DC * dc;
813     BOOL ret;
814     PHYSDEV physdev;
815
816     /* cbPoints must be 3 * n (where n>=1) */
817     if (!cPoints || (cPoints % 3) != 0) return FALSE;
818
819     dc = get_dc_ptr( hdc );
820     if(!dc) return FALSE;
821
822     update_dc( dc );
823     physdev = GET_DC_PHYSDEV( dc, pPolyBezierTo );
824     ret = physdev->funcs->pPolyBezierTo( physdev, lppt, cPoints );
825
826     if(ret) {
827         dc->CursPosX = lppt[cPoints-1].x;
828         dc->CursPosY = lppt[cPoints-1].y;
829     }
830     release_dc_ptr( dc );
831     return ret;
832 }
833
834 /***********************************************************************
835  *      AngleArc (GDI32.@)
836  */
837 BOOL WINAPI AngleArc(HDC hdc, INT x, INT y, DWORD dwRadius, FLOAT eStartAngle, FLOAT eSweepAngle)
838 {
839     PHYSDEV physdev;
840     BOOL result;
841     DC *dc;
842
843     if( (signed int)dwRadius < 0 )
844         return FALSE;
845
846     dc = get_dc_ptr( hdc );
847     if(!dc) return FALSE;
848
849     update_dc( dc );
850     physdev = GET_DC_PHYSDEV( dc, pAngleArc );
851     result = physdev->funcs->pAngleArc( physdev, x, y, dwRadius, eStartAngle, eSweepAngle );
852
853     if (result) {
854         dc->CursPosX = GDI_ROUND( x + cos((eStartAngle+eSweepAngle)*M_PI/180) * dwRadius );
855         dc->CursPosY = GDI_ROUND( y - sin((eStartAngle+eSweepAngle)*M_PI/180) * dwRadius );
856     }
857     release_dc_ptr( dc );
858     return result;
859 }
860
861 /***********************************************************************
862  *      PolyDraw (GDI32.@)
863  */
864 BOOL WINAPI PolyDraw(HDC hdc, const POINT *lppt, const BYTE *lpbTypes,
865                        DWORD cCount)
866 {
867     DC *dc = get_dc_ptr( hdc );
868     PHYSDEV physdev;
869     BOOL result;
870
871     if(!dc) return FALSE;
872
873     update_dc( dc );
874     physdev = GET_DC_PHYSDEV( dc, pPolyDraw );
875     result = physdev->funcs->pPolyDraw( physdev, lppt, lpbTypes, cCount );
876     release_dc_ptr( dc );
877     return result;
878 }
879
880
881 /**********************************************************************
882  *           LineDDA   (GDI32.@)
883  */
884 BOOL WINAPI LineDDA(INT nXStart, INT nYStart, INT nXEnd, INT nYEnd,
885                     LINEDDAPROC callback, LPARAM lParam )
886 {
887     INT xadd = 1, yadd = 1;
888     INT err,erradd;
889     INT cnt;
890     INT dx = nXEnd - nXStart;
891     INT dy = nYEnd - nYStart;
892
893     if (dx < 0)
894     {
895         dx = -dx;
896         xadd = -1;
897     }
898     if (dy < 0)
899     {
900         dy = -dy;
901         yadd = -1;
902     }
903     if (dx > dy)  /* line is "more horizontal" */
904     {
905         err = 2*dy - dx; erradd = 2*dy - 2*dx;
906         for(cnt = 0;cnt < dx; cnt++)
907         {
908             callback(nXStart,nYStart,lParam);
909             if (err > 0)
910             {
911                 nYStart += yadd;
912                 err += erradd;
913             }
914             else err += 2*dy;
915             nXStart += xadd;
916         }
917     }
918     else   /* line is "more vertical" */
919     {
920         err = 2*dx - dy; erradd = 2*dx - 2*dy;
921         for(cnt = 0;cnt < dy; cnt++)
922         {
923             callback(nXStart,nYStart,lParam);
924             if (err > 0)
925             {
926                 nXStart += xadd;
927                 err += erradd;
928             }
929             else err += 2*dx;
930             nYStart += yadd;
931         }
932     }
933     return TRUE;
934 }
935
936
937 /******************************************************************
938  *
939  *   *Very* simple bezier drawing code,
940  *
941  *   It uses a recursive algorithm to divide the curve in a series
942  *   of straight line segments. Not ideal but sufficient for me.
943  *   If you are in need for something better look for some incremental
944  *   algorithm.
945  *
946  *   7 July 1998 Rein Klazes
947  */
948
949  /*
950   * some macro definitions for bezier drawing
951   *
952   * to avoid truncation errors the coordinates are
953   * shifted upwards. When used in drawing they are
954   * shifted down again, including correct rounding
955   * and avoiding floating point arithmetic
956   * 4 bits should allow 27 bits coordinates which I saw
957   * somewhere in the win32 doc's
958   *
959   */
960
961 #define BEZIERSHIFTBITS 4
962 #define BEZIERSHIFTUP(x)    ((x)<<BEZIERSHIFTBITS)
963 #define BEZIERPIXEL        BEZIERSHIFTUP(1)
964 #define BEZIERSHIFTDOWN(x)  (((x)+(1<<(BEZIERSHIFTBITS-1)))>>BEZIERSHIFTBITS)
965 /* maximum depth of recursion */
966 #define BEZIERMAXDEPTH  8
967
968 /* size of array to store points on */
969 /* enough for one curve */
970 #define BEZIER_INITBUFSIZE    (150)
971
972 /* calculate Bezier average, in this case the middle
973  * correctly rounded...
974  * */
975
976 #define BEZIERMIDDLE(Mid, P1, P2) \
977     (Mid).x=((P1).x+(P2).x + 1)/2;\
978     (Mid).y=((P1).y+(P2).y + 1)/2;
979
980 /**********************************************************
981 * BezierCheck helper function to check
982 * that recursion can be terminated
983 *       Points[0] and Points[3] are begin and endpoint
984 *       Points[1] and Points[2] are control points
985 *       level is the recursion depth
986 *       returns true if the recursion can be terminated
987 */
988 static BOOL BezierCheck( int level, POINT *Points)
989 {
990     INT dx, dy;
991     dx=Points[3].x-Points[0].x;
992     dy=Points[3].y-Points[0].y;
993     if(abs(dy)<=abs(dx)){/* shallow line */
994         /* check that control points are between begin and end */
995         if(Points[1].x < Points[0].x){
996             if(Points[1].x < Points[3].x)
997                 return FALSE;
998         }else
999             if(Points[1].x > Points[3].x)
1000                 return FALSE;
1001         if(Points[2].x < Points[0].x){
1002             if(Points[2].x < Points[3].x)
1003                 return FALSE;
1004         }else
1005             if(Points[2].x > Points[3].x)
1006                 return FALSE;
1007         dx=BEZIERSHIFTDOWN(dx);
1008         if(!dx) return TRUE;
1009         if(abs(Points[1].y-Points[0].y-(dy/dx)*
1010                 BEZIERSHIFTDOWN(Points[1].x-Points[0].x)) > BEZIERPIXEL ||
1011            abs(Points[2].y-Points[0].y-(dy/dx)*
1012                    BEZIERSHIFTDOWN(Points[2].x-Points[0].x)) > BEZIERPIXEL )
1013             return FALSE;
1014         else
1015             return TRUE;
1016     }else{ /* steep line */
1017         /* check that control points are between begin and end */
1018         if(Points[1].y < Points[0].y){
1019             if(Points[1].y < Points[3].y)
1020                 return FALSE;
1021         }else
1022             if(Points[1].y > Points[3].y)
1023                 return FALSE;
1024         if(Points[2].y < Points[0].y){
1025             if(Points[2].y < Points[3].y)
1026                 return FALSE;
1027         }else
1028             if(Points[2].y > Points[3].y)
1029                 return FALSE;
1030         dy=BEZIERSHIFTDOWN(dy);
1031         if(!dy) return TRUE;
1032         if(abs(Points[1].x-Points[0].x-(dx/dy)*
1033                 BEZIERSHIFTDOWN(Points[1].y-Points[0].y)) > BEZIERPIXEL ||
1034            abs(Points[2].x-Points[0].x-(dx/dy)*
1035                    BEZIERSHIFTDOWN(Points[2].y-Points[0].y)) > BEZIERPIXEL )
1036             return FALSE;
1037         else
1038             return TRUE;
1039     }
1040 }
1041
1042 /* Helper for GDI_Bezier.
1043  * Just handles one Bezier, so Points should point to four POINTs
1044  */
1045 static void GDI_InternalBezier( POINT *Points, POINT **PtsOut, INT *dwOut,
1046                                 INT *nPtsOut, INT level )
1047 {
1048     if(*nPtsOut == *dwOut) {
1049         *dwOut *= 2;
1050         *PtsOut = HeapReAlloc( GetProcessHeap(), 0, *PtsOut,
1051                                *dwOut * sizeof(POINT) );
1052     }
1053
1054     if(!level || BezierCheck(level, Points)) {
1055         if(*nPtsOut == 0) {
1056             (*PtsOut)[0].x = BEZIERSHIFTDOWN(Points[0].x);
1057             (*PtsOut)[0].y = BEZIERSHIFTDOWN(Points[0].y);
1058             *nPtsOut = 1;
1059         }
1060         (*PtsOut)[*nPtsOut].x = BEZIERSHIFTDOWN(Points[3].x);
1061         (*PtsOut)[*nPtsOut].y = BEZIERSHIFTDOWN(Points[3].y);
1062         (*nPtsOut) ++;
1063     } else {
1064         POINT Points2[4]; /* for the second recursive call */
1065         Points2[3]=Points[3];
1066         BEZIERMIDDLE(Points2[2], Points[2], Points[3]);
1067         BEZIERMIDDLE(Points2[0], Points[1], Points[2]);
1068         BEZIERMIDDLE(Points2[1],Points2[0],Points2[2]);
1069
1070         BEZIERMIDDLE(Points[1], Points[0],  Points[1]);
1071         BEZIERMIDDLE(Points[2], Points[1], Points2[0]);
1072         BEZIERMIDDLE(Points[3], Points[2], Points2[1]);
1073
1074         Points2[0]=Points[3];
1075
1076         /* do the two halves */
1077         GDI_InternalBezier(Points, PtsOut, dwOut, nPtsOut, level-1);
1078         GDI_InternalBezier(Points2, PtsOut, dwOut, nPtsOut, level-1);
1079     }
1080 }
1081
1082
1083
1084 /***********************************************************************
1085  *           GDI_Bezier   [INTERNAL]
1086  *   Calculate line segments that approximate -what microsoft calls- a bezier
1087  *   curve.
1088  *   The routine recursively divides the curve in two parts until a straight
1089  *   line can be drawn
1090  *
1091  *  PARAMS
1092  *
1093  *  Points  [I] Ptr to count POINTs which are the end and control points
1094  *              of the set of Bezier curves to flatten.
1095  *  count   [I] Number of Points.  Must be 3n+1.
1096  *  nPtsOut [O] Will contain no of points that have been produced (i.e. no. of
1097  *              lines+1).
1098  *
1099  *  RETURNS
1100  *
1101  *  Ptr to an array of POINTs that contain the lines that approximate the
1102  *  Beziers.  The array is allocated on the process heap and it is the caller's
1103  *  responsibility to HeapFree it. [this is not a particularly nice interface
1104  *  but since we can't know in advance how many points we will generate, the
1105  *  alternative would be to call the function twice, once to determine the size
1106  *  and a second time to do the work - I decided this was too much of a pain].
1107  */
1108 POINT *GDI_Bezier( const POINT *Points, INT count, INT *nPtsOut )
1109 {
1110     POINT *out;
1111     INT Bezier, dwOut = BEZIER_INITBUFSIZE, i;
1112
1113     if (count == 1 || (count - 1) % 3 != 0) {
1114         ERR("Invalid no. of points %d\n", count);
1115         return NULL;
1116     }
1117     *nPtsOut = 0;
1118     out = HeapAlloc( GetProcessHeap(), 0, dwOut * sizeof(POINT));
1119     for(Bezier = 0; Bezier < (count-1)/3; Bezier++) {
1120         POINT ptBuf[4];
1121         memcpy(ptBuf, Points + Bezier * 3, sizeof(POINT) * 4);
1122         for(i = 0; i < 4; i++) {
1123             ptBuf[i].x = BEZIERSHIFTUP(ptBuf[i].x);
1124             ptBuf[i].y = BEZIERSHIFTUP(ptBuf[i].y);
1125         }
1126         GDI_InternalBezier( ptBuf, &out, &dwOut, nPtsOut, BEZIERMAXDEPTH );
1127     }
1128     TRACE("Produced %d points\n", *nPtsOut);
1129     return out;
1130 }
1131
1132 /******************************************************************************
1133  *           GdiGradientFill   (GDI32.@)
1134  */
1135 BOOL WINAPI GdiGradientFill( HDC hdc, TRIVERTEX *vert_array, ULONG nvert,
1136                              void *grad_array, ULONG ngrad, ULONG mode )
1137 {
1138     DC *dc;
1139     PHYSDEV physdev;
1140     BOOL ret;
1141     ULONG i;
1142
1143     TRACE("%p vert_array:%p nvert:%d grad_array:%p ngrad:%d\n", hdc, vert_array, nvert, grad_array, ngrad);
1144
1145     if (!vert_array || !nvert || !grad_array || !ngrad || mode > GRADIENT_FILL_TRIANGLE)
1146     {
1147         SetLastError( ERROR_INVALID_PARAMETER );
1148         return FALSE;
1149     }
1150     for (i = 0; i < ngrad * (mode == GRADIENT_FILL_TRIANGLE ? 3 : 2); i++)
1151         if (((ULONG *)grad_array)[i] >= nvert) return FALSE;
1152
1153     if (!(dc = get_dc_ptr( hdc )))
1154     {
1155         SetLastError( ERROR_INVALID_PARAMETER );
1156         return FALSE;
1157     }
1158     update_dc( dc );
1159     physdev = GET_DC_PHYSDEV( dc, pGradientFill );
1160     ret = physdev->funcs->pGradientFill( physdev, vert_array, nvert, grad_array, ngrad, mode );
1161     release_dc_ptr( dc );
1162     return ret;
1163 }
1164
1165 /******************************************************************************
1166  *           GdiDrawStream   (GDI32.@)
1167  *
1168  */
1169 BOOL WINAPI GdiDrawStream( HDC hdc, ULONG in, void * pvin )
1170 {
1171     FIXME("stub: %p, %d, %p\n", hdc, in, pvin);
1172     return FALSE;
1173 }