123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Ray Cast'
- ClientHeight = 270
- ClientWidth = 514
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel2: TBevel
- Left = 280
- Top = 49
- Width = 225
- Height = 209
- end
- object Bevel1: TBevel
- Left = 0
- Top = 49
- Width = 225
- Height = 209
- end
- object PaintBox1: TPaintBox
- Left = 288
- Top = 56
- Width = 209
- Height = 193
- end
- object GLSceneViewer1: TGLSceneViewer
- Left = 8
- Top = 57
- Width = 209
- Height = 193
- Camera = GLCamera1
- FieldOfView = 125.219512939453100000
- PenAsTouch = False
- TabOrder = 0
- end
- object BUCast: TButton
- Left = 232
- Top = 89
- Width = 41
- Height = 25
- Caption = 'Cast!'
- TabOrder = 1
- OnClick = BUCastClick
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 514
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- ExplicitWidth = 513
- object Label1: TLabel
- Left = 0
- Top = 0
- Width = 514
- Height = 22
- Align = alTop
- Alignment = taCenter
- AutoSize = False
- Caption = 'RayCasting demo/testbed'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Layout = tlCenter
- ExplicitWidth = 505
- end
- object Label2: TLabel
- Left = 8
- Top = 32
- Width = 100
- Height = 14
- Caption = 'OpenGL scene view'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 288
- Top = 32
- Width = 136
- Height = 14
- Caption = 'RayCasted/RayTraced view'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- end
- object GLScene1: TGLScene
- Left = 16
- Top = 64
- object Sphere1: TGLSphere
- Material.FrontProperties.Diffuse.Color = {8D8C0C3F8D8C0C3F0000803F0000803F}
- Radius = 0.200000002980232200
- end
- object DummyCube1: TGLDummyCube
- Direction.Coordinates = {00000000000080330000803F00000000}
- Up.Coordinates = {EE8384BEEA46773FEA4677B300000000}
- CubeSize = 1.000000000000000000
- object Torus1: TGLTorus
- Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
- Direction.Coordinates = {5D1C7C3F02004032CED0313E00000000}
- Position.Coordinates = {000000BF00000000000000000000803F}
- Up.Coordinates = {00C02FB20000803F0000403200000000}
- Visible = False
- MajorRadius = 0.400000005960464500
- MinorRadius = 0.100000001490116100
- StopAngle = 360.000000000000000000
- Parts = [toSides, toStartDisk, toStopDisk]
- end
- object Plane1: TGLPlane
- Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F}
- Material.FaceCulling = fcNoCull
- Height = 0.699999988079071000
- Width = 0.300000011920929000
- end
- object Cylinder1: TGLCylinder
- Material.FrontProperties.Diffuse.Color = {0000803F0000803F8180003F0000803F}
- Direction.Coordinates = {00000000010000BFD6B35D3F00000000}
- Position.Coordinates = {0000003F00000000000000000000803F}
- Up.Coordinates = {00000000D6B35D3F0100003F00000000}
- BottomRadius = 0.100000001490116100
- Height = 0.600000023841857900
- TopRadius = 0.100000001490116100
- object GLAnnulus1: TGLAnnulus
- Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F}
- BottomRadius = 0.230000004172325100
- Height = 0.200000002980232200
- BottomInnerRadius = 0.180000007152557400
- TopInnerRadius = 0.180000007152557400
- TopRadius = 0.230000004172325100
- end
- end
- object GLCube1: TGLCube
- Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
- Direction.Coordinates = {00000000B28F70BF431DAF3E00000000}
- Position.Coordinates = {000000BF00000000000000000000803F}
- Up.Coordinates = {00000000431DAF3EB28F703F00000000}
- CubeSize = {CDCC4C3ECDCCCC3D9A99993E}
- end
- end
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000204100001041000070410000803F}
- SpotCutOff = 180.000000000000000000
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- Position.Coordinates = {0000000000000000000040400000803F}
- Left = 256
- Top = 160
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 56
- Top = 64
- end
- end
|