unit Unit1;

interface

uses
  dglOpenGL, Fireblade, fbu_emitters, fbu_effectmanager, textures, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  NearClipping = 1;
  FarClipping  = 1000;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
    Frames, DrawTime                  : Cardinal; //& Timebased Movement
    FTexture: TGLUInt;
    FContext: TFB_Context;
    FEmitter: TFBU_SphereEmitter;
    FEffectManager: TFBU_EffectManager;
    FTrash: TList;
    FDeltaTime, FLastDeltaTime, t: Single;
    procedure SetupContext;
    procedure IdleHandler(Sender: TObject; var Done: Boolean);
    procedure SetupGL;
    procedure Render;
  public
    DC                                : HDC;  //Handle auf Zeichenfläche
    RC                                : HGLRC;//Rendering Context
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := IdleHandler;
  DC:= GetDC(Handle);
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,
                               [opDoubleBuffered],
                               32,
                               24,
                               0,0,0,
                               0);
  ActivateRenderingContext(DC, RC);

  SetupGL;

  ReadExtensions;
  ReadImplementationProperties;
  LoadTexture('DR_StdSet.tga', FTexture);
  SetupContext;
end;

procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);


  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  IdleHandler(Sender, tmpBool);
end;

procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
  StartTime:= GetTickCount;
  Render;
  DrawTime:= GetTickCount - StartTime;
  Inc(TimeCount, DrawTime);
  Inc(FrameCount);

  if TimeCount >= 1000 then begin
    Frames:= FrameCount;
    TimeCount:= TimeCount - 1000;
    FrameCount:= 0;
    Caption:= InttoStr(Frames) + 'FPS';
  end;

  Done:= false;
end;

procedure TForm1.Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  SetupGL;

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;

  glTranslatef(0, 0, -3);

  FDeltaTime := getTickCount - FLastDeltaTime;
  FLastDeltaTime := getTickCount;

  FEffectManager.Update(FDeltaTime);
  FEffectManager.Render();

  SwapBuffers(DC);
end;

procedure TForm1.SetupContext;
var
  Appearance: TFB_AppearanceModel;
begin
  Appearance := TFB_AppearanceModel.Create();
  with Appearance do
  begin
    AddHook(0);   SetSize(0.25, 0.25); SetTexture(4); SetColor(0.8, 0.9, 1, 0);
    AddHook(0.1); SetColor(0.8, 0.9, 1, 0.7);
    AddHook(0.5);
    AddHook(1);   SetColor(0.8, 0.9, 1, 0);
  end;
  FTrash := TList.Create();
  FTrash.Add(Appearance);

  FContext := TFB_Context.Create();
  with FContext do
  begin
    AddTexture(FTexture, 2, 4);
    BindTexture(0);
    SetPhysicsModel(FB_PHYSICSMODEL_SIMPLE);
    SetVertexStorage(FB_VERTEXSTORAGE_VA);
    PreallocateMemory(150);
    pp_Mass(0.4);
    pp_Force(0, -3*0.4, 0);
    pp_AppearanceModel(Appearance);
  end;
  FEmitter := TFBU_SphereEmitter.Create();
  with FEmitter do
  begin
    Context := FContext;
    InnerRadius := 0.05;
    OuterRadius := 0.05;
    VelocityMode := FB_VELOCITYMODE_ORIENTATION;
    SetVelocityOrientation(0, 0, 0);
    VelocityMagnitude := 1;
    ParticleCount := 150;
    MinLifeSpan := 0.3;
    MaxLifeSpan := 0.7;
    FillDelay   := 0.7;
    AddRenderpass(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
    AddRenderpass(GL_SRC_ALPHA, GL_ONE);
  end;
  FEffectManager := TFBU_EffectManager.Create();
  FEffectManager.UpdateDelay := 1/60;
  FEffectManager.Add(FEmitter);
end;

procedure TForm1.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau
  gluPerspective(75, Width/Height, NearClipping, FarClipping);
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
end;

end.

glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  SetupGL;

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;

procedure TForm1.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau
  gluPerspective(75, Width/Height, NearClipping, FarClipping);
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
end;

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau

glMatrixMode(GL_PROJECTION);
  SetupGL;
glMatrixMode(GL_MODELVIEW);

glLoadIdentity;
glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren

procedure TForm1.SetupGL;
begin
  glLoadIdentity();
  glViewport(0, 0, ClientWidth, ClientHeight);
  gluPerspective(75, Width/Height, NearClipping, FarClipping);
end;

procedure TForm1.Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau

  glMatrixMode(GL_PROJECTION);
    SetupGL;
  glMatrixMode(GL_MODELVIEW);

  glLoadIdentity;
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren

  glTranslatef(0, 0, -3);

  FDeltaTime := getTickCount - FLastDeltaTime;
  FLastDeltaTime := getTickCount;

  FEffectManager.Update(FDeltaTime);
  FEffectManager.Render();

  SwapBuffers(DC);
end;

procedure TForm1.SetupGL;
begin
  glLoadIdentity();
  glViewport(0, 0, ClientWidth, ClientHeight);
  gluPerspective(75, Width/Height, NearClipping, FarClipping);
end;

  glBegin(GL_QUADS);
    glVertex3f(0, 0, 0);
    glVertex3f(1, 0, 0);
    glVertex3f(1, 1, 0);
    glVertex3f(0, 1, 0);
  glEnd;

  FEffectManager.Update(FDeltaTime / 1000);