| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283 |
- object FormMegaglasscube: TFormMegaglasscube
- Left = 198
- Top = 107
- Margins.Left = 5
- Margins.Top = 5
- Margins.Right = 5
- Margins.Bottom = 5
- Caption = 'Megaglasscube'
- ClientHeight = 613
- ClientWidth = 872
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- PixelsPerInch = 168
- TextHeight = 24
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 0
- Width = 872
- Height = 613
- Margins.Left = 5
- Margins.Top = 5
- Margins.Right = 5
- Margins.Bottom = 5
- Camera = GLCamera1
- Buffer.BackgroundColor = clBlack
- FieldOfView = 161.469665527343800000
- PenAsTouch = False
- Align = alClient
- TabOrder = 0
- end
- object GLScene1: TGLScene
- ObjectsSorting = osNone
- Left = 8
- Top = 8
- object DummyCube1: TGLDummyCube
- ObjectsSorting = osRenderBlendedLast
- CubeSize = 10.000000000000000000
- end
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000C842000048420000C8420000803F}
- LightStyle = lsOmni
- SpotCutOff = 180.000000000000000000
- end
- object GLCamera1: TGLCamera
- DepthOfView = 500.000000000000000000
- FocalLength = 50.000000000000000000
- TargetObject = DummyCube1
- Position.Coordinates = {000048420000C8410000C8420000803F}
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 88
- Top = 8
- end
- object GLSimpleNavigation1: TGLSimpleNavigation
- Form = Owner
- GLSceneViewer = GLSceneViewer1
- FormCaption = 'Megaglasscube - %FPS'
- KeyCombinations = <
- item
- ShiftState = [ssLeft, ssRight]
- Action = snaZoom
- end
- item
- ShiftState = [ssLeft]
- Action = snaMoveAroundTarget
- end
- item
- ShiftState = [ssRight]
- Action = snaMoveAroundTarget
- end>
- Left = 184
- Top = 8
- end
- end
|