unit1.lfm

It manages the behaviours of the users

object Form1: TForm1
  Left = 285
  Height = 193
  Top = 94
  Width = 544
  HorzScrollBar.Page = 543
  VertScrollBar.Page = 192
  ActiveControl = CheckBox1
  BorderStyle = bsDialog
  Caption = 'Form1'
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  object Label1: TLabel
    Left = 448
    Height = 46
    Top = 88
    Width = 104
    Caption = 'Move your mouse'#13#10'over an object and'#13#10'it will start spinning'
    Color = clNone
    ParentColor = False
  end
  object Label2: TLabel
    Left = 8
    Height = 30
    Top = 8
    Width = 145
    Alignment = taCenter
    Caption = 'Cube has a small constant'#13#10'and linear damping'
    Color = clNone
    ParentColor = False
  end
  object Label3: TLabel
    Left = 168
    Height = 46
    Width = 116
    Alignment = taCenter
    Caption = 'Dodecahedron has a'#13#10'small constant and'#13#10'quadratic damping'
    Color = clNone
    ParentColor = False
  end
  object Label4: TLabel
    Left = 328
    Height = 30
    Top = 8
    Width = 129
    Alignment = taCenter
    Caption = 'Octahedron has a'#13#10'only quadratic damping'
    Color = clNone
    ParentColor = False
  end
  object GLSceneViewer1: TGLSceneViewer
    Left = 1
    Height = 121
    Top = 48
    Width = 441
    Camera = GLCamera1
    FieldOfView = 62.3478775024414
    OnMouseMove = GLSceneViewer1MouseMove
  end
  object CheckBox1: TCheckBox
    Left = 448
    Height = 24
    Top = 144
    Width = 96
    Caption = 'Double Mass'
    OnClick = CheckBox1Click
    TabOrder = 0
  end
  object GLScene1: TGLScene
    left = 480
    top = 16
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1
      Position.Coordinates = {
        0000704100002041000020C10000803F
      }
      SpotCutOff = 180
    end
    object DummyCube1: TGLDummyCube
      CubeSize = 1
      object Cube: TGLCube
        Material.FrontProperties.Diffuse.Color = {
          F8FEFE3E0000803F000000000000803F
        }
        Material.Texture.MappingTCoordinates.Coordinates = {
          000000000000803F0000000000000000
        }
        Position.Coordinates = {
          0000000000000000000000400000803F
        }
      end
      object Dodecahedron: TGLDodecahedron
        Material.FrontProperties.Diffuse.Color = {
          0000803F00000000000000000000803F
        }
        Material.Texture.MappingTCoordinates.Coordinates = {
          000000000000803F0000000000000000
        }
      end
      object Octahedron: TGLSphere
        Material.FrontProperties.Diffuse.Color = {
          ABAA2A3FABAA2A3F0000803F0000803F
        }
        Material.Texture.MappingTCoordinates.Coordinates = {
          000000000000803F0000000000000000
        }
        Position.Coordinates = {
          0000000000000000000000C00000803F
        }
        Radius = 0.5
        Slices = 4
        Stacks = 2
      end
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100
      FocalLength = 100
      TargetObject = DummyCube1
      Position.Coordinates = {
        000020410000A040000000000000803F
      }
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    left = 480
    top = 48
  end
end