ArenaZ

Unit1.lfm
215 строк · 6.3 Кб
Перенос по словам
1
object Form1: TForm1
2
  Left = 542
3
  Height = 445
4
  Top = 141
5
  Width = 570
6
  Caption = 'UV Mapping'
7
  ClientHeight = 445
8
  ClientWidth = 570
9
  Color = clBtnFace
10
  Font.Color = clWindowText
11
  Font.Height = -11
12
  Font.Name = 'MS Sans Serif'
13
  OnCreate = FormCreate
14
  Position = poScreenCenter
15
  LCLVersion = '1.6.4.0'
16
  object Panel1: TPanel
17
    Left = 0
18
    Height = 445
19
    Top = 0
20
    Width = 153
21
    Align = alLeft
22
    ClientHeight = 445
23
    ClientWidth = 153
24
    Color = 9608036
25
    ParentColor = False
26
    TabOrder = 0
27
    object Image1: TImage
28
      Left = 6
29
      Height = 137
30
      Top = 6
31
      Width = 137
32
    end
33
    object Button3: TButton
34
      Left = 6
35
      Height = 25
36
      Top = 214
37
      Width = 137
38
      Caption = 'Load texture'
39
      OnClick = Button3Click
40
      TabOrder = 0
41
    end
42
    object ComboBox1: TComboBox
43
      Left = 6
44
      Height = 21
45
      Top = 150
46
      Width = 137
47
      ItemHeight = 13
48
      ItemIndex = 0
49
      Items.Strings = (
50
        '0 - X Axis'
51
        '1 - Y Axis'
52
        '2 - Z Axis'
53
      )
54
      OnChange = ComboBox1Change
55
      Style = csDropDownList
56
      TabOrder = 1
57
      Text = '0 - X Axis'
58
    end
59
    object ComboBox2: TComboBox
60
      Left = 6
61
      Height = 21
62
      Top = 182
63
      Width = 137
64
      ItemHeight = 13
65
      ItemIndex = 0
66
      Items.Strings = (
67
        '0 - Planar mapping'
68
        '1 - Cubic mapping'
69
        '2 - Cylindrical mapping'
70
        '3 - Spherical mapping'
71
      )
72
      OnChange = ComboBox2Change
73
      Style = csDropDownList
74
      TabOrder = 2
75
      Text = '0 - Planar mapping'
76
    end
77
    object Button1: TButton
78
      Left = 6
79
      Height = 25
80
      Top = 246
81
      Width = 137
82
      Caption = 'Load model'
83
      OnClick = Button1Click
84
      TabOrder = 3
85
    end
86
    object CheckBox1: TCheckBox
87
      Left = 6
88
      Height = 19
89
      Top = 278
90
      Width = 98
91
      Caption = 'Inverted normals'
92
      OnClick = CheckBox1Click
93
      TabOrder = 4
94
    end
95
  end
96
  object GLSceneViewer1: TGLSceneViewer
97
    Left = 153
98
    Height = 445
99
    Top = 0
100
    Width = 417
101
    Camera = GLCamera1
102
    Buffer.BackgroundColor = 12769969
103
    Buffer.AmbientColor.Red = 0.200000002980232
104
    Buffer.AmbientColor.Green = 0.200000002980232
105
    Buffer.AmbientColor.Blue = 0.200000002980232
106
    Buffer.AmbientColor.Alpha = 1
107
    FieldOfView = 153.029327392578
108
    Align = alClient
109
    OnMouseDown = GLSceneViewer1MouseDown
110
    OnMouseMove = GLSceneViewer1MouseMove
111
    TabOrder = 1
112
  end
113
  object GLScene1: TGLScene
114
    left = 48
115
    top = 8
116
    object GLFreeForm1: TGLFreeForm
117
      TagFloat = 0
118
      Material.BackProperties.Ambient.Red = 0.200000002980232
119
      Material.BackProperties.Ambient.Green = 0.200000002980232
120
      Material.BackProperties.Ambient.Blue = 0.200000002980232
121
      Material.BackProperties.Ambient.Alpha = 1
122
      Material.BackProperties.Diffuse.Red = 0.800000011920929
123
      Material.BackProperties.Diffuse.Green = 0.800000011920929
124
      Material.BackProperties.Diffuse.Blue = 0.800000011920929
125
      Material.BackProperties.Diffuse.Alpha = 1
126
      Material.BackProperties.Emission.Red = 0
127
      Material.BackProperties.Emission.Green = 0
128
      Material.BackProperties.Emission.Blue = 0
129
      Material.BackProperties.Emission.Alpha = 1
130
      Material.BackProperties.Specular.Red = 0
131
      Material.BackProperties.Specular.Green = 0
132
      Material.BackProperties.Specular.Blue = 0
133
      Material.BackProperties.Specular.Alpha = 1
134
      Material.FrontProperties.Ambient.Red = 0.200000002980232
135
      Material.FrontProperties.Ambient.Green = 0.200000002980232
136
      Material.FrontProperties.Ambient.Blue = 0.200000002980232
137
      Material.FrontProperties.Ambient.Alpha = 1
138
      Material.FrontProperties.Diffuse.Red = 0.800000011920929
139
      Material.FrontProperties.Diffuse.Green = 0.800000011920929
140
      Material.FrontProperties.Diffuse.Blue = 0.800000011920929
141
      Material.FrontProperties.Diffuse.Alpha = 1
142
      Material.FrontProperties.Emission.Red = 0
143
      Material.FrontProperties.Emission.Green = 0
144
      Material.FrontProperties.Emission.Blue = 0
145
      Material.FrontProperties.Emission.Alpha = 1
146
      Material.FrontProperties.Specular.Red = 0
147
      Material.FrontProperties.Specular.Green = 0
148
      Material.FrontProperties.Specular.Blue = 0
149
      Material.FrontProperties.Specular.Alpha = 1
150
      Material.Texture.EnvColor.Red = 0
151
      Material.Texture.EnvColor.Green = 0
152
      Material.Texture.EnvColor.Blue = 0
153
      Material.Texture.EnvColor.Alpha = 0
154
      Material.Texture.BorderColor.Red = 0
155
      Material.Texture.BorderColor.Green = 0
156
      Material.Texture.BorderColor.Blue = 0
157
      Material.Texture.BorderColor.Alpha = 0
158
      PitchAngle = 0
159
      RollAngle = 0
160
      TurnAngle = 0
161
      AutoCentering = [macCenterX, macCenterY, macCenterZ]
162
    end
163
    object GLDummyCube1: TGLDummyCube
164
      TagFloat = 0
165
      PitchAngle = 0
166
      RollAngle = 0
167
      TurnAngle = 0
168
      CubeSize = 1
169
      EdgeColor.Red = 1
170
      EdgeColor.Green = 1
171
      EdgeColor.Blue = 1
172
      EdgeColor.Alpha = 1
173
      object GLCamera1: TGLCamera
174
        TagFloat = 0
175
        DepthOfView = 100
176
        FocalLength = 50
177
        SceneScale = 2
178
        TargetObject = GLDummyCube1
179
        Position.Coordinates = {
180
          0000A0400000A0400000A0400000803F
181
        }
182
        object GLLightSource1: TGLLightSource
183
          TagFloat = 0
184
          Ambient.Red = 0
185
          Ambient.Green = 0
186
          Ambient.Blue = 0
187
          Ambient.Alpha = 1
188
          ConstAttenuation = 1
189
          Diffuse.Red = 1
190
          Diffuse.Green = 1
191
          Diffuse.Blue = 1
192
          Diffuse.Alpha = 1
193
          LinearAttenuation = 0
194
          QuadraticAttenuation = 0
195
          Specular.Red = 0
196
          Specular.Green = 0
197
          Specular.Blue = 0
198
          Specular.Alpha = 1
199
          SpotCutOff = 180
200
          SpotExponent = 0
201
        end
202
      end
203
    end
204
  end
205
  object OpenDialog1: TOpenDialog
206
    Filter = '3DS File (*.3ds)|*.3ds'
207
    left = 328
208
    top = 16
209
  end
210
  object OpenPictureDialog1: TOpenPictureDialog
211
    Filter = 'All (*.tga;*.jpg;*.jpeg;*.bmp)|*.tga;*.jpg;*.jpeg;*.bmp|Targa (*.tga)|*.tga|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp'
212
    left = 416
213
    top = 16
214
  end
215
end
216
ArenaZ

Использование cookies
