12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 |
- //---------------------------------------------------------------------------
- #ifndef Unit1H
- #define Unit1H
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include <tchar.h>
- //---------------------------------------------------------------------------
- #include <System.Classes.hpp>
- #include <Vcl.Controls.hpp>
- #include <Vcl.StdCtrls.hpp>
- #include <Vcl.Forms.hpp>
- #include "GLScene.hpp"
- #include "GLObjects.hpp"
- #include "GLGeomObjects.hpp"
- #include "GLTexture.hpp"
- #include "GLMultiPolygon.hpp"
- #include "GlvectorGeometry.hpp"
- #include "GLWin32Viewer.hpp"
- #include "GLCrossPlatform.hpp"
- #include "GLMaterial.hpp"
- #include "GLCoordinates.hpp"
- #include "GLBaseClasses.hpp"
- //---------------------------------------------------------------------------
- struct TVektor
- {
- double x;
- double y;
- double z;
- };
- class TForm1 : public TForm
- {
- __published: // IDE-managed Components
- TGLSceneViewer *GLSceneViewer1;
- TGLScene *GLScene1;
- TGLLightSource *GLLightSource1;
- TGLLightSource *GLLightSource2;
- TGLDummyCube *Container;
- TGLDummyCube *CameraTarget;
- TGLCamera *Camera;
- TGLMaterialLibrary *GLMaterialLibrary1;
- void __fastcall FormShow(TObject *Sender);
- private: // User declarations
- int mx,my;
- double FDY;
- double FDX;
- double FDZ;
- TGLMultiPolygon __fastcall GetPlane(int Side);
- void __fastcall SetDX(const double Value);
- void __fastcall SetDY(const double Value);
- void __fastcall SetDZ(const double Value);
- void __fastcall CreatePanel();
- void __fastcall AddMaterial(TGLSceneObject *Obj);
- void __fastcall ReDraw();
- TVektor __fastcall TransformToPlane(int Side, double x, double y, double z); //overload;
- TVektor __fastcall TransformToPlane(int Side, TVektor v); // overload;
- public: // User declarations
- __fastcall TForm1(TComponent* Owner);
- void __fastcall MakeHole(int Side, double X, double Y, double Z,
- double D, double T, double Phi, double Rho);
- /// property Plane[Side:Integer]:TGLMultiPolygon read GetPlane;
- __property double DX = {read=FDX, write=SetDX};
- __property double DY = {read=FDY, write=SetDY};
- __property double DZ = {read=FDZ, write=SetDZ};
- };
- //---------------------------------------------------------------------------
- extern PACKAGE TForm1 *Form1;
- //---------------------------------------------------------------------------
- #endif
|