/
daryadevx
/
KMiVVR
Обзор
Документация
Войти
/
daryadevx
/
KMiVVR
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Lab8/Lab8b/fLighting.cpp
45 строк
1 KB
daryadevx
fix
24 дек 2024, 21:14
24 дек 2024, 21:14
5d0eeb2
Код
Авторство
О чём код?
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "fLighting.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "GLS.BaseClasses" #pragma link "GLS.Cadencer" #pragma link "GLS.Coordinates" #pragma link "GLS.Graph" #pragma link "GLS.Objects" #pragma link "GLS.Scene" #pragma link "GLS.SimpleNavigation" #pragma link "GLS.SkyDome" #pragma link "GLS.ThorFX" #pragma link "GLS.SceneViewer" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::GLThorFXManager1CalcPoint(TObject *Sender, int PointNo, float &x, float &y, float &z) { //---------------Add user-definable formula to individual points in thor-object------------- float Place = (float) PointNo/GLThorFXManager1->Maxpoints; float Spin = (Place*M_PI)*10+(GLCadencer1->CurrentTime*20); float Scale = (float) Sin(Place*M_PI)/2; y = y+Sin(Spin)*Scale; x = x+Cos(Spin)*Scale; } //--------------------------------------------------------------------------- void __fastcall TForm1::HeightField1GetHeight(const float x, const float y, float &z, TVector4f &Color, TTexPoint &TexPoint) { z = 2; } //---------------------------------------------------------------------------