Examples/Demos/rendering/celshading/fCelShadingC.cpp - master - stud_22-365/GLXEngine

Examples/Demos/rendering/celshading/fCelShadingC.cpp
73 строки2 KB
GLScene
Fixed pathes to trinity model and textures
31 дек 2022, 13:59
31 дек 2022, 13:591467290
//---------------------------------------------------------------------------

#include <vcl.h>
#include <math.h>
#include <jpeg.hpp>
#pragma hdrstop

#include "fCelShadingC.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.FileMD2"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent * Owner):TForm(Owner)
{
  float r;
  TFileName Path = GetCurrentAssetPath();
  SetCurrentDir(Path  + "\\modelext");
  GLActor1->LoadFromFile("waste.md2");
  r = GLActor1->BoundingSphereRadius();
  GLActor1->Scale->SetVector(2.5 / r, 2.5 / r, 2.5 / r);
  GLActor1->AnimationMode = aamLoop;
  GLMaterialLibrary1->Materials->Items[0]->Material->Texture->Image->
    LoadFromFile("wastecell.jpg");
}

//---------------------------------------------------------------------------

void __fastcall TForm1::GLSceneViewer1MouseDown(TObject * Sender,
                                                TMouseButton Button,
                                                TShiftState Shift, int X, int Y)
{
  mx = X;
  my = Y;
  lx = X;
  ly = Y;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::GLSceneViewer1MouseMove(TObject * Sender,
                                                TShiftState Shift, int X, int Y)
{
  mx = X;
  my = Y;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::AsyncTimer1Timer(TObject * Sender)
{
  Form1->Caption =
    Format("Cel Shading Demo - %.2f FPS",
           ARRAYOFCONST((GLSceneViewer1->FramesPerSecond())));
  GLSceneViewer1->ResetPerformanceMonitor();
}

//---------------------------------------------------------------------------
void __fastcall TForm1::GLCadencer1Progress(TObject * Sender,
                                            const double deltaTime,
                                            const double newTime)
{
  if(IsKeyDown(VK_LBUTTON))
  {
    GLCamera1->MoveAroundTarget(ly - my, lx - mx);
    lx = mx;
    ly = my;
  }

  GLTorus1->TurnAngle = 15 * sin(newTime * 5);
  GLTorus1->PitchAngle = 15 * cos(newTime * 5);
}

//---------------------------------------------------------------------------