123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Newton Simple Spawn'
- ClientHeight = 385
- ClientWidth = 553
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- WindowState = wsMaximized
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 105
- Top = 0
- Width = 448
- Height = 385
- Camera = GLCamera1
- Buffer.BackgroundColor = clBackground
- FieldOfView = 150.879455566406300000
- Align = alClient
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 105
- Height = 385
- Align = alLeft
- Caption = ' '
- TabOrder = 1
- object Button1: TButton
- Left = 14
- Top = 8
- Width = 75
- Height = 25
- Caption = 'AddCube'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 14
- Top = 39
- Width = 75
- Height = 25
- Caption = 'AddSphere'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 14
- Top = 70
- Width = 75
- Height = 25
- Caption = 'AddCone'
- TabOrder = 2
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 14
- Top = 101
- Width = 75
- Height = 25
- Caption = 'AddCylinder'
- TabOrder = 3
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 14
- Top = 132
- Width = 75
- Height = 25
- Caption = 'AddCapsule'
- TabOrder = 4
- OnClick = Button5Click
- end
- object Button6: TButton
- Left = 14
- Top = 163
- Width = 75
- Height = 25
- Caption = 'Remove All'
- TabOrder = 5
- OnClick = Button6Click
- end
- end
- object GLScene1: TGLScene
- Left = 128
- Top = 8
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- TargetObject = Floor
- Position.Coordinates = {0000000000004040000020C10000803F}
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- SpotCutOff = 180.000000000000000000
- end
- end
- object Floor: TGLCube
- BehavioursData = {
- 0458434F4C02010201060C54474C4E47445374617469630200060C5374617469
- 6320466C6F6F7202000201060D474C4E47444D616E6167657231080009050000
- 0000000AD7A3F83F1200000000}
- CubeSize = {000020410000003F00002041}
- end
- object GLDummyCube1: TGLDummyCube
- Position.Coordinates = {0000000000004040000000000000803F}
- CubeSize = 1.000000000000000000
- end
- object GLResolutionIndependantHUDText1: TGLResolutionIndependantHUDText
- Position.Coordinates = {0000003F6666663F000000000000803F}
- Text = 'Bodycount:=1'
- Rotation = 0.000000000000000000
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 216
- Top = 8
- end
- object GLSimpleNavigation1: TGLSimpleNavigation
- Form = Owner
- GLSceneViewer = GLSceneViewer1
- FormCaption = 'Newton Simple Spawn - %FPS'
- KeyCombinations = <
- item
- ShiftState = [ssLeft, ssRight]
- Action = snaZoom
- end
- item
- ShiftState = [ssLeft]
- Action = snaMoveAroundTarget
- end
- item
- ShiftState = [ssRight]
- Action = snaMoveAroundTarget
- end>
- Left = 216
- Top = 72
- end
- object GLNGDManager1: TGLNGDManager
- NewtonSurfaceItem = <>
- NewtonSurfacePair = <>
- NewtonJoint = <>
- Left = 440
- Top = 8
- end
- end
|