123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Portal'
- ClientHeight = 492
- ClientWidth = 749
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- DesignSize = (
- 749
- 492)
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 75
- Height = 18
- Caption = 'Maze Map'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 304
- Top = 8
- Width = 61
- Height = 18
- Caption = '3D View'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 24
- Top = 312
- Width = 241
- Height = 42
- Caption =
- 'To modify map, edit cells with keyboard :'#13#10'- any non-empty cell ' +
- 'is a wall'#13#10'- click '#39'process'#39' to commit changes or check '#39'auto'#39
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object GLSceneViewer1: TGLSceneViewer
- Left = 286
- Top = 32
- Width = 463
- Height = 456
- Camera = GLCamera1
- Buffer.FogEnvironment.FogColor.Color = {00000000000000008180003F0000803F}
- Buffer.FogEnvironment.FogStart = 1.000000000000000000
- Buffer.FogEnvironment.FogEnd = 10.000000000000000000
- Buffer.BackgroundColor = clNavy
- FieldOfView = 155.261871337890600000
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 0
- end
- object BUForward: TButton
- Left = 96
- Top = 360
- Width = 89
- Height = 25
- Caption = 'Forward (Z/W)'
- TabOrder = 1
- end
- object BUTurnLeft: TButton
- Left = 8
- Top = 376
- Width = 81
- Height = 25
- Caption = 'Turn Left (Q/A)'
- TabOrder = 2
- end
- object BUTurnRight: TButton
- Left = 192
- Top = 376
- Width = 89
- Height = 25
- Caption = 'TurnRight (D)'
- TabOrder = 3
- end
- object BUBackward: TButton
- Left = 96
- Top = 407
- Width = 89
- Height = 25
- Caption = 'Backward (S)'
- TabOrder = 4
- end
- object SGMap: TStringGrid
- Left = 8
- Top = 32
- Width = 272
- Height = 272
- BorderStyle = bsNone
- ColCount = 16
- DefaultColWidth = 16
- DefaultRowHeight = 16
- FixedCols = 0
- RowCount = 16
- FixedRows = 0
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
- ScrollBars = ssNone
- TabOrder = 5
- end
- object BBProcess: TButton
- Left = 200
- Top = 8
- Width = 75
- Height = 17
- Caption = 'Process'
- TabOrder = 6
- OnClick = BBProcessClick
- end
- object CBAuto: TCheckBox
- Left = 152
- Top = 8
- Width = 41
- Height = 17
- Caption = 'Auto'
- TabOrder = 7
- end
- object CBFog: TCheckBox
- Left = 472
- Top = 8
- Width = 49
- Height = 17
- Caption = 'Fog'
- TabOrder = 8
- end
- object GLScene1: TGLScene
- Left = 24
- Top = 56
- object GLLightSource1: TGLLightSource
- Ambient.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000803F}
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {000048420000C8420000C8420000803F}
- SpotCutOff = 180.000000000000000000
- end
- object DummyCube1: TGLDummyCube
- Position.Coordinates = {00000000000000000000C0400000803F}
- CubeSize = 1.000000000000000000
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- Position.Coordinates = {000000000000003F000000000000803F}
- Up.Coordinates = {000000800000803F0000000000000000}
- Left = 264
- Top = 144
- end
- end
- object Portal1: TGLPortal
- Position.Coordinates = {00000000000000BF000000000000803F}
- MaterialLibrary = GLMaterialLibrary1
- end
- end
- object GLMaterialLibrary1: TGLMaterialLibrary
- Left = 120
- Top = 56
- end
- object Timer1: TTimer
- Left = 208
- Top = 56
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- SleepLength = 0
- Left = 24
- Top = 120
- end
- end
|