16.2 调色板动画

摘录于《Windows程序（第5版，珍藏版）.CHarles.Petzold 著》P665

        看到本小节的标题是“动画”时，你也许开始想到疯狂的兔子在屏幕上跑来跑去，你的期望值可能有点太高了。的确，你可以用 Windows 调色板管理器产生一些动画，但是它们只是一种特定形式的动画。

        通常，Windows 上的动画采用的方法是快速地显示一系列的位图。调色板动画则与此有很大的不同。你一开始要在屏幕上画出所有的对象，然后操纵调色板改变这些对象的颜色，比如把一些图像编程与屏幕背景一样，让它们变成不可见的。这样，可以获得动画的效果而不需要重画任何东西。因此调色板动画可以变化得非常快。

        在调色板动画中，最初产生调色板的步骤与我们之前看到的有一点不同。对于每一个 RGB 颜色值，如果它在动画期间会被改变，那么 PALETTEENTRY 结构的 peFlags 字段必须设置成 PC_RESERVED。

        正常情况下，正如我们所见到的，在创建逻辑调色板时，peFlags 标志应置为 0。这允许 GDI 把来自多个逻辑调色板的同一颜色映射到同一个系统调色板条目。例如，假设两个 Windows 应用程序产生了逻辑调色板，它们都有 RGB 条目 10-10-10。Windows 在系统调色板查找表中只需要一个 10-10-10 条目就可以了。但是如果这两个程序之一正在使用调色板动画，你就不应该让 GDI 做这种共享了。调色板动画的关键是要求非常快的变化，只有避免重绘才能达到快速的目的。当调色板动画程序改变调色板时，它不应该影响到其他程序，或者迫使 GDI 重新调整系统调色板查找表。

        在使用调色板动画技术时，可以在 WM_PAINT 消息期间正常调用 SelectPalette 和 RealizePalette 函数。应使用 PALETTEINDEX 宏来指定颜色，这个宏需要一个逻辑调色板查找表的索引作为参数。

        为了实现动画，也许你应该在回应 WM_TIMER 消息时改变调色板。要改变逻辑调色板中的 RGB 颜色值，可以使用 PALETTEENTRY 结构的数组来调用 AnimatePalette 函数。这个函数速度很快，这是因为它只需改变系统调色板的条目，进而改变显卡调色板查找表的条目。

16.2.1  弹球

        如下给出了 BOUNCE 程序的组件，它又是一个显示弹球的程序。考虑到简洁性，这个球画成椭圆形，它的大小取决于客户区的尺寸。由于在本章中有几个调色板动画程序，所以 PALANIM.C(“palette animation”)文件包含了所有这些程序公用的一些开销。

/*----------------------------------------------PALANIM.C -- Palette Animation Shell Program(c) Charles Petzold, 1998----------------------------------------------*/#include <windows.h>extern HPALETTE CreateRoutine(HWND);extern void     PaintRoutine(HDC, int, int);extern void     TimerRoutine(HDC, HPALETTE);extern void     DestroyRoutine(HWND, HPALETTE);LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);extern TCHAR szAppName[];extern TCHAR szTitle[];int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,PSTR szCmdLine, int iCmdShow){HWND     hwnd;MSG      msg;WNDCLASS wndclass;wndclass.style = CS_HREDRAW | CS_VREDRAW;wndclass.lpfnWndProc = WndProc;wndclass.cbClsExtra = 0;wndclass.cbWndExtra = 0;wndclass.hInstance = hInstance;wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);wndclass.lpszMenuName = NULL;wndclass.lpszClassName = szAppName;if (!RegisterClass(&wndclass)){MessageBox(NULL, TEXT("This program requires Windows NT!"),szAppName, MB_ICONERROR);return 0;}hwnd = CreateWindow(szAppName, szTitle,WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT,CW_USEDEFAULT, CW_USEDEFAULT,NULL, NULL, hInstance, NULL);if (!hwnd)return 0;ShowWindow(hwnd, iCmdShow);UpdateWindow(hwnd);while (GetMessage(&msg, NULL, 0, 0)){TranslateMessage(&msg);DispatchMessage(&msg);}return msg.wParam;}BOOL CheckDisplay(HWND hwnd){HDC hdc;int iPalSize;hdc = GetDC(hwnd);iPalSize = GetDeviceCaps(hdc, SIZEPALETTE);ReleaseDC(hwnd, hdc);if (iPalSize != 256){MessageBox(hwnd, TEXT("This program requires that the video ")TEXT("display mode have a 256-color palette."),szAppName, MB_ICONERROR);return FALSE;}return TRUE;}LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam){static HPALETTE hPalette;static int      cxClient, cyClient;HDC             hdc;PAINTSTRUCT     ps;switch (message){case WM_CREATE:if (!CheckDisplay(hwnd))return -1;hPalette = CreateRoutine(hwnd);return 0;case WM_DISPLAYCHANGE:if (!CheckDisplay(hwnd))DestroyWindow(hwnd);return 0;case WM_SIZE:cxClient = LOWORD(lParam);cyClient = HIWORD(lParam);return 0;case WM_PAINT:hdc = BeginPaint(hwnd, &ps);SelectPalette(hdc, hPalette, FALSE);RealizePalette(hdc);PaintRoutine(hdc, cxClient, cyClient);EndPaint(hwnd, &ps);return 0;case WM_TIMER:hdc = GetDC(hwnd);SelectPalette(hdc, hPalette, FALSE);TimerRoutine(hdc, hPalette);ReleaseDC(hwnd, hdc);return 0;case WM_QUERYNEWPALETTE:if (!hPalette)return FALSE;hdc = GetDC(hwnd);SelectPalette(hdc, hPalette, FALSE);RealizePalette(hdc);InvalidateRect(hwnd, NULL, TRUE);ReleaseDC(hwnd, hdc);return TRUE;case WM_PALETTECHANGED:if (!hPalette || (HWND)wParam == hwnd)break;hdc = GetDC(hwnd);SelectPalette(hdc, hPalette, FALSE);RealizePalette(hdc);UpdateColors(hdc);ReleaseDC(hwnd, hdc);break;case WM_DESTROY:DestroyRoutine(hwnd, hPalette);PostQuitMessage(0);return 0;}return DefWindowProc(hwnd, message, wParam, lParam);}

/*---------------------------------------BOUNCE.C -- Palette Animation Demo(c) Charles Petzold, 1998---------------------------------------*/#include <windows.h>#define ID_TIMER 1TCHAR szAppName[] = TEXT("Bounce");TCHAR szTitle[] = TEXT("Bounce: Palette Animation Demo");static LOGPALETTE * plp;HPALETTE CreateRoutine(HWND hwnd){    HPALETTE hPalette;    int      i;    plp =    (LOGPALETTE *)malloc(sizeof(LOGPALETTE) + 33 * sizeof(PALETTEENTRY));    plp->palVersion = 0x0300;    plp->palNumEntries = 34;    for (i = 0; i < 34; i++)    {        plp->palPalEntry[i].peRed = 255;        plp->palPalEntry[i].peGreen = (i == 0 ? 0 : 255);        plp->palPalEntry[i].peBlue = (i == 0 ? 0 : 255);        plp->palPalEntry[i].peFlags = (i == 33 ? 0 : PC_RESERVED);    }    hPalette = CreatePalette(plp);    SetTimer(hwnd, ID_TIMER, 50, NULL);    return hPalette;}void PaintRoutine(HDC hdc, int cxClient, int cyClient){    HBRUSH hBrush;    int    i, x1, x2, y1, y2;    RECT   rect;    // Draw window background using palette index 33    SetRect(&rect, 0, 0, cxClient, cyClient);    hBrush = CreateSolidBrush(PALETTEINDEX(33));    FillRect(hdc, &rect, hBrush);    DeleteObject(hBrush);    // Draw the 33 balls    SelectObject(hdc, GetStockObject(NULL_PEN));    for (i = 0; i < 33; i++)    {        x1 = i      * cxClient / 33;        x2 = (i + 1) * cxClient / 33;        if (i < 9)        {            y1 = i      * cyClient / 9;            y2 = (i + 1) * cyClient / 9;        }        else if (i < 17)        {            y1 = (16 - i) * cyClient / 9;            y2 = (17 - i) * cyClient / 9;        }        else if (i < 25)        {            y1 = (i - 16) * cyClient / 9;            y2 = (i - 15) * cyClient / 9;        }        else        {            y1 = (32 - i) * cyClient / 9;            y2 = (33 - i) * cyClient / 9;        }        hBrush = CreateSolidBrush(PALETTEINDEX(i));        SelectObject(hdc, hBrush);        Ellipse(hdc, x1, y1, x2, y2);        DeleteObject(SelectObject(hdc, GetStockObject(WHITE_BRUSH)));    }    return;}void TimerRoutine(HDC hdc, HPALETTE hPalette){    static BOOL bLeftToRight = TRUE;    static int  iBall;    // Set old ball to white    plp->palPalEntry[iBall].peGreen = 255;    plp->palPalEntry[iBall].peBlue = 255;    iBall += (bLeftToRight ? 1 : -1);    if (iBall == (bLeftToRight ? 33 : -1))    {        iBall = (bLeftToRight ? 31 : 1);        bLeftToRight ^= TRUE;    }    // Set new ball to red    plp->palPalEntry[iBall].peGreen = 0;    plp->palPalEntry[iBall].peBlue = 0;    // Animate the palette    AnimatePalette(hPalette, 0, 33, plp->palPalEntry);    return;}void DestroyRoutine(HWND hwnd, HPALETTE hPalette){    KillTimer(hwnd, ID_TIMER);    DeleteObject(hPalette);    free(plp);    return;}

        只有当 Windows 在支持调色板的视频模式中运行时，调色板动画才能工作。所以 PALANIM.C 在处理 WM_CREATE 消息时，一开始就调用 CheckDisplay 函数。SYSPAL 程序也调用过同样的函数。

        PALANIM.C 调用 BOUNCE.C 的四个函数：在 WM_CREATE 消息期间的 CreateRoutine 函数(BOUNCE 在此期间应该生成一个逻辑调色板)，在 WM_PAINT 消息期间的 PaintRoutine 函数，在 WM_TIMER 消息期间的 TimerRoutine 函数，以及在 WM_DESTROY 消息期间的 DestroyRoutine 函数(BOUNCE 在此期间做清理工作)。在调用 PaintRoutine 和 TimerRoutine 之前，PALANIM.C 获取设备环境然后选入逻辑调色板。在调用 PaintRoutine 和 TimerRoutine 之前，PALANIM.C 获取设备环境然后选入逻辑调色板。在调用 PaintRoutine 之前，它还实现了调色板。PALANIM.C 期望 TimerRoutine 调用 AnimatePalette。虽然 AnimatePalette 需要调色板被选入设备环境中，但它并不需要调用 RealizePalette。

        在客户区，Bounce 里面的球以“W”形的轨迹弹来弹去。客户区的背景是白色的，球是红色的。在任何时候，球处在不相互重叠的 33 个位置中的一个。这需要 34 个调色板条目，其中一个条目给背景而其余 33 个用于求的不同位置。在 CreateRoutine 函数中，BOUNCE 通过设置第一个调色板条目(对应球在左上角的位置)为红色而其余的条目都为白色，来处理化 PALETTEENTRY 结构的数组。注意，所有条目的 peFlags 字段都设置为 PC_RESERVED，除了最后一个调色板条目，也就是悲剧。在 CreateRoutine 结束时，BOUNCE 将 Windows 的计时器间隔设置为 50 毫秒。

        BOUNCE 在 PaintRoutine 里面完成了所有的绘制工作。窗口的背景是用一个指定颜色的实心画刷画出来的，这个颜色由调色板索引 33 指定。33 个球的颜色是用基于从 0 到 32 的调色板索引的颜色画出来的。当 BOUNCE 刚开始在它的客户区绘制的时候，调色板索引 0 对应于红色，而其他调色板索引对应白色。这使球出现在左上角。

        当 WndProc 处理 WM_TIMER 消息，并调用 TimerRoutine 的时候，动画就产生了。TimerRoutine 在最后调用 AnimatePalette 函数，以下是调用语法：

AnimatePalette (hPalette, uStart, uNum, &pe);

第一个参数是调色板的句柄，而最后一个参数是指向由一个或者多个 PALETTEENTRY 结构组成的数组的指针。这个函数改变逻辑调色板中的一个或多个条目——从 uStart 条目开始，一共改变 uNum 个条目。逻辑调色板中的这个新的 uStart 条目是从 PALETTEENTRY 结构中的第一个元素得到的。千万小心！这个 uStart 参数是原始逻辑调色板的索引，而不是 PALETTEENTRY 数组的索引。

        为了方便起见，BOUNCE 使用了 PALETTEENTRY 结构的数组，该结构是在创建逻辑调色板时所用到的 LOGPALETTE 结构的一部分。球的当前位置(从 0 到 32)存储在静态变量 iBall 中。在 TimerRoutine 里，BOUNCE 设置 PALETTEENTRY 元素为白色。然后它计算出球的新位置，并设定相应元素为红色。通过下面的调用，调色板被改变了：

AnimatePalette(hPalette, 0, 33, plp->palPalEntry);

GDI 改变了前 33 个逻辑调色板的条目(虽然实际上只有两个真正变了)，在系统调色板表中也做出了相对应的改变，然后更改视频显示适配器上的硬件调色板表。虽然窗口没有重绘，但看起来球在移动。

        当 BOUNCE 运行时，如果你运行 SYSPAL2 或 SYSPAL3，你会发现它们很有教学作用。

        虽然 AnimatePalette 工作起来很快，但当只有一两个条目实际变化时，你或许应该避免改变所有逻辑调色板条目的做法。这在 BOUNCE 里实现起来有点复杂，因为球总是弹来弹去，所以 iBall 先是被增值，然后被减值。有一个办法，就是使用两个其他的变量，称为 iBallOld(设定为球先前的位置)和 iBallMin(iBall 和 iBallOld 中值较小的那个)。然后你可以像下面这样调用 AnimatePalette 来改变仅仅这两个条目：

iBallMin = min(iBall, iBallOld);AnimatePalette(hPalette, iBallMin, 2, plp->palPalEntry + iBalMin);

        还有另外一种方法：让我们假设你先定义了一个单独的 PALETTEENTRY 结构：

PALETTEENTRY pe;

在 TimerRoutine 中，把 PALETTEENTRY 的字段设为白色并调用 AnimatePalette 来改变逻辑调色板中 iBall 位置对应的条目：

pe.peRed = 255;pe.peGreen = 255;pe.peBlue = 255;pe.peFlags = PC_RESERVED;AnimatePalette (hPalette, iBall, 1, &pe);

接着可以像 BOUNCE 中所示的那样去计算 iBall 的新值，定义 PALETTEENTRY 结构的字段为红色，并再次调用 AnimatePalette：

pe.peRed = 255;pe.peGreen = 0;pe.peBlue = 0;pe.peFlags = PC_RESERVED;AnimatePalette (hPalette, iBall, 1, &pe);

        虽然弹球是传统的简单的动画制作例子，但它其实不是很适合调色板动画，因为球的所有可能的位置必须在最初始的时候就被画出来。调色板动画更适合于显示具有重复模式的运动。

16.2.2  单一条目的调色板动画

        调色板动画一个比较有趣的方面是，可以只使用一个调色板条目来实现一些有趣的技术。这在如下所示的 FADER 程序中有所展示。这个程序同样需要前面展示过的 PALANIM.C 文件。

/*--------------------------------------FADER.C -- Palette Animation Demo(c) Charles Petzold, 1998--------------------------------------*/#include <windows.h>#define ID_TIMER 1TCHAR szAppName[] = TEXT("Fader");TCHAR szTitle[] = TEXT("Fader: Palette Animation Demo");static LOGPALETTE lp;HPALETTE CreateRoutine(HWND hwnd){HPALETTE hPalette;lp.palVersion = 0x0300;lp.palNumEntries = 1;lp.palPalEntry[0].peRed = 255;lp.palPalEntry[0].peGreen = 255;lp.palPalEntry[0].peBlue = 255;lp.palPalEntry[0].peFlags = PC_RESERVED;hPalette = CreatePalette(&lp);SetTimer(hwnd, ID_TIMER, 50, NULL);return hPalette;}void PaintRoutine(HDC hdc, int cxClient, int cyClient){static TCHAR szText[] = TEXT(" Fade In and Out ");int          x, y;SIZE         sizeText;SetTextColor(hdc, PALETTEINDEX(0));GetTextExtentPoint32(hdc, szText, lstrlen(szText), &sizeText);for (x = 0; x < cxClient; x += sizeText.cx)for (y = 0; y < cyClient; y += sizeText.cy){TextOut(hdc, x, y, szText, lstrlen(szText));}return;}void TimerRoutine(HDC hdc, HPALETTE hPalette){static BOOL bFadeIn = TRUE;if (bFadeIn){lp.palPalEntry[0].peRed -= 4;lp.palPalEntry[0].peGreen -= 4;if (lp.palPalEntry[0].peRed == 3)bFadeIn = FALSE;}else{lp.palPalEntry[0].peRed += 4;lp.palPalEntry[0].peGreen += 4;if (lp.palPalEntry[0].peRed == 255)bFadeIn = TRUE;}AnimatePalette(hPalette, 0, 1, lp.palPalEntry);return;}void DestroyRoutine(HWND hwnd, HPALETTE hPalette){KillTimer(hwnd, ID_TIMER);DeleteObject(hPalette);return;}

        FADER 在整个客户区内写满了文本字符串“Fade In And Out”。文本最初显示为白色，在白色背景的窗口上时看不到的。通过使用调色板动画，FADER 逐步改变文本的颜色为蓝色，然后又回到白色，反复一遍又一遍。文本看上去就像在慢慢地淡入淡出。

        FADER 在其 CreateRoutine 函数中创建了一个逻辑调色板。它只需要调色板的一个条目并将颜色初始化为白色——也就是说，红色、绿色和蓝色值都设置为 255。在 PaintRoutine 中(你会记得，PaintRoutine 在逻辑调色板被选入设备环境并得到实现后，被 PALANIM 调用)，FADER 调用 SetTextColor 来设置文本颜色为 PALETTEINDEX(0)。这意味着，文本颜色设置为调色板表中的第一个条目，即被初始化为白色的条目。FADER 然后用“Fade In And Out”文本字符串填满其客户区。在这个时候，窗口的背景是白色的而文本也是白色的；因此看不见。

        在 TimerRoutine 函数中，FADER 通过改变 PALETTEENTRY 结构并把该结构传给 AnimatePalette 来赋予调色板动画功能。该程序最初在每个 WM_TIMER 消息中将红色和绿色值递减 4，直到它们达到值 3 为止。然后将值递增 4，直到它们回到 255。这会使得文本的颜色从白色淡成蓝色然后再回到白色。

        如下所示，ALLCOLOR 程序使用了单个条目的逻辑调色板来显示视频适配器能画出的所有颜色。当然不是同时显示它们，而是顺序显示。如果视频适配器有一个 18 位的分辨率(在这种情况下，它能够显示 262144 种不同的颜色)，那么每 55 毫秒显示一种颜色的话，只需要花费 4 个小时盯着屏幕，就可以看到所有的颜色了！

/*-----------------------------------------ALLCOLOR.C -- Palette Animation Demo(c) Charles Petzold, 1998-----------------------------------------*/#include <windows.h>#define ID_TIMER    1TCHAR szAppName[] = TEXT("AllColor");TCHAR szTitle[] = TEXT("AllColor: Palette Animation Demo");static int          iIncr;static PALETTEENTRY pe;HPALETTE CreateRoutine(HWND hwnd){HDC        hdc;HPALETTE   hPalette;LOGPALETTE lp;// Determine the color resolution and set iIncrhdc = GetDC(hwnd);iIncr = 1 << (8 - GetDeviceCaps(hdc, COLORRES) / 3);ReleaseDC(hwnd, hdc);// Create the logical palettelp.palVersion = 0x0300;lp.palNumEntries = 1;lp.palPalEntry[0].peRed = 0;lp.palPalEntry[0].peGreen = 0;lp.palPalEntry[0].peBlue = 0;lp.palPalEntry[0].peFlags = PC_RESERVED;hPalette = CreatePalette(&lp);// Save global for less typingpe = lp.palPalEntry[0];SetTimer(hwnd, ID_TIMER, 10, NULL);return hPalette;}void DisplayRGB(HDC hdc, PALETTEENTRY * ppe){TCHAR szBuffer[16];wsprintf(szBuffer, TEXT(" %02X-%02X-%02X "),ppe->peRed, ppe->peGreen, ppe->peBlue);TextOut(hdc, 0, 0, szBuffer, lstrlen(szBuffer));}void PaintRoutine(HDC hdc, int cxClient, int cyClient){HBRUSH   hBrush;RECT     rect;// Draw Palette Index 0 on entire windowhBrush = CreateSolidBrush(PALETTEINDEX(0));SetRect(&rect, 0, 0, cxClient, cyClient);FillRect(hdc, &rect, hBrush);DeleteObject(SelectObject(hdc, GetStockObject(WHITE_BRUSH)));// Display the RGB valueDisplayRGB(hdc, &pe);return;}void TimerRoutine(HDC hdc, HPALETTE hPalette){static BOOL  bRedUp = TRUE, bGreenUp = TRUE, bBlueUp = TRUE;// Define new color valuepe.peBlue += (bBlueUp ? iIncr : -iIncr);if (pe.peBlue == (BYTE)(bBlueUp ? 0 : 256 - iIncr)){pe.peBlue = (bBlueUp ? 256 - iIncr : 0);bBlueUp ^= TRUE;pe.peGreen += (bGreenUp ? iIncr : -iIncr);if (pe.peGreen == (BYTE)(bGreenUp ? 0 : 256 - iIncr)){pe.peGreen = (bGreenUp ? 256 - iIncr : 0);bGreenUp ^= TRUE;pe.peRed += (bRedUp ? iIncr : -iIncr);if (pe.peRed == (BYTE)(bRedUp ? 0 : 256 - iIncr)){pe.peRed = (bRedUp ? 256 - iIncr : 0);bRedUp ^= TRUE;}}}// Animate the paletteAnimatePalette(hPalette, 0, 1, &pe);DisplayRGB(hdc, &pe);return;}void DestroyRoutine(HWND hwnd, HPALETTE hPalette){KillTimer(hwnd, ID_TIMER);DeleteObject(hPalette);return;}

        结构上，ALLCOLOR 和 FADER 非常相似。在 CreateRoutine 里，ALLCOLOR 创建了一个只有一个条目的调色板，并且这个条目的颜色被设置为黑色(PALETTEENTRY 结构的红、绿、蓝字段都设置为 0)。在 PaintRoutine 内，ALLCOLOR 用 PALETTEINDEX(0)创建了一个实心画刷，并调用 FillRect 用该画刷对整个客户区着色。

        在 TimerRoutine 内，ALLCOLOR 通过改变 PALETTEENTRY 的颜色和调用 AnimatePalette 来实现调色板动画。ALLCOLOR 程序中颜色的变化很平滑。首先，蓝色的值逐步递增。当它达最大值时，绿色值递增，然后蓝色值逐步递减。红、绿、蓝颜色值的递增和递减是基于 iIncr 变量的。这是在 CreateRoutine 中，根据带有 COLORRES 参数的 GetDeviceCaps 返回的值来计算的。例如，如果 GetDeviceCaps 返回 18，那么 iIncr 就被设定为 4，这是为了获得所有颜色所需要的最小值。

        ALLCOLOR 还会在客户区的左上角显示当前的 RGB 颜色值。本来我添加这段代码是为了测试用的，但后来发现它很有用，所以就把代码留下了。

16.2.3  工程应用

        在工程应用中，动画对于显示机械或电子过程会很有用。在计算机屏幕上显示内燃机是很不错的，但动画才能真正使它活起来，并且更清晰地显示其工作原理。

        一个比较适合于用调色板动画显示的过程，是显示液体通过一个管道。这种情况下，图像不一定要严格准备。事实上，如果图像真是准确的(就像你正在看着一个透明管道一样)，那描述管道内的东西如何移动时很难的。在这里采取更具有象征意义的方法反而更好。PIPES 程序是对这种技术的一个简单演示。它在客户区显示两个水平管道。在前面提到的那根管道中，液体从左往右移动；在下面的那根中，则从右往左移动。

/*--------------------------------------PIPES.C -- Palette Animation Demo(c) Charles Petzold, 1998--------------------------------------*/#include <windows.h>#define ID_TIMER 1TCHAR szAppName[] = TEXT("Pipes");TCHAR szTitle[] = TEXT("Pipes: Palette Animation Demo");static LOGPALETTE * plp;HPALETTE CreateRoutine(HWND hwnd){HPALETTE hPalette;int      i;plp = (LOGPALETTE *)malloc(sizeof(LOGPALETTE) + 32 * sizeof(PALETTEENTRY));// Initialize the fields of the LOGPALETTE structureplp->palVersion = 0x300;plp->palNumEntries = 16;for (i = 0; i <= 8; i++){plp->palPalEntry[i].peRed = (BYTE)min(255, 0x20 * i);plp->palPalEntry[i].peGreen = 0;plp->palPalEntry[i].peBlue = (BYTE)min(255, 0x20 * i);plp->palPalEntry[i].peFlags = PC_RESERVED;plp->palPalEntry[16 - i] = plp->palPalEntry[i];plp->palPalEntry[16 + i] = plp->palPalEntry[i];plp->palPalEntry[32 - i] = plp->palPalEntry[i];}hPalette = CreatePalette(plp);SetTimer(hwnd, ID_TIMER, 100, NULL);return hPalette;}void PaintRoutine(HDC hdc, int cxClient, int cyClient){HBRUSH hBrush;int    i;RECT   rect;// Draw window backgroundSetRect(&rect, 0, 0, cxClient, cyClient);hBrush = (HBRUSH)SelectObject(hdc, GetStockObject(WHITE_BRUSH));FillRect(hdc, &rect, hBrush);// Draw the interiors of the pipesfor (i = 0; i < 128; i++){hBrush = CreateSolidBrush(PALETTEINDEX(i % 16));SelectObject(hdc, hBrush);rect.left = (127 - i) * cxClient / 128;rect.right = (128 - i) * cxClient / 128;rect.top = 4 * cyClient / 14;rect.bottom = 5 * cyClient / 14;FillRect(hdc, &rect, hBrush);rect.left = i      * cxClient / 128;rect.right = (i + 1) * cxClient / 128;rect.top = 9 * cyClient / 14;rect.bottom = 10 * cyClient / 14;FillRect(hdc, &rect, hBrush);DeleteObject(SelectObject(hdc, GetStockObject(WHITE_BRUSH)));}// Draw the edges of the pipesMoveToEx(hdc, 0, 4 * cyClient / 14, NULL);LineTo(hdc, cxClient, 4 * cyClient / 14);MoveToEx(hdc, 0, 5 * cyClient / 14, NULL);LineTo(hdc, cxClient, 5 * cyClient / 14);MoveToEx(hdc, 0, 9 * cyClient / 14, NULL);LineTo(hdc, cxClient, 9 * cyClient / 14);MoveToEx(hdc, 0, 10 * cyClient / 14, NULL);LineTo(hdc, cxClient, 10 * cyClient / 14);return;}void TimerRoutine(HDC hdc, HPALETTE hPalette){static int iIndex;AnimatePalette(hPalette, 0, 16, plp->palPalEntry + iIndex);iIndex = (iIndex + 1) % 16;return;}void DestroyRoutine(HWND hwnd, HPALETTE hPalette){KillTimer(hwnd, ID_TIMER);DeleteObject(hPalette);free(plp);return;}

        PIPES 为此动画使用了 16 个调色板条目，但你也许可以用更少的条目来达到效果。最低要求，你只需要有足够的条目来显示流动的方向即可。哪怕是三个调色板条目也比一个静态箭头更好。

        如下所示的 TUNNEL 程序使用了 128 个调色板条目来达到动画效果，是此系列程序中最不精炼的一个。但从效果来看是很值得的。

/*---------------------------------------TUNNEL.C -- Palette Animation Demo(c) Charles Petzold, 1998---------------------------------------*/#include <windows.h>#define ID_TIMER 1TCHAR szAppName[] = TEXT("Tunnel");TCHAR szTitle[] = TEXT("Tunnel: Palette Animation Demo");static LOGPALETTE * plp;HPALETTE CreateRoutine(HWND hwnd){BYTE     byGrayLevel;HPALETTE hPalette;int      i;plp = (LOGPALETTE*)malloc(sizeof(LOGPALETTE) + 255 * sizeof(PALETTEENTRY));// Initialize the fields of the LOGPALETTE structureplp->palVersion = 0x0300;plp->palNumEntries = 128;for (i = 0; i < 128; i++){if (i < 64)byGrayLevel = (BYTE)(4 * i);elsebyGrayLevel = (BYTE)min(255, 4 * (128 - i));plp->palPalEntry[i].peRed = byGrayLevel;plp->palPalEntry[i].peGreen = byGrayLevel;plp->palPalEntry[i].peBlue = byGrayLevel;plp->palPalEntry[i].peFlags = PC_RESERVED;plp->palPalEntry[i + 128].peRed = byGrayLevel;plp->palPalEntry[i + 128].peGreen = byGrayLevel;plp->palPalEntry[i + 128].peBlue = byGrayLevel;plp->palPalEntry[i + 128].peFlags = PC_RESERVED;}hPalette = CreatePalette(plp);SetTimer(hwnd, ID_TIMER, 50, NULL);return hPalette;}void PaintRoutine(HDC hdc, int cxClient, int cyClient){HBRUSH hBrush;int    i;RECT   rect;for (i = 0; i < 127; i++){// Use a RECT structure for each of 128 rectanglesrect.left = i * cxClient / 255;rect.top = i * cyClient / 255;rect.right = cxClient - i * cxClient / 255;rect.bottom = cyClient - i * cyClient / 255;hBrush = CreateSolidBrush(PALETTEINDEX(i));// Fill the rectangle and delete the brushFillRect(hdc, &rect, hBrush);DeleteObject(hBrush);}return;}void TimerRoutine(HDC hdc, HPALETTE hPalette){static int iLevel;iLevel = (iLevel + 1) % 128;AnimatePalette(hPalette, 0, 128, plp->palPalEntry + iLevel);return;}void DestroyRoutine(HWND hwnd, HPALETTE hPalette){KillTimer(hwnd, ID_TIMER);DeleteObject(hPalette);free(plp);return;}

        TUNNEL 在 128 个调色板中使用了 64 个移动的灰色阴影——由黑变白，又回到黑，以达到穿过一条隧道的效果。