关于画"心"函数

Question

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

Answer 1

画的不好。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;