请教：如何根据坐标点画出图形？

Question

请问！  我首先在canvas 画出曲线，并把每一个点采集下来，
 
然后再把采集的的点恢复成原来的曲线！  拜托！

Answer 1

用像素画,我这里有画直线和圆的算法,是一个演示画图过程的程序.
如果要的话,就把你的E-Mail给我

Answer 2

给我也一份,谢谢!!!
[email protected]

Answer 3

var
  X,Y,i,j:Integer;
begin
X:=Width Div 2;
Y:=Height Div 2;
for i:=-200 to 200 do
begin
  Canvas.Pixels[Round(i*Pi)+X,Round(100*Sin(i/100*Pi))+Y]:=clRed;
end;把画布坐标和要画的坐标用某种关系联系起来,如:坐标原点一般在中间,也就是画布上的坐标值加上Width,Height值一半!而像素的值和按1Pi/100缩小为坐标值,即100像素表示Pi,200像素表示2Pi!但这样画出的曲线不连续,主要是方便你理解画连续曲线这样做:
for X:=0 to Width-1 do
begin
  Canvas.Pixels[X,Round(Sin(X/100)*100)+Height Div 2]:=clRed;
end;