GLScene/Examples/Demos/graph/projection/fcProjection.dfm

object FormProjection: TFormProjection
  Left = 0
  Top = 0
  Caption = 'Projection'
  ClientHeight = 405
  ClientWidth = 567
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnMouseWheel = FormMouseWheel
  TextHeight = 13
  object SceneViewer: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 567
    Height = 405
    Camera = GLCamera
    Buffer.BackgroundColor = clBlack
    Buffer.FaceCulling = False
    Buffer.AntiAliasing = aa4xHQ
    FieldOfView = 146.991271972656300000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = SceneViewerMouseDown
    OnMouseMove = SceneViewerMouseMove
    TabOrder = 0
    ExplicitWidth = 575
  end
  object GLScene1: TGLScene
    ObjectsSorting = osNone
    Left = 24
    Top = 24
    object GLCamera: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 60.000000000000000000
      TargetObject = GLDummyCube
      Position.Coordinates = {0000E0400000A040000040400000803F}
    end
    object GLDummyCube: TGLDummyCube
      CubeSize = 1.000000000000000000
      object GLArrowLine1: TGLArrowLine
        Direction.Coordinates = {000000000000803F0000000000000000}
        Up.Coordinates = {0000000000000000000080BF00000000}
        BottomRadius = 0.100000001490116100
        Height = 1.000000000000000000
        TopRadius = 0.100000001490116100
        TopArrowHeadHeight = 0.500000000000000000
        TopArrowHeadRadius = 0.200000002980232200
        BottomArrowHeadHeight = 0.500000000000000000
        BottomArrowHeadRadius = 0.200000002980232200
      end
      object GLLightSource1: TGLLightSource
        ConstAttenuation = 1.000000000000000000
        Position.Coordinates = {0000484200004842000000000000803F}
        SpotCutOff = 180.000000000000000000
      end
    end
    object DirectOpenGL: TGLDirectOpenGL
      UseBuildList = False
      OnRender = DirectOpenGLRender
      Blend = False
    end
    object GLPoints: TGLPoints
      NoZWrite = False
      Static = False
      Size = 5.000000000000000000
      Style = psSmooth
    end
    object GLPlane: TGLPlane
      Material.FrontProperties.Diffuse.Color = {0000003F0000003F0000803FCDCC4C3F}
      Material.BlendingMode = bmTransparency
      Material.MaterialOptions = [moNoLighting]
      Direction.Coordinates = {000000000000803F0000000000000000}
      Up.Coordinates = {00000000000000000000803F00000000}
      Height = 6.000000000000000000
      Width = 6.000000000000000000
      object GLXYZGrid1: TGLXYZGrid
        LineColor.Color = {0000803F0000803F0000803F0000003F}
        XSamplingScale.Min = -3.000000000000000000
        XSamplingScale.Max = 3.000000000000000000
        XSamplingScale.Origin = 1.000000000000000000
        XSamplingScale.Step = 0.500000000000000000
        YSamplingScale.Min = -3.000000000000000000
        YSamplingScale.Max = 3.000000000000000000
        YSamplingScale.Step = 0.500000000000000000
        ZSamplingScale.Step = 0.100000001490116100
      end
    end
  end
end