Solution to create a series as anaglyph for viewing with

UFriedrich · Post by **UFriedrich** » Mon Sep 10, 2007 9:06 pm

red/cyan glasses

Hi all,

is there a way to create a series as an anaglyph image so that it can be viewed in real 3D (with color filter glasses).

If such a function is not implemented, how is it possible to move a series a defined number of pixels to left, right, up or down side?

Has anyone experiences to display one or more series in real 3D with anaglyph images?

Thanks in advance.
Best regards from Germany.

Narcís · Post by **Narcís** » Wed Sep 12, 2007 8:51 am

Hi UFriedrich,

A prototype was done about wasn't included as a feature. I'll add your request to our wish-list to be considered for inclusion in future releases.

In the meantime, you could try creating a dummy series offsetting original series values when populating them or something like this:

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var i,j, tmpX, tmpY : Integer;
    tmpLine: TLineSeries;
    XVal, YVal: double;
begin
  for i:=0 to Chart1.SeriesCount-1 do
  begin
    tmpLine:=TLineSeries.Create(self);
    Chart1.AddSeries(tmpLine);

    for j:=0 to Chart1[i].Count-1 do
    begin
      tmpX:=Series1.CalcXPos(j)+5;
      tmpY:=Series1.CalcYPos(j)-5;

      XVal:=Chart1.Axes.Bottom.CalcPosPoint(tmpX);
      YVal:=Chart1.Axes.Left.CalcPosPoint(tmpY);

      tmpLine.AddXY(XVal,YVal);
    end;

  end;
end;

UFriedrich · Post by **UFriedrich** » Wed Sep 12, 2007 7:58 pm

Hi Narcis,

thanks for your answer.

Your solution I've already tried and it seems that's a good interim solution. In the next days I receive new red/cyan glasses and then I'll try to see a series outside of my screen

!

I'll inform you about the result of this experiment.

Best regards from Germany
UFriedrich

Narcís · Post by **Narcís** » Thu Sep 13, 2007 7:17 am

Hi UFriedrich,

You're very welcome. I'm really looking forward your results on this experiment.

Good luck!