123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Formula'
- ClientHeight = 321
- ClientWidth = 598
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 17
- Width = 297
- Height = 304
- Camera = GLCamera1
- FieldOfView = 112.087295532226600000
- Align = alLeft
- OnMouseDown = GLSceneViewer1MouseDown
- OnMouseMove = GLSceneViewer1MouseMove
- TabOrder = 0
- end
- object GLSceneViewer2: TGLSceneViewer
- Left = 301
- Top = 17
- Width = 297
- Height = 304
- Camera = GLCamera2
- FieldOfView = 112.087295532226600000
- Align = alRight
- OnMouseDown = GLSceneViewer2MouseDown
- OnMouseMove = GLSceneViewer2MouseMove
- TabOrder = 1
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 598
- Height = 17
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- object Label1: TLabel
- Left = 0
- Top = 0
- Width = 297
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'FPS1'
- end
- object Label2: TLabel
- Left = 304
- Top = 0
- Width = 297
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'FPS2'
- end
- end
- object GLScene1: TGLScene
- Left = 32
- Top = 32
- object DummyCube1: TGLDummyCube
- CubeSize = 10.000000000000000000
- object Mesh1: TGLMesh
- Mode = mmTriangles
- VertexMode = vmVNC
- end
- end
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {00008C42000048420000F0410000803F}
- SpotCutOff = 180.000000000000000000
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 100.000000000000000000
- TargetObject = DummyCube1
- Position.Coordinates = {000048420000F0410000A0410000803F}
- end
- end
- object Timer1: TTimer
- Interval = 5000
- OnTimer = Timer1Timer
- Left = 192
- Top = 32
- end
- object GLScene2: TGLScene
- Left = 344
- Top = 32
- object DummyCube2: TGLDummyCube
- CubeSize = 10.000000000000000000
- object Mesh2: TGLMesh
- Mode = mmTriangles
- VertexMode = vmVNC
- end
- end
- object GLLightSource2: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {00008C42000048420000F0410000803F}
- SpotCutOff = 180.000000000000000000
- end
- object GLCamera2: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 100.000000000000000000
- TargetObject = DummyCube2
- Position.Coordinates = {000048420000F0410000A0410000803F}
- end
- end
- end
|