Lab2/fL2.cpp - master - daryadevx/KMiVVR

Lab2/fL2.cpp
76 строк3 KB
daryadevx
fix
24 дек 2024, 21:14
24 дек 2024, 21:145d0eeb2
//---------------------------------------------------------------------------
#include <vcl.h>
#include <tchar.h>
#include <stdlib.h>
#pragma hdrstop
#include "fL2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.SceneViewer"
#pragma link "GLS.Coordinates"
#pragma link "GLS.Objects"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.Scene"
#pragma resource "*.dfm"
TForm1* Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheel(TObject* Sender, TShiftState Shift,
    int WheelDelta, TPoint &MousePos, bool &Handled)
{
    if (GLSceneViewer1->MouseInControl == true) {
        GLCamera1->AdjustDistanceToTarget(Power(1.1, -WheelDelta / 120));
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject* Sender)
{
    TGLPoints* P[10000];
    for (int i = 0; i < 100; i++) {
        P[i] = new TGLPoints(GLDummyCube1);
        P[i]->Colors->Add(((float)(rand() % 256)) / 256.0,
            ((float)(rand() % 256)) / 256.0, ((float)(rand() % 256)) / 256.0,
            0.5);
        P[i]->Size = 5;
        P[i]->Position->X = 1.0 * rand() / RAND_MAX - 0.5;
        P[i]->Position->Y = 1.0 * rand() / RAND_MAX - 0.5;
        P[i]->Position->Z = 1.0 * rand() / RAND_MAX - 0.5;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject* Sender)
{
    GLDummyCube1->PitchAngle = TrackBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar2Change(TObject* Sender)
{
    GLDummyCube1->RollAngle = TrackBar2->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar3Change(TObject* Sender)
{
    GLDummyCube1->TurnAngle = TrackBar3->Position;
}
//---------------------------------------------------------------------------

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

void __fastcall TForm1::GLSceneViewer1MouseMove(
    TObject* Sender, TShiftState Shift, int X, int Y)
{
    if (Shift.Contains(ssLeft))
        GLCamera1->MoveAroundTarget(my - Y, mx - X);
    else if (Shift.Contains(ssRight))
        GLCamera1->RotateTarget(my - Y, mx - X, 0);
    mx = X;
    my = Y;
}
//---------------------------------------------------------------------------