object DataModule2: TDataModule2 OnCreate = DataModuleCreate Height = 251 Width = 486 PixelsPerInch = 120 object GLScene1: TGLScene Left = 16 Top = 8 object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000484200004842000048420000803F} SpotCutOff = 180.000000000000000000 end object Teapot1: TGLTeapot Material.Texture.ImageClassName = 'TGLCubeMapImage' Material.Texture.TextureMode = tmReplace end object GLCamera1: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 50.000000000000000000 TargetObject = Teapot1 Position.Coordinates = {0000404000000040000000400000803F} end end object GLSDLViewer1: TSDLViewer Camera = GLCamera1 Width = 640 Height = 480 Buffer.BackgroundColor = clBlack Caption = 'GLScene SDL Test' OnResize = GLSDLViewer1Resize OnEventPollDone = GLSDLViewer1EventPollDone Left = 96 Top = 8 end end