//--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include #include #include "GLS.Cadencer.hpp" #include "GLS.Objects.hpp" #include "GLS.ProjectedTextures.hpp" #include "GLS.Scene.hpp" #include "GLS.Texture.hpp" #include "GLS.SceneViewer.hpp" #include "GLS.BaseClasses.hpp" #include "GLS.Coordinates.hpp" #include "GLS.Material.hpp" #include "GLS.FileTGA.hpp" //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TGLSceneViewer *viewer; TGLScene *scene; TGLProjectedTextures *ProjLight; TGLDummyCube *scenery; TGLCube *GLCube2; TGLDummyCube *light2; TGLSphere *GLSphere3; TGLTextureEmitter *emitter2; TGLDummyCube *Light; TGLLightSource *GLLightSource1; TGLSphere *GLSphere2; TGLTextureEmitter *emitter1; TGLCube *GLCube1; TGLPlane *GLPlane1; TGLPlane *GLPlane2; TGLPlane *GLPlane3; TGLSphere *GLSphere1; TGLCamera *GLCamera1; TGLCadencer *GLCadencer1; TGLMaterialLibrary *matLib; TTimer *Timer1; void __fastcall GLCadencer1Progress(TObject *Sender, const double deltaTime, const double newTime); void __fastcall FormCreate(TObject *Sender); void __fastcall Timer1Timer(TObject *Sender); void __fastcall viewerMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall viewerMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall viewerMouseMove(TObject *Sender, TShiftState Shift, int X, int Y); void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif