//---------------------------------------------------------------------------
// Falling pics by dllee (Dong-Liang Lee) http://dllee.ktop.com.tw
// <2004-09-11>
//---------------------------------------------------------------------------
#include 
#pragma hdrstop    #include "FallingUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Graphics::TBitmap *pBitmap;
Byte *Ptn[10];
Byte *PtnIndex;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  int ReOrder[8]={8,1,5,3,4,7,2,6};
  pBitmap = new Graphics::TBitmap();
  pBitmap->PixelFormat=pf24bit;
  pBitmap->Width=256;
  pBitmap->Height=128;
  for(int i=0;i<10;i++)
  {
    Ptn[i]=new Byte[256*3];
    memset(Ptn[i],0x10,256*3);
    for(int j=0;j<256;j++)
      if(j%3==0)
        memset(&Ptn[i][j*3],0,3);
  }
  for(int i=0;i<256;i++)
  {
    if(i%3==0) continue;
    Ptn[ReOrder[(i/3)%8]][i*3]=0xFF;
    Ptn[9][i*3]=0xFF;
  }
  PtnIndex=new Byte[128];
  memset(PtnIndex,0,128);
  this->Color=clBlack;
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
  delete [] PtnIndex;
  for(int i=0;i<10;i++) delete [] Ptn[i];
  delete pBitmap;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  memset(PtnIndex,0,128);
  int iStep=-64;
  for(int i=0;i<128;i++)
  {
    iStep++;
    PtnIndex[127]=i%8+1;
    memmove(&PtnIndex[0],&PtnIndex[2],126);
    for(int i=0;iScanLine[128-j],
        Ptn[PtnIndex[j-1]],256*3);
    }
    Canvas->Draw(15,15,pBitmap);
    Sleep(5);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------