unit1.dfm

glscene实例,都是关于Glscene的实例

object Form1: TForm1
  Left = 117
  Top = 93
  Width = 500
  Height = 246
  BorderWidth = 5
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 482
    Height = 207
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
    Align = alClient
    OnMouseMove = GLSceneViewer1MouseMove
  end
  object GLScene1: TGLScene
    Left = 8
    Top = 40
    object GLShadowVolume: TGLShadowVolume
      Lights = <
        item
          LightSource = GLLightSource1
        end>
      Occluders = <
        item
          Caster = Ball
        end
        item
          Caster = Pad
        end>
      Options = [svoCacheSilhouettes, svoWorldScissorClip, svoDesignVisible]
      object Plane1: TGLPlane
        Position.Coordinates = {0000000000000000000000BF0000803F}
        Material.MaterialLibrary = GLMaterialLibrary1
        Material.LibMaterialName = 'Mat'
        Height = 10
        Width = 15
        NoZWrite = False
        object Cube1: TGLCube
          Position.Coordinates = {000000000000A0400000803E0000803F}
          Material.MaterialLibrary = GLMaterialLibrary1
          Material.LibMaterialName = 'Edge'
          CubeSize = {000078410000003F0000003F}
        end
        object Cube2: TGLCube
          Position.Coordinates = {0000F0C0000000000000803E0000803F}
          Material.MaterialLibrary = GLMaterialLibrary1
          Material.LibMaterialName = 'Edge'
          CubeSize = {0000003F000020410000003F}
        end
        object Cube3: TGLCube
          Position.Coordinates = {0000F040000000000000803E0000803F}
          Material.MaterialLibrary = GLMaterialLibrary1
          Material.LibMaterialName = 'Edge'
          CubeSize = {0000003F000020410000003F}
        end
      end
      object Ball: TGLSphere
        Material.MaterialLibrary = GLMaterialLibrary1
        Material.LibMaterialName = 'Ball'
        Radius = 0.400000005960464
        Slices = 12
        Stacks = 9
      end
      object Pad: TGLCube
        Position.Coordinates = {00000000666696C0000080BE0000803F}
        Material.MaterialLibrary = GLMaterialLibrary1
        Material.LibMaterialName = 'Pad'
        CubeSize = {000000400000003F0000003F}
      end
    end
    object DummyCube1: TGLDummyCube
      CubeSize = 1
      object GLCamera1: TGLCamera
        DepthOfView = 100
        FocalLength = 50
        TargetObject = DummyCube1
        Position.Coordinates = {00000000000070C1000020410000803F}
        Direction.Coordinates = {000000000000803F0000000000000000}
        Up.Coordinates = {00000000000000000000803F00000000}
      end
    end
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1
      Position.Coordinates = {00004040000080BF0000A0400000803F}
      Specular.Color = {0000803F0000803F0000803F0000803F}
      SpotCutOff = 180
    end
    object SpaceText1: TGLSpaceText
      Direction.Coordinates = {00000000EA4677BFEE83843E00000000}
      Position.Coordinates = {0000C0BF00000000000060400000803F}
      Scale.Coordinates = {000000400000803F0000803F00000000}
      Up.Coordinates = {00000000EE83843EEA46773F00000000}
      Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
      Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F}
      Material.FrontProperties.Emission.Color = {0000000000000000A1A0203F0000803F}
      Material.FrontProperties.Shininess = 75
      Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
      Extrusion = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Text = '000'
      AllowedDeviation = 1
      CharacterRange = stcrNumbers
    end
  end
  object GLMaterialLibrary1: TGLMaterialLibrary
    Materials = <
      item
        Name = 'Mat'
        Material.FrontProperties.Diffuse.Color = {000000000000803F000000000000803F}
        Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
        Tag = 0
      end
      item
        Name = 'Edge'
        Material.FrontProperties.Diffuse.Color = {0000803FBDBCBC3EF1F0F03D0000803F}
        Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
        Tag = 0
      end
      item
        Name = 'Ball'
        Material.FrontProperties.Shininess = 75
        Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
        Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
        Tag = 0
      end
      item
        Name = 'Pad'
        Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F}
        Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
        Tag = 0
      end>
    Left = 8
    Top = 72
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 8
    Top = 8
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    MaxDeltaTime = 0.05
    OnProgress = GLCadencer1Progress
    Left = 40
    Top = 24
  end
end