Unit1.dfm 5.1 KB

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