Unit1.dfm 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Intensity Mesh'
  5. ClientHeight = 433
  6. ClientWidth = 641
  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 = 0
  20. Width = 554
  21. Height = 433
  22. Camera = GLCamera
  23. Buffer.BackgroundColor = clWhite
  24. Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow, roStereo]
  25. Buffer.FaceCulling = False
  26. Buffer.Lighting = False
  27. FieldOfView = 153.991439819335900000
  28. PenAsTouch = False
  29. Align = alClient
  30. OnMouseDown = GLSceneViewer1MouseDown
  31. OnMouseMove = GLSceneViewer1MouseMove
  32. TabOrder = 0
  33. end
  34. object Panel1: TPanel
  35. Left = 554
  36. Top = 0
  37. Width = 87
  38. Height = 433
  39. Align = alRight
  40. TabOrder = 1
  41. DesignSize = (
  42. 87
  43. 433)
  44. object Label1: TLabel
  45. Left = 8
  46. Top = 64
  47. Width = 62
  48. Height = 13
  49. Caption = 'Palette Scale'
  50. end
  51. object CBWireFrame: TCheckBox
  52. Left = 8
  53. Top = 32
  54. Width = 73
  55. Height = 17
  56. Caption = 'Wireframe'
  57. Checked = True
  58. State = cbChecked
  59. TabOrder = 0
  60. end
  61. object CBSmooth: TCheckBox
  62. Left = 8
  63. Top = 8
  64. Width = 57
  65. Height = 17
  66. Caption = 'Smooth'
  67. TabOrder = 1
  68. end
  69. object TBScale: TTrackBar
  70. Left = 26
  71. Top = 88
  72. Width = 31
  73. Height = 333
  74. Anchors = [akLeft, akTop, akBottom]
  75. Max = 200
  76. Orientation = trVertical
  77. PageSize = 10
  78. Frequency = 10
  79. Position = 50
  80. TabOrder = 2
  81. ThumbLength = 15
  82. OnChange = TBScaleChange
  83. end
  84. end
  85. object GLScene1: TGLScene
  86. Left = 32
  87. Top = 24
  88. object GLFreeForm: TGLFreeForm
  89. Material.MaterialLibrary = GLMaterialLibrary1
  90. Material.LibMaterialName = 'Palette'
  91. Scale.Coordinates = {A69B443BA69B443BA69B443B00000000}
  92. AutoCentering = [macCenterX, macCenterY, macUseBarycenter]
  93. end
  94. object DCTarget: TGLDummyCube
  95. ShowAxes = True
  96. CubeSize = 1.000000000000000000
  97. object GLCamera: TGLCamera
  98. DepthOfView = 500.000000000000000000
  99. FocalLength = 50.000000000000000000
  100. SceneScale = 2.000000000000000000
  101. TargetObject = DCTarget
  102. Position.Coordinates = {0000A04000002041000020420000803F}
  103. end
  104. end
  105. object HSPalette: TGLHUDSprite
  106. Material.MaterialLibrary = GLMaterialLibrary1
  107. Material.LibMaterialName = 'Palette'
  108. Position.Coordinates = {0000964300007041000000000000803F}
  109. Rotation = 0.000000000000000000
  110. end
  111. object HTPaletteLeft: TGLHUDText
  112. Position.Coordinates = {000002430000E040000000000000803F}
  113. BitmapFont = GLWindowsBitmapFont
  114. Text = '0'
  115. Rotation = 0.000000000000000000
  116. ModulateColor.Color = {0000000000000000000000000000803F}
  117. end
  118. object HTPaletteRight: TGLHUDText
  119. Position.Coordinates = {0000E6430000E040000000000000803F}
  120. BitmapFont = GLWindowsBitmapFont
  121. Text = '100'
  122. Rotation = 0.000000000000000000
  123. ModulateColor.Color = {0000000000000000000000000000803F}
  124. end
  125. end
  126. object GLMaterialLibrary1: TGLMaterialLibrary
  127. Materials = <
  128. item
  129. Name = 'Palette'
  130. Tag = 0
  131. Material.BackProperties.Ambient.Color = {0000803F0000803F0000803F0000803F}
  132. Material.BackProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
  133. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  134. Material.FrontProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F}
  135. Material.FrontProperties.Emission.Color = {CFCECE3ECFCECE3EC3C2C23ED9CE773F}
  136. Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
  137. Material.Texture.Image.Picture.Data = {
  138. 07544269746D617066000000424D660000000000000036000000280000001000
  139. 0000010000000100180000000000300000000000000000000000000000000000
  140. 0000C200C2FF00FFFC0100FFFF0100FF0100FFFF007FFF0002FBC0C0C0E3E5E5
  141. E3E5E5E3E5E5E3E5E5E3E5E5E3E5E5E3E5E5}
  142. Material.Texture.MagFilter = maNearest
  143. Material.Texture.MinFilter = miLinear
  144. Material.Texture.TextureWrap = twSeparate
  145. Material.Texture.FilteringQuality = tfAnisotropic
  146. Material.Texture.Disabled = False
  147. Shader = GLUserShader
  148. end>
  149. Left = 144
  150. Top = 24
  151. end
  152. object GLUserShader: TGLUserShader
  153. Left = 144
  154. Top = 80
  155. end
  156. object GLWindowsBitmapFont: TGLWindowsBitmapFont
  157. Font.Charset = DEFAULT_CHARSET
  158. Font.Color = clWhite
  159. Font.Height = -12
  160. Font.Name = 'Arial'
  161. Font.Style = []
  162. Ranges = <
  163. item
  164. StartASCII = '0'
  165. StopASCII = '9'
  166. StartGlyphIdx = 0
  167. end>
  168. Left = 32
  169. Top = 80
  170. end
  171. end