GLScene/Examples/Demos/rendering/culling/fCullingD.dfm

object FormCulling: TFormCulling
  Left = 188
  Top = 112
  Caption = 'Culling'
  ClientHeight = 556
  ClientWidth = 844
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 14
  object Viewer: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 712
    Height = 556
    Camera = GLCamera1
    Buffer.BackgroundColor = 12040119
    FieldOfView = 159.608016967773400000
    PenAsTouch = False
    Align = alClient
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 712
    Top = 0
    Width = 132
    Height = 556
    Align = alRight
    TabOrder = 1
    DesignSize = (
      132
      556)
    object Label1: TLabel
      Left = 25
      Top = 8
      Width = 75
      Height = 15
      Anchors = [akTop, akRight]
      Caption = 'Culling Mode:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 29
      Top = 128
      Width = 47
      Height = 15
      Anchors = [akTop, akRight]
      Caption = 'Objects:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object RBNone: TRadioButton
      Left = 27
      Top = 33
      Width = 89
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'None'
      TabOrder = 0
      OnClick = RBNoneClick
    end
    object RBObject: TRadioButton
      Left = 27
      Top = 56
      Width = 89
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Object based'
      TabOrder = 1
      OnClick = RBNoneClick
    end
    object RBHierarchical: TRadioButton
      Left = 27
      Top = 79
      Width = 89
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Hierarchical'
      TabOrder = 2
      Visible = False
      OnClick = RBNoneClick
    end
    object RBActors: TRadioButton
      Left = 32
      Top = 208
      Width = 81
      Height = 17
      Caption = 'Actors'
      TabOrder = 3
      OnClick = RBSpheresClick
    end
    object RBSpheres: TRadioButton
      Left = 30
      Top = 170
      Width = 81
      Height = 17
      Caption = 'Spheres'
      Checked = True
      TabOrder = 4
      TabStop = True
      OnClick = RBSpheresClick
    end
  end
  object GLScene: TGLScene
    Left = 16
    Top = 16
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      Position.Coordinates = {0000C8420000A042000070420000803F}
      SpotCutOff = 180.000000000000000000
    end
    object DCTarget: TGLDummyCube
      CubeSize = 1.000000000000000000
      object GLCamera1: TGLCamera
        DepthOfView = 100.000000000000000000
        FocalLength = 50.000000000000000000
        TargetObject = DCTarget
        Position.Coordinates = {0000A04000000040000040400000803F}
        Left = 256
        Top = 144
      end
    end
    object DCSpheres: TGLDummyCube
      CubeSize = 1.000000000000000000
    end
    object DCActors: TGLDummyCube
      Visible = False
      CubeSize = 1.000000000000000000
    end
    object ACReference: TGLActor
      Material.MaterialLibrary = GLMaterialLibrary
      Material.LibMaterialName = 'ActorTexture'
      Direction.Coordinates = {000000000000803F2EBD3BB300000000}
      Position.Coordinates = {CDCC4C3DCDCC4C3DCDCC4C3D0000803F}
      Scale.Coordinates = {CDCC4C3DCDCC4C3DCDCC4C3D00000000}
      Up.Coordinates = {000000002EBD3BB3000080BF00000000}
      AnimationMode = aamLoop
      Interval = 100
    end
  end
  object GLCadencer: TGLCadencer
    Scene = GLScene
    OnProgress = GLCadencerProgress
    Left = 48
    Top = 16
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 16
    Top = 48
  end
  object GLMaterialLibrary: TGLMaterialLibrary
    Materials = <
      item
        Name = 'ActorTexture'
        Tag = 0
        Material.Texture.Disabled = False
      end>
    Left = 48
    Top = 48
  end
  object GLSimpleNavigation1: TGLSimpleNavigation
    Form = Owner
    GLSceneViewer = Viewer
    FormCaption = 'Culling - %FPS'
    KeyCombinations = <
      item
        ShiftState = [ssLeft, ssRight]
        Action = snaZoom
      end
      item
        ShiftState = [ssLeft]
        Action = snaMoveAroundTarget
      end
      item
        ShiftState = [ssRight]
        Action = snaMoveAroundTarget
      end>
    Left = 192
    Top = 24
  end
end