Unit1.dfm 5.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Ray Cast'
  5. ClientHeight = 270
  6. ClientWidth = 514
  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. PixelsPerInch = 96
  15. TextHeight = 13
  16. object Bevel2: TBevel
  17. Left = 280
  18. Top = 49
  19. Width = 225
  20. Height = 209
  21. end
  22. object Bevel1: TBevel
  23. Left = 0
  24. Top = 49
  25. Width = 225
  26. Height = 209
  27. end
  28. object PaintBox1: TPaintBox
  29. Left = 288
  30. Top = 56
  31. Width = 209
  32. Height = 193
  33. end
  34. object GLSceneViewer1: TGLSceneViewer
  35. Left = 8
  36. Top = 57
  37. Width = 209
  38. Height = 193
  39. Camera = GLCamera1
  40. FieldOfView = 125.219512939453100000
  41. TabOrder = 0
  42. end
  43. object BUCast: TButton
  44. Left = 232
  45. Top = 89
  46. Width = 41
  47. Height = 25
  48. Caption = 'Cast!'
  49. TabOrder = 1
  50. OnClick = BUCastClick
  51. end
  52. object Panel1: TPanel
  53. Left = 0
  54. Top = 0
  55. Width = 514
  56. Height = 49
  57. Align = alTop
  58. BevelOuter = bvNone
  59. TabOrder = 2
  60. ExplicitWidth = 513
  61. object Label1: TLabel
  62. Left = 0
  63. Top = 0
  64. Width = 514
  65. Height = 22
  66. Align = alTop
  67. Alignment = taCenter
  68. AutoSize = False
  69. Caption = 'RayCasting demo/testbed'
  70. Font.Charset = DEFAULT_CHARSET
  71. Font.Color = clWindowText
  72. Font.Height = -13
  73. Font.Name = 'Arial'
  74. Font.Style = [fsBold]
  75. ParentFont = False
  76. Layout = tlCenter
  77. ExplicitWidth = 505
  78. end
  79. object Label2: TLabel
  80. Left = 8
  81. Top = 32
  82. Width = 100
  83. Height = 14
  84. Caption = 'OpenGL scene view'
  85. Font.Charset = DEFAULT_CHARSET
  86. Font.Color = clWindowText
  87. Font.Height = -11
  88. Font.Name = 'Arial'
  89. Font.Style = []
  90. ParentFont = False
  91. end
  92. object Label3: TLabel
  93. Left = 288
  94. Top = 32
  95. Width = 136
  96. Height = 14
  97. Caption = 'RayCasted/RayTraced view'
  98. Font.Charset = DEFAULT_CHARSET
  99. Font.Color = clWindowText
  100. Font.Height = -11
  101. Font.Name = 'Arial'
  102. Font.Style = []
  103. ParentFont = False
  104. end
  105. end
  106. object GLScene1: TGLScene
  107. Left = 16
  108. Top = 64
  109. object Sphere1: TGLSphere
  110. Material.FrontProperties.Diffuse.Color = {8D8C0C3F8D8C0C3F0000803F0000803F}
  111. Radius = 0.200000002980232200
  112. end
  113. object DummyCube1: TGLDummyCube
  114. Direction.Coordinates = {00000000000080330000803F00000000}
  115. Up.Coordinates = {EE8384BEEA46773FEA4677B300000000}
  116. CubeSize = 1.000000000000000000
  117. object Torus1: TGLTorus
  118. Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
  119. Direction.Coordinates = {5D1C7C3F02004032CED0313E00000000}
  120. Position.Coordinates = {000000BF00000000000000000000803F}
  121. Up.Coordinates = {00C02FB20000803F0000403200000000}
  122. Visible = False
  123. MajorRadius = 0.400000005960464500
  124. MinorRadius = 0.100000001490116100
  125. StopAngle = 360.000000000000000000
  126. Parts = [toSides, toStartDisk, toStopDisk]
  127. end
  128. object Plane1: TGLPlane
  129. Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F}
  130. Material.FaceCulling = fcNoCull
  131. Height = 0.699999988079071000
  132. Width = 0.300000011920929000
  133. end
  134. object Cylinder1: TGLCylinder
  135. Material.FrontProperties.Diffuse.Color = {0000803F0000803F8180003F0000803F}
  136. Direction.Coordinates = {00000000010000BFD6B35D3F00000000}
  137. Position.Coordinates = {0000003F00000000000000000000803F}
  138. Up.Coordinates = {00000000D6B35D3F0100003F00000000}
  139. BottomRadius = 0.100000001490116100
  140. Height = 0.600000023841857900
  141. TopRadius = 0.100000001490116100
  142. object GLAnnulus1: TGLAnnulus
  143. Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F}
  144. BottomRadius = 0.230000004172325100
  145. Height = 0.200000002980232200
  146. BottomInnerRadius = 0.180000007152557400
  147. TopInnerRadius = 0.180000007152557400
  148. TopRadius = 0.230000004172325100
  149. end
  150. end
  151. object GLCube1: TGLCube
  152. Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
  153. Direction.Coordinates = {00000000B28F70BF431DAF3E00000000}
  154. Position.Coordinates = {000000BF00000000000000000000803F}
  155. Up.Coordinates = {00000000431DAF3EB28F703F00000000}
  156. CubeSize = {CDCC4C3ECDCCCC3D9A99993E}
  157. end
  158. end
  159. object GLLightSource1: TGLLightSource
  160. ConstAttenuation = 1.000000000000000000
  161. Position.Coordinates = {0000204100001041000070410000803F}
  162. SpotCutOff = 180.000000000000000000
  163. end
  164. object GLCamera1: TGLCamera
  165. DepthOfView = 100.000000000000000000
  166. FocalLength = 50.000000000000000000
  167. Position.Coordinates = {0000000000000000000040400000803F}
  168. Left = 256
  169. Top = 160
  170. end
  171. end
  172. object GLCadencer1: TGLCadencer
  173. Scene = GLScene1
  174. OnProgress = GLCadencer1Progress
  175. Left = 56
  176. Top = 64
  177. end
  178. end