1 /*
2  *  ReactOS RosPerf - ReactOS GUI performance test program
3  *
4  *  This program is free software; you can redistribute it and/or modify
5  *  it under the terms of the GNU General Public License as published by
6  *  the Free Software Foundation; either version 2 of the License, or
7  *  (at your option) any later version.
8  *
9  *  This program is distributed in the hope that it will be useful,
10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  *  GNU General Public License for more details.
13  *
14  *  You should have received a copy of the GNU General Public License
15  *  along with this program; if not, write to the Free Software
16  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17  */
18 
19 #include <windows.h>
20 #include <wingdi.h>
21 #include "rosperf.h"
22 
23 typedef struct _ALPHABLEND_CONTEXT {
24   HDC BitmapDc;
25   HBITMAP Bitmap;
26 } ALPHABLEND_CONTEXT, *PALPHABLEND_CONTEXT;
27 
28 unsigned
29 AlphaBlendInit(void **Context, PPERF_INFO PerfInfo, unsigned Reps)
30 {
31   PALPHABLEND_CONTEXT ctx = HeapAlloc(GetProcessHeap(), 0, sizeof (ALPHABLEND_CONTEXT));
32   INT x, y;
33 
34   ctx->BitmapDc = CreateCompatibleDC(PerfInfo->BackgroundDc);
35   ctx->Bitmap = CreateCompatibleBitmap(PerfInfo->BackgroundDc, PerfInfo->WndWidth, PerfInfo->WndHeight);
36   SelectObject(ctx->BitmapDc, ctx->Bitmap);
37 
38   for (y = 0; y < PerfInfo->WndHeight; y++)
39     {
40       for (x = 0; x < PerfInfo->WndWidth; x++)
41         {
42           SetPixel(ctx->BitmapDc, x, y, RGB(0xff, 0x00, 0x00));
43         }
44     }
45 
46   *Context = ctx;
47 
48   return Reps;
49 }
50 
51 void
52 AlphaBlendCleanup(void *Context, PPERF_INFO PerfInfo)
53 {
54   PALPHABLEND_CONTEXT ctx = Context;
55   DeleteDC(ctx->BitmapDc);
56   DeleteObject(ctx->Bitmap);
57   HeapFree(GetProcessHeap(), 0, ctx);
58 }
59 
60 
61 ULONG
62 DbgPrint(
63   IN PCSTR  Format,
64   IN ...);
65 
66 void
67 AlphaBlendProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps)
68 {
69   PALPHABLEND_CONTEXT ctx = Context;
70   unsigned Rep;
71   BLENDFUNCTION BlendFunc = { AC_SRC_OVER, 0, 0, 0 };
72 
73   for (Rep = 0; Rep < Reps; Rep++)
74     {
75       BlendFunc.SourceConstantAlpha = 255 * Rep / Reps;
76 #if 0
77       PatBlt(PerfInfo->BackgroundDc, 0, 0, PerfInfo->WndWidth, PerfInfo->WndHeight, PATCOPY);
78 #endif
79       if (!AlphaBlend(PerfInfo->BackgroundDc, 0, 0, PerfInfo->WndWidth, PerfInfo->WndHeight,
80                       ctx->BitmapDc, 0, 0, PerfInfo->WndWidth, PerfInfo->WndHeight,
81                       BlendFunc))
82         {
83           DbgPrint("AlphaBlend failed (0x%lx)\n", GetLastError());
84         }
85     }
86 }
87 
88 /* EOF */
89