fSkyBoxC.dfm 6.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Sky Box'
  5. ClientHeight = 460
  6. ClientWidth = 572
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OnCreate = FormCreate
  14. PixelsPerInch = 96
  15. TextHeight = 13
  16. object GLSceneViewer1: TGLSceneViewer
  17. Left = 0
  18. Top = 0
  19. Width = 572
  20. Height = 460
  21. Camera = GLCamera1
  22. Buffer.BackgroundColor = 7168
  23. Buffer.AmbientColor.Color = {0000803F0000803F0000803F0000803F}
  24. FieldOfView = 160.268386840820300000
  25. PenAsTouch = False
  26. Align = alClient
  27. TabOrder = 0
  28. end
  29. object GLScene1: TGLScene
  30. Left = 32
  31. Top = 24
  32. object GLSkyBox1: TGLSkyBox
  33. Direction.Coordinates = {9598A23144F7DFB20000803F00000000}
  34. Up.Coordinates = {1DB356B30000803FB3FA87B300000000}
  35. MaterialLibrary = GLMaterialLibrary1
  36. MatNameTop = 'Top'
  37. MatNameBottom = 'Bottom'
  38. MatNameLeft = 'Left'
  39. MatNameRight = 'Right'
  40. MatNameFront = 'Front'
  41. MatNameBack = 'Back'
  42. MatNameClouds = 'Clouds'
  43. CloudsPlaneOffset = 0.119999997317791000
  44. CloudsPlaneSize = 2.000000000000000000
  45. object GLSphere1: TGLSphere
  46. Material.MaterialLibrary = GLMaterialLibrary1
  47. Direction.Coordinates = {18EBC2BE6823FE3E49BA47BF00000000}
  48. PitchAngle = 86.500000000000000000
  49. Position.Coordinates = {000000C000008040000080BF0000803F}
  50. TurnAngle = 10.500000000000000000
  51. Up.Coordinates = {CE00D4BE9A8D58BF0519ACBE00000000}
  52. Radius = 1.000000000000000000
  53. object GLSphere2: TGLSphere
  54. Material.MaterialLibrary = GLMaterialLibrary1
  55. Direction.Coordinates = {000000000000803F0000000000000000}
  56. PitchAngle = -8.000000000000000000
  57. Position.Coordinates = {0000000000000000000000400000803F}
  58. TurnAngle = 91.500000000000000000
  59. Up.Coordinates = {0000000000000000000080BF00000000}
  60. Radius = 0.300000011920929000
  61. end
  62. end
  63. end
  64. object GLSkyBox2: TGLSkyBox
  65. MaterialLibrary = GLMaterialLibrary1
  66. MatNameClouds = 'Clouds'
  67. CloudsPlaneOffset = 0.100000001490116100
  68. CloudsPlaneSize = 4.000000000000000000
  69. end
  70. object Castle: TGLDummyCube
  71. CubeSize = 1.000000000000000000
  72. object GLCube1: TGLCube
  73. Material.MaterialLibrary = GLMaterialLibrary1
  74. Position.Coordinates = {0BD43940FFFF7FC018230B400000803F}
  75. CubeSize = {0000803F000000420000803F}
  76. object GLCube2: TGLCube
  77. Material.MaterialLibrary = GLMaterialLibrary1
  78. Position.Coordinates = {000040C0000000BFCDCCCC3D0000803F}
  79. CubeSize = {0000C0400000803F0000803F}
  80. end
  81. end
  82. object GLCube11: TGLCube
  83. Material.MaterialLibrary = GLMaterialLibrary1
  84. Direction.Coordinates = {000080BF000000001AE1F7B300000000}
  85. Position.Coordinates = {F42B46C0FFFF7FC018230B400000803F}
  86. TurnAngle = -90.000000000000000000
  87. CubeSize = {0000803F000000420000803F}
  88. object GLCube21: TGLCube
  89. Material.MaterialLibrary = GLMaterialLibrary1
  90. Position.Coordinates = {000040C0000000BFCDCCCC3D0000803F}
  91. CubeSize = {0000C0400000803F0000803F}
  92. end
  93. end
  94. object GLCube111: TGLCube
  95. Material.MaterialLibrary = GLMaterialLibrary1
  96. Direction.Coordinates = {0000803F00000000B28FF03200000000}
  97. Position.Coordinates = {0CD43940FFFF7FC0E8DC74C00000803F}
  98. TurnAngle = 90.000000000000000000
  99. CubeSize = {0000803F000000420000803F}
  100. object GLCube211: TGLCube
  101. Material.MaterialLibrary = GLMaterialLibrary1
  102. Position.Coordinates = {000040C0000000BFCDCCCC3D0000803F}
  103. CubeSize = {0000C0400000803F0000803F}
  104. end
  105. end
  106. object GLCube112: TGLCube
  107. Material.MaterialLibrary = GLMaterialLibrary1
  108. Direction.Coordinates = {647F2B3300000000000080BF00000000}
  109. Position.Coordinates = {F42B46C0FFFF7FC0E8DC74C00000803F}
  110. TurnAngle = -180.000000000000000000
  111. CubeSize = {0000803F000000420000803F}
  112. object GLCube212: TGLCube
  113. Material.MaterialLibrary = GLMaterialLibrary1
  114. Position.Coordinates = {000040C0000000BFCDCCCC3D0000803F}
  115. CubeSize = {0000C0400000803F0000803F}
  116. end
  117. end
  118. end
  119. object GLLightSource1: TGLLightSource
  120. Ambient.Color = {BEC0403FBEC0403FBEC0403F0000803F}
  121. ConstAttenuation = 1.000000000000000000
  122. QuadraticAttenuation = 0.000099999997473788
  123. Position.Coordinates = {000088C100003042C0C6B5420000803F}
  124. LightStyle = lsOmni
  125. SpotCutOff = 180.000000000000000000
  126. object GLLensFlare1: TGLLensFlare
  127. Seed = 1465
  128. FlareIsNotOccluded = True
  129. end
  130. end
  131. object GLCamera1: TGLCamera
  132. DepthOfView = 300.000000000000000000
  133. FocalLength = 40.000000000000000000
  134. NearPlaneBias = 0.200000002980232200
  135. Position.Coordinates = {61EB8D3FD98541C02CCF94C00000803F}
  136. Direction.Coordinates = {E2CB26BF5D9A063F40FD0B3F00000000}
  137. Up.Coordinates = {A633CE3EC0C1593F8711ADBE00000000}
  138. end
  139. end
  140. object GLMaterialLibrary1: TGLMaterialLibrary
  141. Left = 112
  142. Top = 24
  143. end
  144. object GLNavigator1: TGLNavigator
  145. VirtualUp.Coordinates = {000000000000803F000000000000803F}
  146. MovingObject = GLCamera1
  147. UseVirtualUp = True
  148. AutoUpdateObject = True
  149. MaxAngle = 90.000000000000000000
  150. MinAngle = -90.000000000000000000
  151. Left = 208
  152. Top = 24
  153. end
  154. object GLCadencer1: TGLCadencer
  155. Scene = GLScene1
  156. OnProgress = GLCadencer1Progress
  157. Left = 32
  158. Top = 80
  159. end
  160. object GLUserInterface1: TGLUserInterface
  161. MouseSpeed = 16.000000000000000000
  162. GLNavigator = GLNavigator1
  163. Left = 296
  164. Top = 24
  165. end
  166. object GLSimpleNavigation1: TGLSimpleNavigation
  167. Form = Owner
  168. GLSceneViewer = GLSceneViewer1
  169. FormCaption = 'GLScene SkyBox - %FPS'
  170. KeyCombinations = <
  171. item
  172. ShiftState = [ssLeft, ssRight]
  173. Action = snaZoom
  174. end
  175. item
  176. ShiftState = [ssLeft]
  177. Action = snaMoveAroundTarget
  178. end
  179. item
  180. ShiftState = [ssRight]
  181. Action = snaMoveAroundTarget
  182. end>
  183. Left = 296
  184. Top = 88
  185. end
  186. end