Fixed CoerceDIBSection's AuxMod handling. Added CoerceDIBSection2.
[wine] / graphics / metafiledrv / graphics.c
1 /*
2  * Metafile driver graphics functions
3  *
4  * Copyright 1993, 1994 Alexandre Julliard
5  */
6
7 #include <stdlib.h>
8 #include <string.h>
9
10 #include "gdi.h"
11 #include "region.h"
12 #include "metafiledrv.h"
13 #include "heap.h"
14 #include "debugtools.h"
15
16 DEFAULT_DEBUG_CHANNEL(metafile);
17
18 /**********************************************************************
19  *           MFDRV_MoveTo
20  */
21 BOOL
22 MFDRV_MoveTo(DC *dc, INT x, INT y)
23 {
24     return MFDRV_MetaParam2(dc,META_MOVETO,x,y);
25 }
26
27 /***********************************************************************
28  *           MFDRV_LineTo
29  */
30 BOOL
31 MFDRV_LineTo( DC *dc, INT x, INT y )
32 {
33      return MFDRV_MetaParam2(dc, META_LINETO, x, y);
34 }
35
36
37 /***********************************************************************
38  *           MFDRV_Arc
39  */
40 BOOL 
41 MFDRV_Arc( DC *dc, INT left, INT top, INT right, INT bottom,
42            INT xstart, INT ystart, INT xend, INT yend )
43 {
44      return MFDRV_MetaParam8(dc, META_ARC, left, top, right, bottom,
45                              xstart, ystart, xend, yend);
46 }
47
48
49 /***********************************************************************
50  *           MFDRV_Pie
51  */
52 BOOL
53 MFDRV_Pie( DC *dc, INT left, INT top, INT right, INT bottom,
54            INT xstart, INT ystart, INT xend, INT yend )
55 {
56     return MFDRV_MetaParam8(dc, META_PIE, left, top, right, bottom,
57                             xstart, ystart, xend, yend);
58 }
59
60
61 /***********************************************************************
62  *           MFDRV_Chord
63  */
64 BOOL
65 MFDRV_Chord( DC *dc, INT left, INT top, INT right, INT bottom,
66              INT xstart, INT ystart, INT xend, INT yend )
67 {
68     return MFDRV_MetaParam8(dc, META_CHORD, left, top, right, bottom,
69                             xstart, ystart, xend, yend);
70 }
71
72 /***********************************************************************
73  *           MFDRV_Ellipse
74  */
75 BOOL
76 MFDRV_Ellipse( DC *dc, INT left, INT top, INT right, INT bottom )
77 {
78     return MFDRV_MetaParam4(dc, META_ELLIPSE, left, top, right, bottom);
79 }
80
81 /***********************************************************************
82  *           MFDRV_Rectangle
83  */
84 BOOL
85 MFDRV_Rectangle(DC *dc, INT left, INT top, INT right, INT bottom)
86 {
87     return MFDRV_MetaParam4(dc, META_RECTANGLE, left, top, right, bottom);
88 }
89
90 /***********************************************************************
91  *           MFDRV_RoundRect
92  */
93 BOOL 
94 MFDRV_RoundRect( DC *dc, INT left, INT top, INT right,
95                  INT bottom, INT ell_width, INT ell_height )
96 {
97     return MFDRV_MetaParam6(dc, META_ROUNDRECT, left, top, right, bottom,
98                             ell_width, ell_height);
99 }
100
101 /***********************************************************************
102  *           MFDRV_SetPixel
103  */
104 COLORREF
105 MFDRV_SetPixel( DC *dc, INT x, INT y, COLORREF color )
106 {
107     return MFDRV_MetaParam4(dc, META_SETPIXEL, x, y,HIWORD(color),
108                             LOWORD(color)); 
109 }
110
111
112 /******************************************************************
113  *         MFDRV_MetaPoly - implements Polygon and Polyline
114  */
115 static BOOL MFDRV_MetaPoly(DC *dc, short func, LPPOINT16 pt, short count)
116 {
117     BOOL ret;
118     DWORD len;
119     METARECORD *mr;
120
121     len = sizeof(METARECORD) + (count * 4); 
122     if (!(mr = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, len )))
123         return FALSE;
124
125     mr->rdSize = len / 2;
126     mr->rdFunction = func;
127     *(mr->rdParm) = count;
128     memcpy(mr->rdParm + 1, pt, count * 4);
129     ret = MFDRV_WriteRecord( dc, mr, mr->rdSize * 2);
130     HeapFree( GetProcessHeap(), 0, mr);
131     return ret;
132 }
133
134
135 /**********************************************************************
136  *          MFDRV_Polyline
137  */
138 BOOL
139 MFDRV_Polyline( DC *dc, const POINT* pt, INT count )
140 {
141     register int i;
142     LPPOINT16   pt16;
143     BOOL16      ret;
144
145     pt16 = (LPPOINT16)HeapAlloc( GetProcessHeap(), 0, sizeof(POINT16)*count );
146     if(!pt16) return FALSE;
147     for (i=count;i--;) CONV_POINT32TO16(&(pt[i]),&(pt16[i]));
148     ret = MFDRV_MetaPoly(dc, META_POLYLINE, pt16, count); 
149
150     HeapFree( GetProcessHeap(), 0, pt16 );
151     return ret;
152 }
153
154
155 /**********************************************************************
156  *          MFDRV_Polygon
157  */
158 BOOL
159 MFDRV_Polygon( DC *dc, const POINT* pt, INT count )
160 {
161     register int i;
162     LPPOINT16   pt16;
163     BOOL16      ret;
164
165     pt16 = (LPPOINT16) HeapAlloc( GetProcessHeap(), 0, sizeof(POINT16)*count );
166     if(!pt16) return FALSE;
167     for (i=count;i--;) CONV_POINT32TO16(&(pt[i]),&(pt16[i]));
168     ret = MFDRV_MetaPoly(dc, META_POLYGON, pt16, count); 
169
170     HeapFree( GetProcessHeap(), 0, pt16 );
171     return ret;
172 }
173
174
175 /**********************************************************************
176  *          MFDRV_PolyPolygon
177  */
178 BOOL 
179 MFDRV_PolyPolygon( DC *dc, const POINT* pt, const INT* counts, UINT polygons)
180 {
181     int         i,j;
182     LPPOINT16   pt16;
183     const POINT* curpt=pt;
184     BOOL        ret;
185
186     for (i=0;i<polygons;i++) {
187         pt16=(LPPOINT16)HeapAlloc( GetProcessHeap(), 0, 
188                                    sizeof(POINT16) * counts[i] );
189         if(!pt16) return FALSE;
190         for (j=counts[i];j--;) CONV_POINT32TO16(&(curpt[j]),&(pt16[j]));
191         ret = MFDRV_MetaPoly(dc, META_POLYGON, pt16, counts[i]);
192         HeapFree( GetProcessHeap(), 0, pt16 );
193         if (!ret)
194             return FALSE;
195         curpt+=counts[i];
196     }
197     return TRUE;
198 }
199
200
201 /**********************************************************************
202  *          MFDRV_ExtFloodFill
203  */
204 BOOL 
205 MFDRV_ExtFloodFill( DC *dc, INT x, INT y, COLORREF color, UINT fillType )
206 {
207     return MFDRV_MetaParam4(dc,META_FLOODFILL,x,y,HIWORD(color),
208                             LOWORD(color)); 
209 }
210
211
212 /******************************************************************
213  *         MFDRV_CreateRegion
214  *
215  * For explanation of the format of the record see MF_Play_MetaCreateRegion in
216  * objects/metafile.c 
217  */
218 static INT16 MFDRV_CreateRegion(DC *dc, HRGN hrgn)
219 {
220     DWORD len;
221     METARECORD *mr;
222     RGNDATA *rgndata;
223     RECT *pCurRect, *pEndRect;
224     WORD Bands = 0, MaxBands = 0;
225     WORD *Param, *StartBand;
226     BOOL ret;
227
228     len = GetRegionData( hrgn, 0, NULL );
229     if( !(rgndata = HeapAlloc( GetProcessHeap(), 0, len )) ) {
230         WARN("Can't alloc rgndata buffer\n");
231         return -1;
232     }
233     GetRegionData( hrgn, len, rgndata );
234
235     /* Overestimate of length:
236      * Assume every rect is a separate band -> 6 WORDs per rect
237      */
238     len = sizeof(METARECORD) + 20 + (rgndata->rdh.nCount * 12);
239     if( !(mr = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, len )) ) {
240         WARN("Can't alloc METARECORD buffer\n");
241         HeapFree( GetProcessHeap(), 0, rgndata );
242         return -1;
243     }
244
245     Param = mr->rdParm + 11;
246     StartBand = NULL;
247
248     pEndRect = (RECT *)rgndata->Buffer + rgndata->rdh.nCount;
249     for(pCurRect = (RECT *)rgndata->Buffer; pCurRect < pEndRect; pCurRect++)
250     {
251         if( StartBand && pCurRect->top == *(StartBand + 1) )
252         {
253             *Param++ = pCurRect->left;
254             *Param++ = pCurRect->right;
255         }
256         else
257         {
258             if(StartBand)
259             {
260                 *StartBand = Param - StartBand - 3;
261                 *Param++ = *StartBand;
262                 if(*StartBand > MaxBands)
263                     MaxBands = *StartBand;
264                 Bands++;
265             }
266             StartBand = Param++;
267             *Param++ = pCurRect->top;
268             *Param++ = pCurRect->bottom;
269             *Param++ = pCurRect->left;
270             *Param++ = pCurRect->right;
271         }
272     }
273     len = Param - (WORD *)mr;
274     
275     mr->rdParm[0] = 0;
276     mr->rdParm[1] = 6;
277     mr->rdParm[2] = 0x1234;
278     mr->rdParm[3] = 0;
279     mr->rdParm[4] = len * 2;
280     mr->rdParm[5] = Bands;
281     mr->rdParm[6] = MaxBands;
282     mr->rdParm[7] = rgndata->rdh.rcBound.left;
283     mr->rdParm[8] = rgndata->rdh.rcBound.top;
284     mr->rdParm[9] = rgndata->rdh.rcBound.right;
285     mr->rdParm[10] = rgndata->rdh.rcBound.bottom;
286     mr->rdFunction = META_CREATEREGION;
287     mr->rdSize = len / 2;
288     ret = MFDRV_WriteRecord( dc, mr, mr->rdSize * 2 );  
289     HeapFree( GetProcessHeap(), 0, mr );
290     HeapFree( GetProcessHeap(), 0, rgndata );
291     if(!ret) 
292     {
293         WARN("MFDRV_WriteRecord failed\n");
294         return -1;
295     }
296     return MFDRV_AddHandleDC( dc );
297 }
298
299
300 /**********************************************************************
301  *          MFDRV_PaintRgn
302  */
303 BOOL
304 MFDRV_PaintRgn( DC *dc, HRGN hrgn )
305 {
306     INT16 index;
307     index = MFDRV_CreateRegion( dc, hrgn );
308     if(index == -1)
309         return FALSE;
310     return MFDRV_MetaParam1( dc, META_PAINTREGION, index );
311 }
312
313
314 /**********************************************************************
315  *          MFDRV_InvertRgn
316  */
317 BOOL
318 MFDRV_InvertRgn( DC *dc, HRGN hrgn )
319 {
320     INT16 index;
321     index = MFDRV_CreateRegion( dc, hrgn );
322     if(index == -1)
323         return FALSE;
324     return MFDRV_MetaParam1( dc, META_INVERTREGION, index );
325 }
326
327
328 /**********************************************************************
329  *          MFDRV_FillRgn
330  */
331 BOOL
332 MFDRV_FillRgn( DC *dc, HRGN hrgn, HBRUSH hbrush )
333 {
334     INT16 iRgn, iBrush;
335     iRgn = MFDRV_CreateRegion( dc, hrgn );
336     if(iRgn == -1)
337         return FALSE;
338     iBrush = MFDRV_CreateBrushIndirect( dc, hbrush );
339     if(iBrush == -1)
340         return FALSE;
341     return MFDRV_MetaParam2( dc, META_FILLREGION, iRgn, iBrush );
342 }
343
344 /**********************************************************************
345  *          MFDRV_FrameRgn
346  */
347 BOOL
348 MFDRV_FrameRgn( DC *dc, HRGN hrgn, HBRUSH hbrush, INT x, INT y )
349 {
350     INT16 iRgn, iBrush;
351     iRgn = MFDRV_CreateRegion( dc, hrgn );
352     if(iRgn == -1)
353         return FALSE;
354     iBrush = MFDRV_CreateBrushIndirect( dc, hbrush );
355     if(iBrush == -1)
356         return FALSE;
357     return MFDRV_MetaParam4( dc, META_FRAMEREGION, iRgn, iBrush, x, y );
358 }
359
360
361 /**********************************************************************
362  *          MFDRV_SetBkColor
363  */
364 COLORREF
365 MFDRV_SetBkColor( DC *dc, COLORREF color )
366 {
367     return MFDRV_MetaParam2(dc, META_SETBKCOLOR, HIWORD(color), LOWORD(color));
368 }
369
370
371 /**********************************************************************
372  *          MFDRV_SetTextColor
373  */
374 COLORREF
375 MFDRV_SetTextColor( DC *dc, COLORREF color )
376 {
377     return MFDRV_MetaParam2(dc, META_SETTEXTCOLOR, HIWORD(color),
378                             LOWORD(color));
379 }
380
381
382 /**********************************************************************
383  *          MFDRV_PolyBezier
384  * Since MetaFiles don't record Beziers and they don't even record
385  * approximations to them using lines, we need this stub function.
386  */
387 BOOL
388 MFDRV_PolyBezier( DC *dc, const POINT *pts, DWORD count )
389 {
390     return FALSE;
391 }
392
393 /**********************************************************************
394  *          MFDRV_PolyBezierTo
395  * Since MetaFiles don't record Beziers and they don't even record
396  * approximations to them using lines, we need this stub function.
397  */
398 BOOL
399 MFDRV_PolyBezierTo( DC *dc, const POINT *pts, DWORD count )
400 {
401     return FALSE;
402 }