123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'MultiTexture'
- ClientHeight = 415
- ClientWidth = 550
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 411
- Top = 56
- Width = 128
- Height = 128
- Stretch = True
- OnClick = Image1Click
- end
- object Image2: TImage
- Left = 411
- Top = 208
- Width = 128
- Height = 128
- Stretch = True
- OnClick = Image2Click
- end
- object Label1: TLabel
- Left = 416
- Top = 40
- Width = 70
- Height = 13
- Caption = 'Texture Map 1'
- end
- object Label2: TLabel
- Left = 416
- Top = 192
- Width = 70
- Height = 13
- Caption = 'Texture Map 2'
- end
- object Label3: TLabel
- Left = 416
- Top = 368
- Width = 57
- Height = 13
- Caption = 'Map 2 Scale'
- end
- object Label4: TLabel
- Left = 432
- Top = 8
- Width = 93
- Height = 19
- Caption = 'MultiTexture'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object GLSceneViewer1: TGLSceneViewer
- Left = 8
- Top = 8
- Width = 393
- Height = 393
- Camera = GLCamera1
- FieldOfView = 151.447769165039100000
- Enabled = False
- TabOrder = 0
- end
- object TrackBar1: TTrackBar
- Left = 413
- Top = 378
- Width = 126
- Height = 25
- Max = 30
- Min = 5
- Position = 10
- TabOrder = 1
- ThumbLength = 10
- OnChange = TrackBar1Change
- end
- object CBClampTex2: TCheckBox
- Left = 416
- Top = 344
- Width = 97
- Height = 17
- Caption = 'Clamp Texture 2'
- TabOrder = 2
- end
- object GLScene1: TGLScene
- Left = 48
- Top = 32
- object Plane1: TGLPlane
- Material.MaterialLibrary = GLMaterialLibrary1
- Material.LibMaterialName = 'Base'
- Position.Coordinates = {0000000000000000000080BF0000803F}
- Height = 1.000000000000000000
- Width = 1.000000000000000000
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- Left = 192
- Top = 192
- end
- end
- object GLMaterialLibrary1: TGLMaterialLibrary
- Materials = <
- item
- Name = 'Base'
- Tag = 0
- Material.Texture.TextureMode = tmReplace
- Material.Texture.Disabled = False
- Texture2Name = 'Second'
- end
- item
- Name = 'Second'
- Tag = 0
- Material.Texture.TextureMode = tmModulate
- Material.Texture.Disabled = False
- end>
- TexturePaths = '..\..\..\..\media\'
- Left = 152
- Top = 32
- end
- object OpenPictureDialog1: TOpenPictureDialog
- Left = 264
- Top = 32
- end
- end
|