关于画"心"函数

hljde 2003-07-15 03:58:59

各位大侠有谁知道,用一个函数把一个"心"形画出来,望回复,谢谢!

...全文

26 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhksoft 2003-07-15

打赏
举报

有点...........
还行

pressman 2003-07-15

打赏
举报

也太丑了吧
哈哈
像个苹果！！

keyz 2003-07-15

打赏
举报

画的不好。

procedure DrawHeart(Canvas:TCanvas;Top,Left,Param1,Param2:integer);
begin
Canvas.Arc(Left,Top,Left+2*Param1,Top+2*Param1,Left+Param1,Top+Param1,Left,Top+Param1);
Canvas.Arc(Left+2*Param1,Top,Left+4*Param1,Top+2*Param1,Left+4*Param1,Top+Param1,Left+2*Param1,Top+Param1);

Top:=Top+Param1;
Canvas.Arc(Left,Top-Param2,Left+4*Param1,Top+Param2,Left,Top,Left+4*Param1,Top);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DrawHeart(Self.Canvas,100,100,50,150);
end;

hljde 2003-07-15