jscript: Use bytecode for '|=' expression.
[wine] / dlls / gdi32 / dibdrv / bitblt.c
1 /*
2  * DIB driver blitting
3  *
4  * Copyright 2011 Huw Davies
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include <assert.h>
22
23 #include "gdi_private.h"
24 #include "dibdrv.h"
25
26 #include "wine/debug.h"
27
28 WINE_DEFAULT_DEBUG_CHANNEL(dib);
29
30 #define DST 0   /* Destination dib */
31 #define SRC 1   /* Source dib */
32 #define TMP 2   /* Temporary dib */
33 #define PAT 3   /* Pattern (brush) in destination DC */
34
35 #define OP(src,dst,rop)   (OP_ARGS(src,dst) << 4 | ((rop) - 1))
36 #define OP_ARGS(src,dst)  (((src) << 2) | (dst))
37
38 #define OP_SRC(opcode)    ((opcode) >> 6)
39 #define OP_DST(opcode)    (((opcode) >> 4) & 3)
40 #define OP_SRCDST(opcode) ((opcode) >> 4)
41 #define OP_ROP(opcode)    (((opcode) & 0x0f) + 1)
42
43 #define MAX_OP_LEN  6  /* Longest opcode + 1 for the terminating 0 */
44
45 static const unsigned char BITBLT_Opcodes[256][MAX_OP_LEN] =
46 {
47     { OP(PAT,DST,R2_BLACK) },                                       /* 0x00  0              */
48     { OP(PAT,SRC,R2_MERGEPEN), OP(SRC,DST,R2_NOTMERGEPEN) },        /* 0x01  ~(D|(P|S))     */
49     { OP(PAT,SRC,R2_NOTMERGEPEN), OP(SRC,DST,R2_MASKPEN) },         /* 0x02  D&~(P|S)       */
50     { OP(PAT,SRC,R2_NOTMERGEPEN) },                                 /* 0x03  ~(P|S)         */
51     { OP(PAT,DST,R2_NOTMERGEPEN), OP(SRC,DST,R2_MASKPEN) },         /* 0x04  S&~(D|P)       */
52     { OP(PAT,DST,R2_NOTMERGEPEN) },                                 /* 0x05  ~(D|P)         */
53     { OP(SRC,DST,R2_NOTXORPEN), OP(PAT,DST,R2_NOTMERGEPEN), },      /* 0x06  ~(P|~(D^S))    */
54     { OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_NOTMERGEPEN) },         /* 0x07  ~(P|(D&S))     */
55     { OP(PAT,DST,R2_MASKNOTPEN), OP(SRC,DST,R2_MASKPEN) },          /* 0x08  S&D&~P         */
56     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_NOTMERGEPEN) },          /* 0x09  ~(P|(D^S))     */
57     { OP(PAT,DST,R2_MASKNOTPEN) },                                  /* 0x0a  D&~P           */
58     { OP(SRC,DST,R2_MASKPENNOT), OP(PAT,DST,R2_NOTMERGEPEN) },      /* 0x0b  ~(P|(S&~D))    */
59     { OP(PAT,SRC,R2_MASKNOTPEN) },                                  /* 0x0c  S&~P           */
60     { OP(SRC,DST,R2_MASKNOTPEN), OP(PAT,DST,R2_NOTMERGEPEN) },      /* 0x0d  ~(P|(D&~S))    */
61     { OP(SRC,DST,R2_NOTMERGEPEN), OP(PAT,DST,R2_NOTMERGEPEN) },     /* 0x0e  ~(P|~(D|S))    */
62     { OP(PAT,DST,R2_NOTCOPYPEN) },                                  /* 0x0f  ~P             */
63     { OP(SRC,DST,R2_NOTMERGEPEN), OP(PAT,DST,R2_MASKPEN) },         /* 0x10  P&~(S|D)       */
64     { OP(SRC,DST,R2_NOTMERGEPEN) },                                 /* 0x11  ~(D|S)         */
65     { OP(PAT,DST,R2_NOTXORPEN), OP(SRC,DST,R2_NOTMERGEPEN) },       /* 0x12  ~(S|~(D^P))    */
66     { OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_NOTMERGEPEN) },         /* 0x13  ~(S|(D&P))     */
67     { OP(PAT,SRC,R2_NOTXORPEN), OP(SRC,DST,R2_NOTMERGEPEN) },       /* 0x14  ~(D|~(P^S))    */
68     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_NOTMERGEPEN) },         /* 0x15  ~(D|(P&S))     */
69     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_NOTMASKPEN),
70       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN),
71       OP(PAT,DST,R2_XORPEN) },                                      /* 0x16  P^S^(D&~(P&S)  */
72     { OP(SRC,TMP,R2_COPYPEN), OP(SRC,DST,R2_XORPEN),
73       OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
74       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0x17 ~S^((S^P)&(S^D))*/
75     { OP(PAT,SRC,R2_XORPEN), OP(PAT,DST,R2_XORPEN),
76         OP(SRC,DST,R2_MASKPEN) },                                   /* 0x18  (S^P)&(D^P)    */
77     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_NOTMASKPEN),
78       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_NOTXORPEN) },           /* 0x19  ~S^(D&~(P&S))  */
79     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_MERGEPEN),
80       OP(PAT,DST,R2_XORPEN) },                                      /* 0x1a  P^(D|(S&P))    */
81     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_XORPEN),
82       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_NOTXORPEN) },           /* 0x1b  ~S^(D&(P^S))   */
83     { OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_MERGEPEN),
84       OP(PAT,DST,R2_XORPEN) },                                      /* 0x1c  P^(S|(D&P))    */
85     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_XORPEN),
86       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_NOTXORPEN) },           /* 0x1d  ~D^(S&(D^P))   */
87     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_XORPEN) },             /* 0x1e  P^(D|S)        */
88     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_NOTMASKPEN) },         /* 0x1f  ~(P&(D|S))     */
89     { OP(PAT,SRC,R2_MASKPENNOT), OP(SRC,DST,R2_MASKPEN) },          /* 0x20  D&(P&~S)       */
90     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_NOTMERGEPEN) },          /* 0x21  ~(S|(D^P))     */
91     { OP(SRC,DST,R2_MASKNOTPEN) },                                  /* 0x22  ~S&D           */
92     { OP(PAT,DST,R2_MASKPENNOT), OP(SRC,DST,R2_NOTMERGEPEN) },      /* 0x23  ~(S|(P&~D))    */
93     { OP(SRC,DST,R2_XORPEN), OP(PAT,SRC,R2_XORPEN),
94       OP(SRC,DST,R2_MASKPEN) },                                     /* 0x24   (S^P)&(S^D)   */
95     { OP(PAT,SRC,R2_NOTMASKPEN), OP(SRC,DST,R2_MASKPEN),
96       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0x25  ~P^(D&~(S&P))  */
97     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MASKPEN),
98       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN) },             /* 0x26  S^(D|(S&P))    */
99     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_NOTXORPEN),
100       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN) },             /* 0x27  S^(D|~(P^S))   */
101     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MASKPEN) },              /* 0x28  D&(P^S)        */
102     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MASKPEN),
103       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN),
104       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0x29  ~P^S^(D|(P&S)) */
105     { OP(PAT,SRC,R2_NOTMASKPEN), OP(SRC,DST,R2_MASKPEN) },          /* 0x2a  D&~(P&S)       */
106     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_XORPEN),
107       OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
108       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0x2b ~S^((P^S)&(P^D))*/
109     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_MASKPEN),
110       OP(SRC,DST,R2_XORPEN) },                                      /* 0x2c  S^(P&(S|D))    */
111     { OP(SRC,DST,R2_MERGEPENNOT), OP(PAT,DST,R2_XORPEN) },          /* 0x2d  P^(S|~D)       */
112     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN),
113       OP(PAT,DST,R2_XORPEN) },                                      /* 0x2e  P^(S|(D^P))    */
114     { OP(SRC,DST,R2_MERGEPENNOT), OP(PAT,DST,R2_NOTMASKPEN) },      /* 0x2f  ~(P&(S|~D))    */
115     { OP(PAT,SRC,R2_MASKPENNOT) },                                  /* 0x30  P&~S           */
116     { OP(PAT,DST,R2_MASKNOTPEN), OP(SRC,DST,R2_NOTMERGEPEN) },      /* 0x31  ~(S|(D&~P))    */
117     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_MERGEPEN),
118       OP(SRC,DST,R2_XORPEN) },                                      /* 0x32  S^(D|P|S)      */
119     { OP(SRC,DST,R2_NOTCOPYPEN) },                                  /* 0x33  ~S             */
120     { OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_MERGEPEN),
121       OP(SRC,DST,R2_XORPEN) },                                      /* 0x34  S^(P|(D&S))    */
122     { OP(SRC,DST,R2_NOTXORPEN), OP(PAT,DST,R2_MERGEPEN),
123       OP(SRC,DST,R2_XORPEN) },                                      /* 0x35  S^(P|~(D^S))   */
124     { OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_XORPEN) },             /* 0x36  S^(D|P)        */
125     { OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_NOTMASKPEN) },         /* 0x37  ~(S&(D|P))     */
126     { OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_MASKPEN),
127       OP(PAT,DST,R2_XORPEN) },                                      /* 0x38  P^(S&(D|P))    */
128     { OP(PAT,DST,R2_MERGEPENNOT), OP(SRC,DST,R2_XORPEN) },          /* 0x39  S^(P|~D)       */
129     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_MERGEPEN),
130       OP(SRC,DST,R2_XORPEN) },                                      /* 0x3a  S^(P|(D^S))    */
131     { OP(PAT,DST,R2_MERGEPENNOT), OP(SRC,DST,R2_NOTMASKPEN) },      /* 0x3b  ~(S&(P|~D))    */
132     { OP(PAT,SRC,R2_XORPEN) },                                      /* 0x3c  P^S            */
133     { OP(SRC,DST,R2_NOTMERGEPEN), OP(PAT,DST,R2_MERGEPEN),
134       OP(SRC,DST,R2_XORPEN) },                                      /* 0x3d  S^(P|~(D|S))   */
135     { OP(SRC,DST,R2_MASKNOTPEN), OP(PAT,DST,R2_MERGEPEN),
136       OP(SRC,DST,R2_XORPEN) },                                      /* 0x3e  S^(P|(D&~S))   */
137     { OP(PAT,SRC,R2_NOTMASKPEN) },                                  /* 0x3f  ~(P&S)         */
138     { OP(SRC,DST,R2_MASKPENNOT), OP(PAT,DST,R2_MASKPEN) },          /* 0x40  P&S&~D         */
139     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_NOTMERGEPEN) },          /* 0x41  ~(D|(P^S))     */
140     { OP(DST,SRC,R2_XORPEN), OP(PAT,DST,R2_XORPEN),
141       OP(SRC,DST,R2_MASKPEN) },                                     /* 0x42  (S^D)&(P^D)    */
142     { OP(SRC,DST,R2_NOTMASKPEN), OP(PAT,DST,R2_MASKPEN),
143       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0x43  ~S^(P&~(D&S))  */
144     { OP(SRC,DST,R2_MASKPENNOT) },                                  /* 0x44  S&~D           */
145     { OP(PAT,SRC,R2_MASKPENNOT), OP(SRC,DST,R2_NOTMERGEPEN) },      /* 0x45  ~(D|(P&~S))    */
146     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MASKPEN),
147       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN) },             /* 0x46  D^(S|(P&D))    */
148     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
149       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0x47  ~P^(S&(D^P))   */
150     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MASKPEN) },              /* 0x48  S&(P^D)        */
151     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MASKPEN),
152       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN),
153       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0x49  ~P^D^(S|(P&D)) */
154     { OP(DST,SRC,R2_MERGEPEN), OP(PAT,SRC,R2_MASKPEN),
155       OP(SRC,DST,R2_XORPEN) },                                      /* 0x4a  D^(P&(S|D))    */
156     { OP(SRC,DST,R2_MERGENOTPEN), OP(PAT,DST,R2_XORPEN) },          /* 0x4b  P^(D|~S)       */
157     { OP(PAT,DST,R2_NOTMASKPEN), OP(SRC,DST,R2_MASKPEN) },          /* 0x4c  S&~(D&P)       */
158     { OP(SRC,TMP,R2_COPYPEN), OP(SRC,DST,R2_XORPEN),
159       OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN),
160       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0x4d ~S^((S^P)|(S^D))*/
161     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN),
162       OP(PAT,DST,R2_XORPEN) },                                      /* 0x4e  P^(D|(S^P))    */
163     { OP(SRC,DST,R2_MERGENOTPEN), OP(PAT,DST,R2_NOTMASKPEN) },      /* 0x4f  ~(P&(D|~S))    */
164     { OP(PAT,DST,R2_MASKPENNOT) },                                  /* 0x50  P&~D           */
165     { OP(PAT,SRC,R2_MASKNOTPEN), OP(SRC,DST,R2_NOTMERGEPEN) },      /* 0x51  ~(D|(S&~P))    */
166     { OP(DST,SRC,R2_MASKPEN), OP(PAT,SRC,R2_MERGEPEN),
167       OP(SRC,DST,R2_XORPEN) },                                      /* 0x52  D^(P|(S&D))    */
168     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_MASKPEN),
169       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0x53  ~S^(P&(D^S))   */
170     { OP(PAT,SRC,R2_NOTMERGEPEN), OP(SRC,DST,R2_NOTMERGEPEN) },     /* 0x54  ~(D|~(P|S))    */
171     { OP(PAT,DST,R2_NOT) },                                         /* 0x55  ~D             */
172     { OP(PAT,SRC,R2_MERGEPEN), OP(SRC,DST,R2_XORPEN) },             /* 0x56  D^(P|S)        */
173     { OP(PAT,SRC,R2_MERGEPEN), OP(SRC,DST,R2_NOTMASKPEN) },         /* 0x57  ~(D&(P|S))     */
174     { OP(PAT,SRC,R2_MERGEPEN), OP(SRC,DST,R2_MASKPEN),
175       OP(PAT,DST,R2_XORPEN) },                                      /* 0x58  P^(D&(P|S))    */
176     { OP(PAT,SRC,R2_MERGEPENNOT), OP(SRC,DST,R2_XORPEN) },          /* 0x59  D^(P|~S)       */
177     { OP(PAT,DST,R2_XORPEN) },                                      /* 0x5a  D^P            */
178     { OP(DST,SRC,R2_NOTMERGEPEN), OP(PAT,SRC,R2_MERGEPEN),
179       OP(SRC,DST,R2_XORPEN) },                                      /* 0x5b  D^(P|~(S|D))   */
180     { OP(DST,SRC,R2_XORPEN), OP(PAT,SRC,R2_MERGEPEN),
181       OP(SRC,DST,R2_XORPEN) },                                      /* 0x5c  D^(P|(S^D))    */
182     { OP(PAT,SRC,R2_MERGEPENNOT), OP(SRC,DST,R2_NOTMASKPEN) },      /* 0x5d  ~(D&(P|~S))    */
183     { OP(DST,SRC,R2_MASKNOTPEN), OP(PAT,SRC,R2_MERGEPEN),
184       OP(SRC,DST,R2_XORPEN) },                                      /* 0x5e  D^(P|(S&~D))   */
185     { OP(PAT,DST,R2_NOTMASKPEN) },                                  /* 0x5f  ~(D&P)         */
186     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_MASKPEN) },              /* 0x60  P&(D^S)        */
187     { OP(DST,TMP,R2_COPYPEN), OP(SRC,DST,R2_MASKPEN),
188       OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_XORPEN),
189       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0x61  ~D^S^(P|(D&S)) */
190     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MERGEPEN),
191       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN) },              /* 0x62  D^(S&(P|D))    */
192     { OP(PAT,DST,R2_MERGENOTPEN), OP(SRC,DST,R2_XORPEN) },          /* 0x63  S^(D|~P)       */
193     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MERGEPEN),
194       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN) },              /* 0x64  S^(D&(P|S))    */
195     { OP(PAT,SRC,R2_MERGENOTPEN), OP(SRC,DST,R2_XORPEN) },          /* 0x65  D^(S|~P)       */
196     { OP(SRC,DST,R2_XORPEN) },                                      /* 0x66  S^D            */
197     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_NOTMERGEPEN),
198       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN) },             /* 0x67  S^(D|~(S|P)    */
199     { OP(DST,TMP,R2_COPYPEN), OP(SRC,DST,R2_NOTMERGEPEN),
200       OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_XORPEN),
201       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0x68  ~D^S^(P|~(D|S))*/
202     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_NOTXORPEN) },            /* 0x69  ~P^(D^S)       */
203     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_XORPEN) },              /* 0x6a  D^(P&S)        */
204     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MERGEPEN),
205       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN),
206       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0x6b  ~P^S^(D&(P|S)) */
207     { OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_XORPEN) },              /* 0x6c  S^(D&P)        */
208     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MERGEPEN),
209       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN),
210       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0x6d  ~P^D^(S&(P|D)) */
211     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MERGEPENNOT),
212       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN) },              /* 0x6e  S^(D&(P|~S))   */
213     { OP(SRC,DST,R2_NOTXORPEN), OP(PAT,DST,R2_NOTMASKPEN) },        /* 0x6f  ~(P&~(S^D))    */
214     { OP(SRC,DST,R2_NOTMASKPEN), OP(PAT,DST,R2_MASKPEN) },          /* 0x70  P&~(D&S)       */
215     { OP(SRC,TMP,R2_COPYPEN), OP(DST,SRC,R2_XORPEN),
216       OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
217       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0x71 ~S^((S^D)&(P^D))*/
218     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_XORPEN),
219       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN) },             /* 0x72  S^(D|(P^S))    */
220     { OP(PAT,DST,R2_MERGENOTPEN), OP(SRC,DST,R2_NOTMASKPEN) },      /* 0x73  ~(S&(D|~P))    */
221     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_XORPEN),
222       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN) },             /* 0x74   D^(S|(P^D))   */
223     { OP(PAT,SRC,R2_MERGENOTPEN), OP(SRC,DST,R2_NOTMASKPEN) },      /* 0x75  ~(D&(S|~P))    */
224     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MASKPENNOT),
225       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_XORPEN) },             /* 0x76  S^(D|(P&~S))   */
226     { OP(SRC,DST,R2_NOTMASKPEN) },                                  /* 0x77  ~(S&D)         */
227     { OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_XORPEN) },              /* 0x78  P^(D&S)        */
228     { OP(DST,TMP,R2_COPYPEN), OP(SRC,DST,R2_MERGEPEN),
229       OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_XORPEN),
230       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0x79  ~D^S^(P&(D|S)) */
231     { OP(DST,SRC,R2_MERGENOTPEN), OP(PAT,SRC,R2_MASKPEN),
232       OP(SRC,DST,R2_XORPEN) },                                      /* 0x7a  D^(P&(S|~D))   */
233     { OP(PAT,DST,R2_NOTXORPEN), OP(SRC,DST,R2_NOTMASKPEN) },        /* 0x7b  ~(S&~(D^P))    */
234     { OP(SRC,DST,R2_MERGENOTPEN), OP(PAT,DST,R2_MASKPEN),
235       OP(SRC,DST,R2_XORPEN) },                                      /* 0x7c  S^(P&(D|~S))   */
236     { OP(PAT,SRC,R2_NOTXORPEN), OP(SRC,DST,R2_NOTMASKPEN) },        /* 0x7d  ~(D&~(P^S))    */
237     { OP(SRC,DST,R2_XORPEN), OP(PAT,SRC,R2_XORPEN),
238       OP(SRC,DST,R2_MERGEPEN) },                                    /* 0x7e  (S^P)|(S^D)    */
239     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_NOTMASKPEN) },          /* 0x7f  ~(D&P&S)       */
240     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_MASKPEN) },             /* 0x80  D&P&S          */
241     { OP(SRC,DST,R2_XORPEN), OP(PAT,SRC,R2_XORPEN),
242       OP(SRC,DST,R2_NOTMERGEPEN) },                                 /* 0x81  ~((S^P)|(S^D)) */
243     { OP(PAT,SRC,R2_NOTXORPEN), OP(SRC,DST,R2_MASKPEN) },           /* 0x82  D&~(P^S)       */
244     { OP(SRC,DST,R2_MERGENOTPEN), OP(PAT,DST,R2_MASKPEN),
245       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0x83  ~S^(P&(D|~S))  */
246     { OP(PAT,DST,R2_NOTXORPEN), OP(SRC,DST,R2_MASKPEN) },           /* 0x84  S&~(D^P)       */
247     { OP(PAT,SRC,R2_MERGENOTPEN), OP(SRC,DST,R2_MASKPEN),
248       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0x85  ~P^(D&(S|~P))  */
249     { OP(DST,TMP,R2_COPYPEN), OP(SRC,DST,R2_MERGEPEN),
250       OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_XORPEN),
251       OP(TMP,DST,R2_XORPEN) },                                      /* 0x86  D^S^(P&(D|S))  */
252     { OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_NOTXORPEN) },           /* 0x87  ~P^(D&S)       */
253     { OP(SRC,DST,R2_MASKPEN) },                                     /* 0x88  S&D            */
254     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MASKPENNOT),
255       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_NOTXORPEN) },          /* 0x89  ~S^(D|(P&~S))  */
256     { OP(PAT,SRC,R2_MERGENOTPEN), OP(SRC,DST,R2_MASKPEN) },         /* 0x8a  D&(S|~P)       */
257     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_XORPEN),
258       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_NOTXORPEN) },          /* 0x8b  ~D^(S|(P^D))   */
259     { OP(PAT,DST,R2_MERGENOTPEN), OP(SRC,DST,R2_MASKPEN) },         /* 0x8c  S&(D|~P)       */
260     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_XORPEN),
261       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_NOTXORPEN) },          /* 0x8d  ~S^(D|(P^S))   */
262     { OP(SRC,TMP,R2_COPYPEN), OP(DST,SRC,R2_XORPEN),
263       OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
264       OP(TMP,DST,R2_XORPEN) },                                      /* 0x8e  S^((S^D)&(P^D))*/
265     { OP(SRC,DST,R2_NOTMASKPEN), OP(PAT,DST,R2_NOTMASKPEN) },       /* 0x8f  ~(P&~(D&S))    */
266     { OP(SRC,DST,R2_NOTXORPEN), OP(PAT,DST,R2_MASKPEN) },           /* 0x90  P&~(D^S)       */
267     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MERGEPENNOT),
268       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_NOTXORPEN) },           /* 0x91  ~S^(D&(P|~S))  */
269     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MERGEPEN),
270       OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_XORPEN),
271       OP(TMP,DST,R2_XORPEN) },                                      /* 0x92  D^P^(S&(D|P))  */
272     { OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_NOTXORPEN) },           /* 0x93  ~S^(P&D)       */
273     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MERGEPEN),
274       OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_XORPEN),
275       OP(TMP,DST,R2_XORPEN) },                                      /* 0x94  S^P^(D&(P|S))  */
276     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_NOTXORPEN) },           /* 0x95  ~D^(P&S)       */
277     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_XORPEN) },               /* 0x96  D^P^S          */
278     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_NOTMERGEPEN),
279       OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_XORPEN),
280       OP(TMP,DST,R2_XORPEN) },                                      /* 0x97  S^P^(D|~(P|S)) */
281     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_NOTMERGEPEN),
282       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_NOTXORPEN) },          /* 0x98  ~S^(D|~(P|S))  */
283     { OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0x99  ~S^D           */
284     { OP(PAT,SRC,R2_MASKPENNOT), OP(SRC,DST,R2_XORPEN) },           /* 0x9a  D^(P&~S)       */
285     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MERGEPEN),
286       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_NOTXORPEN) },           /* 0x9b  ~S^(D&(P|S))   */
287     { OP(PAT,DST,R2_MASKPENNOT), OP(SRC,DST,R2_XORPEN) },           /* 0x9c  S^(P&~D)       */
288     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MERGEPEN),
289       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_NOTXORPEN) },           /* 0x9d  ~D^(S&(P|D))   */
290     { OP(DST,TMP,R2_COPYPEN), OP(SRC,DST,R2_MASKPEN),
291       OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_XORPEN),
292       OP(TMP,DST,R2_XORPEN) },                                      /* 0x9e  D^S^(P|(D&S))  */
293     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_NOTMASKPEN) },           /* 0x9f  ~(P&(D^S))     */
294     { OP(PAT,DST,R2_MASKPEN) },                                     /* 0xa0  D&P            */
295     { OP(PAT,SRC,R2_MASKNOTPEN), OP(SRC,DST,R2_MERGEPEN),
296       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xa1  ~P^(D|(S&~P))  */
297     { OP(PAT,SRC,R2_MERGEPENNOT), OP(SRC,DST,R2_MASKPEN) },         /* 0xa2  D&(P|~S)       */
298     { OP(DST,SRC,R2_XORPEN), OP(PAT,SRC,R2_MERGEPEN),
299       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xa3  ~D^(P|(S^D))   */
300     { OP(PAT,SRC,R2_NOTMERGEPEN), OP(SRC,DST,R2_MERGEPEN),
301       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xa4  ~P^(D|~(S|P))  */
302     { OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xa5  ~P^D           */
303     { OP(PAT,SRC,R2_MASKNOTPEN), OP(SRC,DST,R2_XORPEN) },           /* 0xa6  D^(S&~P)       */
304     { OP(PAT,SRC,R2_MERGEPEN), OP(SRC,DST,R2_MASKPEN),
305       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xa7  ~P^(D&(S|P))   */
306     { OP(PAT,SRC,R2_MERGEPEN), OP(SRC,DST,R2_MASKPEN) },            /* 0xa8  D&(P|S)        */
307     { OP(PAT,SRC,R2_MERGEPEN), OP(SRC,DST,R2_NOTXORPEN) },          /* 0xa9  ~D^(P|S)       */
308     { OP(PAT,DST,R2_NOP) },                                         /* 0xaa  D              */
309     { OP(PAT,SRC,R2_NOTMERGEPEN), OP(SRC,DST,R2_MERGEPEN) },        /* 0xab  D|~(P|S)       */
310     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_MASKPEN),
311       OP(SRC,DST,R2_XORPEN) },                                      /* 0xac  S^(P&(D^S))    */
312     { OP(DST,SRC,R2_MASKPEN), OP(PAT,SRC,R2_MERGEPEN),
313       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xad  ~D^(P|(S&D))   */
314     { OP(PAT,SRC,R2_MASKNOTPEN), OP(SRC,DST,R2_MERGEPEN) },         /* 0xae  D|(S&~P)       */
315     { OP(PAT,DST,R2_MERGENOTPEN) },                                 /* 0xaf  D|~P           */
316     { OP(SRC,DST,R2_MERGENOTPEN), OP(PAT,DST,R2_MASKPEN) },         /* 0xb0  P&(D|~S)       */
317     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN),
318       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xb1  ~P^(D|(S^P))   */
319     { OP(SRC,TMP,R2_COPYPEN), OP(SRC,DST,R2_XORPEN),
320       OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN),
321       OP(TMP,DST,R2_XORPEN) },                                      /* 0xb2  S^((S^P)|(S^D))*/
322     { OP(PAT,DST,R2_NOTMASKPEN), OP(SRC,DST,R2_NOTMASKPEN) },       /* 0xb3  ~(S&~(D&P))    */
323     { OP(SRC,DST,R2_MASKPENNOT), OP(PAT,DST,R2_XORPEN) },           /* 0xb4  P^(S&~D)       */
324     { OP(DST,SRC,R2_MERGEPEN), OP(PAT,SRC,R2_MASKPEN),
325       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xb5  ~D^(P&(S|D))   */
326     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MASKPEN),
327       OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_XORPEN),
328       OP(TMP,DST,R2_XORPEN) },                                      /* 0xb6  D^P^(S|(D&P))  */
329     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_NOTMASKPEN) },           /* 0xb7  ~(S&(D^P))     */
330     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
331       OP(PAT,DST,R2_XORPEN) },                                      /* 0xb8  P^(S&(D^P))    */
332     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_MASKPEN),
333       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_NOTXORPEN) },          /* 0xb9  ~D^(S|(P&D))   */
334     { OP(PAT,SRC,R2_MASKPENNOT), OP(SRC,DST,R2_MERGEPEN) },         /* 0xba  D|(P&~S)       */
335     { OP(SRC,DST,R2_MERGENOTPEN) },                                 /* 0xbb  ~S|D           */
336     { OP(SRC,DST,R2_NOTMASKPEN), OP(PAT,DST,R2_MASKPEN),
337       OP(SRC,DST,R2_XORPEN) },                                      /* 0xbc  S^(P&~(D&S))   */
338     { OP(DST,SRC,R2_XORPEN), OP(PAT,DST,R2_XORPEN),
339       OP(SRC,DST,R2_NOTMASKPEN) },                                  /* 0xbd  ~((S^D)&(P^D)) */
340     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN) },             /* 0xbe  D|(P^S)        */
341     { OP(PAT,SRC,R2_NOTMASKPEN), OP(SRC,DST,R2_MERGEPEN) },         /* 0xbf  D|~(P&S)       */
342     { OP(PAT,SRC,R2_MASKPEN) },                                     /* 0xc0  P&S            */
343     { OP(SRC,DST,R2_MASKNOTPEN), OP(PAT,DST,R2_MERGEPEN),
344       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xc1  ~S^(P|(D&~S))  */
345     { OP(SRC,DST,R2_NOTMERGEPEN), OP(PAT,DST,R2_MERGEPEN),
346       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xc2  ~S^(P|~(D|S))  */
347     { OP(PAT,SRC,R2_NOTXORPEN) },                                   /* 0xc3  ~P^S           */
348     { OP(PAT,DST,R2_MERGEPENNOT), OP(SRC,DST,R2_MASKPEN) },         /* 0xc4  S&(P|~D)       */
349     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_MERGEPEN),
350       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xc5  ~S^(P|(D^S))   */
351     { OP(PAT,DST,R2_MASKNOTPEN), OP(SRC,DST,R2_XORPEN) },           /* 0xc6  S^(D&~P)       */
352     { OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_MASKPEN),
353       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xc7  ~P^(S&(D|P))   */
354     { OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_MASKPEN) },            /* 0xc8  S&(D|P)        */
355     { OP(PAT,DST,R2_MERGEPEN), OP(SRC,DST,R2_NOTXORPEN) },          /* 0xc9  ~S^(P|D)       */
356     { OP(DST,SRC,R2_XORPEN), OP(PAT,SRC,R2_MASKPEN),
357       OP(SRC,DST,R2_XORPEN) },                                      /* 0xca  D^(P&(S^D))    */
358     { OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_MERGEPEN),
359       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xcb  ~S^(P|(D&S))   */
360     { OP(SRC,DST,R2_COPYPEN) },                                     /* 0xcc  S              */
361     { OP(PAT,DST,R2_NOTMERGEPEN), OP(SRC,DST,R2_MERGEPEN) },        /* 0xcd  S|~(D|P)       */
362     { OP(PAT,DST,R2_MASKNOTPEN), OP(SRC,DST,R2_MERGEPEN) },         /* 0xce  S|(D&~P)       */
363     { OP(PAT,SRC,R2_MERGENOTPEN) },                                 /* 0xcf  S|~P           */
364     { OP(SRC,DST,R2_MERGEPENNOT), OP(PAT,DST,R2_MASKPEN) },         /* 0xd0  P&(S|~D)       */
365     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN),
366       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xd1  ~P^(S|(D^P))   */
367     { OP(SRC,DST,R2_MASKNOTPEN), OP(PAT,DST,R2_XORPEN) },           /* 0xd2  P^(D&~S)       */
368     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_MASKPEN),
369       OP(SRC,DST,R2_NOTXORPEN) },                                   /* 0xd3  ~S^(P&(D|S))   */
370     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_XORPEN),
371       OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
372       OP(TMP,DST,R2_XORPEN) },                                      /* 0xd4  S^((S^P)&(D^P))*/
373     { OP(PAT,SRC,R2_NOTMASKPEN), OP(SRC,DST,R2_NOTMASKPEN) },       /* 0xd5  ~(D&~(P&S))    */
374     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MASKPEN),
375       OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_XORPEN),
376       OP(TMP,DST,R2_XORPEN) },                                      /* 0xd6  S^P^(D|(P&S))  */
377     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_NOTMASKPEN) },           /* 0xd7  ~(D&(P^S))     */
378     { OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
379       OP(PAT,DST,R2_XORPEN) },                                      /* 0xd8  P^(D&(S^P))    */
380     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_MASKPEN),
381       OP(SRC,DST,R2_MERGEPEN), OP(TMP,DST,R2_NOTXORPEN) },          /* 0xd9  ~S^(D|(P&S))   */
382     { OP(DST,SRC,R2_NOTMASKPEN), OP(PAT,SRC,R2_MASKPEN),
383       OP(SRC,DST,R2_XORPEN) },                                      /* 0xda  D^(P&~(S&D))   */
384     { OP(SRC,DST,R2_XORPEN), OP(PAT,SRC,R2_XORPEN),
385       OP(SRC,DST,R2_NOTMASKPEN) },                                  /* 0xdb  ~((S^P)&(S^D)) */
386     { OP(PAT,DST,R2_MASKPENNOT), OP(SRC,DST,R2_MERGEPEN) },         /* 0xdc  S|(P&~D)       */
387     { OP(SRC,DST,R2_MERGEPENNOT) },                                 /* 0xdd  S|~D           */
388     { OP(PAT,DST,R2_XORPEN), OP(SRC,DST,R2_MERGEPEN) },             /* 0xde  S|(D^P)        */
389     { OP(PAT,DST,R2_NOTMASKPEN), OP(SRC,DST,R2_MERGEPEN) },         /* 0xdf  S|~(D&P)       */
390     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_MASKPEN) },            /* 0xe0  P&(D|S)        */
391     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_NOTXORPEN) },          /* 0xe1  ~P^(D|S)       */
392     { OP(DST,TMP,R2_COPYPEN), OP(PAT,DST,R2_XORPEN),
393       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN) },              /* 0xe2  D^(S&(P^D))    */
394     { OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_MERGEPEN),
395       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xe3  ~P^(S|(D&P))   */
396     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_XORPEN),
397       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN) },              /* 0xe4  S^(D&(P^S))    */
398     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_MERGEPEN),
399       OP(PAT,DST,R2_NOTXORPEN) },                                   /* 0xe5  ~P^(D|(S&P))   */
400     { OP(SRC,TMP,R2_COPYPEN), OP(PAT,SRC,R2_NOTMASKPEN),
401       OP(SRC,DST,R2_MASKPEN), OP(TMP,DST,R2_XORPEN) },              /* 0xe6  S^(D&~(P&S))   */
402     { OP(PAT,SRC,R2_XORPEN), OP(PAT,DST,R2_XORPEN),
403       OP(SRC,DST,R2_NOTMASKPEN) },                                  /* 0xe7  ~((S^P)&(D^P)) */
404     { OP(SRC,TMP,R2_COPYPEN), OP(SRC,DST,R2_XORPEN),
405       OP(PAT,SRC,R2_XORPEN), OP(SRC,DST,R2_MASKPEN),
406       OP(TMP,DST,R2_XORPEN) },                                      /* 0xe8  S^((S^P)&(S^D))*/
407     { OP(DST,TMP,R2_COPYPEN), OP(SRC,DST,R2_NOTMASKPEN),
408       OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_XORPEN),
409       OP(TMP,DST,R2_NOTXORPEN) },                                   /* 0xe9  ~D^S^(P&~(S&D))*/
410     { OP(PAT,SRC,R2_MASKPEN), OP(SRC,DST,R2_MERGEPEN) },            /* 0xea  D|(P&S)        */
411     { OP(PAT,SRC,R2_NOTXORPEN), OP(SRC,DST,R2_MERGEPEN) },          /* 0xeb  D|~(P^S)       */
412     { OP(PAT,DST,R2_MASKPEN), OP(SRC,DST,R2_MERGEPEN) },            /* 0xec  S|(D&P)        */
413     { OP(PAT,DST,R2_NOTXORPEN), OP(SRC,DST,R2_MERGEPEN) },          /* 0xed  S|~(D^P)       */
414     { OP(SRC,DST,R2_MERGEPEN) },                                    /* 0xee  S|D            */
415     { OP(PAT,DST,R2_MERGENOTPEN), OP(SRC,DST,R2_MERGEPEN) },        /* 0xef  S|D|~P         */
416     { OP(PAT,DST,R2_COPYPEN) },                                     /* 0xf0  P              */
417     { OP(SRC,DST,R2_NOTMERGEPEN), OP(PAT,DST,R2_MERGEPEN) },        /* 0xf1  P|~(D|S)       */
418     { OP(SRC,DST,R2_MASKNOTPEN), OP(PAT,DST,R2_MERGEPEN) },         /* 0xf2  P|(D&~S)       */
419     { OP(PAT,SRC,R2_MERGEPENNOT) },                                 /* 0xf3  P|~S           */
420     { OP(SRC,DST,R2_MASKPENNOT), OP(PAT,DST,R2_MERGEPEN) },         /* 0xf4  P|(S&~D)       */
421     { OP(PAT,DST,R2_MERGEPENNOT) },                                 /* 0xf5  P|~D           */
422     { OP(SRC,DST,R2_XORPEN), OP(PAT,DST,R2_MERGEPEN) },             /* 0xf6  P|(D^S)        */
423     { OP(SRC,DST,R2_NOTMASKPEN), OP(PAT,DST,R2_MERGEPEN) },         /* 0xf7  P|~(S&D)       */
424     { OP(SRC,DST,R2_MASKPEN), OP(PAT,DST,R2_MERGEPEN) },            /* 0xf8  P|(D&S)        */
425     { OP(SRC,DST,R2_NOTXORPEN), OP(PAT,DST,R2_MERGEPEN) },          /* 0xf9  P|~(D^S)       */
426     { OP(PAT,DST,R2_MERGEPEN) },                                    /* 0xfa  D|P            */
427     { OP(PAT,SRC,R2_MERGEPENNOT), OP(SRC,DST,R2_MERGEPEN) },        /* 0xfb  D|P|~S         */
428     { OP(PAT,SRC,R2_MERGEPEN) },                                    /* 0xfc  P|S            */
429     { OP(SRC,DST,R2_MERGEPENNOT), OP(PAT,DST,R2_MERGEPEN) },        /* 0xfd  P|S|~D         */
430     { OP(SRC,DST,R2_MERGEPEN), OP(PAT,DST,R2_MERGEPEN) },           /* 0xfe  P|D|S          */
431     { OP(PAT,DST,R2_WHITE) }                                        /* 0xff  1              */
432 };
433
434 static int get_overlap( const dib_info *dst, const RECT *dst_rect,
435                         const dib_info *src, const RECT *src_rect )
436 {
437     const char *src_top, *dst_top;
438     int height, ret = 0;
439
440     if (dst->stride != src->stride) return 0;  /* can't be the same dib */
441     if (dst_rect->right <= src_rect->left) return 0;
442     if (dst_rect->left >= src_rect->right) return 0;
443
444     src_top = (const char *)src->bits.ptr + src_rect->top * src->stride;
445     dst_top = (const char *)dst->bits.ptr + dst_rect->top * dst->stride;
446     height = (dst_rect->bottom - dst_rect->top) * dst->stride;
447
448     if (dst->stride > 0)
449     {
450         if (src_top >= dst_top + height) return 0;
451         if (src_top + height <= dst_top) return 0;
452         if (dst_top < src_top) ret |= OVERLAP_ABOVE;
453         else if (dst_top > src_top) ret |= OVERLAP_BELOW;
454     }
455     else
456     {
457         if (src_top <= dst_top + height) return 0;
458         if (src_top + height >= dst_top) return 0;
459         if (dst_top > src_top) ret |= OVERLAP_ABOVE;
460         else if (dst_top < src_top) ret |= OVERLAP_BELOW;
461     }
462
463     if (dst_rect->left < src_rect->left) ret |= OVERLAP_LEFT;
464     else if (dst_rect->left > src_rect->left) ret |= OVERLAP_RIGHT;
465
466     return ret;
467 }
468
469 static DWORD copy_rect( dib_info *dst, const RECT *dst_rect, const dib_info *src, const RECT *src_rect,
470                         HRGN clip, INT rop2 )
471 {
472     POINT origin;
473     RECT clipped_rect;
474     const WINEREGION *clip_data;
475     int i, start, end, overlap;
476     DWORD and = 0, xor = 0;
477
478     switch (rop2)
479     {
480     case R2_NOT:   and = ~0u;
481         /* fall through */
482     case R2_WHITE: xor = ~0u;
483         /* fall through */
484     case R2_BLACK:
485         if (clip)
486         {
487             clip_data = get_wine_region( clip );
488             for (i = 0; i < clip_data->numRects; i++)
489                 if (intersect_rect( &clipped_rect, dst_rect, clip_data->rects + i ))
490                     dst->funcs->solid_rects( dst, 1, &clipped_rect, and, xor );
491             release_wine_region( clip );
492         }
493         else dst->funcs->solid_rects( dst, 1, dst_rect, and, xor );
494         /* fall through */
495     case R2_NOP:
496         return ERROR_SUCCESS;
497     }
498
499     origin.x = src_rect->left;
500     origin.y = src_rect->top;
501     overlap = get_overlap( dst, dst_rect, src, src_rect );
502
503     if (clip == NULL) dst->funcs->copy_rect( dst, dst_rect, src, &origin, rop2, overlap );
504     else
505     {
506         clip_data = get_wine_region( clip );
507         if (overlap & OVERLAP_BELOW)
508         {
509             if (overlap & OVERLAP_RIGHT)  /* right to left, bottom to top */
510             {
511                 for (i = clip_data->numRects - 1; i >= 0; i--)
512                 {
513                     if (intersect_rect( &clipped_rect, dst_rect, clip_data->rects + i ))
514                     {
515                         origin.x = src_rect->left + clipped_rect.left - dst_rect->left;
516                         origin.y = src_rect->top  + clipped_rect.top  - dst_rect->top;
517                         dst->funcs->copy_rect( dst, &clipped_rect, src, &origin, rop2, overlap );
518                     }
519                 }
520             }
521             else  /* left to right, bottom to top */
522             {
523                 for (start = clip_data->numRects - 1; start >= 0; start = end)
524                 {
525                     for (end = start - 1; end >= 0; end--)
526                         if (clip_data->rects[start].top != clip_data->rects[end].top) break;
527
528                     for (i = end + 1; i <= start; i++)
529                     {
530                         if (intersect_rect( &clipped_rect, dst_rect, clip_data->rects + i ))
531                         {
532                             origin.x = src_rect->left + clipped_rect.left - dst_rect->left;
533                             origin.y = src_rect->top  + clipped_rect.top  - dst_rect->top;
534                             dst->funcs->copy_rect( dst, &clipped_rect, src, &origin, rop2, overlap );
535                         }
536                     }
537                 }
538             }
539         }
540         else if (overlap & OVERLAP_RIGHT)  /* right to left, top to bottom */
541         {
542             for (start = 0; start < clip_data->numRects; start = end)
543             {
544                 for (end = start + 1; end < clip_data->numRects; end++)
545                     if (clip_data->rects[start].top != clip_data->rects[end].top) break;
546
547                 for (i = end - 1; i >= start; i--)
548                 {
549                     if (intersect_rect( &clipped_rect, dst_rect, clip_data->rects + i ))
550                     {
551                         origin.x = src_rect->left + clipped_rect.left - dst_rect->left;
552                         origin.y = src_rect->top  + clipped_rect.top  - dst_rect->top;
553                         dst->funcs->copy_rect( dst, &clipped_rect, src, &origin, rop2, overlap );
554                     }
555                 }
556             }
557         }
558         else  /* left to right, top to bottom */
559         {
560             for (i = 0; i < clip_data->numRects; i++)
561             {
562                 if (intersect_rect( &clipped_rect, dst_rect, clip_data->rects + i ))
563                 {
564                     origin.x = src_rect->left + clipped_rect.left - dst_rect->left;
565                     origin.y = src_rect->top  + clipped_rect.top  - dst_rect->top;
566                     dst->funcs->copy_rect( dst, &clipped_rect, src, &origin, rop2, overlap );
567                 }
568             }
569         }
570         release_wine_region( clip );
571     }
572     return ERROR_SUCCESS;
573 }
574
575 static DWORD blend_rect( dib_info *dst, const RECT *dst_rect, const dib_info *src, const RECT *src_rect,
576                          HRGN clip, BLENDFUNCTION blend )
577 {
578     POINT origin;
579     RECT clipped_rect;
580     const WINEREGION *clip_data;
581     int i;
582
583     origin.x = src_rect->left;
584     origin.y = src_rect->top;
585
586     if (clip == NULL) dst->funcs->blend_rect( dst, dst_rect, src, &origin, blend );
587     else
588     {
589         clip_data = get_wine_region( clip );
590         for (i = 0; i < clip_data->numRects; i++)
591         {
592             if (intersect_rect( &clipped_rect, dst_rect, clip_data->rects + i ))
593             {
594                 origin.x = src_rect->left + clipped_rect.left - dst_rect->left;
595                 origin.y = src_rect->top  + clipped_rect.top  - dst_rect->top;
596                 dst->funcs->blend_rect( dst, &clipped_rect, src, &origin, blend );
597             }
598         }
599         release_wine_region( clip );
600     }
601     return ERROR_SUCCESS;
602 }
603
604 /* compute y-ordered, device coords vertices for a horizontal rectangle gradient */
605 static void get_gradient_hrect_vertices( const GRADIENT_RECT *rect, const TRIVERTEX *vert,
606                                          const POINT *dev_pts, TRIVERTEX v[2] )
607 {
608     int v0 = rect->UpperLeft;
609     int v1 = rect->LowerRight;
610
611     if (dev_pts[v1].x < dev_pts[v0].x)  /* swap the colors */
612     {
613         v0 = rect->LowerRight;
614         v1 = rect->UpperLeft;
615     }
616     v[0]   = vert[v0];
617     v[1]   = vert[v1];
618     v[0].x = dev_pts[v0].x;
619     v[1].x = dev_pts[v1].x;
620     v[0].y = min( dev_pts[v0].y, dev_pts[v1].y );
621     v[1].y = max( dev_pts[v0].y, dev_pts[v1].y );
622 }
623
624 /* compute y-ordered, device coords vertices for a vertical rectangle gradient */
625 static void get_gradient_vrect_vertices( const GRADIENT_RECT *rect, const TRIVERTEX *vert,
626                                          const POINT *dev_pts, TRIVERTEX v[2] )
627 {
628     int v0 = rect->UpperLeft;
629     int v1 = rect->LowerRight;
630
631     if (dev_pts[v1].y < dev_pts[v0].y)  /* swap the colors */
632     {
633         v0 = rect->LowerRight;
634         v1 = rect->UpperLeft;
635     }
636     v[0]   = vert[v0];
637     v[1]   = vert[v1];
638     v[0].x = min( dev_pts[v0].x, dev_pts[v1].x );
639     v[1].x = max( dev_pts[v0].x, dev_pts[v1].x );
640     v[0].y = dev_pts[v0].y;
641     v[1].y = dev_pts[v1].y;
642 }
643
644 /* compute y-ordered, device coords vertices for a triangle gradient */
645 static void get_gradient_triangle_vertices( const GRADIENT_TRIANGLE *tri, const TRIVERTEX *vert,
646                                             const POINT *dev_pts, TRIVERTEX v[3] )
647 {
648     int v0, v1, v2;
649
650     if (dev_pts[tri->Vertex1].y > dev_pts[tri->Vertex2].y)
651     {
652         if (dev_pts[tri->Vertex3].y < dev_pts[tri->Vertex2].y)
653             { v0 = tri->Vertex3; v1 = tri->Vertex2; v2 = tri->Vertex1; }
654         else if (dev_pts[tri->Vertex3].y < dev_pts[tri->Vertex1].y)
655             { v0 = tri->Vertex2; v1 = tri->Vertex3; v2 = tri->Vertex1; }
656         else
657             { v0 = tri->Vertex2; v1 = tri->Vertex1; v2 = tri->Vertex3; }
658     }
659     else
660     {
661         if (dev_pts[tri->Vertex3].y < dev_pts[tri->Vertex1].y)
662             { v0 = tri->Vertex3; v1 = tri->Vertex1; v2 = tri->Vertex2; }
663         else if (dev_pts[tri->Vertex3].y < dev_pts[tri->Vertex2].y)
664             { v0 = tri->Vertex1; v1 = tri->Vertex3; v2 = tri->Vertex2; }
665         else
666             { v0 = tri->Vertex1; v1 = tri->Vertex2; v2 = tri->Vertex3; }
667     }
668     v[0]   = vert[v0];
669     v[1]   = vert[v1];
670     v[2]   = vert[v2];
671     v[0].x = dev_pts[v0].x;
672     v[0].y = dev_pts[v0].y;
673     v[1].y = dev_pts[v1].y;
674     v[1].x = dev_pts[v1].x;
675     v[2].x = dev_pts[v2].x;
676     v[2].y = dev_pts[v2].y;
677 }
678
679 static BOOL gradient_rect( dib_info *dib, TRIVERTEX *v, int mode, HRGN clip )
680 {
681     int i;
682     RECT rect, clipped_rect;
683     BOOL ret = TRUE;
684
685     if (mode == GRADIENT_FILL_TRIANGLE)
686     {
687         rect.left   = min( v[0].x, min( v[1].x, v[2].x ));
688         rect.top    = v[0].y;
689         rect.right  = max( v[0].x, max( v[1].x, v[2].x ));
690         rect.bottom = v[2].y;
691     }
692     else
693     {
694         rect.left   = v[0].x;
695         rect.top    = v[0].y;
696         rect.right  = v[1].x;
697         rect.bottom = v[1].y;
698     }
699     rect.left   = max( rect.left, 0 );
700     rect.top    = max( rect.top, 0 );
701     rect.right  = min( rect.right, dib->width );
702     rect.bottom = min( rect.bottom, dib->height );
703
704     if (clip)
705     {
706         const WINEREGION *clip_data = get_wine_region( clip );
707
708         for (i = 0; i < clip_data->numRects; i++)
709         {
710             if (intersect_rect( &clipped_rect, &rect, clip_data->rects + i ))
711             {
712                 if (!(ret = dib->funcs->gradient_rect( dib, &clipped_rect, v, mode ))) break;
713             }
714         }
715         release_wine_region( clip );
716     }
717     else if (!is_rect_empty( &rect )) ret = dib->funcs->gradient_rect( dib, &rect, v, mode );
718
719     return ret;
720 }
721
722 static DWORD copy_src_bits( dib_info *src, RECT *src_rect )
723 {
724     int y, stride = get_dib_stride( src->width, src->bit_count );
725     int height = src_rect->bottom - src_rect->top;
726     void *ptr = HeapAlloc( GetProcessHeap(), 0, stride * height );
727
728     if (!ptr) return ERROR_OUTOFMEMORY;
729
730     for (y = 0; y < height; y++)
731         memcpy( (char *)ptr + y * stride,
732                 (char *)src->bits.ptr + (src_rect->top + y) * src->stride, stride );
733     src->stride = stride;
734     src->height = height;
735     if (src->bits.free) src->bits.free( &src->bits );
736     src->bits.is_copy = TRUE;
737     src->bits.ptr = ptr;
738     src->bits.free = free_heap_bits;
739     src->bits.param = NULL;
740
741     offset_rect( src_rect, 0, -src_rect->top );
742     return ERROR_SUCCESS;
743 }
744
745 static DWORD create_tmp_dib( const dib_info *copy, int width, int height, dib_info *ret )
746 {
747     copy_dib_color_info( ret, copy );
748     ret->width = width;
749     ret->height = height;
750     ret->stride = get_dib_stride( width, ret->bit_count );
751     ret->bits.ptr = HeapAlloc( GetProcessHeap(), 0, ret->height * ret->stride );
752     ret->bits.is_copy = TRUE;
753     ret->bits.free = free_heap_bits;
754     ret->bits.param = NULL;
755
756     return ret->bits.ptr ? ERROR_SUCCESS : ERROR_OUTOFMEMORY;
757 }
758
759 static DWORD execute_rop( dibdrv_physdev *pdev, const RECT *dst_rect, dib_info *src,
760                           const RECT *src_rect, HRGN clip, DWORD rop )
761 {
762     dib_info *dibs[3], *result = src, tmp;
763     RECT rects[3];
764     int width  = dst_rect->right - dst_rect->left;
765     int height = dst_rect->bottom - dst_rect->top;
766     const BYTE *opcode = BITBLT_Opcodes[(rop >> 16) & 0xff];
767     DWORD err;
768
769     dibs[SRC] = src;
770     dibs[DST] = &pdev->dib;
771     dibs[TMP] = 0;
772
773     rects[SRC] = *src_rect;
774     rects[DST] = *dst_rect;
775     rects[TMP] = *dst_rect;
776     offset_rect( &rects[TMP], -rects[TMP].left, -rects[TMP].top );
777
778     for ( ; *opcode; opcode++)
779     {
780         if (OP_DST(*opcode) == DST) result = dibs[DST];
781         if (OP_DST(*opcode) == SRC && src->bits.is_copy == FALSE)
782         {
783             err = copy_src_bits( src, &rects[SRC] );
784             if (err) return err;
785         }
786         if (OP_DST(*opcode) == TMP && !dibs[TMP])
787         {
788             err = create_tmp_dib( &pdev->dib, width, height, &tmp );
789             if (err) return err;
790             dibs[TMP] = &tmp;
791         }
792
793         switch(OP_SRCDST(*opcode))
794         {
795         case OP_ARGS(DST,TMP):
796         case OP_ARGS(SRC,TMP):
797         case OP_ARGS(DST,SRC):
798         case OP_ARGS(SRC,DST):
799         case OP_ARGS(TMP,SRC):
800         case OP_ARGS(TMP,DST):
801             copy_rect( dibs[OP_DST(*opcode)], &rects[OP_DST(*opcode)],
802                        dibs[OP_SRC(*opcode)], &rects[OP_SRC(*opcode)],
803                        OP_DST(*opcode) == DST ? clip : NULL, OP_ROP(*opcode) );
804             break;
805         case OP_ARGS(PAT,DST):
806         case OP_ARGS(PAT,SRC):
807             update_brush_rop( pdev, OP_ROP(*opcode) );
808             pdev->brush_rects( pdev, dibs[OP_DST(*opcode)], 1, &rects[OP_DST(*opcode)],
809                                OP_DST(*opcode) == DST ? clip : NULL );
810             update_brush_rop( pdev, GetROP2(pdev->dev.hdc) );
811             break;
812         }
813     }
814
815     if (dibs[TMP]) free_dib_info( dibs[TMP] );
816
817     if (result == src) copy_rect( dibs[DST], &rects[DST], dibs[SRC], &rects[SRC], clip, R2_COPYPEN );
818
819     return ERROR_SUCCESS;
820 }
821
822 static void set_color_info( const dib_info *dib, BITMAPINFO *info )
823 {
824     DWORD *masks = (DWORD *)info->bmiColors;
825
826     info->bmiHeader.biCompression = BI_RGB;
827     info->bmiHeader.biClrUsed     = 0;
828
829     switch (info->bmiHeader.biBitCount)
830     {
831     case 1:
832     case 4:
833     case 8:
834         if (dib->color_table)
835         {
836             info->bmiHeader.biClrUsed = min( dib->color_table_size, 1 << dib->bit_count );
837             memcpy( info->bmiColors, dib->color_table,
838                     info->bmiHeader.biClrUsed * sizeof(RGBQUAD) );
839         }
840         break;
841     case 16:
842         masks[0] = dib->red_mask;
843         masks[1] = dib->green_mask;
844         masks[2] = dib->blue_mask;
845         info->bmiHeader.biCompression = BI_BITFIELDS;
846         break;
847     case 32:
848         if (dib->funcs != &funcs_8888)
849         {
850             masks[0] = dib->red_mask;
851             masks[1] = dib->green_mask;
852             masks[2] = dib->blue_mask;
853             info->bmiHeader.biCompression = BI_BITFIELDS;
854         }
855         break;
856     }
857 }
858
859 /***********************************************************************
860  *           dibdrv_GetImage
861  */
862 DWORD dibdrv_GetImage( PHYSDEV dev, HBITMAP hbitmap, BITMAPINFO *info,
863                        struct gdi_image_bits *bits, struct bitblt_coords *src )
864 {
865     DWORD ret = ERROR_SUCCESS;
866     dib_info *dib = NULL, stand_alone;
867
868     TRACE( "%p %p %p\n", dev, hbitmap, info );
869
870     info->bmiHeader.biSize          = sizeof(info->bmiHeader);
871     info->bmiHeader.biPlanes        = 1;
872     info->bmiHeader.biCompression   = BI_RGB;
873     info->bmiHeader.biXPelsPerMeter = 0;
874     info->bmiHeader.biYPelsPerMeter = 0;
875     info->bmiHeader.biClrUsed       = 0;
876     info->bmiHeader.biClrImportant  = 0;
877
878     if (hbitmap)
879     {
880         BITMAPOBJ *bmp = GDI_GetObjPtr( hbitmap, OBJ_BITMAP );
881
882         if (!bmp) return ERROR_INVALID_HANDLE;
883         if (!init_dib_info_from_bitmapobj( &stand_alone, bmp, 0 ))
884         {
885             ret = ERROR_BAD_FORMAT;
886             goto done;
887         }
888         dib = &stand_alone;
889     }
890     else
891     {
892         dibdrv_physdev *pdev = get_dibdrv_pdev(dev);
893         dib = &pdev->dib;
894     }
895
896     info->bmiHeader.biWidth     = dib->width;
897     info->bmiHeader.biHeight    = dib->stride > 0 ? -dib->height : dib->height;
898     info->bmiHeader.biBitCount  = dib->bit_count;
899     info->bmiHeader.biSizeImage = dib->height * abs( dib->stride );
900
901     set_color_info( dib, info );
902
903     if (bits)
904     {
905         bits->ptr = dib->bits.ptr;
906         if (dib->stride < 0)
907             bits->ptr = (char *)bits->ptr + (dib->height - 1) * dib->stride;
908         bits->is_copy = FALSE;
909         bits->free = NULL;
910     }
911
912 done:
913    if (hbitmap)
914    {
915        if (dib) free_dib_info( dib );
916        GDI_ReleaseObj( hbitmap );
917    }
918
919    return ret;
920 }
921
922 static BOOL matching_color_info( const dib_info *dib, const BITMAPINFO *info )
923 {
924     switch (info->bmiHeader.biBitCount)
925     {
926     case 1:
927     case 4:
928     case 8:
929     {
930         RGBQUAD *color_table = (RGBQUAD *)((char *)info + info->bmiHeader.biSize);
931         if (!info->bmiHeader.biClrUsed) return FALSE;
932         if (dib->color_table_size != get_dib_num_of_colors( info )) return FALSE;
933         return !memcmp( color_table, dib->color_table, dib->color_table_size * sizeof(RGBQUAD) );
934     }
935
936     case 16:
937     {
938         DWORD *masks = (DWORD *)info->bmiColors;
939         if (info->bmiHeader.biCompression == BI_RGB) return dib->funcs == &funcs_555;
940         if (info->bmiHeader.biCompression == BI_BITFIELDS)
941             return masks[0] == dib->red_mask && masks[1] == dib->green_mask && masks[2] == dib->blue_mask;
942         break;
943     }
944
945     case 24:
946         return TRUE;
947
948     case 32:
949     {
950         DWORD *masks = (DWORD *)info->bmiColors;
951         if (info->bmiHeader.biCompression == BI_RGB) return dib->funcs == &funcs_8888;
952         if (info->bmiHeader.biCompression == BI_BITFIELDS)
953             return masks[0] == dib->red_mask && masks[1] == dib->green_mask && masks[2] == dib->blue_mask;
954         break;
955     }
956
957     }
958
959     return FALSE;
960 }
961
962 static inline BOOL rop_uses_pat(DWORD rop)
963 {
964     return ((rop >> 4) & 0x0f0000) != (rop & 0x0f0000);
965 }
966
967 /***********************************************************************
968  *           dibdrv_PutImage
969  */
970 DWORD dibdrv_PutImage( PHYSDEV dev, HBITMAP hbitmap, HRGN clip, BITMAPINFO *info,
971                        const struct gdi_image_bits *bits, struct bitblt_coords *src,
972                        struct bitblt_coords *dst, DWORD rop )
973 {
974     dib_info *dib = NULL, stand_alone;
975     DWORD ret;
976     dib_info src_dib;
977     HRGN saved_clip = NULL;
978     dibdrv_physdev *pdev = NULL;
979
980     TRACE( "%p %p %p\n", dev, hbitmap, info );
981
982     if (hbitmap)
983     {
984         BITMAPOBJ *bmp = GDI_GetObjPtr( hbitmap, OBJ_BITMAP );
985
986         if (!bmp) return ERROR_INVALID_HANDLE;
987         if (!init_dib_info_from_bitmapobj( &stand_alone, bmp, 0 ))
988         {
989             ret = ERROR_BAD_FORMAT;
990             goto done;
991         }
992         dib = &stand_alone;
993         rop = SRCCOPY;
994     }
995     else
996     {
997         pdev = get_dibdrv_pdev( dev );
998         dib = &pdev->dib;
999     }
1000
1001     if (info->bmiHeader.biPlanes != 1) goto update_format;
1002     if (info->bmiHeader.biBitCount != dib->bit_count) goto update_format;
1003     if (!matching_color_info( dib, info )) goto update_format;
1004     if (!bits)
1005     {
1006         ret = ERROR_SUCCESS;
1007         goto done;
1008     }
1009     if ((src->width != dst->width) || (src->height != dst->height))
1010     {
1011         ret = ERROR_TRANSFORM_NOT_SUPPORTED;
1012         goto done;
1013     }
1014
1015     init_dib_info_from_bitmapinfo( &src_dib, info, bits->ptr, 0 );
1016     src_dib.bits.is_copy = bits->is_copy;
1017
1018     if (!hbitmap)
1019     {
1020         if (clip) saved_clip = add_extra_clipping_region( pdev, clip );
1021         clip = pdev->clip;
1022     }
1023
1024     if (!rop_uses_pat( rop ))
1025     {
1026         int rop2 = ((rop >> 16) & 0xf) + 1;
1027         ret = copy_rect( dib, &dst->visrect, &src_dib, &src->visrect, clip, rop2 );
1028     }
1029     else
1030     {
1031         ret = execute_rop( pdev, &dst->visrect, &src_dib, &src->visrect, clip, rop );
1032     }
1033
1034     free_dib_info( &src_dib );
1035
1036     if (saved_clip) restore_clipping_region( pdev, saved_clip );
1037
1038     goto done;
1039
1040 update_format:
1041     info->bmiHeader.biPlanes   = 1;
1042     info->bmiHeader.biBitCount = dib->bit_count;
1043     set_color_info( dib, info );
1044     ret = ERROR_BAD_FORMAT;
1045
1046 done:
1047     if (hbitmap)
1048     {
1049        if (dib) free_dib_info( dib );
1050        GDI_ReleaseObj( hbitmap );
1051     }
1052
1053     return ret;
1054 }
1055
1056 /***********************************************************************
1057  *           dibdrv_BlendImage
1058  */
1059 DWORD dibdrv_BlendImage( PHYSDEV dev, BITMAPINFO *info, const struct gdi_image_bits *bits,
1060                          struct bitblt_coords *src, struct bitblt_coords *dst, BLENDFUNCTION blend )
1061 {
1062     dibdrv_physdev *pdev = get_dibdrv_pdev( dev );
1063     dib_info src_dib;
1064     DWORD ret;
1065
1066     TRACE( "%p %p\n", dev, info );
1067
1068     if (info->bmiHeader.biPlanes != 1) goto update_format;
1069     if (info->bmiHeader.biBitCount != 32) goto update_format;
1070     if (info->bmiHeader.biCompression == BI_BITFIELDS)
1071     {
1072         DWORD *masks = (DWORD *)info->bmiColors;
1073         if (masks[0] != 0xff0000 || masks[1] != 0x00ff00 || masks[2] != 0x0000ff)
1074             goto update_format;
1075     }
1076
1077     if (!bits) return ERROR_SUCCESS;
1078     if ((src->width != dst->width) || (src->height != dst->height)) return ERROR_TRANSFORM_NOT_SUPPORTED;
1079
1080     init_dib_info_from_bitmapinfo( &src_dib, info, bits->ptr, 0 );
1081     src_dib.bits.is_copy = bits->is_copy;
1082
1083     ret = blend_rect( &pdev->dib, &dst->visrect, &src_dib, &src->visrect, pdev->clip, blend );
1084
1085     free_dib_info( &src_dib );
1086     return ret;
1087
1088 update_format:
1089     if (blend.AlphaFormat & AC_SRC_ALPHA)  /* source alpha requires A8R8G8B8 format */
1090         return ERROR_INVALID_PARAMETER;
1091
1092     info->bmiHeader.biPlanes      = 1;
1093     info->bmiHeader.biBitCount    = 32;
1094     info->bmiHeader.biCompression = BI_RGB;
1095     info->bmiHeader.biClrUsed     = 0;
1096     return ERROR_BAD_FORMAT;
1097 }
1098
1099 /****************************************************************************
1100  *               calc_1d_stretch_params   (helper for stretch_bitmapinfo)
1101  *
1102  * If one plots the dst axis vertically, the src axis horizontally, then a
1103  * 1-d stretch/shrink is rather like finding the pixels to draw a straight
1104  * line.  Following a Bresenham type argument from point (s_i, d_i) we must
1105  * pick either (s_i + 1, d_i) or (s_i + 1, d_i + 1), however the choice
1106  * depends on where the centre of the next pixel is, ie whether the
1107  * point (s_i + 3/2, d_i + 1) (the mid-point between the two centres)
1108  * lies above or below the idea line.  The differences in error between
1109  * both choices and the current pixel is the same as per Bresenham,
1110  * the only difference is the error between the zeroth and first pixel.
1111  * This is now 3 dy - 2 dx (cf 2 dy - dx for the line case).
1112  *
1113  * Here we use the Bresenham line clipper to provide the start and end points
1114  * and add the additional dy - dx error term by passing this as the bias.
1115  *
1116  */
1117 static DWORD calc_1d_stretch_params( INT dst_start, INT dst_length, INT dst_vis_start, INT dst_vis_end,
1118                                      INT src_start, INT src_length, INT src_vis_start, INT src_vis_end,
1119                                      INT *dst_clipped_start, INT *src_clipped_start,
1120                                      INT *dst_clipped_end, INT *src_clipped_end,
1121                                      struct stretch_params *stretch_params, BOOL *stretch )
1122 {
1123     bres_params bres_params;
1124     POINT start, end, clipped_start, clipped_end;
1125     RECT clip;
1126     int clip_status, m, n;
1127
1128     stretch_params->src_inc = stretch_params->dst_inc = 1;
1129
1130     bres_params.dy = abs( dst_length );
1131     bres_params.dx = abs( src_length );
1132
1133     if (bres_params.dx > bres_params.dy) bres_params.octant = 1;
1134     else bres_params.octant = 2;
1135     if (src_length < 0)
1136     {
1137         bres_params.octant = 5 - bres_params.octant;
1138         stretch_params->src_inc = -1;
1139     }
1140     if (dst_length < 0)
1141     {
1142         bres_params.octant = 9 - bres_params.octant;
1143         stretch_params->dst_inc = -1;
1144     }
1145     bres_params.octant = 1 << (bres_params.octant - 1);
1146
1147     if (bres_params.dx > bres_params.dy)
1148         bres_params.bias = bres_params.dy - bres_params.dx;
1149     else
1150         bres_params.bias = bres_params.dx - bres_params.dy;
1151
1152     start.x = src_start;
1153     start.y = dst_start;
1154     end.x   = src_start + src_length;
1155     end.y   = dst_start + dst_length;
1156
1157     clip.left   = src_vis_start;
1158     clip.right  = src_vis_end;
1159     clip.top    = dst_vis_start;
1160     clip.bottom = dst_vis_end;
1161
1162     clip_status = clip_line( &start, &end, &clip, &bres_params, &clipped_start, &clipped_end );
1163
1164     if (!clip_status) return ERROR_NO_DATA;
1165
1166     m = abs( clipped_start.x - start.x );
1167     n = abs( clipped_start.y - start.y );
1168
1169     if (bres_params.dx > bres_params.dy)
1170     {
1171         stretch_params->err_start = 3 * bres_params.dy - 2 * bres_params.dx +
1172             m * 2 * bres_params.dy - n * 2 * bres_params.dx;
1173         stretch_params->err_add_1 = 2 * bres_params.dy - 2 * bres_params.dx;
1174         stretch_params->err_add_2 = 2 * bres_params.dy;
1175         stretch_params->length = abs( clipped_end.x - clipped_start.x );
1176         *stretch = FALSE;
1177     }
1178     else
1179     {
1180         stretch_params->err_start = 3 * bres_params.dx - 2 * bres_params.dy +
1181             n * 2 * bres_params.dx - m * 2 * bres_params.dy;
1182         stretch_params->err_add_1 = 2 * bres_params.dx - 2 * bres_params.dy;
1183         stretch_params->err_add_2 = 2 * bres_params.dx;
1184         stretch_params->length = abs( clipped_end.y - clipped_start.y );
1185         *stretch = TRUE;
1186     }
1187
1188     /* The endpoint will usually have been clipped out as we don't want to touch
1189        that pixel, if it is we'll increment the length. */
1190     if (end.x != clipped_end.x || end.y != clipped_end.y)
1191     {
1192         clipped_end.x += stretch_params->src_inc;
1193         clipped_end.y += stretch_params->dst_inc;
1194         stretch_params->length++;
1195     }
1196
1197     *src_clipped_start = clipped_start.x;
1198     *dst_clipped_start = clipped_start.y;
1199     *src_clipped_end   = clipped_end.x;
1200     *dst_clipped_end   = clipped_end.y;
1201
1202     return ERROR_SUCCESS;
1203 }
1204
1205
1206 DWORD stretch_bitmapinfo( const BITMAPINFO *src_info, void *src_bits, struct bitblt_coords *src,
1207                           const BITMAPINFO *dst_info, void *dst_bits, struct bitblt_coords *dst,
1208                           INT mode )
1209 {
1210     dib_info src_dib, dst_dib;
1211     POINT dst_start, src_start, dst_end, src_end;
1212     RECT rect;
1213     BOOL hstretch, vstretch;
1214     struct stretch_params v_params, h_params;
1215     int err;
1216     DWORD ret;
1217     void (* row_fn)(const dib_info *dst_dib, const POINT *dst_start,
1218                     const dib_info *src_dib, const POINT *src_start,
1219                     const struct stretch_params *params, int mode, BOOL keep_dst);
1220
1221     TRACE("dst %d, %d - %d x %d visrect %s src %d, %d - %d x %d visrect %s\n",
1222           dst->x, dst->y, dst->width, dst->height, wine_dbgstr_rect(&dst->visrect),
1223           src->x, src->y, src->width, src->height, wine_dbgstr_rect(&src->visrect));
1224
1225     if ( !init_dib_info_from_bitmapinfo( &src_dib, src_info, src_bits, 0 ) )
1226         return ERROR_BAD_FORMAT;
1227     if ( !init_dib_info_from_bitmapinfo( &dst_dib, dst_info, dst_bits, 0 ) )
1228         return ERROR_BAD_FORMAT;
1229
1230     /* v */
1231     ret = calc_1d_stretch_params( dst->y, dst->height, dst->visrect.top, dst->visrect.bottom,
1232                                   src->y, src->height, src->visrect.top, src->visrect.bottom,
1233                                   &dst_start.y, &src_start.y, &dst_end.y, &src_end.y,
1234                                   &v_params, &vstretch );
1235     if (ret) return ret;
1236
1237     /* h */
1238     ret = calc_1d_stretch_params( dst->x, dst->width, dst->visrect.left, dst->visrect.right,
1239                                   src->x, src->width, src->visrect.left, src->visrect.right,
1240                                   &dst_start.x, &src_start.x, &dst_end.x, &src_end.x,
1241                                   &h_params, &hstretch );
1242     if (ret) return ret;
1243
1244     TRACE("got dst start %d, %d inc %d, %d. src start %d, %d inc %d, %d len %d x %d\n",
1245           dst_start.x, dst_start.y, h_params.dst_inc, v_params.dst_inc,
1246           src_start.x, src_start.y, h_params.src_inc, v_params.src_inc,
1247           h_params.length, v_params.length);
1248
1249     get_bounding_rect( &rect, dst_start.x, dst_start.y, dst_end.x - dst_start.x, dst_end.y - dst_start.y );
1250     intersect_rect( &dst->visrect, &dst->visrect, &rect );
1251
1252     dst_start.x -= dst->visrect.left;
1253     dst_start.y -= dst->visrect.top;
1254
1255     err = v_params.err_start;
1256
1257     row_fn = hstretch ? dst_dib.funcs->stretch_row : dst_dib.funcs->shrink_row;
1258
1259     if (vstretch)
1260     {
1261         BOOL need_row = TRUE;
1262         RECT last_row, this_row;
1263         if (hstretch) mode = STRETCH_DELETESCANS;
1264         last_row.left = 0;
1265         last_row.right = dst->visrect.right - dst->visrect.left;
1266
1267         while (v_params.length--)
1268         {
1269             if (need_row)
1270             {
1271                 row_fn( &dst_dib, &dst_start, &src_dib, &src_start, &h_params, mode, FALSE );
1272                 need_row = FALSE;
1273             }
1274             else
1275             {
1276                 last_row.top = dst_start.y - v_params.dst_inc;
1277                 last_row.bottom = dst_start.y;
1278                 this_row = last_row;
1279                 offset_rect( &this_row, 0, v_params.dst_inc );
1280                 copy_rect( &dst_dib, &this_row, &dst_dib, &last_row, NULL, R2_COPYPEN );
1281             }
1282
1283             if (err > 0)
1284             {
1285                 src_start.y += v_params.src_inc;
1286                 need_row = TRUE;
1287                 err += v_params.err_add_1;
1288             }
1289             else err += v_params.err_add_2;
1290             dst_start.y += v_params.dst_inc;
1291         }
1292     }
1293     else
1294     {
1295         int merged_rows = 0;
1296         int faster_mode = mode;
1297
1298         while (v_params.length--)
1299         {
1300             if (hstretch) faster_mode = merged_rows ? mode : STRETCH_DELETESCANS;
1301             row_fn( &dst_dib, &dst_start, &src_dib, &src_start, &h_params, faster_mode, merged_rows != 0 );
1302             merged_rows++;
1303
1304             if (err > 0)
1305             {
1306                 dst_start.y += v_params.dst_inc;
1307                 merged_rows = 0;
1308                 err += v_params.err_add_1;
1309             }
1310             else err += v_params.err_add_2;
1311             src_start.y += v_params.src_inc;
1312         }
1313     }
1314
1315     /* update coordinates, the destination rectangle is always stored at 0,0 */
1316     *src = *dst;
1317     src->x -= src->visrect.left;
1318     src->y -= src->visrect.top;
1319     offset_rect( &src->visrect, -src->visrect.left, -src->visrect.top );
1320     return ERROR_SUCCESS;
1321 }
1322
1323 DWORD blend_bitmapinfo( const BITMAPINFO *src_info, void *src_bits, struct bitblt_coords *src,
1324                         const BITMAPINFO *dst_info, void *dst_bits, struct bitblt_coords *dst,
1325                         BLENDFUNCTION blend )
1326 {
1327     dib_info src_dib, dst_dib;
1328
1329     if (!init_dib_info_from_bitmapinfo( &src_dib, src_info, src_bits, 0 ) )
1330         return ERROR_BAD_FORMAT;
1331     if (!init_dib_info_from_bitmapinfo( &dst_dib, dst_info, dst_bits, 0 ) )
1332         return ERROR_BAD_FORMAT;
1333
1334     return blend_rect( &dst_dib, &dst->visrect, &src_dib, &src->visrect, NULL, blend );
1335 }
1336
1337 DWORD gradient_bitmapinfo( const BITMAPINFO *info, void *bits, TRIVERTEX *vert_array, ULONG nvert,
1338                            void *grad_array, ULONG ngrad, ULONG mode, const POINT *dev_pts, HRGN rgn )
1339 {
1340     dib_info dib;
1341     const GRADIENT_TRIANGLE *tri = grad_array;
1342     const GRADIENT_RECT *rect = grad_array;
1343     unsigned int i;
1344     int y;
1345     TRIVERTEX vert[3];
1346     DWORD ret = ERROR_SUCCESS;
1347     HRGN tmp_rgn = 0;
1348
1349     if (!init_dib_info_from_bitmapinfo( &dib, info, bits, 0 )) return ERROR_BAD_FORMAT;
1350
1351     switch (mode)
1352     {
1353     case GRADIENT_FILL_RECT_H:
1354         for (i = 0; i < ngrad; i++, rect++)
1355         {
1356             get_gradient_hrect_vertices( rect, vert_array, dev_pts, vert );
1357             gradient_rect( &dib, vert, mode, 0 );
1358             if (!tmp_rgn) tmp_rgn = CreateRectRgn( vert[0].x, vert[0].y, vert[1].x, vert[1].y );
1359             else SetRectRgn( tmp_rgn, vert[0].x, vert[0].y, vert[1].x, vert[1].y );
1360             CombineRgn( rgn, rgn, tmp_rgn, RGN_OR );
1361         }
1362         break;
1363
1364     case GRADIENT_FILL_RECT_V:
1365         for (i = 0; i < ngrad; i++, rect++)
1366         {
1367             get_gradient_vrect_vertices( rect, vert_array, dev_pts, vert );
1368             gradient_rect( &dib, vert, mode, 0 );
1369             if (!tmp_rgn) tmp_rgn = CreateRectRgn( vert[0].x, vert[0].y, vert[1].x, vert[1].y );
1370             else SetRectRgn( tmp_rgn, vert[0].x, vert[0].y, vert[1].x, vert[1].y );
1371             CombineRgn( rgn, rgn, tmp_rgn, RGN_OR );
1372         }
1373         break;
1374
1375     case GRADIENT_FILL_TRIANGLE:
1376         for (i = 0; i < ngrad; i++, tri++)
1377         {
1378             get_gradient_triangle_vertices( tri, vert_array, dev_pts, vert );
1379             if (gradient_rect( &dib, vert, mode, 0 ))
1380             {
1381                 if (!tmp_rgn) tmp_rgn = CreateRectRgn( 0, 0, 0, 0 );
1382                 for (y = vert[0].y; y < vert[2].y; y++)
1383                 {
1384                     int x1, x2 = edge_coord( y, vert[0].x, vert[0].y, vert[2].x, vert[2].y );
1385                     if (y < vert[1].y) x1 = edge_coord( y, vert[0].x, vert[0].y, vert[1].x, vert[1].y );
1386                     else x1 = edge_coord( y, vert[1].x, vert[1].y, vert[2].x, vert[2].y );
1387
1388                     SetRectRgn( tmp_rgn, min(x1,x2), y, max(x1,x2), y + 1 );
1389                     CombineRgn( rgn, rgn, tmp_rgn, RGN_OR );
1390                 }
1391             }
1392             else ret = ERROR_INVALID_PARAMETER;
1393         }
1394         break;
1395     }
1396     DeleteObject( tmp_rgn );
1397     return ret;
1398 }
1399
1400 /***********************************************************************
1401  *           dibdrv_StretchBlt
1402  */
1403 BOOL dibdrv_StretchBlt( PHYSDEV dst_dev, struct bitblt_coords *dst,
1404                         PHYSDEV src_dev, struct bitblt_coords *src, DWORD rop )
1405 {
1406     BOOL ret;
1407     DC *dc_dst = get_dc_ptr( dst_dev->hdc );
1408
1409     if (!dc_dst) return FALSE;
1410
1411     if (dst->width == 1 && src->width > 1) src->width--;
1412     if (dst->height == 1 && src->height > 1) src->height--;
1413
1414     ret = dc_dst->nulldrv.funcs->pStretchBlt( &dc_dst->nulldrv, dst,
1415                                               src_dev, src, rop );
1416     release_dc_ptr( dc_dst );
1417     return ret;
1418 }
1419
1420 /***********************************************************************
1421  *           dibdrv_AlphaBlend
1422  */
1423 BOOL dibdrv_AlphaBlend( PHYSDEV dst_dev, struct bitblt_coords *dst,
1424                         PHYSDEV src_dev, struct bitblt_coords *src, BLENDFUNCTION blend )
1425 {
1426     BOOL ret;
1427     DC *dc_dst = get_dc_ptr( dst_dev->hdc );
1428
1429     if (!dc_dst) return FALSE;
1430
1431     ret = dc_dst->nulldrv.funcs->pAlphaBlend( &dc_dst->nulldrv, dst, src_dev, src, blend );
1432     release_dc_ptr( dc_dst );
1433     return ret;
1434 }
1435
1436 /***********************************************************************
1437  *           dibdrv_GradientFill
1438  */
1439 BOOL dibdrv_GradientFill( PHYSDEV dev, TRIVERTEX *vert_array, ULONG nvert,
1440                           void *grad_array, ULONG ngrad, ULONG mode )
1441 {
1442     dibdrv_physdev *pdev = get_dibdrv_pdev( dev );
1443     const GRADIENT_TRIANGLE *tri = grad_array;
1444     const GRADIENT_RECT *rect = grad_array;
1445     unsigned int i;
1446     POINT *pts;
1447     TRIVERTEX vert[3];
1448     BOOL ret = TRUE;
1449
1450     if (!(pts = HeapAlloc( GetProcessHeap(), 0, nvert * sizeof(*pts) ))) return FALSE;
1451     for (i = 0; i < nvert; i++)
1452     {
1453         pts[i].x = vert_array[i].x;
1454         pts[i].y = vert_array[i].y;
1455     }
1456     LPtoDP( dev->hdc, pts, nvert );
1457
1458     switch (mode)
1459     {
1460     case GRADIENT_FILL_RECT_H:
1461         for (i = 0; i < ngrad; i++, rect++)
1462         {
1463             get_gradient_hrect_vertices( rect, vert_array, pts, vert );
1464             /* Windows bug: no alpha on a8r8g8b8 created with bitfields */
1465             if (pdev->dib.funcs == &funcs_8888 && pdev->dib.compression == BI_BITFIELDS)
1466                 vert[0].Alpha = vert[1].Alpha = 0;
1467             gradient_rect( &pdev->dib, vert, mode, pdev->clip );
1468         }
1469         break;
1470
1471     case GRADIENT_FILL_RECT_V:
1472         for (i = 0; i < ngrad; i++, rect++)
1473         {
1474             get_gradient_vrect_vertices( rect, vert_array, pts, vert );
1475             /* Windows bug: no alpha on a8r8g8b8 created with bitfields */
1476             if (pdev->dib.funcs == &funcs_8888 && pdev->dib.compression == BI_BITFIELDS)
1477                 vert[0].Alpha = vert[1].Alpha = 0;
1478             gradient_rect( &pdev->dib, vert, mode, pdev->clip );
1479         }
1480         break;
1481
1482     case GRADIENT_FILL_TRIANGLE:
1483         for (i = 0; i < ngrad; i++, tri++)
1484         {
1485             get_gradient_triangle_vertices( tri, vert_array, pts, vert );
1486             /* Windows bug: no alpha on a8r8g8b8 created with bitfields */
1487             if (pdev->dib.funcs == &funcs_8888 && pdev->dib.compression == BI_BITFIELDS)
1488                 vert[0].Alpha = vert[1].Alpha = vert[2].Alpha = 0;
1489             if (!gradient_rect( &pdev->dib, vert, mode, pdev->clip )) ret = FALSE;
1490         }
1491         break;
1492     }
1493
1494     HeapFree( GetProcessHeap(), 0, pts );
1495     return ret;
1496 }