ドット絵,EDGE2,Domino｜TAKABO SOFT

2000: 9月; 29

第6回　画像を徐々に表示する

DirectXゲーム作成講座　演出・エフェクト編

サンプルコードのダウンロード

では、まずサンプルコードをダウンロードし、解凍してください。
私はVisual C++6.0でコンパイルしているので、お持ちの方はVisual C++でプロジェクトファイルを開いてください（「effec_06.dsw」をダブルクリックすれば開けます）。
圧縮ファイルに含まれる「effec_06.exe」をダブルクリックし、実行してみてください（何かキーを押すと終了します）。
どうでしょう？画面が切り替わり、Takabo Soft Networkのロゴが下から徐々に表示されると思います。

というわけで、今回は徐々に画像を表示する方法を説明していきます。

早速サンプルコードの解説

今回の主なコードはこれ。

//----------[ メイン関数 ]----------------------------------------------------------------------
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdParam, int nCmdShow){
     
    略
     
    //DirectDraw開始
    StartDirectDraw(hw);
 
    //パレット設定
    LoadPalette("takabo.bmp");
     
    //ビットマップを作業用サーフェイスへ読み込む
    LoadBitmap(lpWork,"takabo.bmp",0,0,612,145);
 
    int count=1,i;
    DWORD tim;
    while(1){
        tim=timeGetTime();          //疑似タイマー処理
 
        //徐々に下から表示
        if(count<=145){
            ClearScreen(lpBack);    //バックバッファ全消去
             
            //既に表示済みのものを表示
            Blt(lpBack,15,168+145-count,612,count,lpWork,0,145-count,FALSE);
             
            //一番上に表示しているものを縦に連続させて表示
            for(i=0;i<168+145-count;i++)
                Blt(lpBack,15,i,612,1,lpWork,0,145-count,FALSE);
 
            Flip();                 //画面更新
        }
        //普通に表示
        else {
            ClearScreen(lpBack);
            Blt(lpBack,15,168,612,145,lpWork,0,0,FALSE);
            Flip();
        }
 
        count++;
 
        if(count>300)
            count=1;
         
        do{                         //メッセージループ
            while(PeekMessage(&msg,NULL,0,0,PM_NOREMOVE)){
                if(!GetMessage(&msg,NULL,0,0)) 
                    Quit();
                TranslateMessage(&msg);
                DispatchMessage(&msg);
            }
        }while(timeGetTime()<tim+33);    //1000/30=33.333(30FPS) 
    }
     
    return(FALSE);
}

今回のプログラムは簡単なので、すぐに解ると思います。

下から順番に表示しつつ、新しく表示される部分は上から降ってくるかのように表示する、というよくあるやつですね？

2000: 9月; 26

第5回　256色パレットを操作して画像の明度を変更する

DirectXゲーム作成講座　演出・エフェクト編

サンプルコードのダウンロード

では、まずサンプルコードをダウンロードし、解凍してください。
私はVisual C++6.0でコンパイルしているので、お持ちの方はVisual C++でプロジェクトファイルを開いてください（「effec_05.dsw」をダブルクリックすれば開けます）。
圧縮ファイルに含まれる「effec_05.exe」をダブルクリックし、実行してみてください（何かキーを押すと終了します）。
どうでしょう？画面が切り替わり、写真が表示され、その明度が徐々に変わっていくのが解ると思います。

というわけで、今回はパレットを操作して画像のメイドを変更するぜっ！（壊

明度のお勉強

さて、明度を変更するというテクニックはよく見かけますよね？
例えばゲームで何か表示していて、次のシーン（場面）に移りたい場合に、画面を段々暗くし（フェード・アウト）、画面が真っ暗な間に次の画像を読み込んでおき（まだ表示はしない）準備が終わったら段々明るくしていき（フェード・イン）新しいシーンが始まる・・・というのがあります。
まず、こういったものは「パレットを操作」して明度を変更していると考えて良いでしょう。
というか、256色環境で明度を変更する方法はパレット操作以外まず無いです（近似色検索という解答は未定義）。

では、パレットをどうやって変化させたらいいか、についでですが、簡単です。
明るくしたければ各RGB値を増やしてやればいいし、暗くしたければRGB値を減らしてやればいいのです。
例えばRGB値が(100,25,30)だとして、1明るくしたいのなら各RGB値に1を足して(101,26,31)という感じ。
ただ、ここで注意してもらいたいのが、各RGB値は0～255でなければならないと言うことです。255を越えた場合は255、0より小さくなった場合は
0という風にです。あとはこの作業を256色パレット全てに行えばいい・・・はずですが、
パレット0番と255番は白・黒固定色なので、それ以外を全て変更すればいいのです。

今回はもうちょっと突っ込んでおきましょうかね。
例えば

int bright=50;  //明度を変更する値（50は適当
BYTE red=230;   //パレットの値（赤のみ) BYTE = unsigned char
 
red+=bright;
if(red>255)
    red=255;
if(red<0)
    red=0;

というような事はしないようにしてくださいね。

今週のコードチェック（壊

今回の主なコードはコレ。

略
 
//----------[ パレットの明るさ変更 ]------------------------------------------------------------
//面倒なのでマクロでやってまう（良い子はマネしないでね）
#define SET_PAL(dest,src,bright) do{int v=src+bright;if(v>255)v=255;if(v<0)v=0;dest=v;}while(0)
void SetPaletteBright(int bright){
    PALETTEENTRY pal_tmp[256];
 
    for(int i=1;i<255;i++){  //0:黒固定 1:白固定
        SET_PAL(pal_tmp[i].peRed  ,peEntry[i].peRed  ,bright);
        SET_PAL(pal_tmp[i].peGreen,peEntry[i].peGreen,bright);
        SET_PAL(pal_tmp[i].peBlue ,peEntry[i].peBlue ,bright);
    }
     
    //垂直帰線待ち（ちらつき防止）
    VsyncWait();
    //更新
    lpPalette->SetEntries(0,1,254,&pal_tmp[1]);
}

パレットの設定については「DirectDraw基礎第6回」でやりました。

また垂直帰線については「DirectDraw基礎第14回」でやりました。

略
 
//----------[ メイン関数 ]----------------------------------------------------------------------
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdParam, int nCmdShow){
     
    略
     
    //DirectDraw開始
    StartDirectDraw(hw);
 
    //パレット設定
    LoadPalette("bridge.bmp");
     
    //ビットマップをバックバッファへ読み込む
    LoadBitmap(lpBack,"bridge.bmp",0,0,320,240);
 
    //フリッピング（画面へ表示）
    Flip();
 
    DWORD tim;
    int bright=0,b_add=1;
    while(1){
        //疑似タイマー処理
        tim=timeGetTime();
 
        //明るさ変更
        bright+=b_add;
        if(bright6gt;=255 || bright<=-255)
            b_add=-b_add;
        SetPaletteBright(bright);
 
        do{
            //メッセージループ
            while(PeekMessage(&msg,NULL,0,0,PM_NOREMOVE)){
                if(!GetMessage(&msg,NULL,0,0)) 
                    Quit();
                TranslateMessage(&msg);
                DispatchMessage(&msg);
            }
        }while(timeGetTime()<tim+16);    //1000/60=16.666(60FPS)
    }
     
    return(FALSE);
}

見て解るとおり、一度画面に写真を表示したら、後はパレットを変更しているだけです。
明度を変更する関数でマクロを使ってしまったので、初心者にはちょっと解りにくいかもしれませんが、これを機、マクロの勉強をしてみてください。マクロを使うとホント楽なので・・・

あ、ちなみにビデオカードによっては、この「パレットを設定」する時間がやたらかかるものがあるので、「パレットを使えば高速に出来る！」とか思いこまないようにしてください。

2000: 9月; 24

第14回　長方形塗りつぶし・垂直帰線待ちをする

DirectXゲーム作成講座　DirectDraw基礎編

サンプルコードのダウンロード

では、まずサンプルコードをダウンロードし、解凍してください。
私はVisual C++6.0でコンパイルしているので、お持ちの方はVisual C++でプロジェクトファイルを開いてください（「ddraw_14.dsw」をダブルクリックすれば開けます）。
圧縮ファイルに含まれる「ddraw_14.exe」をダブルクリックし、実行してみてください。どうでしょう？画面が切り替わり、フルスクリーン化し、でかいスライムが2匹表示されていると思います(左のが垂直帰線待ち無し、右のが垂直帰線待ち有り）。

というわけで、今回は意図的に垂直帰線待ちをする方法を紹介します。

垂直帰線おさらい

以前フリップの所でも触れましたが、もう一度説明しておきます。
ディスプレイは小さな電子銃からでる電子ビームを走査して、ビデオメモリの内容を連続的に反映しています。
電子ビームは、左上から始まり、右へ進み、一番右まで行ったら一つ下へ下がり、一番左まで行き、また右へ進みます。
それらを繰り返し、最後に右下端まで行ったら、一気に左上端に戻ります。
この「右下端から左端上」に戻る間の事を「垂直帰線」とか言います。

で、フリップはこの垂直帰線中に行っているため、画面はちらつきません。
しかしフリップ以外でフロントバッファにBltFastか何かで転送したい場合、垂直帰線中では無いため、画面がちらつく場合があります。
そこで垂直帰線待ちをして、ちらつきを無くそうというわけです（謎

ただ、この垂直帰線中に処理しきれない場合はやっぱりちらつきますので（＾＾；

というわけでコードの解説

今回も順番に解説していきます。

まず、先に「長方形塗りつぶし」をする自作関数「Boxfill」を説明しましょうかね。

//----------[ 長方形（塗りつぶし）描画 ]--------------------------------------------------------
void Boxfill(LPDIRECTDRAWSURFACE sf,int x,int y,int width,int height,BYTE color){
    DDBLTFX ddbltfx;
    ZeroMemory(&ddbltfx,sizeof(DDBLTFX));
    ddbltfx.dwSize=sizeof(DDBLTFX);
    ddbltfx.dwFillColor=color;
    RECT rect={x,y,x+width,y+height};
     
    //クリッピング
    if(rect.left<cx1)
        rect.left=cx1;
    if(rect.right>cx2)
        rect.right=cx2;
    if(rect.top<cy1)
        rect.top=cy1;
    if(rect.bottom>cy2)
        rect.bottom=cy2;
 
    sf->Blt(&rect,NULL,NULL,DDBLT_COLORFILL | DDBLT_WAIT,&ddbltfx);
}

サーフェイスのメンバ関数「Blt」については以前「DirectDraw基礎第9回」でやっているので、構文等はそちらを参照してください。
今回は、サーフェイスの一部を一色で塗りつぶしたいので、
Blt関数の最初の引数にRECT構造体のアドレスを引き渡してやります（RECT構造体の解説は「DirectDraw基礎第8回」でやりました）。
・・・ってもう説明する事無いですね（汗

では次は、今回の本題「垂直帰線待ち」をする自作関数「VsyncWait」の説明～。

//----------[ 垂直帰線待ち ]--------------------------------------------------------------------
void VsyncWait(void){
    lpDD->WaitForVerticalBlank(DDWAITVB_BLOCKBEGIN,NULL);
}

見て解る通りDirectDrawオブジェクト（lpDD)がメンバ関数である「WaitForVerticalBlank」を呼び出します。

構文は以下の通りです。

書式

HRESULT WaitForVerticalBlank( DWORD dwFlags, HANDLE hEvent );

dwFlags

以下のどれかを指定します。

DDWAITVB_BLOCKBEGIN	垂直帰線が開始するまで待つ
DDWAITVB_BLOCKBEGINEVENT	垂直帰線が開始したらイベントを起動するらしいが、現在はサポートしてないらしい。
DDWAITVB_END	垂直帰線が終了するまで待つ

hEvent

サポートされていないので、とりあえずNULL

戻り値

成功するとDD_OKが返ってくるらしい。

そんでもって、これらを使用した今回のメインコードはこれ。

//----------[ メイン関数 ]----------------------------------------------------------------------
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdParam, int nCmdShow){
     
    略
     
    //DirectDraw開始
    StartDirectDraw(hw);
 
    //パレット設定
    LoadPalette("slime.bmp");
     
    //ビットマップを作業用サーフェイスへ読み込む
    LoadBitmap(lpWork,"slime.bmp",0,0,32,32);
    //拡大
    BltStretch(lpWork,0,0,320,480,lpWork,0,0,32,32,FALSE);
 
    int wid=320,hei=480;
 
    DWORD tim;
    while(1){
        //疑似タイマー処理
        tim=timeGetTime();
 
        //左側のスライム（垂直帰線待ち無し）
        Boxfill(lpFront,0,0,wid,hei,0);
        Blt(lpFront,0,0,wid,hei,lpWork,0,0,FALSE);
 
        //右側のスライム（垂直帰線待ち有り）
        VsyncWait();
        Boxfill(lpFront,320,0,wid,hei,0);
        Blt(lpFront,320,0,wid,hei,lpWork,0,0,FALSE);
 
        do{
            //メッセージループ
            while(PeekMessage(&msg,NULL,0,0,PM_NOREMOVE)){
                if(!GetMessage(&msg,NULL,0,0)) 
                    Quit();
                TranslateMessage(&msg);
                DispatchMessage(&msg);
            }
        }while(timeGetTime()<tim+50);    //今回は適当
    }

ただひたすら「同じ場所に書いたり消したり」するだけで、右のスライムは垂直帰線待ちをし、垂直帰線待ちがどういう働きをするかが一目で解るようなプログラムになっているのである。えっへん(ﾟo゜)＼ばき☆

2000: 9月; 22

第4回　サインカーブを使用して画像を揺らすその3

DirectXゲーム作成講座　演出・エフェクト編

サンプルコードのダウンロード

では、まずサンプルコードをダウンロードし、解凍してください。
私はVisual C++6.0でコンパイルしているので、お持ちの方はVisual C++でプロジェクトファイルを開いてください（「effec_04.dsw」をダブルクリックすれば開けます）。
圧縮ファイルに含まれる「effec_04.exe」をダブルクリックし、実行してみてください（何かキーを押すと終了します）。
どうでしょう？画面が切り替わり、写真が波紋のような歪み方をすると思います（謎。
というわけで、今回もサインカーブを使用して画像を歪ませたいと思います。

今回は解りづらいかも

さて、今まで演出講座2・3回にてサインカーブを使用して地球を揺らしてきましたが、今回は右の写真のように、写真を波紋のように歪めてみます。
今まで真面目に演出講座2・3回を勉強された方なら、おそらく写真を見ただけで「だいたいこうやっているのだろう」という見当は付いていると思います。

んー、ちょっと初心者にはきつい内容かもしれないので、こんなものもあるんだぁーぐらいに流してください。

というかゲーム関連で、波紋使うかどうかは謎です。

まずは数学のお勉強

さて今回はプログラム中に「直線距離の算出」をするので、まずここでざっと説明しておきます。
左の図のように直角三角形がある場合、

という公式があります（ピタゴラスの定理だったか？）。
高校1年くらいには習うと思いますが（詳しくは数学の先生に聞いてください）。

実際は、x座標,y座標があるので、点A（ax,ay）から点B（bx,by）の直線距離は
以下の図のようになります。

パソコン上の座標はY軸の方向が逆になるのですが、今回は2乗しているため符号が必ずプラスになるので
その辺を考える必要はありません。

これを実際にC言語で記述すると、

1	`length =` `sqrt((ax-bx)(ax-bx) + (ay-by)(ay-by));`

みたいな感じになりますね。

DirectDraw初期化

さて、サンプルコードを見ながら順番に説明していきます。
今回は基本的な部分はWinMain()内で全てやっていますが、DirectDrawの初期化の部分も少し変更していますので注意してください。
ちなみにDirectDraw関連の基本的なコードは「DirectDraw基礎第13回」のサンプルコードを
使用しています（MODE Xを使用します）。

ではまず、グローバル変数としてlpGraphを宣言しておきます。
これは写真を読み込んでおく場所として使用します。

LPDIRECTDRAWSURFACE lpBack=NULL;    //オフスクリーンサーフェイス（バックバッファ）
LPDIRECTDRAWSURFACE lpWork=NULL;    //オフスクリーンサーフェイス（作業用バッファ）
LPDIRECTDRAWSURFACE lpGraph=NULL;   //オフスクリーンサーフェイス（作業用バッファ その2）

宣言しただけでは意味が無いので、StartDirectDraw自作関数内でオフスクリーンサーフェイスを作成します。

BOOL StartDirectDraw(HWND hw){
 
    略
 
    //作業用オフスクリーンサーフェイス作成
    ZeroMemory(&ddsd,sizeof(ddsd));
    ddsd.dwSize=sizeof(ddsd);
    ddsd.dwFlags=DDSD_CAPS | DDSD_WIDTH | DDSD_HEIGHT;
    //強制的にシステムメモリ内に作成する
    ddsd.ddsCaps.dwCaps=DDSCAPS_OFFSCREENPLAIN | DDSCAPS_SYSTEMMEMORY;
    ddsd.dwWidth=320;
    ddsd.dwHeight=240;
    if((lpDD->CreateSurface(&ddsd,&lpWork,NULL))!=DD_OK)
        return FALSE;
    if((lpDD->CreateSurface(&ddsd,&lpGraph,NULL))!=DD_OK)
        return FALSE;

今回の場合、オフスクリーンサーフェイスへは、頻繁に直接アクセスするのでDDSCAPS_SYSTEMMEMORYを指定して強制的にシステムメモリ内へ作成します（ビデオメモリ内サーフェイスへの直接アクセスは速度が遅い）。

さて、DirectDrawの設定はこれぐらいです。
あ、ちなみに最後にlpGraphを解放するのを忘れないようにしてくださいね。

よく解らない解説

まず写真（bridge.bmp)をあらかじめ作成しておいたオフスクリーンサーフェイス（lpGraph)へ読み込んでおきます。

//----------[ メイン関数 ]----------------------------------------------------------------------
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdParam, int nCmdShow){
     
    略
     
    //DirectDraw開始
    StartDirectDraw(hw);
 
    //パレット設定
    LoadPalette("bridge.bmp");
     
    //ビットマップを作業用サーフェイスへ読み込む
    LoadBitmap(lpGraph,"bridge.bmp",0,0,320,240);

次に、高速化のためにサイン・コサインテーブルを作成します。

//サイン、コサインテーブル作成(256で一周とする）
float fsin[256],fcos[256];
for(int i=0;i<256;i++){
    fsin[i]=(float)sin(i*3.1415926535/128);
    fcos[i]=(float)cos(i*3.1415926535/128);
}

普通は360度で一周ですが、今回は256度で一周とします。
こうすることで fsin[BYTE(…)] と、BYTE型(unsigned char型)にキャストするだけで不正なアクセスを防ぐことが出来ます。

次に、あらかじめ各座標毎に、中心からの距離・中心への角度(0-255度)を算出しておきます。
これも高速化のためです。

float length[240][320];
BYTE angle[240][320];
 
int x,y;
for(y=0;y<240;y++)
    for(x=0;x<320;x++){
        length[y][x]=(float)sqrt((160-x)*(160-x)+(120-y)*(120-y));
        angle[y][x]=BYTE(atan2(-double(120-y),double(160-x))/3.141592*128+256);
    }

距離の算出については、上の方でやりましたね？
また、角度の算出については「ゲーム制作基礎第11回」でやりました。

//サーフェイスのロックで使用
DDSURFACEDESC desc_src,desc_dest;
ZeroMemory(&desc_src,sizeof(DDSURFACEDESC));
ZeroMemory(&desc_dest,sizeof(DDSURFACEDESC));
desc_src.dwSize=desc_dest.dwSize=sizeof(DDSURFACEDESC);
BYTE *p_src,*p_dest;    //ちなみに src=参照元  dest=転送先
int sx,sy;
int pitch_src,pitch_dest;
 
int count=0;
float width=0.f,width_max=20,width_add=0.15f;
BYTE color;
 
while(1){
    //疑似タイマー処理
    tim=timeGetTime();
    count++;                //カウンタ
 
    //ゆれの大きさを時間によって変化させる
    if(width_add>0){
        if((width+=width_add)>width_max)
            width_add=-width_add;
    } else {
        //0まで戻してしまうとちょっと歪むのでやめる
        if((width+=width_add)<=0.05f){
            width=0.05f;
            width_add=-width_add;
        }
    }

↑のは大体解ると思います。
ゆれの大きさの部分に関しては前回・前々回と大体同じです。

次に、あらかじめ画像を読み込んでおいたサーフェイス(lpGraph）と、作業用サーフェイス(lpWork)をロックし、そのサーフェイスへの先頭アドレスを取得します。

//ロック
lpGraph->Lock(NULL,&desc_src,DDLOCK_WAIT | DDLOCK_SURFACEMEMORYPTR,NULL);
p_src=(BYTE*)desc_src.lpSurface;
pitch_src=desc_src.lPitch;
 
lpWork->Lock(NULL,&desc_dest,DDLOCK_WAIT | DDLOCK_SURFACEMEMORYPTR,NULL);
p_dest=(BYTE*)desc_dest.lpSurface;
pitch_dest=desc_dest.lPitch;

サーフェイスのロックについては「DirectDraw基礎第12回」でやりました。

そんでもって次のが心臓部。

BYTE *p_angle=&angle[0][0];
float *p_length=&length[0][0];
 
for(y=0;y<240;y++){
    for(x=0;x<320;x++){
        //参照元をずらす
        float len=fsin[BYTE((-count+*p_length)*15)]*width;
        sx=int(x+fcos[*p_angle]*len);
        sy=int(y-fsin[*p_angle]*len);
        color=0;
        if(sx>=0 && sx<320 && sy>=0 && sy<240)
            color=*(p_src+pitch_src*sy+sx);
        *(p_dest++)=color;
        p_angle++;
        p_length++;
    }
    p_dest+=pitch_dest-320;
}

ポインタいじりまくりですね。
ポインタの概念がしっかり解っていないと理解出来ないと思います。

まず、今までの演出は「転送先の座標を計算する」というパターンですが今回はこれでは穴が空くので逆に「転送先が転送元の座標を計算する」方法でやっています。
ですから画面全体（320×240)について全て計算を行います。

おおまかに説明すると、「画面中心からの距離(p_length)+時間（count)」を使ってサインカーブを参照し、ゆれの幅を計算します。
その揺れの幅分だけ転送元の座標を中央に向かってずらします。あとは転送元の色を転送先へ転送します。

一通り終わったらロックを解除し、一度バックバッファへ転送し、フリップして画面に表示させます。

//アンロック
lpWork->Unlock(desc_dest.lpSurface);
lpGraph->Unlock(desc_src.lpSurface);
 
Blt(lpBack,0,0,320,240,lpWork,0,0,FALSE);
 
Flip();     //フリッピング
 
あとは省略（爆

解ってしまえば簡単ですね（＾＾；

細かい部分で何か解らない事があれば掲示板へどうぞ。

2000: 9月; 19

第3回　サインカーブを使用して画像を揺らすその2

DirectXゲーム作成講座　演出・エフェクト編

サンプルコードのダウンロード

では、まずサンプルコードをダウンロードし、解凍してください。
私はVisual C++6.0でコンパイルしているので、お持ちの方はVisual C++でプロジェクトファイルを開いてください（「effec_03.dsw」をダブルクリックすれば開けます）。
圧縮ファイルに含まれる「effec_03.exe」をダブルクリックし、実行してみてください（何かキーを押すと終了します）。
どうでしょう？画面が切り替わり、うねうね揺れた地球の画像が2パターン表示されると思います。
というわけで今回も、サインカーブを使用して画像を揺らす方法ついて説明したいと思います。

地球を歪ませるその2

さて、みなさん「波」と言われて何を思い浮かべるでしょう？真夏の砂浜？ビーチバレー？水着？
前回紹介した「揺れる地球」は、「輪ゴムを伸ばして弦をはじいたような上下の揺れのようなもの。」
今回の揺れる地球」は、「音波のように伸びたり縮んだりする波（横波？）」です（超謎）。
高校の物理でそんなのを習ったような気がしましたが忘れました・・・。

というわけで、サンプルコードを見てみましょう。

//----------[ メイン関数 ]----------------------------------------------------------------------
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdParam, int nCmdShow){
     
    略
     
    //パレット設定
    LoadPalette("earth.bmp");
     
    //ビットマップを作業用サーフェイスへ読み込む
    LoadBitmap(lpWork,"earth.bmp",60,15,200,210);
 
    //透明色を設定
    SetTransColor(lpWork,0);
 
    int count=0,i;
    float width=0.f,width_max=50,width_add=0.15f;
 
    DWORD tim;
    while(1){
         
        tim=timeGetTime();      //疑似タイマー処理
        ClearScreen(lpBack);    //バックバッファクリア
        count++;                //カウンタ
 
        //ゆれの大きさを時間によって変化させる（各パターン共通）
        if(width_add>0){
            if((width+=width_add)>width_max)
                width_add=-width_add;
        } else {
            if((width+=width_add)<0){
                width=0;
                width_add=-width_add;
            }
        }
 
        //ゆらすパターン4（補間無し）
        for(i=0;i&lt240;i++)
            BltClip(lpBack,0,120+i+int(sin((count+i)/10.f)*width),
                320,1,lpWork,0,i,TRUE);
 
        //ゆらすパターン5（補間有り）
        int y,y_old,y_new=0;
        for(i=0;i<240;i++){
            y_old=y_new;
            y_new=120+i+int(sin((count+i)/10.f)*width);
            if(i!=0){
                if(y_old<y_new)
                    for(y=y_old;y<y_new;y++)
                        BltClip(lpBack,320,y,320,1,lpWork,0,i,TRUE);
                else
                    for(y=y_old;y>y_new;y--)
                        BltClip(lpBack,320,y,320,1,lpWork,0,i,TRUE);
            }
        }
         
 
        Flip();                 //フリッピング
 
        do{                     //メッセージループ
            while(PeekMessage(&msg,NULL,0,0,PM_NOREMOVE)){
                if(!GetMessage(&msg,NULL,0,0)) 
                    Quit();
                TranslateMessage(&msg);
                DispatchMessage(&msg);
            }
        }while(timeGetTime()<tim+16);    //1000/60=16.666（秒間60回更新予定）
    }
     
    return(FALSE);
}

さて、順番に説明していきましょうか。

まずパレットを読み込み、地球の画像をlpWorkサーフェイスへ読み込んでおきます。
この辺は前回と全く同じですが、今回は透明色付きの転送を使用するので透明色の設定をしておきます。

サンプルプログラムを実行すると、2種類表示されますが、左のものがパターン4、右のがパターン5です。
横に薄く切った画像を縦にずらしながら表示する感じです。
ただ、このままパターン4のようにやってしまうと、サンプルプログラム実行時の左の画像のように「画像が切れる（隙間が出来る）」ため、美しくありません（？）

そこで、その間を補ったものがパターン5となります。

//ゆらすパターン4（補間無し）
for(i=0;i&lt240;i++)
    BltClip(lpBack,0,120+i+int(sin((count+i)/10.f)*width),
        320,1,lpWork,0,i,TRUE);
 
//ゆらすパターン5（補間有り）
int y,y_old,y_new=0;
for(i=0;i<240;i++){
    y_old=y_new;
    y_new=120+i+int(sin((count+i)/10.f)*width);
    if(i!=0){
        if(y_old<y_new)
            for(y=y_old;y<y_new;y++)
                BltClip(lpBack,320,y,320,1,lpWork,0,i,TRUE);
        else
            for(y=y_old;y>y_new;y--)
                BltClip(lpBack,320,y,320,1,lpWork,0,i,TRUE);
    }
}