object Form1: TForm1 Left = 0 Top = 0 Caption = 'Tiles' ClientHeight = 422 ClientWidth = 650 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 522 Height = 422 Camera = GLCamera FieldOfView = 153.337402343750000000 Align = alClient TabOrder = 0 end object Panel1: TPanel Left = 522 Top = 0 Width = 128 Height = 422 Align = alRight BevelOuter = bvLowered Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 object Label1: TLabel Left = 8 Top = 8 Width = 62 Height = 14 Caption = 'Tile Materials' end object Label2: TLabel Left = 8 Top = 136 Width = 113 Height = 89 AutoSize = False Caption = 'Shift + Left button: pan'#13#10#13#10'Left button : paint with current mat' + 'erial'#13#10#13#10'Mouse wheel: zoom' WordWrap = True end object CBMaterial: TComboBox Left = 8 Top = 24 Width = 113 Height = 22 Style = csDropDownList TabOrder = 0 end object BUPack: TButton Left = 24 Top = 72 Width = 75 Height = 25 Caption = 'Pack' TabOrder = 1 end object CBShowGrid: TCheckBox Left = 8 Top = 248 Width = 81 Height = 17 Caption = 'Show Grid' Checked = True State = cbChecked TabOrder = 2 end object CBSortByMaterials: TCheckBox Left = 8 Top = 272 Width = 105 Height = 17 Caption = 'Sort by materials' Checked = True State = cbChecked TabOrder = 3 end end object GLScene: TGLScene Left = 24 Top = 16 object GLLightSource: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {000048C2000020C20000F0410000803F} SpotCutOff = 180.000000000000000000 end object DCTarget: TGLDummyCube CubeSize = 1.000000000000000000 object GLCamera: TGLCamera DepthOfView = 500.000000000000000000 FocalLength = 50.000000000000000000 NearPlaneBias = 0.200000002980232200 TargetObject = DCTarget Position.Coordinates = {00000000000080C0000040400000803F} Direction.Coordinates = {0000803F000000000000008000000000} Up.Coordinates = {00000000000000000000803F00000000} end end object GLTilePlane: TGLTilePlane NoZWrite = False MaterialLibrary = GLMaterialLibrary end object GLDirectOpenGL: TGLDirectOpenGL UseBuildList = False Blend = False end object GLXYZGrid: TGLXYZGrid AntiAliased = True XSamplingScale.Min = -30.000000000000000000 XSamplingScale.Max = 30.000000000000000000 XSamplingScale.Step = 1.000000000000000000 YSamplingScale.Min = -30.000000000000000000 YSamplingScale.Max = 30.000000000000000000 YSamplingScale.Step = 1.000000000000000000 ZSamplingScale.Min = -10.000000000000000000 ZSamplingScale.Max = 10.000000000000000000 ZSamplingScale.Step = 1.000000000000000000 end object DCSelection: TGLDummyCube CubeSize = 1.000000000000000000 object GLLines1: TGLLines AntiAliased = True LineColor.Color = {0000000000000000000000000000803F} LineWidth = 6.000000000000000000 NodeColor.Color = {0000803F0000803F0000803F0000803F} Nodes = < item end item X = 1.000000000000000000 end item X = 1.000000000000000000 Y = 1.000000000000000000 end item Y = 1.000000000000000000 end item end> NodesAspect = lnaCube NodeSize = 0.150000005960464500 Options = [] end end end object GLMaterialLibrary: TGLMaterialLibrary Materials = < item Name = 'base' Tag = 0 end item Name = 'blue' Tag = 0 Material.FrontProperties.Diffuse.Color = {00000000000000000000003F0000803F} Material.FrontProperties.Emission.Color = {00000000000000000000003F0000803F} end item Name = 'red' Tag = 0 Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000003F} Material.FrontProperties.Emission.Color = {0000003F00000000000000000000803F} end item Name = 'beigemarble' Tag = 0 Material.Texture.ImageClassName = 'TGLPicFileImage' Material.Texture.Image.PictureFileName = 'beigemarble.jpg' Material.Texture.Disabled = False end item Name = 'marbletiles' Tag = 0 Material.Texture.ImageClassName = 'TGLPicFileImage' Material.Texture.Image.PictureFileName = 'marbletiles.jpg' Material.Texture.Disabled = False TextureScale.Coordinates = {0000803E0000803E0000803F00000000} end item Name = 'walkway' Tag = 0 Material.Texture.ImageClassName = 'TGLPicFileImage' Material.Texture.Image.PictureFileName = 'walkway.jpg' Material.Texture.Disabled = False TextureScale.Coordinates = {0000003F0000003F0000803F00000000} end> TexturePaths = '..\..\..\..\media' Left = 24 Top = 64 end object Timer1: TTimer Left = 80 Top = 16 end object GLCadencer1: TGLCadencer Scene = GLScene Left = 80 Top = 64 end end