12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Texture Animation'
- ClientHeight = 372
- ClientWidth = 446
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCloseQuery = FormCloseQuery
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 41
- Width = 446
- Height = 331
- Camera = GLCamera1
- FieldOfView = 108.110099792480500000
- Align = alClient
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 446
- Height = 41
- Align = alTop
- TabOrder = 1
- object LabelFPS: TLabel
- Left = 320
- Top = 13
- Width = 18
- Height = 13
- Caption = 'FPS'
- end
- object Button1: TButton
- Left = 8
- Top = 8
- Width = 137
- Height = 25
- Caption = 'Generate Anim Frames'
- TabOrder = 0
- OnClick = Button1Click
- end
- object CBAnimate: TCheckBox
- Left = 176
- Top = 12
- Width = 97
- Height = 17
- Caption = 'Animate'
- Enabled = False
- TabOrder = 1
- end
- end
- object GLScene1: TGLScene
- Left = 32
- Top = 80
- object Cube1: TGLCube
- end
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {00007041000020410000E0400000803F}
- SpotCutOff = 180.000000000000000000
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 120.000000000000000000
- TargetObject = Cube1
- Position.Coordinates = {0000A04000008040000040400000803F}
- Left = 208
- Top = 160
- end
- end
- object GLMaterialLibrary1: TGLMaterialLibrary
- Left = 40
- Top = 200
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 32
- Top = 136
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 32
- Top = 256
- end
- end
|