Unit1.dfm 2.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Feedback'
  5. ClientHeight = 252
  6. ClientWidth = 401
  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 GLSceneViewer1: TGLSceneViewer
  17. Left = 0
  18. Top = 0
  19. Width = 401
  20. Height = 252
  21. Camera = GLCamera1
  22. Buffer.AmbientColor.Color = {0000000000000000000000000000803F}
  23. Buffer.FaceCulling = False
  24. FieldOfView = 136.711135864257800000
  25. PenAsTouch = False
  26. Align = alClient
  27. OnMouseDown = GLSceneViewer1MouseDown
  28. OnMouseMove = GLSceneViewer1MouseMove
  29. TabOrder = 0
  30. end
  31. object Button1: TButton
  32. Left = 152
  33. Top = 8
  34. Width = 75
  35. Height = 25
  36. Caption = 'Build Mesh'
  37. TabOrder = 1
  38. OnClick = Button1Click
  39. end
  40. object GLScene1: TGLScene
  41. Left = 40
  42. Top = 8
  43. object GLDummyCube1: TGLDummyCube
  44. CubeSize = 1.000000000000000000
  45. object GLCamera1: TGLCamera
  46. DepthOfView = 100.000000000000000000
  47. FocalLength = 50.000000000000000000
  48. TargetObject = GLDummyCube1
  49. Position.Coordinates = {0000803F00000040000040400000803F}
  50. object GLLightSource1: TGLLightSource
  51. ConstAttenuation = 1.000000000000000000
  52. SpotCutOff = 180.000000000000000000
  53. end
  54. end
  55. end
  56. object GLFreeForm1: TGLFreeForm
  57. object GLMesh1: TGLMesh
  58. Mode = mmTriangleStrip
  59. end
  60. end
  61. object GLFeedback1: TGLFeedback
  62. MaxBufferSize = 1048576
  63. Active = False
  64. Mode = fm3DColorTexture
  65. Visible = False
  66. object MeshObject1: TGLDummyCube
  67. Visible = False
  68. CubeSize = 1.000000000000000000
  69. object GLCube1: TGLCube
  70. Material.FrontProperties.Emission.Color = {9A93133FEBE0E03EE4DB5B3F0000803F}
  71. Position.Coordinates = {CDCC0CBFCDCC0CBF000000000000803F}
  72. end
  73. object GLDodecahedron1: TGLDodecahedron
  74. Material.FrontProperties.Emission.Color = {9A99593F9A99593FCDCCCC3D0000803F}
  75. Position.Coordinates = {CDCC0C3FCDCC0CBF000000000000803F}
  76. end
  77. end
  78. object MeshObject2: TGLDummyCube
  79. Visible = False
  80. CubeSize = 1.000000000000000000
  81. object GLSphere1: TGLSphere
  82. Material.FrontProperties.Emission.Color = {000000000000003F000000000000803F}
  83. Position.Coordinates = {00000000CDCC0C3F000000000000803F}
  84. Radius = 0.500000000000000000
  85. end
  86. end
  87. end
  88. end
  89. end