Unit1.h 2.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <ExtCtrls.hpp>
  9. #include <Forms.hpp>
  10. #include "GLS.Cadencer.hpp"
  11. #include "GLS.Objects.hpp"
  12. #include "GLS.ProjectedTextures.hpp"
  13. #include "GLS.Scene.hpp"
  14. #include "GLS.Texture.hpp"
  15. #include "GLS.SceneViewer.hpp"
  16. #include "GLS.BaseClasses.hpp"
  17. #include "GLS.Coordinates.hpp"
  18. #include "GLS.Material.hpp"
  19. #include "GLS.FileTGA.hpp"
  20. //---------------------------------------------------------------------------
  21. class TForm1 : public TForm
  22. {
  23. __published: // IDE-managed Components
  24. TGLSceneViewer *viewer;
  25. TGLScene *scene;
  26. TGLProjectedTextures *ProjLight;
  27. TGLDummyCube *scenery;
  28. TGLCube *GLCube2;
  29. TGLDummyCube *light2;
  30. TGLSphere *GLSphere3;
  31. TGLTextureEmitter *emitter2;
  32. TGLDummyCube *Light;
  33. TGLLightSource *GLLightSource1;
  34. TGLSphere *GLSphere2;
  35. TGLTextureEmitter *emitter1;
  36. TGLCube *GLCube1;
  37. TGLPlane *GLPlane1;
  38. TGLPlane *GLPlane2;
  39. TGLPlane *GLPlane3;
  40. TGLSphere *GLSphere1;
  41. TGLCamera *GLCamera1;
  42. TGLCadencer *GLCadencer1;
  43. TGLMaterialLibrary *matLib;
  44. TTimer *Timer1;
  45. void __fastcall GLCadencer1Progress(TObject *Sender,
  46. const double deltaTime, const double newTime);
  47. void __fastcall FormCreate(TObject *Sender);
  48. void __fastcall Timer1Timer(TObject *Sender);
  49. void __fastcall viewerMouseDown(TObject *Sender,
  50. TMouseButton Button, TShiftState Shift, int X, int Y);
  51. void __fastcall viewerMouseUp(TObject *Sender, TMouseButton Button,
  52. TShiftState Shift, int X, int Y);
  53. void __fastcall viewerMouseMove(TObject *Sender, TShiftState Shift,
  54. int X, int Y);
  55. void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
  56. TShiftState Shift);
  57. private: // User declarations
  58. public: // User declarations
  59. __fastcall TForm1(TComponent* Owner);
  60. };
  61. //---------------------------------------------------------------------------
  62. extern PACKAGE TForm1 *Form1;
  63. //---------------------------------------------------------------------------
  64. #endif