Лабораторные работы3 / KG3 / kg2

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

#include <vcl.h>
#pragma hdrstop

#include "kg2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Tspatial *spatial;
Tcomplex *complex;




//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	DoubleBuffered = true;
	spatial = new Tspatial(Image1->Canvas);
	spatial->setParams(oX, oY, lenthOS, alpha);
	spatial->change();

	complex = new Tcomplex (Image2->Canvas);
	complex->setParams(oX, oY, lenthOS);
	complex->change();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CameraChange(TObject *Sender)
{
	Label11->Caption="Камера С ("+IntToStr(TrackBar4->Position)+", "+IntToStr(TrackBar5->Position)+", "+IntToStr(TrackBar6->Position)+")";
	spatial->change();
	complex->change();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PointChange(TObject *Sender)
{
	//Label4->Caption="Точка Р ("+IntToStr(TrackBar1->Position)+", "+IntToStr(TrackBar2->Position)+", "+IntToStr(TrackBar3->Position)+")";
	//
	if (RadioButtonA->Checked==true)
	{
		spatial->setA(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		complex->setA(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		RadioButtonA->Caption="A ("+IntToStr(TrackBar1->Position)+", "+IntToStr(TrackBar2->Position)+", "+IntToStr(TrackBar3->Position)+")";
	}
	if (RadioButtonB->Checked==true)
	{
		spatial->setB(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		complex->setB(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		RadioButtonB->Caption="B ("+IntToStr(TrackBar1->Position)+", "+IntToStr(TrackBar2->Position)+", "+IntToStr(TrackBar3->Position)+")";
	}
	if (RadioButtonC->Checked==true)
	{
		spatial->setC(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		complex->setC(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		RadioButtonC->Caption="C ("+IntToStr(TrackBar1->Position)+", "+IntToStr(TrackBar2->Position)+", "+IntToStr(TrackBar3->Position)+")";
	}
	if (RadioButtonM->Checked==true)
	{
		spatial->setM(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		complex->setM(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		RadioButtonM->Caption="M ("+IntToStr(TrackBar1->Position)+", "+IntToStr(TrackBar2->Position)+", "+IntToStr(TrackBar3->Position)+")";
	}
	if (RadioButtonN->Checked==true)
	{
		spatial->setN(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		complex->setN(TrackBar1->Position, TrackBar2->Position, TrackBar3->Position);
		RadioButtonN->Caption="N ("+IntToStr(TrackBar1->Position)+", "+IntToStr(TrackBar2->Position)+", "+IntToStr(TrackBar3->Position)+")";
	}

	spatial->change();
	complex->change();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ProectionChange(TObject *Sender)
{
	spatial->change();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButtonAClick(TObject *Sender)
{
	point3D temp=spatial->getA();
	TrackBar1->Position=temp.x;
	TrackBar2->Position=temp.y;
	TrackBar3->Position=temp.z;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButtonBClick(TObject *Sender)
{
	point3D temp=spatial->getB();
	TrackBar1->Position=temp.x;
	TrackBar2->Position=temp.y;
	TrackBar3->Position=temp.z;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButtonCClick(TObject *Sender)
{
	point3D temp=spatial->getC();
	TrackBar1->Position=temp.x;
	TrackBar2->Position=temp.y;
	TrackBar3->Position=temp.z;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButtonMClick(TObject *Sender)
{
	point3D temp=spatial->getM();
	TrackBar1->Position=temp.x;
	TrackBar2->Position=temp.y;
	TrackBar3->Position=temp.z;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButtonNClick(TObject *Sender)
{
	point3D temp=spatial->getN();
	TrackBar1->Position=temp.x;
	TrackBar2->Position=temp.y;
	TrackBar3->Position=temp.z;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::TrackBar7Change(TObject *Sender)
{
	spatial->SetE(TrackBar7->Position);
	spatial->change();	
}
//---------------------------------------------------------------------------