Unit1.dfm 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Extruded Polygon'
  5. ClientHeight = 355
  6. ClientWidth = 472
  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. OnShow = FormShow
  15. PixelsPerInch = 96
  16. TextHeight = 13
  17. object GLSceneViewer1: TGLSceneViewer
  18. Left = 0
  19. Top = 0
  20. Width = 472
  21. Height = 355
  22. Camera = Camera
  23. FieldOfView = 99.599670410156250000
  24. Align = alClient
  25. TabOrder = 0
  26. end
  27. object GLScene1: TGLScene
  28. Left = 48
  29. Top = 32
  30. object GLLightSource1: TGLLightSource
  31. ConstAttenuation = 1.000000000000000000
  32. Position.Coordinates = {0000FAC30000FAC3000048440000803F}
  33. LightStyle = lsOmni
  34. SpotCutOff = 180.000000000000000000
  35. end
  36. object GLLightSource2: TGLLightSource
  37. ConstAttenuation = 1.000000000000000000
  38. Position.Coordinates = {0000FA430000FAC3000048440000803F}
  39. SpotCutOff = 180.000000000000000000
  40. end
  41. object Container: TGLDummyCube
  42. CubeSize = 100.000000000000000000
  43. end
  44. object CameraTarget: TGLDummyCube
  45. CubeSize = 1.000000000000000000
  46. end
  47. object Camera: TGLCamera
  48. DepthOfView = 10000.000000000000000000
  49. FocalLength = 150.000000000000000000
  50. TargetObject = CameraTarget
  51. Position.Coordinates = {0000484300007AC4000048430000803F}
  52. Direction.Coordinates = {000000000000803F0000008000000000}
  53. Up.Coordinates = {00000000000000000000803F00000000}
  54. Left = 376
  55. Top = 240
  56. end
  57. end
  58. object GLMaterialLibrary1: TGLMaterialLibrary
  59. Materials = <
  60. item
  61. Name = 'MatSurface'
  62. Tag = 0
  63. Material.FrontProperties.Diffuse.Color = {6666263F0000003F14AEC73E0000803F}
  64. end
  65. item
  66. Name = 'MatInner'
  67. Tag = 0
  68. Material.FrontProperties.Diffuse.Color = {C3F5683F5C8F423F6666263F0000803F}
  69. end>
  70. Left = 144
  71. Top = 32
  72. end
  73. end