Unit1.dfm 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Portal'
  5. ClientHeight = 492
  6. ClientWidth = 749
  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. DesignSize = (
  16. 749
  17. 492)
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object Label1: TLabel
  21. Left = 8
  22. Top = 8
  23. Width = 75
  24. Height = 18
  25. Caption = 'Maze Map'
  26. Font.Charset = ANSI_CHARSET
  27. Font.Color = clWindowText
  28. Font.Height = -16
  29. Font.Name = 'Arial'
  30. Font.Style = [fsBold, fsItalic]
  31. ParentFont = False
  32. end
  33. object Label2: TLabel
  34. Left = 304
  35. Top = 8
  36. Width = 61
  37. Height = 18
  38. Caption = '3D View'
  39. Font.Charset = ANSI_CHARSET
  40. Font.Color = clWindowText
  41. Font.Height = -16
  42. Font.Name = 'Arial'
  43. Font.Style = [fsBold, fsItalic]
  44. ParentFont = False
  45. end
  46. object Label3: TLabel
  47. Left = 24
  48. Top = 312
  49. Width = 241
  50. Height = 42
  51. Caption =
  52. 'To modify map, edit cells with keyboard :'#13#10'- any non-empty cell ' +
  53. 'is a wall'#13#10'- click '#39'process'#39' to commit changes or check '#39'auto'#39
  54. Font.Charset = ANSI_CHARSET
  55. Font.Color = clWindowText
  56. Font.Height = -11
  57. Font.Name = 'Arial'
  58. Font.Style = []
  59. ParentFont = False
  60. end
  61. object GLSceneViewer1: TGLSceneViewer
  62. Left = 286
  63. Top = 32
  64. Width = 463
  65. Height = 456
  66. Camera = GLCamera1
  67. Buffer.FogEnvironment.FogColor.Color = {00000000000000008180003F0000803F}
  68. Buffer.FogEnvironment.FogStart = 1.000000000000000000
  69. Buffer.FogEnvironment.FogEnd = 10.000000000000000000
  70. Buffer.BackgroundColor = clNavy
  71. FieldOfView = 155.261871337890600000
  72. Anchors = [akLeft, akTop, akRight, akBottom]
  73. TabOrder = 0
  74. end
  75. object BUForward: TButton
  76. Left = 96
  77. Top = 360
  78. Width = 89
  79. Height = 25
  80. Caption = 'Forward (Z/W)'
  81. TabOrder = 1
  82. end
  83. object BUTurnLeft: TButton
  84. Left = 8
  85. Top = 376
  86. Width = 81
  87. Height = 25
  88. Caption = 'Turn Left (Q/A)'
  89. TabOrder = 2
  90. end
  91. object BUTurnRight: TButton
  92. Left = 192
  93. Top = 376
  94. Width = 89
  95. Height = 25
  96. Caption = 'TurnRight (D)'
  97. TabOrder = 3
  98. end
  99. object BUBackward: TButton
  100. Left = 96
  101. Top = 407
  102. Width = 89
  103. Height = 25
  104. Caption = 'Backward (S)'
  105. TabOrder = 4
  106. end
  107. object SGMap: TStringGrid
  108. Left = 8
  109. Top = 32
  110. Width = 272
  111. Height = 272
  112. BorderStyle = bsNone
  113. ColCount = 16
  114. DefaultColWidth = 16
  115. DefaultRowHeight = 16
  116. FixedCols = 0
  117. RowCount = 16
  118. FixedRows = 0
  119. Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
  120. ScrollBars = ssNone
  121. TabOrder = 5
  122. end
  123. object BBProcess: TButton
  124. Left = 200
  125. Top = 8
  126. Width = 75
  127. Height = 17
  128. Caption = 'Process'
  129. TabOrder = 6
  130. OnClick = BBProcessClick
  131. end
  132. object CBAuto: TCheckBox
  133. Left = 152
  134. Top = 8
  135. Width = 41
  136. Height = 17
  137. Caption = 'Auto'
  138. TabOrder = 7
  139. end
  140. object CBFog: TCheckBox
  141. Left = 472
  142. Top = 8
  143. Width = 49
  144. Height = 17
  145. Caption = 'Fog'
  146. TabOrder = 8
  147. end
  148. object GLScene1: TGLScene
  149. Left = 24
  150. Top = 56
  151. object GLLightSource1: TGLLightSource
  152. Ambient.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000803F}
  153. ConstAttenuation = 1.000000000000000000
  154. Position.Coordinates = {000048420000C8420000C8420000803F}
  155. SpotCutOff = 180.000000000000000000
  156. end
  157. object DummyCube1: TGLDummyCube
  158. Position.Coordinates = {00000000000000000000C0400000803F}
  159. CubeSize = 1.000000000000000000
  160. object GLCamera1: TGLCamera
  161. DepthOfView = 100.000000000000000000
  162. FocalLength = 50.000000000000000000
  163. Position.Coordinates = {000000000000003F000000000000803F}
  164. Up.Coordinates = {000000800000803F0000000000000000}
  165. Left = 264
  166. Top = 144
  167. end
  168. end
  169. object Portal1: TGLPortal
  170. Position.Coordinates = {00000000000000BF000000000000803F}
  171. MaterialLibrary = GLMaterialLibrary1
  172. end
  173. end
  174. object GLMaterialLibrary1: TGLMaterialLibrary
  175. Left = 120
  176. Top = 56
  177. end
  178. object Timer1: TTimer
  179. Left = 208
  180. Top = 56
  181. end
  182. object GLCadencer1: TGLCadencer
  183. Scene = GLScene1
  184. SleepLength = 0
  185. Left = 24
  186. Top = 120
  187. end
  188. end