123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Ray Box'
- ClientHeight = 390
- ClientWidth = 518
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- OnMouseWheel = FormMouseWheel
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object Viewer: TGLSceneViewer
- Left = 0
- Top = 41
- Width = 518
- Height = 349
- Camera = GLCamera1
- Buffer.BackgroundColor = clBlack
- FieldOfView = 148.022491455078100000
- Align = alClient
- OnMouseDown = ViewerMouseDown
- OnMouseMove = ViewerMouseMove
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 518
- Height = 41
- Align = alTop
- TabOrder = 1
- object Label1: TLabel
- Left = 296
- Top = 12
- Width = 34
- Height = 13
- Caption = 'Result:'
- end
- object LabelFPS: TLabel
- Left = 488
- Top = 12
- Width = 18
- Height = 13
- Caption = 'FPS'
- end
- object Button1: TButton
- Left = 8
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test!'
- Default = True
- TabOrder = 0
- OnClick = Button1Click
- end
- object CheckBox1: TCheckBox
- Left = 99
- Top = 12
- Width = 70
- Height = 17
- Caption = 'View box'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = CheckBox1Click
- end
- object CheckBox2: TCheckBox
- Left = 178
- Top = 12
- Width = 112
- Height = 17
- Caption = 'Change pos scale'
- Checked = True
- State = cbChecked
- TabOrder = 2
- end
- end
- object GLScene: TGLScene
- Left = 24
- Top = 56
- object GLCamera1: TGLCamera
- DepthOfView = 500.000000000000000000
- FocalLength = 50.000000000000000000
- NearPlaneBias = 0.100000001490116100
- TargetObject = DCCamTarg
- Position.Coordinates = {0000A04000000040000040400000803F}
- Direction.Coordinates = {000000000000803F0000008000000000}
- Up.Coordinates = {00000000000000000000803F00000000}
- Left = 256
- Top = 144
- end
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {00007A4400004844000016440000803F}
- SpotCutOff = 180.000000000000000000
- end
- object GLLightSource2: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000FAC30000C8C3000096C30000803F}
- SpotCutOff = 180.000000000000000000
- end
- object GLDummyCube1: TGLDummyCube
- CubeSize = 0.100000001490116100
- VisibleAtRunTime = True
- end
- object DCCamTarg: TGLDummyCube
- CubeSize = 1.000000000000000000
- object DCCube1: TGLDummyCube
- CubeSize = 1.000000000000000000
- object GLCube1: TGLCube
- end
- end
- end
- object GLLines1: TGLLines
- Nodes = <>
- NodesAspect = lnaInvisible
- Division = 1
- SplineMode = lsmSegments
- Options = []
- end
- object GLPoints1: TGLPoints
- NoZWrite = False
- Static = False
- Size = 7.000000000000000000
- end
- end
- object GLCadencer: TGLCadencer
- Scene = GLScene
- OnProgress = GLCadencerProgress
- Left = 80
- Top = 56
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 24
- Top = 112
- end
- object GLMaterialLibrary: TGLMaterialLibrary
- Left = 88
- Top = 112
- end
- end
|