Registering Data Example

procedure Spiral;

{Plot a spiral on an SGraph}

var i:Integer;x,y,s:Double;

begin

s:=0;

Graph.SetSeriesStyle(4,clRed,True,none); {Series 4 will be RED, connected points, without any point markers.}

for i:=0 to 1023 do

begin

x:=s*Sin(6*Pi*s);

y:=s*Cos(6*Pi*s);

s:=i/1023;

Graph.RegisterDatum(4,x,y);

end;

end;

Scitools00000001.gif