Unit1.dfm 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126
  1. object Form1: TForm1
  2. Left = 343
  3. Top = 159
  4. Caption = 'Multipass'
  5. ClientHeight = 325
  6. ClientWidth = 430
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -10
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. WindowState = wsMaximized
  15. PixelsPerInch = 96
  16. TextHeight = 13
  17. object GLSceneViewer1: TGLSceneViewer
  18. Left = 0
  19. Top = 0
  20. Width = 430
  21. Height = 325
  22. Margins.Left = 2
  23. Margins.Top = 2
  24. Margins.Right = 2
  25. Margins.Bottom = 2
  26. Camera = GLCamera1
  27. FieldOfView = 145.794540405273400000
  28. Align = alClient
  29. OnMouseDown = GLSceneViewer1MouseDown
  30. OnMouseMove = GLSceneViewer1MouseMove
  31. TabOrder = 0
  32. end
  33. object BUBind: TButton
  34. Left = 168
  35. Top = 8
  36. Width = 75
  37. Height = 25
  38. Margins.Left = 2
  39. Margins.Top = 2
  40. Margins.Right = 2
  41. Margins.Bottom = 2
  42. Caption = 'Bind Shaders'
  43. TabOrder = 1
  44. OnClick = BUBindClick
  45. end
  46. object GLScene1: TGLScene
  47. Left = 16
  48. Top = 16
  49. object GLLightSource1: TGLLightSource
  50. ConstAttenuation = 1.000000000000000000
  51. Position.Coordinates = {00002041000000410000E0400000803F}
  52. SpotCutOff = 180.000000000000000000
  53. end
  54. object Torus1: TGLTorus
  55. Material.MaterialLibrary = GLMaterialLibrary1
  56. Material.LibMaterialName = 'LibMaterial'
  57. Direction.Coordinates = {000000000000803F0000000000000000}
  58. Up.Coordinates = {0000000000000000000080BF00000000}
  59. MajorRadius = 2.500000000000000000
  60. MinorRadius = 1.500000000000000000
  61. StopAngle = 360.000000000000000000
  62. Parts = [toSides, toStartDisk, toStopDisk]
  63. end
  64. object Sphere1: TGLSphere
  65. ShowAxes = True
  66. Radius = 0.500000000000000000
  67. end
  68. object GLAnnulus1: TGLAnnulus
  69. Material.MaterialLibrary = GLMaterialLibrary1
  70. Material.LibMaterialName = 'LibMaterial1'
  71. Position.Coordinates = {0000E04000000000000000000000803F}
  72. Scale.Coordinates = {00000040000000400000004000000000}
  73. BottomRadius = 0.500000000000000000
  74. Height = 1.000000000000000000
  75. BottomInnerRadius = 0.300000011920929000
  76. TopInnerRadius = 0.300000011920929000
  77. TopRadius = 0.500000000000000000
  78. end
  79. object GLAnnulus2: TGLAnnulus
  80. Material.MaterialLibrary = GLMaterialLibrary1
  81. Material.LibMaterialName = 'LibMaterial2'
  82. Position.Coordinates = {0000E0C000000000000000000000803F}
  83. Scale.Coordinates = {00000040000000400000004000000000}
  84. BottomRadius = 0.500000000000000000
  85. Height = 1.000000000000000000
  86. BottomInnerRadius = 0.300000011920929000
  87. TopInnerRadius = 0.300000011920929000
  88. TopRadius = 0.500000000000000000
  89. end
  90. object GLCube1: TGLCube
  91. Material.MaterialLibrary = GLMaterialLibrary1
  92. Material.LibMaterialName = 'LibMaterial2'
  93. Position.Coordinates = {00000000000000000000E0400000803F}
  94. Scale.Coordinates = {00000040000000400000004000000000}
  95. end
  96. object GLSphere1: TGLSphere
  97. Material.MaterialLibrary = GLMaterialLibrary1
  98. Material.LibMaterialName = 'LibMaterial1'
  99. Position.Coordinates = {00000000000000000000E0C00000803F}
  100. Radius = 1.500000000000000000
  101. end
  102. object GLCamera1: TGLCamera
  103. DepthOfView = 100.000000000000000000
  104. FocalLength = 50.000000000000000000
  105. TargetObject = Torus1
  106. Position.Coordinates = {00006041000020410000C0400000803F}
  107. end
  108. end
  109. object GLMaterialLibrary1: TGLMaterialLibrary
  110. Materials = <
  111. item
  112. Name = 'LibMaterial'
  113. Tag = 0
  114. end
  115. item
  116. Name = 'LibMaterial1'
  117. Tag = 0
  118. end
  119. item
  120. Name = 'LibMaterial2'
  121. Tag = 0
  122. end>
  123. Left = 16
  124. Top = 48
  125. end
  126. end