object FormFacevsFace: TFormFacevsFace Left = 322 Top = 162 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 BorderWidth = 3 Caption = 'Face vs Face' ClientHeight = 977 ClientWidth = 1409 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnMouseWheel = FormMouseWheel OnShow = FormShow PixelsPerInch = 168 TextHeight = 24 object Splitter1: TSplitter Left = 1201 Top = 0 Width = 7 Height = 711 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Align = alRight MinSize = 53 end object GLSceneViewer1: TGLSceneViewer Left = 212 Top = 0 Width = 989 Height = 711 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Camera = GLCamera2 Buffer.BackgroundColor = 8404992 FieldOfView = 83.258186340332030000 PenAsTouch = False Align = alClient OnMouseDown = GLSceneViewer1MouseDown OnMouseMove = GLSceneViewer1MouseMove TabOrder = 0 end object Panel1: TPanel Left = 0 Top = 0 Width = 212 Height = 711 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Align = alLeft BevelOuter = bvLowered TabOrder = 1 object Shape1: TShape Left = 154 Top = 18 Width = 44 Height = 43 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Pen.Width = 2 Shape = stCircle end object Label1: TLabel Left = 14 Top = 14 Width = 109 Height = 24 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'Collision test:' end object LATime: TLabel Left = 14 Top = 42 Width = 128 Height = 23 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Alignment = taRightJustify AutoSize = False Caption = 'LATime' end object Label2: TLabel Left = 14 Top = 168 Width = 186 Height = 24 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'Teapot collision mode' end object cbCollisionMode: TRadioGroup Left = 14 Top = 196 Width = 184 Height = 184 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 ItemIndex = 4 Items.Strings = ( 'cbmPoint' 'cbmSphere' 'cbmEllipsoid' 'cbmCube' 'cbmFaces') TabOrder = 0 OnClick = cbCollisionModeClick end end object Panel2: TPanel Left = 0 Top = 711 Width = 1409 Height = 266 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Align = alBottom TabOrder = 2 object StringGrid1: TStringGrid Left = 1 Top = 1 Width = 1407 Height = 264 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Align = alClient ColCount = 6 DefaultColWidth = 158 DefaultRowHeight = 35 RowCount = 6 TabOrder = 0 ColWidths = ( 158 158 158 158 158 158) RowHeights = ( 35 35 35 35 35 35) end end object Memo1: TMemo Left = 1208 Top = 0 Width = 201 Height = 711 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Align = alRight Lines.Strings = ( 'Memo1') TabOrder = 3 end object GLScene1: TGLScene Left = 184 Top = 8 object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000204100002041000020410000803F} SpotCutOff = 180.000000000000000000 end object GLLightSource2: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {000020C100002041000020C10000803F} SpotCutOff = 180.000000000000000000 end object DummyCube1: TGLDummyCube ShowAxes = True CubeSize = 1.000000000000000000 EdgeColor.Color = {0000003F0000003F0000003F0000803F} object GLCamera2: TGLCamera DepthOfView = 1000.000000000000000000 FocalLength = 400.000000000000000000 TargetObject = DummyCube1 Position.Coordinates = {0000704100002041000070410000803F} end object txtX: TGLSpaceText Position.Coordinates = {0000004000000000000000000000803F} Scale.Coordinates = {0000003F0000003F0000003F00000000} Extrusion = 0.100000001490116100 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'X') end object txtY: TGLSpaceText Position.Coordinates = {0000000000000040000000000000803F} Scale.Coordinates = {0000003F0000003F0000003F00000000} Extrusion = 0.100000001490116100 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'Y') end object txtZ: TGLSpaceText Position.Coordinates = {0000000000000000000000400000803F} Scale.Coordinates = {0000003F0000003F0000003F00000000} Extrusion = 0.100000001490116100 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'Z') end object Teapot1: TGLFreeForm Direction.Coordinates = {613D73BDD128723F4D43A3BE00000000} Position.Coordinates = {00000000000000003333B33E0000803F} Scale.Coordinates = {0AD7233C0AD7233C0AD7233C00000000} Up.Coordinates = {C9B14FBFC3BE0F3ED548113F00000000} AutoCentering = [macCenterX, macCenterY, macCenterZ] BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102040200} end object Teapot2: TGLFreeForm Direction.Coordinates = {0DFB4AB20000803F7A829A3200000000} Position.Coordinates = {0000000000000000CDCCCCBE0000803F} Scale.Coordinates = {0AD7233C0AD7233C0AD7233C00000000} Up.Coordinates = {F30435BFD41F8BB3F30435BF00000000} AutoCentering = [macCenterX, macCenterY, macCenterZ] BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102040200} end object CubePoint1: TGLCube Position.Coordinates = {000000000000803F000000000000803F} BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102000200} CubeSize = {CDCC4C3DCDCC4C3DCDCC4C3D} end object CubePoint2: TGLCube Position.Coordinates = {CDCC4CBE0000803F000000000000803F} Scale.Coordinates = {CDCC4C3DCDCC4C3DCDCC4C3D00000000} BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102000200} end object Cube2: TGLCube Material.BackProperties.Ambient.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000003F} Material.BackProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F0000003F} Material.BackProperties.Emission.Color = {0000000000000000000000000000003F} Material.BackProperties.Specular.Color = {0000000000000000000000000000003F} Material.FrontProperties.Ambient.Color = {CDCC4C3ECDCC4C3ECDCC4C3ECDCC4C3E} Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F0000003F} Material.FrontProperties.Emission.Color = {0000000000000000000000000000003F} Material.BlendingMode = bmTransparency Position.Coordinates = {0000803F00000000000080BF0000803F} Scale.Coordinates = {0000803F000000400000803F00000000} BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102030200} CubeSize = {0000803F0000803F0000003F} end object Bar: TGLCube Material.FrontProperties.Diffuse.Color = {0000803F5839343E5839343E0000803F} Position.Coordinates = {0000803F000000000000803F0000803F} BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102030200} CubeSize = {CDCC4C3DCDCC4C3D00000040} end object GLSphere1: TGLSphere Position.Coordinates = {000000C000000000000000000000803F} Radius = 0.500000000000000000 BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102010200} end object GLSphere2: TGLSphere Position.Coordinates = {000000C000000000000080BF0000803F} Scale.Coordinates = {CDCC4C3FCDCC4C3FCDCC4C3F00000000} Radius = 0.300000011920929000 BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102010200} end object GLSphereEllipsoid1: TGLSphere Position.Coordinates = {000080BF00000000000000C00000803F} Scale.Coordinates = {9A99193F0000803F0000803F00000000} Radius = 0.500000000000000000 BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102020200} end object GLSphereEllipsoid2: TGLSphere Position.Coordinates = {0000000000000000000000C00000803F} Scale.Coordinates = {CDCC4C3FCDCCCC3F3333333F00000000} Radius = 0.300000011920929000 BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102020200} end object GLCube1: TGLCube Position.Coordinates = {0000803F000080BF000000000000803F} Scale.Coordinates = {3333333F3333B33F0000803F00000000} BehavioursData = { 0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000 0002000611436F6C6C6973696F6E4D616E616765723102030200} CubeSize = {0000803F0000803F6666A63F} end end object GLCamera1: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 50.000000000000000000 end object GLCamera3: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 50.000000000000000000 end end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 224 Top = 8 end object CollisionManager1: TGLCollisionManager OnCollision = CollisionManager1Collision Left = 136 Top = 8 end end