123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Newton Material'
- ClientHeight = 391
- ClientWidth = 598
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 0
- Width = 598
- Height = 391
- Camera = GLCamera1
- Buffer.BackgroundColor = clBackground
- FieldOfView = 151.307739257812500000
- PenAsTouch = False
- Align = alClient
- TabOrder = 0
- end
- object GLScene1: TGLScene
- Left = 40
- Top = 24
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- TargetObject = GLDummyCube3
- Position.Coordinates = {000000000000A040000070C10000803F}
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- SpotCutOff = 180.000000000000000000
- end
- end
- object GLDummyCube1: TGLDummyCube
- Position.Coordinates = {0000C0C000000000000000000000803F}
- CubeSize = 1.000000000000000000
- object GLSphere2: TGLSphere
- Position.Coordinates = {0000000000002041000000000000803F}
- Radius = 0.500000000000000000
- BehavioursData = {
- 0458434F4C02010201060D54474C4E474444796E616D69630200120000000002
- 000201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F
- 1200000000020109050000000000CDCCCCFB3F050000000000000080FF3F0905
- 0000000000000000000002000802000802000900000000000000000000000000
- 00803F020008}
- end
- object GLSphere1: TGLSphere
- Position.Coordinates = {000000C000004040000000000000803F}
- Radius = 0.500000000000000000
- BehavioursData = {
- 0458434F4C02010201060D54474C4E474444796E616D69630200120000000002
- 000201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F
- 1200000000020109050000000000CDCCCCFB3F050000000000000080FF3F0905
- 0000000000000000000002000802000802000900000000000000000000000000
- 00803F020008}
- end
- object GLCube1: TGLCube
- Position.Coordinates = {0000004000000040000000000000803F}
- BehavioursData = {
- 0458434F4C02010201060D54474C4E474444796E616D69630200120000000002
- 000201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F
- 1200000000020109050000000000CDCCCCFB3F050000000000000080FF3F0905
- 0000000000000000000002000802000802000900000000000000000000000000
- 00803F020008}
- end
- object Trampoline: TGLCube
- Position.Coordinates = {00000000000080BF000000000000803F}
- BehavioursData = {
- 0458434F4C02010201060C54474C4E4744537461746963020012000000000200
- 0201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F12
- 00000000}
- CubeSize = {000020410000803F00002041}
- end
- end
- object GLDummyCube2: TGLDummyCube
- Direction.Coordinates = {00000000ED83843EEA46773F00000000}
- PitchAngle = 15.000000000000000000
- Position.Coordinates = {0000A04000000000000000000000803F}
- Up.Coordinates = {00000000EA46773FED8384BE00000000}
- CubeSize = 1.000000000000000000
- object GLCube2: TGLCube
- Position.Coordinates = {0000004000000040000080400000803F}
- BehavioursData = {
- 0458434F4C02010201060D54474C4E474444796E616D69630200120000000002
- 000201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F
- 1200000000020109050000000000CDCCCCFB3F050000000000000080FF3F0905
- 0000000000000000000002000802000802000900000000000000000000000000
- 00803F020008}
- end
- object GLCube3: TGLCube
- Position.Coordinates = {0000000000000040000080400000803F}
- BehavioursData = {
- 0458434F4C02010201060D54474C4E474444796E616D69630200120000000002
- 000201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F
- 1200000000020109050000000000CDCCCCFB3F050000000000000080FF3F0905
- 0000000000000000000002000802000802000900000000000000000000000000
- 00803F020008}
- end
- object GLCube4: TGLCube
- Position.Coordinates = {000000C000000040000080400000803F}
- BehavioursData = {
- 0458434F4C02010201060D54474C4E474444796E616D69630200120000000002
- 000201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F
- 1200000000020109050000000000CDCCCCFB3F050000000000000080FF3F0905
- 0000000000000000000002000802000802000900000000000000000000000000
- 00803F020008}
- end
- object Friction: TGLCube
- Position.Coordinates = {00000000000080BF000000000000803F}
- BehavioursData = {
- 0458434F4C02010201060C54474C4E4744537461746963020012000000000200
- 0201060D474C4E47444D616E61676572310800090500000000000AD7A3F83F12
- 00000000}
- CubeSize = {000020410000803F00002041}
- end
- end
- object GLDummyCube3: TGLDummyCube
- CubeSize = 1.000000000000000000
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 128
- Top = 24
- end
- object GLSimpleNavigation1: TGLSimpleNavigation
- Form = Owner
- GLSceneViewer = GLSceneViewer1
- FormCaption = 'Newton Material - %FPS'
- KeyCombinations = <
- item
- ShiftState = [ssLeft, ssRight]
- Action = snaZoom
- end
- item
- ShiftState = [ssLeft]
- Action = snaMoveAroundTarget
- end
- item
- ShiftState = [ssRight]
- Action = snaMoveAroundTarget
- end>
- Left = 40
- Top = 88
- end
- object GLNGDManager1: TGLNGDManager
- NewtonSurfaceItem = <
- item
- DisplayName = 'Trampoline'
- end
- item
- DisplayName = 'Friction'
- end
- item
- DisplayName = 'cube2'
- end
- item
- DisplayName = 'cube3'
- end
- item
- DisplayName = 'cube4'
- end
- item
- DisplayName = 'Sphere1+Sphere2+cube1'
- end>
- NewtonSurfacePair = <
- item
- Elasticity = 2.000000000000000000
- end
- item
- StaticFriction = 1.000000000000000000
- KineticFriction = 1.000000000000000000
- end
- item
- StaticFriction = 0.009999999776482582
- KineticFriction = 0.001000000047497451
- end
- item
- StaticFriction = 0.300000011920929000
- KineticFriction = 0.200000002980232200
- end>
- NewtonJoint = <>
- Left = 232
- Top = 24
- end
- end
|