Lab2/fStars.cpp - master - DmitryBar/computer_modeling

Lab2/fStars.cpp
254 строки7 KB
Dmitry
Выполнение второй лабораторной работы
19 дек 2024, 15:28
19 дек 2024, 15:28828fc2b
//---------------------------------------------------------------------------

#include <vcl.h>

#include <cstdlib>
#include <ctime>
#include <typeinfo>
#pragma hdrstop

#include "fStars.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Cadencer"
#pragma link "GLS.Coordinates"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.SimpleNavigation"
#pragma #pragma link "GLS.BaseClasses"
#pragma link "GLS.Coordinates"
#pragma resource "*.dfm"
TForm1* Form1;


int mx, my;

unsigned int start, end;

TStringList* S1 = new TStringList;
TStringList* T1 = new TStringList;


unsigned char FX, FY, FZ, FSpect;


float X, Y, Z;


int count;

double ex_time;


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLSceneViewer1MouseDown(TObject* Sender, TMouseButton Button, TShiftState Shift, int X, int Y) {
  mx = X;
  my = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject* Sender) {
  SetCurrentDir(ExtractFilePath(ParamStr(0)));
  OpenTextFileDialog1->InitialDir = GetCurrentDir() + "\DATA";
  OpenTextFileDialog1->Filter = "CSV files (*.csv)";
  FormatSettings.DecimalSeparator = '.';
}
//---------------------------------------------------------------------------

void __fastcall TForm1::GLSceneViewer1MouseMove(TObject* Sender, TShiftState Shift, int X, int Y) {
  if (Shift.Contains(ssLeft)) {
    GLCamera1->MoveAroundTarget(my - Y, mx - X);
    mx = X;
    my = Y;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject* Sender) {
  Form1->StatusBar1->Panels->Items[0]->Text = Format("Count of stars: %d", ARRAYOFCONST((count)));
  Form1->StatusBar1->Panels->Items[1]->Text = Format("Time: %.2f", ARRAYOFCONST((ex_time)));
  GLSceneViewer1->ResetPerformanceMonitor();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLCadencer1Progress(TObject* Sender, const double deltaTime, const double newTime) {
  GLSceneViewer1->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Exit1Click(TObject* Sender) { Form1->Close(); }
//---------------------------------------------------------------------------
void __fastcall TForm1::btnClearClick(TObject* Sender) {
  GLTypeO->Free();
  GLTypeB->Free();
  GLTypeA->Free();
  GLTypeF->Free();
  GLTypeG->Free();
  GLTypeK->Free();
  GLTypeM->Free();
  GLTypeO = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeB = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeA = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeF = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeG = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeK = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeM = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLSceneViewer1->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OpenCSV1Click(TObject* Sender) {
  if (OpenTextFileDialog1->Execute()) {
    S1->LoadFromFile(OpenTextFileDialog1->FileName);

	T1->CommaText = S1->Strings[0];

	for (int i = 0; i < T1->Count; i++) {
      if (T1[0][i] == "x")
        FX = i;
      else if (T1[0][i] == "y")
        FY = i;
      else if (T1[0][i] == "z")
        FZ = i;
      else if (T1[0][i] == "spect")
        FSpect = i;
	}


	start = clock();

	count = 0;


	for (int i = 1; i < S1->Count; i++) {
	  T1->CommaText = S1->Strings[i];
	  try {
		X = StrToFloat(T1[0][FX]) * 0.2;
		Y = StrToFloat(T1[0][FY]) * 0.2;
		Z = StrToFloat(T1[0][FZ]) * 0.2;

		String FullType = T1[0][FSpect];


		if (FullType == "") FullType = "A";

		String Type = FullType.SubString(0, 1);

		// "O"
		if (Type == "O") {
		  GLTypeO->Colors->AddPoint(0, 0, 255);  // (cR, cG, CB)
		  GLTypeO->Positions->Add(X, Y, Z);
		  GLTypeO->Size = 2;
		}
		// "B"
		else if (Type == "B") {

		  GLTypeB->Colors->AddPoint(0, 255, 255);  // (cR, cG, CB)
		  GLTypeB->Positions->Add(X, Y, Z);
		  GLTypeB->Size = 2;
		}
		// "A"
		else if (Type == "A") {
		  GLTypeA->Colors->AddPoint(255, 255, 255);  // (cR, cG, CB)
		  GLTypeA->Positions->Add(X, Y, Z);
		  GLTypeA->Size = 2;
		}
		// "F"
		else if (Type == "F") {
		  GLTypeF->Colors->AddPoint(0, 255, 0);  // (cR, cG, CB)
		  GLTypeF->Positions->Add(X, Y, Z);
		  GLTypeF->Size = 2;
		}
		// "G"
		else if (Type == "G") {
		  GLTypeG->Colors->AddPoint(255, 255, 0);  // (cR, cG, CB)
		  GLTypeG->Positions->Add(X, Y, Z);
		  GLTypeG->Size = 2;
		}
		// "K"
		else if (Type == "K") {
		  GLTypeK->Colors->AddPoint(255, 0, 255);  // (cR, cG, CB)
		  GLTypeK->Positions->Add(X, Y, Z);
		  GLTypeK->Size = 2;

		}
		// "M"
		else {
		  GLTypeM->Colors->AddPoint(254, 0, 0);  // (cR, cG, CB)
		  GLTypeM->Positions->Add(X, Y, Z);
		  GLTypeM->Size = 3;
		}
		count = count + 1;
	  } catch (...) {}
	}

	end = clock();
	ex_time = (end - start) / (double)CLOCKS_PER_SEC;

	delete S1;
	delete T1;
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject* Sender) {
  GLTypeO->Free();
  GLTypeB->Free();
  GLTypeA->Free();
  GLTypeF->Free();
  GLTypeG->Free();
  GLTypeK->Free();
  GLTypeM->Free();
  GLTypeO = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeB = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeA = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeF = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeG = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeK = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLTypeM = (TGLPoints*)(GLDummyCube1->AddNewChild(__classid(TGLPoints)));
  GLSceneViewer1->Invalidate();
}
//---------------------------------------------------------------------------



void __fastcall TForm1::chbOClick(TObject *Sender)
{
	 GLTypeO->Visible =  chbO->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::chbBClick(TObject *Sender)
{
	GLTypeB->Visible =  chbB->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::chbAClick(TObject *Sender)
{
	GLTypeA->Visible =  chbA->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::chbFClick(TObject *Sender)
{
		GLTypeF->Visible =  chbF->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::chbGClick(TObject *Sender)
{
	GLTypeG->Visible =  chbG->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::chbKClick(TObject *Sender)
{
	GLTypeK->Visible =  chbK->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::chbMClick(TObject *Sender)
{
	GLTypeM->Visible =  chbM->Checked;
}
//---------------------------------------------------------------------------