object FormIntensutyMesh: TFormIntensutyMesh Left = 61 Top = 69 Caption = 'Intensity Mesh' ClientHeight = 423 ClientWidth = 637 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnMouseWheel = FormMouseWheel TextHeight = 13 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 550 Height = 423 Camera = GLCamera Buffer.BackgroundColor = clTeal Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow, roStereo] Buffer.FaceCulling = False Buffer.Lighting = False FieldOfView = 153.398193359375000000 PenAsTouch = False Align = alClient OnMouseDown = GLSceneViewer1MouseDown OnMouseMove = GLSceneViewer1MouseMove TabOrder = 0 end object Panel1: TPanel Left = 550 Top = 0 Width = 87 Height = 423 Align = alRight TabOrder = 1 ExplicitLeft = 542 ExplicitHeight = 398 DesignSize = ( 87 423) object Label1: TLabel Left = 8 Top = 64 Width = 63 Height = 13 Caption = 'Palette Scale' end object CBWireFrame: TCheckBox Left = 8 Top = 32 Width = 73 Height = 17 Caption = 'Wireframe' Checked = True State = cbChecked TabOrder = 0 OnClick = CBWireFrameClick end object CBSmooth: TCheckBox Left = 8 Top = 8 Width = 57 Height = 17 Caption = 'Smooth' TabOrder = 1 OnClick = CBSmoothClick end object TBScale: TTrackBar Left = 26 Top = 88 Width = 31 Height = 323 Anchors = [akLeft, akTop, akBottom] Max = 200 Orientation = trVertical PageSize = 10 Frequency = 10 Position = 50 TabOrder = 2 ThumbLength = 15 OnChange = TBScaleChange ExplicitHeight = 298 end end object GLScene1: TGLScene Left = 32 Top = 24 object GLFreeForm: TGLFreeForm Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'Palette' Scale.Coordinates = {A69B443BA69B443BA69B443B00000000} AutoCentering = [macCenterX, macCenterY, macUseBarycenter] end object DCTarget: TGLDummyCube ShowAxes = True CubeSize = 1.000000000000000000 object GLCamera: TGLCamera DepthOfView = 500.000000000000000000 FocalLength = 50.000000000000000000 SceneScale = 2.000000000000000000 TargetObject = DCTarget Position.Coordinates = {0000A04000002041000020420000803F} end end object HSPalette: TGLHUDSprite Material.MaterialLibrary = GLMaterialLibrary1 Material.LibMaterialName = 'Palette' Position.Coordinates = {0000964300007041000000000000803F} Rotation = 0.000000000000000000 end object HTPaletteLeft: TGLHUDText Position.Coordinates = {000002430000E040000000000000803F} BitmapFont = GLWindowsBitmapFont Text = '0' Rotation = 0.000000000000000000 ModulateColor.Color = {0000000000000000000000000000803F} end object HTPaletteRight: TGLHUDText Position.Coordinates = {0000E6430000E040000000000000803F} BitmapFont = GLWindowsBitmapFont Text = '100' Rotation = 0.000000000000000000 ModulateColor.Color = {0000000000000000000000000000803F} end end object GLMaterialLibrary1: TGLMaterialLibrary Materials = < item Name = 'Palette' Tag = 0 Material.BackProperties.Ambient.Color = {0000803F0000803F0000803F0000803F} Material.BackProperties.Emission.Color = {0000803F0000803F0000803F0000803F} Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F} Material.FrontProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F} Material.FrontProperties.Emission.Color = {CFCECE3ECFCECE3EC3C2C23ED9CE773F} Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F} Material.Texture.Image.Picture.Data = { 07544269746D617066000000424D660000000000000036000000280000001000 0000010000000100180000000000300000000000000000000000000000000000 0000C200C2FF00FFFC0100FFFF0100FF0100FFFF007FFF0002FBC0C0C0E3E5E5 E3E5E5E3E5E5E3E5E5E3E5E5E3E5E5E3E5E5} Material.Texture.MagFilter = maNearest Material.Texture.MinFilter = miLinear Material.Texture.TextureWrap = twSeparate Material.Texture.FilteringQuality = tfAnisotropic Material.Texture.Disabled = False Shader = GLUserShader end> Left = 144 Top = 24 end object GLUserShader: TGLUserShader OnDoUnApply = GLUserShaderDoUnApply Left = 144 Top = 80 end object GLWindowsBitmapFont: TGLWindowsBitmapFont Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Ranges = < item StartASCII = '0' StopASCII = '9' StartGlyphIdx = 0 end> Left = 32 Top = 80 end end