BCB做的 烟花~~~~电脑烟花演示程序

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include <math> // #include "Unit1.h" #include "stdlib.h"// #include "mmsystem.h" // //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { m_mouseX = 0; m_mouseY = 0; isRunning = false; bits = 10000; // "para_bits" bit_px = new double[bits]; bit_py = new double[bits]; bit_vx = new double[bits]; bit_vy = new double[bits]; bit_sx = new int[bits]; bit_sy = new int[bits]; bit_l = new int[bits]; bit_f = new int[bits]; bit_p = new int[bits]; bit_c = new int[bits]; ru = 50; // "para_blendx" rv = 50; // "para_blendy" dy = 0; bmp = new Graphics::TBitmap; testbmp = new Graphics::TBitmap; testbmp->LoadFromFile("test.bmp"); //装载背景图片 Width = 400; Height = 240; } //--------------------------------------------------------------------------- __fastcall TForm1::~TForm1() { delete bit_px; delete bit_py; delete bit_vx; delete bit_vy; delete bit_sx; delete bit_sy; delete bit_l; delete bit_f; delete bit_p; delete bit_c; delete bmp; } //--------------------------------------------------------------------------- void __fastcall TForm1::Init() { if (isRunning) //如果已经运行 return; bit_max = 150; // "para_max" m_nAppX = Width; m_nAppY = Height; m_centerX = m_nAppX / 2; m_centerY = m_nAppY / 2; m_mouseX = m_centerX; m_mouseY = m_centerY; pixls = m_nAppX * m_nAppY; pixls2 = pixls - m_nAppX * 2; pix0 = new int[pixls]; for(int i = 0; i < pixls; i++) pix0[i] = 0xff000000; for(int j = 0; j < bits; j++) bit_f[j] = 0; //初始化真彩色图片 bmp->Width = Width; bmp->Height = Height; bmp->PixelFormat = pf24bit; run(); } //--------------------------------------------------------------------------- void __fastcall TForm1::run() { isRunning = true; while (isRunning) { //设置客户区范围内的色彩值 for(int j = 0 ; j < pixls2 ; j++) { int k = pix0[j]; int l = pix0[j + 1]; int i1 = pix0[j + m_nAppX]; int j1 = pix0[j + m_nAppX + 1]; int i = (k & 0xff0000) >> 16; int k1 = ((((l & 0xff0000) >> 16) - i) * ru >> 8) + i; i = (k & 0xff00) >> 8; int l1 = ((((l & 0xff00) >> 8) - i) * ru >> 8) + i; i = k & 0xff; int i2 = (((l & 0xff) - i) * ru >> 8) + i; i = (i1 & 0xff0000) >> 16; int j2 = ((((j1 & 0xff0000) >> 16) - i) * ru >> 8) + i; i = (i1 & 0xff00) >> 8; int k2 = ((((j1 & 0xff00) >> 8) - i) * ru >> 8) + i; i = i1 & 0xff; int l2 = (((j1 & 0xff) - i) * ru >> 8) + i; int i3 = ((j2 - k1) * rv >> 8) + k1; int j3 = ((k2 - l1) * rv >> 8) + l1; int k3 = ((l2 - i2) * rv >> 8) + i2; pix0[j] = i3 << 16 | j3 << 8 | k3 | 0xff000000; } rend(); //绘图客户区 int pix; for(int y = 0 ; y < bmp->Height ; y++) { BYTE *ptr = (BYTE*)bmp->ScanLine[y]; BYTE *ptr1 = (BYTE*)testbmp->ScanLine[y + dy]; for (int x = 0 ; x < bmp->Width ; x++) { //根据客户区某个坐标的像素设置真彩色图片的RGB颜色值，最终形成爆炸效果图 pix = bit_get(x,y); //根据坐标得到爆炸区域的颜色值 ptr[x * 3] = GetRValue(pix) | ptr1[x * 3]; ptr[x * 3 + 1] = GetGValue(pix) | ptr1[x * 3 + 1]; ptr[x * 3 + 2] = GetBValue(pix) | ptr1[x * 3 + 2]; } } dy = (dy + 1) % 480; //修改扫描线的偏移量 Canvas->CopyRect(ClientRect,bmp->Canvas,ClientRect); //在画布上画真彩色图片 Application->ProcessMessages(); //为了防止程序死循环，处理其他消息 } } //--------------------------------------------------------------------------- void __fastcall TForm1::bit_set(int i, int j, int k) { //设置客户区像素颜色值 int l = i + j * m_nAppX; pix0[l] = k; } //--------------------------------------------------------------------------- int __fastcall TForm1::bit_get(int i, int j) { //获取客户区像素颜色值 int l = i + j * m_nAppX; return pix0[l] ; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { //根据鼠标坐标设置炮弹整个爆炸效果图的参数 m_mouseX = X; m_mouseY = Y; int k = (int)(randor() * 256.); int l = (int)(randor() * 256.); int i1 = (int)(randor() * 256.); int j1 = k << 16 | l << 8 | i1 | 0xff000000; int k1 = 0; for(int l1 = 0; l1 < bits; l1++) { if(bit_f[l1] != 0) continue; bit_px[l1] = m_mouseX; bit_py[l1] = m_mouseY; double d = randor() * 6.2800000000000002; double d1 = randor(); bit_vx[l1] = sin(d) * d1; bit_vy[l1] = cos(d) * d1; bit_l[l1] = (int)(randor() * 100.) + 100; bit_p[l1] = (int)(randor() * 3.); bit_c[l1] = j1; bit_sx[l1] = m_mouseX; bit_sy[l1] = m_nAppY - 5; bit_f[l1] = 2; if(++k1 == bit_max) break; } //确定鼠标坐标后就发出炮弹发射声 PlaySound("syu.wav",0,SND_ASYNC | SND_FILENAME); } //--------------------------------------------------------------------------- void __fastcall TForm1::rend() { bool flag = false; //根据炮弹整个爆炸效果图的参数，设置爆炸前后的客户区像素RGG颜色值 for(int k = 0; k < bits; k++) { switch(bit_f[k]) { case 1: //爆炸后的效果图 bit_vy[k] += randor() / 50.; bit_px[k] += bit_vx[k]; bit_py[k] += bit_vy[k]; bit_l[k]--; if(bit_l[k] == 0 || bit_px[k] < 0.0 || bit_py[k] < 0.0 || bit_px[k] > (double)m_nAppX || bit_py[k] > (double)(m_nAppY - 3)) { bit_c[k] = 0xff000000; bit_f[k] = 0; } else if(bit_p[k] == 0) { if((int)(randor() * 2.) == 0) bit_set((int)bit_px[k],(int)bit_py[k],-1); } else { bit_set((int)bit_px[k],(int)bit_py[k],bit_c[k]); } break; case 2: //炮弹从发射到爆炸前一刹那的轨迹 bit_sy[k] -= 5; if((double)bit_sy[k] <= bit_py[k]) { bit_f[k] = 1; flag = true; } if((int)(randor() * 20.) == 0) { int i = (int)(randor() * 2.); int j = (int)(randor() * 5.); bit_set(bit_sx[k] + i,bit_sy[k] + j,-1); } break; default: break; } } if(flag) //如果炮弹到达最高处，就发出爆炸声 PlaySound("firework.wav",0,SND_ASYNC | SND_FILENAME); } //--------------------------------------------------------------------------- double __fastcall TForm1::randor() { return (double)rand()/(double) RAND_MAX; } //---------------------------------------------------------------------------