Lab13/fL13.cpp - master - daryadevx/KMiVVR

Lab13/fL13.cpp
123 строки4 KB
daryadevx
lab13
26 дек 2024, 15:23
26 дек 2024, 15:23b012a2b
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "fL13.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Cadencer"
#pragma link "GLS.Coordinates"

#pragma link "GLS.GeomObjects"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.VectorFileObjects"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.FileMD2"
#pragma resource "*.dfm"
TFormActor *FormActor;
int mdx, mdy;
//---------------------------------------------------------------------------
__fastcall TFormActor::TFormActor(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::FormCreate(TObject *Sender)
{
   TFileName Path = GetCurrentAssetPath() + "\\assets";
   // Load Texture of ground disk for Persistant Image
   Disk1->Material->Texture->Image->LoadFromFile("clover.jpg");
   Disk1->Material->Texture->Disabled = false;

   // Loading Actor with textures and aninations
   Actor1->LoadFromFile("waste.md2"); // and to load a weapon later
   Actor1->Material->Texture->Image->LoadFromFile("waste.jpg");
   Actor2->Material->Texture->Image->LoadFromFile("WeaponWaste.jpg");
   Actor1->Animations->LoadFromFile("Quake2Animations.aaf");
   // Scale Actor for put in the Scene
   Actor1->Scale->SetVector(0.04, 0.04, 0.04, 0);
   // Send animation names to the combo, to allow user selection
   Actor1->Animations->SetToStrings(CBAnimations->Items);
   // Force state to stand (first in list)
   CBAnimations->ItemIndex = 0;
   CBAnimationsChange(this);    // Sender may be used
 }

//---------------------------------------------------------------------------
void __fastcall TFormActor::SBPlayClick(TObject *Sender)
{
   // start playing
   Actor1->AnimationMode = aamLoop;
   Actor2->AnimationMode = aamLoop;

   // update buttons
   SBPlay->Enabled = False;
   SBStop->Enabled = True;
   SBFrameToFrame->Enabled = False;
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::SBStopClick(TObject *Sender)
{
   // stop playing
   Actor1->AnimationMode = aamNone;
   Actor2->AnimationMode = aamNone;

   // update buttons
   SBPlay->Enabled = True;
   SBStop->Enabled = False;
   SBFrameToFrame->Enabled = True;
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::CBAnimationsChange(TObject *Sender)
{
   // Change animation
   Actor1->SwitchToAnimation(CBAnimations->Text, True);
   Actor2->Visible = (Actor1->NextFrameIndex()<173);
   if (Actor2->Visible)
	  Actor2->Synchronize(Actor1);
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::SBFrameToFrameClick(TObject *Sender)
{
 // Animate Frame to Frame
 Actor1->NextFrame();
 Actor2->NextFrame();
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::BBLoadWeaponClick(TObject *Sender)
{
  // Load weapon model and texture
   Actor2->LoadFromFile("WeaponWaste.md2");

   // Get animations frames from the main actor
   Actor2->Animations->Assign(Actor1->Animations);

   // Synch both actors
   Actor2->Synchronize(Actor1);
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::GLSceneViewer1MouseDown(TObject *Sender, TMouseButton Button,
		  TShiftState Shift, int X, int Y)
{
 // store mouse coordinates when a button went down
 mdx = X; mdy = Y;
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::Timer1Timer(TObject *Sender)
{
   LabelFPS->Caption = GLSceneViewer1->FramesPerSecond();
   GLSceneViewer1->ResetPerformanceMonitor();
}
//---------------------------------------------------------------------------
void __fastcall TFormActor::GLSceneViewer1MouseMove(TObject *Sender, TShiftState Shift,
		  int X, int Y)
{
   // (we're moving around the parent and target dummycube)
   if (Shift.Contains(ssLeft))
	  GLCamera1->MoveAroundTarget(mdy-Y, mdx-X);
	mdx = X; mdy = Y;
}
//---------------------------------------------------------------------------