123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Torque'
- ClientHeight = 288
- ClientWidth = 840
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 78
- Width = 840
- Height = 169
- Camera = GLCamera1
- FieldOfView = 80.395622253417970000
- Align = alClient
- OnMouseMove = GLSceneViewer1MouseMove
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 840
- Height = 78
- Align = alTop
- TabOrder = 1
- object Label2: TLabel
- Left = 280
- Top = 8
- Width = 114
- Height = 39
- Alignment = taCenter
- Caption = 'Hexahedron has a small constant'#13#10'and linear damping'
- WordWrap = True
- end
- object Label3: TLabel
- Left = 472
- Top = 8
- Width = 99
- Height = 39
- Alignment = taCenter
- Caption = 'Dodecahedron has a'#13#10'small constant and'#13#10'quadratic damping'
- WordWrap = True
- end
- object Label4: TLabel
- Left = 128
- Top = 8
- Width = 86
- Height = 39
- Alignment = taCenter
- Caption = 'Octahedron has a'#13#10'only quadratic damping'
- WordWrap = True
- end
- object Label1: TLabel
- Left = 8
- Top = 10
- Width = 86
- Height = 39
- Caption = 'Tetrahedron has an only quadratic damping'
- WordWrap = True
- end
- object Label5: TLabel
- Left = 604
- Top = 8
- Width = 115
- Height = 39
- Alignment = taCenter
- Caption = 'Icosahedron has a small constant'#13#10'and linear damping'
- WordWrap = True
- end
- object CheckBox1: TCheckBox
- Left = 8
- Top = 55
- Width = 81
- Height = 17
- Caption = 'Double Mass'
- TabOrder = 0
- OnClick = CheckBox1Click
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 247
- Width = 840
- Height = 41
- Align = alBottom
- Caption = 'Move your mouse over an object and it will start spinning'
- TabOrder = 2
- end
- object GLScene1: TGLScene
- Left = 16
- Top = 80
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000704100002041000020C10000803F}
- SpotCutOff = 180.000000000000000000
- end
- object DummyCube1: TGLDummyCube
- CubeSize = 1.000000000000000000
- object Tetrahedron: TGLTetrahedron
- Material.FrontProperties.Diffuse.Color = {EBE0E03EE4DB5B3FE4DB5B3F0000803F}
- Direction.Coordinates = {2EF9E43E000000002EF9643F00000000}
- Position.Coordinates = {0000000000000000000080400000803F}
- Scale.Coordinates = {0000003F0000003F0000003F00000000}
- end
- object Octahedron: TGLOctahedron
- Material.FrontProperties.Diffuse.Color = {CDCC4C3FF8FEFE3EACC8483E0000803F}
- Position.Coordinates = {0000000000000000000000400000803F}
- Scale.Coordinates = {CDCC4C3FCDCC4C3FCDCC4C3F00000000}
- end
- object Hexahedron: TGLCube
- Material.FrontProperties.Diffuse.Color = {F8FEFE3E0000803F000000000000803F}
- Direction.Coordinates = {0000003F00000000D7B35D3F00000000}
- TurnAngle = 30.000000000000000000
- end
- object Dodecahedron: TGLDodecahedron
- Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
- Position.Coordinates = {0000000000000000000000C00000803F}
- Scale.Coordinates = {9A99993F9A99993F9A99993F00000000}
- end
- object Icosahedron: TGLIcosahedron
- Material.FrontProperties.Diffuse.Color = {14AE073F8FC2F53DD7A3F03E0000803F}
- Position.Coordinates = {0000000000000000000080C00000803F}
- Scale.Coordinates = {9A99993F9A99993F9A99993F00000000}
- end
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 100.000000000000000000
- TargetObject = DummyCube1
- Position.Coordinates = {000020410000A040000000000000803F}
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 88
- Top = 80
- end
- end
|