object Form1: TForm1 Left = 0 Top = 0 Caption = 'Lining' ClientHeight = 407 ClientWidth = 564 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 409 Height = 407 Camera = GLCamera1 Buffer.AntiAliasing = aa4xHQ FieldOfView = 152.391708374023400000 Align = alClient OnMouseDown = GLSceneViewer1MouseDown OnMouseMove = GLSceneViewer1MouseMove TabOrder = 0 end object Panel1: TPanel Left = 409 Top = 0 Width = 155 Height = 407 Align = alRight BevelOuter = bvSpace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 ExplicitLeft = 377 ExplicitHeight = 309 object Label1: TLabel Left = 17 Top = 226 Width = 50 Height = 13 Caption = 'Drag with:' end object Label2: TLabel Left = 17 Top = 242 Width = 123 Height = 13 Caption = 'LMB - move around scene' end object Label3: TLabel Left = 17 Top = 258 Width = 89 Height = 13 Caption = 'RMB - rotate torus' end object Bevel1: TBevel Left = 11 Top = 218 Width = 131 Height = 9 Shape = bsTopLine end object CheckBox1: TCheckBox Left = 9 Top = 186 Width = 131 Height = 17 Caption = 'Outline Shader Enabled' Checked = True State = cbChecked TabOrder = 0 OnClick = CheckBox1Click end object GroupBox1: TGroupBox Left = 9 Top = 58 Width = 137 Height = 111 Caption = 'Shader on Torus' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 object Bevel2: TBevel Left = 8 Top = 52 Width = 117 Height = 9 Shape = bsTopLine end object CheckBox2: TCheckBox Left = 10 Top = 16 Width = 97 Height = 17 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 0 OnClick = CheckBox2Click end object CheckBox3: TCheckBox Left = 10 Top = 56 Width = 97 Height = 17 Caption = 'Solid' TabOrder = 1 OnClick = CheckBox3Click end object CheckBox4: TCheckBox Left = 10 Top = 32 Width = 113 Height = 17 Caption = 'Dotted Hidden Line' Checked = True State = cbChecked TabOrder = 2 OnClick = CheckBox4Click end object CheckBox5: TCheckBox Left = 26 Top = 72 Width = 79 Height = 17 Caption = 'Surface Lit' TabOrder = 3 OnClick = CheckBox5Click end object CheckBox6: TCheckBox Left = 26 Top = 88 Width = 63 Height = 17 Caption = 'Flat' TabOrder = 4 OnClick = CheckBox6Click end end object Panel2: TPanel Left = 1 Top = 1 Width = 153 Height = 43 Align = alTop BevelOuter = bvNone Caption = 'Lining Shaders' Color = clBtnHighlight Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Trebuchet MS' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end end object GLScene1: TGLScene ObjectsSorting = osRenderFarthestFirst Left = 8 Top = 8 object GLLightSource1: TGLLightSource Ambient.Color = {0000803F0000803F0000803F0000803F} ConstAttenuation = 1.000000000000000000 Position.Coordinates = {00002041000000410000E0400000803F} Specular.Color = {0000803F0000803F0000803F0000803F} SpotCutOff = 180.000000000000000000 end object Torus1: TGLTorus Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'LibMaterial2' Direction.Coordinates = {000000000000803F0000000000000000} Up.Coordinates = {0000000000000000000080BF00000000} MajorRadius = 2.500000000000000000 MinorRadius = 1.500000000000000000 StopAngle = 360.000000000000000000 Parts = [toSides, toStartDisk, toStopDisk] end object Sphere1: TGLSphere ShowAxes = True Radius = 0.500000000000000000 end object GLAnnulusOutlined: TGLAnnulus Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'LibMaterial' Position.Coordinates = {0000E04000000000000000000000803F} Scale.Coordinates = {00000040000000400000004000000000} BottomRadius = 0.500000000000000000 Height = 1.000000000000000000 BottomInnerRadius = 0.300000011920929000 TopInnerRadius = 0.300000011920929000 TopRadius = 0.500000000000000000 end object GLAnnulusPink: TGLAnnulus Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'LibMaterial4' Position.Coordinates = {0000E0C000000000000000000000803F} Scale.Coordinates = {00000040000000400000004000000000} BottomRadius = 0.500000000000000000 Height = 1.000000000000000000 BottomInnerRadius = 0.300000011920929000 TopInnerRadius = 0.300000011920929000 TopRadius = 0.500000000000000000 end object GLAnnulusDotted: TGLAnnulus Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'LibMaterial1' Position.Coordinates = {00000000000000000000E0C00000803F} Scale.Coordinates = {00000040000000400000004000000000} BottomRadius = 0.500000000000000000 Height = 1.000000000000000000 BottomInnerRadius = 0.300000011920929000 TopInnerRadius = 0.300000011920929000 TopRadius = 0.500000000000000000 end object GLCubeGreen: TGLCube Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'LibMaterial5' Position.Coordinates = {00000000000000000000E0400000803F} Scale.Coordinates = {00000040000000400000004000000000} end object GLCubeTransparent: TGLCube Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'LibMaterial3' Position.Coordinates = {0000000000008040000000000000803F} CubeSize = {000040400000404000004040} end object GLCamera1: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 50.000000000000000000 TargetObject = Torus1 Position.Coordinates = {00006041000020410000C0400000803F} end end object GLMaterialLibrary1: TGLMaterialLibrary Materials = < item Name = 'LibMaterial' Tag = 0 Material.FrontProperties.Ambient.Color = {9190903D9190903D8786863E0000803F} Material.FrontProperties.Diffuse.Color = {9796163F0000803F0000803F0000803F} Material.FrontProperties.Shininess = 128 Shader = GLOutlineShader1 end item Name = 'LibMaterial1' Tag = 0 Shader = GLHiddenLineShader1 end item Name = 'LibMaterial2' Tag = 0 Material.FrontProperties.Ambient.Color = {C5C4443EBFBEBE3EB5B4343E0000803F} Material.FrontProperties.Diffuse.Color = {0000803FEBEAEA3E8180803C0000803F} Material.FrontProperties.Shininess = 128 Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F} Material.BlendingMode = bmTransparency Shader = GLHiddenLineShader2 end item Name = 'LibMaterial3' Tag = 0 Shader = GLHiddenLineShader3 end item Name = 'LibMaterial4' Tag = 0 Shader = GLHiddenLineShader4 end item Name = 'LibMaterial5' Tag = 0 Material.FrontProperties.Diffuse.Color = {9998183E9796163F9190103E17D92E3F} Material.BlendingMode = bmTransparency Shader = GLHiddenLineShader5 end> Left = 8 Top = 40 end object GLOutlineShader1: TGLOutlineShader LineColor.Color = {0000803F00000000000000000000803F} LineSmooth = True LineWidth = 4.000000000000000000 Left = 8 Top = 72 end object GLHiddenLineShader1: TGLHiddenLineShader FrontLine.Width = 1.000000000000000000 FrontLine.Color.Color = {938C0C3E938C0C3E938E0E3F0000803F} FrontLine.Pattern = 10101 BackLine.Width = 2.000000000000000000 LineSmooth = True Solid = True Left = 40 Top = 8 end object GLHiddenLineShader2: TGLHiddenLineShader FrontLine.Width = 2.000000000000000000 BackLine.Width = 1.000000000000000000 BackLine.Color.Color = {000000000000003F000000000000803F} BackLine.Pattern = 65280 LineSmooth = True SurfaceLit = False Left = 40 Top = 40 end object GLHiddenLineShader3: TGLHiddenLineShader FrontLine.Width = 5.000000000000000000 FrontLine.Color.Color = {EC51B83E0000803ECDCC4C3E9A99193F} BackLine.Width = 5.000000000000000000 BackLine.Color.Color = {0000003F0000003F0000003F9A99993E} LineSmooth = True Left = 40 Top = 72 end object GLHiddenLineShader4: TGLHiddenLineShader FrontLine.Width = 2.000000000000000000 FrontLine.Color.Color = {B81E053F14AEC73E14AEC73E0000803F} BackLine.Width = 1.000000000000000000 BackLine.Color.Color = {E4DB5B3FEBE0E03E9A93133F0000803F} LineSmooth = True Left = 72 Top = 8 end object GLHiddenLineShader5: TGLHiddenLineShader FrontLine.Width = 2.000000000000000000 FrontLine.Color.Color = {9A93133FE4DB5B3FEBE0E03E3333333F} BackLine.Width = 2.000000000000000000 BackLine.Color.Color = {000000000000003F000000000000803F} BackLine.Pattern = 65280 LineSmooth = True Solid = True BackgroundColor.Color = {938C0C3E938E0E3F938C0C3E3333333F} SurfaceLit = False Left = 72 Top = 40 end end