Unit1.h 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <Forms.hpp>
  9. #include <GLS.GeomObjects.hpp>
  10. #include <GLS.SceneViewer.hpp>
  11. #include <GLS.Cadencer.hpp>
  12. #include <GLS.VectorGeometry.hpp>
  13. #include <GLS.Scene.hpp>
  14. #include <GLS.Objects.hpp>
  15. #include "GLS.BaseClasses.hpp"
  16. #include "GLS.Coordinates.hpp"
  17. // Pascal unit
  18. //---------------------------------------------------------------------------
  19. class TForm1:public TForm
  20. {
  21. __published: // IDE-managed Components
  22. TGLSceneViewer * GLSceneViewer1;
  23. TGLScene *GLScene1;
  24. TGLCamera *GLCamera1;
  25. TGLDummyCube *DCSphere;
  26. TGLArrowLine *ArrowLine;
  27. TGLLightSource *GLLightSource1;
  28. TGLSphere *Sphere;
  29. TGLDummyCube *DCArrow;
  30. TGLCadencer *GLCadencer1;
  31. TGLDisk *Disk1;
  32. TGLDisk *Disk2;
  33. TGLLines *Lines1;
  34. TGLPlane *Plane1;
  35. TGLLines *Lines2;
  36. void __fastcall GLCadencer1Progress(TObject * Sender, const double deltaTime,
  37. const double newTime);
  38. private: // User declarations
  39. public: // User declarations
  40. __fastcall TForm1(TComponent * Owner);
  41. };
  42. //---------------------------------------------------------------------------
  43. extern PACKAGE TForm1 *Form1;
  44. //---------------------------------------------------------------------------
  45. #endif