GLScene/Demos/CPP/movements/SmoothNavigator/Unit1.dfm

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Smooth Navigator'
  ClientHeight = 422
  ClientWidth = 625
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnMouseWheel = FormMouseWheel
  PixelsPerInch = 96
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 625
    Height = 375
    Camera = GLCamera1
    Buffer.BackgroundColor = clBackground
    FieldOfView = 150.137161254882800000
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    TabOrder = 0
  end
  object Panel3: TPanel
    Left = 0
    Top = 375
    Width = 625
    Height = 47
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    ExplicitTop = 397
    ExplicitWidth = 578
    object MouseLookCheckBox: TCheckBox
      Left = 8
      Top = 6
      Width = 290
      Height = 17
      Caption = 'Mouse Look Active (toggle by pressing the space bar)'
      TabOrder = 0
      OnClick = MouseLookCheckBoxClick
    end
    object GroupBox2: TGroupBox
      Left = 288
      Top = 1
      Width = 193
      Height = 46
      Caption = 'FPS'
      TabOrder = 1
      object RadioButton6: TRadioButton
        Left = 8
        Top = 16
        Width = 41
        Height = 17
        Caption = 'Max'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RadioButton6Click
      end
      object RadioButton7: TRadioButton
        Left = 64
        Top = 16
        Width = 50
        Height = 17
        Caption = 'Middle'
        TabOrder = 1
        OnClick = RadioButton7Click
      end
      object RadioButton8: TRadioButton
        Left = 136
        Top = 16
        Width = 50
        Height = 17
        Caption = 'Low'
        TabOrder = 2
        OnClick = RadioButton8Click
      end
    end
    object GroupBox1: TGroupBox
      Left = 488
      Top = 1
      Width = 129
      Height = 46
      Caption = 'Controls'
      TabOrder = 2
      object Label1: TLabel
        Left = 8
        Top = 13
        Width = 58
        Height = 13
        Caption = 'Fly = WASD'
      end
      object Panel1: TPanel
        Left = 7
        Top = 27
        Width = 114
        Height = 17
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = 'Accelerate = Hold Shift'
        TabOrder = 0
      end
    end
  end
  object GLScene1: TGLScene
    ObjectsSorting = osNone
    Left = 16
    Top = 8
    object scene: TGLDummyCube
      CubeSize = 500.000000000000000000
      object GLXYZGrid1: TGLXYZGrid
        Direction.Coordinates = {000000000000803F0000000000000000}
        Up.Coordinates = {0000000000000000000080BF00000000}
        XSamplingScale.Min = -1000.000000000000000000
        XSamplingScale.Max = 1000.000000000000000000
        XSamplingScale.Step = 20.000000000000000000
        YSamplingScale.Min = -1000.000000000000000000
        YSamplingScale.Max = 1000.000000000000000000
        YSamplingScale.Step = 20.000000000000000000
        ZSamplingScale.Step = 0.100000001490116100
      end
      object GLLightSource1: TGLLightSource
        ConstAttenuation = 1.000000000000000000
        SpotCutOff = 180.000000000000000000
      end
      object GLSphere1: TGLSphere
        Material.FrontProperties.Ambient.Color = {CDCC4C3EC9C8483FCDCC4C3E0000803F}
        Material.FrontProperties.Diffuse.Color = {E0DF5F3FCDCC4C3FCDCC4C3F0000803F}
        Material.FrontProperties.Emission.Color = {AFAEAE3E000000008180803D0000803F}
        Radius = 10.000000000000000000
      end
      object GLArrowLine1: TGLArrowLine
        Direction.Coordinates = {000000000000803F0000000000000000}
        Position.Coordinates = {0000000000004843000000000000803F}
        Scale.Coordinates = {0000C8420000C8420000C84200000000}
        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
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100000.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLArrowLine1
      CameraStyle = csInfinitePerspective
      Position.Coordinates = {0000FAC300004843000061C40000803F}
      Direction.Coordinates = {F304353F00000080F304353F00000000}
      Up.Coordinates = {00000000FFFF7F3F0000000000000000}
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 80
    Top = 8
  end
  object FPSTimer: TTimer
    OnTimer = FPSTimerTimer
    Left = 152
    Top = 8
  end
end