GLScene/Examples/Demos/graph/points/fPointsD.pas

unit fPointsD;

interface

uses
  Winapi.OpenGL,
  System.SysUtils,
  System.Classes,
  System.Math,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.StdCtrls,
  Vcl.ExtCtrls,

  GLS.Scene,
  GLScene.VectorTypes,
  GLS.Objects,
  GLS.SceneViewer,
  GLScene.VectorGeometry,
  GLS.VectorLists,
  GLS.Cadencer,
  GLS.Texture,
  GLS.Color,

  GLS.Coordinates,
  GLS.BaseClasses;

type
  TFormPoints = class(TForm)
    GLScene1: TGLScene;
    GLSceneViewer1: TGLSceneViewer;
    GLCamera1: TGLCamera;
    DummyCube1: TGLDummyCube;
    GLPoints1: TGLPoints;
    GLCadencer1: TGLCadencer;
    GLPoints2: TGLPoints;
    Panel1: TPanel;
    CBPointParams: TCheckBox;
    CBAnimate: TCheckBox;
    Timer1: TTimer;
    LabelFPS: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure GLSceneViewer1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure GLCadencer1Progress(Sender: TObject;
      const deltaTime, newTime: Double);
    procedure CBAnimateClick(Sender: TObject);
    procedure CBPointParamsClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private

  public

    mx, my: Integer end;

  var
    FormPoints: TFormPoints;

implementation

{$R *.DFM}

const
  cNbPoints = 180;

procedure TFormPoints.FormCreate(Sender: TObject);
begin
  // allocate points in the 1st point set
  GLPoints1.Positions.Count := cNbPoints;
  // specify white color for the 1st point set
  // (if a single color is defined, all points will use it,
  // otherwise, it's a per-point coloring)
  GLPoints1.Colors.Add(clrWhite);
  // specify blue color for the 2nd point set
  GLPoints2.Colors.Add(clrGold);
end;

procedure TFormPoints.GLCadencer1Progress(Sender: TObject;
  const deltaTime, newTime: Double);
var
  i: Integer;
  f, a, ab, ca, sa: Single;
  p: TGLAffineVectorList;
  v: TAffineVector;
begin
  if CBAnimate.Checked then
  begin
    // update the 1st point set with values from a math func
    f := 1 + Cos(newTime);
    p := GLPoints1.Positions;
    ab := newTime * 0.1;
    for i := 0 to cNbPoints - 1 do
    begin
      a := DegToRad(4 * i) + ab;
      SinCos(a, sa, ca);
      v.X := 2 * ca;
      v.Y := 2 * Cos(f * a);
      v.Z := 2 * sa;
      p.Create[i] := v;
    end;
    // replicate points in second set
    GLPoints2.Positions := GLPoints1.Positions;
  end;
  GLSceneViewer1.Invalidate;
end;

procedure TFormPoints.GLSceneViewer1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  mx := X;
  my := Y;
end;

procedure TFormPoints.GLSceneViewer1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if Shift <> [] then
  begin
    GLCamera1.MoveAroundTarget(my - Y, mx - X);
    mx := X;
    my := Y;
  end;
end;

procedure TFormPoints.CBAnimateClick(Sender: TObject);
begin
  GLPoints1.Static := not CBAnimate.Checked;
  GLPoints2.Static := not CBAnimate.Checked;
end;

procedure TFormPoints.CBPointParamsClick(Sender: TObject);
begin
  GLPoints1.PointParameters.Enabled := CBPointParams.Checked;
  GLPoints2.PointParameters.Enabled := CBPointParams.Checked;
end;

procedure TFormPoints.Timer1Timer(Sender: TObject);
begin
  LabelFPS.Caption := Format('%.1f FPS', [GLSceneViewer1.FramesPerSecond]);
  GLSceneViewer1.ResetPerformanceMonitor;
end;

end.