Unit1.dfm 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Torque'
  5. ClientHeight = 288
  6. ClientWidth = 840
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. OnCreate = FormCreate
  15. PixelsPerInch = 96
  16. TextHeight = 13
  17. object GLSceneViewer1: TGLSceneViewer
  18. Left = 0
  19. Top = 78
  20. Width = 840
  21. Height = 169
  22. Camera = GLCamera1
  23. FieldOfView = 80.395622253417970000
  24. Align = alClient
  25. OnMouseMove = GLSceneViewer1MouseMove
  26. TabOrder = 0
  27. end
  28. object Panel1: TPanel
  29. Left = 0
  30. Top = 0
  31. Width = 840
  32. Height = 78
  33. Align = alTop
  34. TabOrder = 1
  35. object Label2: TLabel
  36. Left = 280
  37. Top = 8
  38. Width = 114
  39. Height = 39
  40. Alignment = taCenter
  41. Caption = 'Hexahedron has a small constant'#13#10'and linear damping'
  42. WordWrap = True
  43. end
  44. object Label3: TLabel
  45. Left = 472
  46. Top = 8
  47. Width = 99
  48. Height = 39
  49. Alignment = taCenter
  50. Caption = 'Dodecahedron has a'#13#10'small constant and'#13#10'quadratic damping'
  51. WordWrap = True
  52. end
  53. object Label4: TLabel
  54. Left = 128
  55. Top = 8
  56. Width = 86
  57. Height = 39
  58. Alignment = taCenter
  59. Caption = 'Octahedron has a'#13#10'only quadratic damping'
  60. WordWrap = True
  61. end
  62. object Label1: TLabel
  63. Left = 8
  64. Top = 10
  65. Width = 86
  66. Height = 39
  67. Caption = 'Tetrahedron has an only quadratic damping'
  68. WordWrap = True
  69. end
  70. object Label5: TLabel
  71. Left = 604
  72. Top = 8
  73. Width = 115
  74. Height = 39
  75. Alignment = taCenter
  76. Caption = 'Icosahedron has a small constant'#13#10'and linear damping'
  77. WordWrap = True
  78. end
  79. object CheckBox1: TCheckBox
  80. Left = 8
  81. Top = 55
  82. Width = 81
  83. Height = 17
  84. Caption = 'Double Mass'
  85. TabOrder = 0
  86. OnClick = CheckBox1Click
  87. end
  88. end
  89. object Panel2: TPanel
  90. Left = 0
  91. Top = 247
  92. Width = 840
  93. Height = 41
  94. Align = alBottom
  95. Caption = 'Move your mouse over an object and it will start spinning'
  96. TabOrder = 2
  97. end
  98. object GLScene1: TGLScene
  99. Left = 16
  100. Top = 80
  101. object GLLightSource1: TGLLightSource
  102. ConstAttenuation = 1.000000000000000000
  103. Position.Coordinates = {0000704100002041000020C10000803F}
  104. SpotCutOff = 180.000000000000000000
  105. end
  106. object DummyCube1: TGLDummyCube
  107. CubeSize = 1.000000000000000000
  108. object Tetrahedron: TGLTetrahedron
  109. Material.FrontProperties.Diffuse.Color = {EBE0E03EE4DB5B3FE4DB5B3F0000803F}
  110. Direction.Coordinates = {2EF9E43E000000002EF9643F00000000}
  111. Position.Coordinates = {0000000000000000000080400000803F}
  112. Scale.Coordinates = {0000003F0000003F0000003F00000000}
  113. end
  114. object Octahedron: TGLOctahedron
  115. Material.FrontProperties.Diffuse.Color = {CDCC4C3FF8FEFE3EACC8483E0000803F}
  116. Position.Coordinates = {0000000000000000000000400000803F}
  117. Scale.Coordinates = {CDCC4C3FCDCC4C3FCDCC4C3F00000000}
  118. end
  119. object Hexahedron: TGLCube
  120. Material.FrontProperties.Diffuse.Color = {F8FEFE3E0000803F000000000000803F}
  121. Direction.Coordinates = {0000003F00000000D7B35D3F00000000}
  122. TurnAngle = 30.000000000000000000
  123. end
  124. object Dodecahedron: TGLDodecahedron
  125. Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
  126. Position.Coordinates = {0000000000000000000000C00000803F}
  127. Scale.Coordinates = {9A99993F9A99993F9A99993F00000000}
  128. end
  129. object Icosahedron: TGLIcosahedron
  130. Material.FrontProperties.Diffuse.Color = {14AE073F8FC2F53DD7A3F03E0000803F}
  131. Position.Coordinates = {0000000000000000000080C00000803F}
  132. Scale.Coordinates = {9A99993F9A99993F9A99993F00000000}
  133. end
  134. end
  135. object GLCamera1: TGLCamera
  136. DepthOfView = 100.000000000000000000
  137. FocalLength = 100.000000000000000000
  138. TargetObject = DummyCube1
  139. Position.Coordinates = {000020410000A040000000000000803F}
  140. end
  141. end
  142. object GLCadencer1: TGLCadencer
  143. Scene = GLScene1
  144. OnProgress = GLCadencer1Progress
  145. Left = 88
  146. Top = 80
  147. end
  148. end