【文章內容簡介】 include D:\MASMplus\INCLUDE\include D:\MASMplus\INCLUDE\includelib D:\MASMplus\LIB\include D:\MASMplus\INCLUDE\includelib D:\MASMplus\LIB\include D:\MASMplus\INCLUDE\includelib D:\MASMplus\LIB\include D:\MASMplus\include\includelib D:\MASMplus\lib\include D:\MASMplus\include\includelib D:\MASMplus\lib\IDD_ABOUTBOX equ 200IDD_RNDPARAM equ 201IDD_SYSPARAM equ 202IDC_EDIT01 equ 1000IDC_EDIT02 equ 1001IDC_EDIT03 equ 1002IDC_EDIT04 equ 1003IDC_RADIO1 equ 1004IDC_RADIO2 equ 1005IDC_RADIO3 equ 1006IDC_RADIO4 equ 1007IDC_RADIO5 equ 1008IDC_RADIO6 equ 1009IDC_RADIO7 equ 1010IDC_RADIO8 equ 1011IDC_RADIO9 equ 1012IDC_RADIO10 equ 1013IDC_AWALK equ 4000IDM_RESTART equ 2000IDM_DELAY equ 2001IDM_SAVEIMG equ 2002IDM_EXIT equ 2003IDM_SYSPARAM equ 2004IDM_RNDPARAM equ 2005IDM_BKCOLOR equ 2006IDM_ABOUT equ 2007MainMenu equ 3000。 種子點結構：種子坐標(x,y)，顏色colorATOMST STRUCT x SWORD ? y SWORD ? color DWORD ?ATOMST ENDS.dataxClient DWORD 600 。 客戶區(qū)寬度yClient DWORD 400 。 客戶區(qū)高度view DWORD 1 。 生成模式：0無軌跡模式，1拖軌模式，2軌跡模式smode DWORD 1 。 種子模式：0分散，1集中seed DWORD 1001 。 種子數(shù)astep DWORD 16 。 單步次數(shù)speed DWORD 18 。 速度控制值（毫秒）ftime DWORD 0 。 時鐘標志：0沒用，100時鐘編號rngs DWORD 242343,5436,5675,67,678979098,890,32545436,657563453,23435345,143545,45976768,6754,743453455,67546,754,754324783ridx DWORD 0tn DWORD 0A2F59C2Eh 。 隨機數(shù)初始值的工作變量ra DWORD 19 。 隨機數(shù)因子rb DWORD 91 。 隨機數(shù)平移rn DWORD 0A2F59C2Eh 。 隨機數(shù)初始值r0rs DWORD 16 。 隨機數(shù)向右移位的次數(shù)ma DWORD 3 。 隨機數(shù)掩碼mf DWORD 0 。 位0：方向數(shù)（取值4或8），位1：絕對方向行走模式還是相對模式（A或R）bkcolor DWORD 033FF00hbmFile BITMAPFILEHEADER 04D42H, 0, 0, 0, 54bmInfo BITMAPINFOHEADER sizeof(BITMAPINFOHEADER), 800, 600, 1, 32, BI_RGB, 0, 0, 0, 0, 0bmFilter BYTE 位圖文件(*.BMP), 0, *.BMP, 0, 所有文件(*.*), 0, *.*, 0, 0bmDefExt BYTE BMP, 0szCap BYTE 粒子運動動畫, 0format BYTE %u,0.data?hInstance DWORD ?hWinMain DWORD ?hdcTemp HDC ?seedxch DWORD ?strtemp BYTE 1024 dup (?)hBitmapTemp HBITMAP ?mTemp DWORD ?bitmapTemp BITMAP ? 。 背景位圖信息ofn OPENFILENAME ?filename BYTE MAX_PATH dup(?)pathname BYTE MAX_PATH dup(?)ALIGN 16ats ATOMST 10000 dup(?) 。 種子數(shù)組att DWORD 10000 dup(?)crCustColors DWORD 16 dup(?) .constszClassName db 39。rpClass39。,0。.code。 初始化種子initSeed proc uses ebx, _n:DWORD LOCAL x0:SDWORD,y0:SDWORD, tt mov ecx, seed mov ebx, offset ats mov eax, tn .if !smode 。 分散的種子。隨機產生n個初始點和顏色 .while ecx mul ra 。 eax = a*r add eax, rb 。 eax = a*r+b cdq mov tn, eax idiv xClient mov [ebx]., dx mov eax, tn mul ra add eax, rb cdq mov tn, eax idiv yClient mov [ebx]., dx mov eax, tn mul ra add eax, rb mov tn, eax mov edx, eax shr edx, 8 and edx,7F7F7FH 。 限制隨機顏色的亮度 mov [ebx]., edx add ebx, sizeof ATOMST dec ecx .endw .else 。 集中的種子。使用當前窗口的中心點作為所有種子的初始位置 mov edx, xClient shr edx, 1 mov x0, edx mov edx, yClient shr edx, 1 mov y0, edx .while ecx mov edx, x0 mov [ebx]., dx mov edx, y0 mov [ebx]., dx mul ra add eax, rb mov tn, eax mov edx, eax shr edx, 8 and edx, 7F7F7FH mov [ebx]., edx add ebx, sizeof ATOMST dec ecx .endw .endif retinitSeed endp。 將內存設備數(shù)據(jù)區(qū)用color進行覆蓋bkSetcolor proc _m:DWORD, _color:DWORD LOCAL _k:DWORD, _N:DWORD mov edx, _m mov eax, mov _N, eax .while _N mov eax, mov _k, eax mov eax, _color .while _k mov DWORD PTR [edx], eax add edx, 4 dec _k .endw dec _N .endw retbkSetcolor endp。 弱化內存設備數(shù)據(jù)區(qū)像素的顏色bkGrey proc _m:DWORD, _color:DWORD LOCAL _k:DWORD, _N:DWORD LOCAL _r:DWORD, _g:DWORD, _b:DWORD movzx eax, BYTE PTR _color mov _r, eax movzx eax, BYTE PTR _color+1 mov _g, eax movzx eax, BYTE PTR _color+2 mov _b, eax mov edx, _m mov eax, mov _N, eax .while _N mov eax, mov _k, eax .while _k 。 新像素 = (原像素 + 背景顏色) / 2 movzx eax, BYTE PTR [edx] add eax, _r shr eax, 1 mov [edx], al movzx eax, BYTE PTR [edx+1] add eax, _g shr eax, 1 mov [edx+1], al movzx eax, BYTE PTR [edx+2] add eax, _b shr eax, 1 mov [edx+2], al add edx, 4 dec _k .endw dec _N .endw retbkGrey endp。 隨機數(shù)發(fā)生器（產生03或07的隨機數(shù)）rnd proc mov eax, ra mov edx, tn imul eax, edx 。 eax = a*r add eax, rb 。 eax = a*r+b mov ecx, rs mov tn, eax 。 rn = a*r+b shr eax, cl 。 eax = (a*r+b)/(2^s) .if mfamp。2 。 相對方向模式，從當前方向算起 add eax, edx .endif and eax, ma 。 eax = ((a*r+b)/(2^s))%m為返回值 retrnd endp。 繪制直線drawLine proc uses ebx esi edi, _x:SWORD, _y:SWORD, _xx:SWORD, _yy:SWORD, _color:DWORD LOCAL incx:SDWORD, incy:SDWORDmov eax, movzx ecx, _y sub eax, ecx dec eax imul eax, movzx edx, _x shl edx, 2 add eax, edx mov edi, mTemp add edi, eax 。 計算兩個方向的畫線距離 movzx eax, _xx movzx edx, _x sub eax, edx 。 dx = xx x movzx edx, _y movzx ecx, _yy sub edx, ecx 。 dy = yy y 。 計算兩個方向的步長 mov ebx, 4 .if (eax SDWORD PTR 0) neg ebx neg eax .elseif !eax mov ebx, eax .endif mov incx, ebxmov ecx, .if (edx SDWORD PTR 0) neg ecx neg edx .elseif !edx mov ecx, edx .endif mov incy, ecx mov ebx, _color。 計算較大的方向長度 .if (eax = edx) shl edx, 1 mov esi, edx mov ecx, eax sub esi, eax shl eax, 1 。 繪制整條直線 .while ecx mov [edi], ebx add esi, edx add edi, incx .if esi = SDWORD PTR 0 add edi, sub esi, eax .endif dec ecx .endw .else shl eax, 1 mov esi, eax mov ecx, edx sub esi, edx shl edx, 1 。 繪制整條直線 .while ecx mov [edi], ebx add esi, eax