Polarseries draws unwanted line

[gerhardsachs]

Hello,

on the attached jpg it can be seen that the chart contains a line from the center of the circle at about 20°. This line is the first out of about 800 segments.
Before anything is drawn, I set the axis with the following lines, mb is 500.
SMEChart.LeftAxis.Automatic := false;
SMEChart.LeftAxis.SetMinMax(-mb, mb);
SMEChart.BottomAxis.Automatic := false;
SMEChart.BottomAxis.SetMinMax(-mb, mb);
The other attachment lists the values, I exported it using ChartEditor.
All radius values are close to zero, so where does the line from -500 to zero come from ?

Gerhard Sachs

[Narcís]

Hello Gerhard,

After looking at your data file I see no explanation for that. Could you please attach a simple example project we can run "as-is" to reproduce the problem here?

Thanks in advance.

[gerhardsachs]

Hello Narcis,

here is the requested sample project.
It seems that the line is only drawn if the angle offset is not zero.
The project was compiled with Delphi XE7 using the latest TeeChart.

Regards Gerhard

[Narcís]

Hi Gerhard,

Thanks for the information.

I could narrow the problem down to the code snippet below and it looks like a defect to me, which I have added to bugzilla (ID1096). Please feel free to sign up at bugzilla and add yourself to the CC List to receive status updates on the issue.

Code: Select all

uses TeePolar;

procedure TForm1.FormCreate(Sender: TObject);
var
  Series1 : TPolarSeries;
  i : Integer;
begin
  Series1:=TPolarSeries.Create(Self);
  Series1.Pointer.Visible:=False;
  Series1.Brush.Style:=bsClear;

  for i:=0 to 359 do
    Series1.AddPolar(i+10, 0);

  Chart1.Axes.Left.SetMinMax(-1, 1);
  Chart1.Axes.Bottom.SetMinMax(-1, 1);
  Chart1.View3D:=False;
  Chart1.AddSeries(Series1);
end;