Unit1.dfm 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Mesh Hit'
  5. ClientHeight = 271
  6. ClientWidth = 555
  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. Position = poScreenCenter
  15. OnCreate = FormCreate
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object Label1: TLabel
  19. Left = 8
  20. Top = 8
  21. Width = 79
  22. Height = 13
  23. Caption = 'Orthogonal View'
  24. end
  25. object Label2: TLabel
  26. Left = 280
  27. Top = 8
  28. Width = 81
  29. Height = 13
  30. Caption = 'Perspective View'
  31. end
  32. object GLSceneViewer1: TGLSceneViewer
  33. Left = 8
  34. Top = 24
  35. Width = 265
  36. Height = 241
  37. Camera = GLCamera1
  38. Buffer.BackgroundColor = clGray
  39. FieldOfView = 170.512069702148400000
  40. OnMouseDown = GLSceneViewer1MouseDown
  41. OnMouseMove = GLSceneViewer1MouseMove
  42. TabOrder = 0
  43. end
  44. object GLSceneViewer2: TGLSceneViewer
  45. Left = 279
  46. Top = 22
  47. Width = 265
  48. Height = 241
  49. Camera = GLCamera2
  50. Buffer.BackgroundColor = clGray
  51. FieldOfView = 134.929183959960900000
  52. OnMouseDown = GLSceneViewer2MouseDown
  53. OnMouseMove = GLSceneViewer2MouseMove
  54. TabOrder = 1
  55. end
  56. object GLScene1: TGLScene
  57. Left = 56
  58. Top = 48
  59. object GLLightSource1: TGLLightSource
  60. ConstAttenuation = 1.000000000000000000
  61. Position.Coordinates = {000048420000704200008C420000803F}
  62. SpotCutOff = 180.000000000000000000
  63. end
  64. object DummyCube1: TGLDummyCube
  65. CubeSize = 1.000000000000000000
  66. object FreeForm1: TGLFreeForm
  67. Direction.Coordinates = {000000000000803F0000000000000000}
  68. Scale.Coordinates = {CDCCCC3DCDCCCC3DCDCCCC3D00000000}
  69. ShowAxes = True
  70. Up.Coordinates = {00000000000000000000803F00000000}
  71. NormalsOrientation = mnoInvert
  72. end
  73. end
  74. object Sphere1: TGLSphere
  75. Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
  76. Direction.Coordinates = {000000000000803F0000000000000000}
  77. Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
  78. Radius = 0.300000011920929000
  79. Slices = 6
  80. Stacks = 6
  81. object ArrowLine1: TGLArrowLine
  82. Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F9A99193F}
  83. Material.FrontProperties.Emission.Color = {1283803E1283803E000000000000803F}
  84. Material.BlendingMode = bmTransparency
  85. Position.Coordinates = {0000000000000000CDCCCC3D0000803F}
  86. BottomRadius = 0.050000000745058060
  87. Height = 1.000000000000000000
  88. TopRadius = 0.100000001490116100
  89. TopArrowHeadHeight = 0.500000000000000000
  90. TopArrowHeadRadius = 0.200000002980232200
  91. BottomArrowHeadHeight = 0.500000000000000000
  92. BottomArrowHeadRadius = 0.200000002980232200
  93. end
  94. end
  95. object GLCamera1: TGLCamera
  96. DepthOfView = 100.000000000000000000
  97. FocalLength = 10.000000000000000000
  98. TargetObject = DummyCube1
  99. CameraStyle = csOrthogonal
  100. Position.Coordinates = {0000504100004040000010410000803F}
  101. end
  102. object GLCamera2: TGLCamera
  103. DepthOfView = 100.000000000000000000
  104. FocalLength = 50.000000000000000000
  105. TargetObject = DummyCube1
  106. Position.Coordinates = {0000204100002041000020410000803F}
  107. end
  108. end
  109. end