;Astroid.asm
;心脏线极坐标方程：r=a(1+cosθ）
;为什么我不画成红色的呢？
;因为我的心十多年前就已经变成灰色的了。
;有兴趣可以看看我下面个人主页里面的一篇文章：《我的心》。
;不足之处，敬请指导。
;QQ:112426112
;Email:leguanyuan at 126 dot com
;Homepage:http://correy.webs.com
.386
.model flat,stdcall
option casemap:none
include windows.inc
include kernel32.inc
include user32.inc
includelib user32.lib
includelib kernel32.lib
include gdi32.inc
includelib gdi32.lib

.code
hInstance dd ?
hWinMain dd ?
stMsg MSG <>
szClassName db "correy",0
szCaptionMain db "made by correy",0
pwndclassex dd 48,3,offset liuchunli,0,0,0,0,0,6,0,offset szClassName,0
Ainc dd 0
x_offset dd 0bbh
y_offset dd 100h
temp dd 0
xnew dd 0
ynew dd 0

liuchunli proc hWnd,uMsg,wParam,lParam
LOCAL ps:PAINTSTRUCT,hdc:HDC
local Count:DWORD,base:DWORD,count:dword
local BCircRadius:DWORD,newradius:DWORD,BaseX:DWORD
.if uMsg == WM_CLOSE
  invoke DestroyWindow,hWinMain
  invoke PostQuitMessage,0
.elseif uMsg == WM_PAINT
  invoke  BeginPaint,hWinMain,addr ps
  mov hdc,eax
  invoke GetStockObject,NULL_BRUSH
  invoke SelectObject,hdc,eax
  mov count,0
  mov BCircRadius,55h
  mov BaseX,8bh
  .while count < 720
    finit
    fldpi
    mov temp,180
    fimul Ainc 
    fidiv temp
    fsincos
    fimul BCircRadius
    fistp xnew
    fimul BCircRadius
    fist ynew
    fmul st,st
    fild xnew
    fiadd BCircRadius
    fmul st(0),st(0)
    faddp st(1),st(0)
    fsqrt
    fistp newradius
    mov eax,BaseX
    add eax,xnew
    sub eax,newradius
    mov ebx,y_offset
    sub ebx,ynew
    sub ebx,newradius
    mov ecx,BaseX
    add ecx,xnew
    add ecx,newradius
    mov edx,y_offset
    sub edx,ynew
    add edx,newradius
    invoke Ellipse,hdc,eax,ebx,ecx,edx
    inc Ainc
    inc count
  .endw
  invoke EndPaint,hWinMain,addr ps
.else
  invoke DefWindowProc,hWnd,uMsg,wParam,lParam
  ret
.endif
xor eax,eax
ret
liuchunli endp

start:invoke GetModuleHandle,0
mov hInstance,eax
mov pwndclassex+20,eax
invoke LoadIcon,hInstance,1;其实这四行也可以去掉。
mov pwndclassex+24,eax
invoke LoadCursor,0,32512
mov pwndclassex+28,eax
invoke RegisterClassEx,addr pwndclassex
invoke CreateWindowEx,200h,offset szClassName,offset szCaptionMain,0Ca0000h,80000000h,80000000h,199h,512,0,0,hInstance,0
mov hWinMain,eax
invoke ShowWindow,hWinMain,1;不想显示这一两行也可以不要。
invoke UpdateWindow,hWinMain
again:invoke GetMessage,addr stMsg,0,0,0
  cmp eax,0
  je exit
  invoke TranslateMessage,addr stMsg;这一行也可以去掉，特别是不处理字符信息，。
  invoke DispatchMessage,addr stMsg
jmp again
exit:invoke ExitProcess,0
end start
;made at 2010.03.27

上传的附件

13.rar