1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
|
object saisieprisme: Tsaisieprisme
Left = 528
Height = 548
Top = 147
Width = 668
ActiveControl = Edit_gx
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Ajout d''un prisme'
ClientHeight = 548
ClientWidth = 668
Color = clAqua
DesignTimePPI = 120
OnCreate = FormCreate
OnShow = FormShow
ParentFont = True
LCLVersion = '1.8.0.6'
object Image1: TImage
Left = 0
Height = 100
Top = 0
Width = 100
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869631602000089504E47
0D0A1A0A0000000D49484452000000640000006401030000004A2C0717000000
017352474200AECE1CE900000006504C5445000000FFFFFFA5D99FDD00000009
7048597300000B1300000B1301009A9C180000000774494D4507DA011111102B
512EAEF5000001964944415438CB55D3316EE330100550035BA474B1C5962A73
001F4047D8C3A408B6098B142A75041E618F904285BAF5110CC141545A5A1796
609A3F43911CCEB0111E288D385FA31D785D31ED8A3AA577A52729FF2CB5FC96
9A8E5267A5DE4AEDA57C550B392335416AF046A8576A1C8ADC2FA5C3BA142DAB
D4ECD6FF86D5F98350834EA8C238B15C8DB1EC2D06E35867CD06C7A233D096B3
34802DDA4BF91AD46C96335213A406BAD9B07A252AE990E52BDC8AA8E4A56801
4E2B6B50EA808F2B8B8E6F8A2A78B028068F318B62789C583370B7C72C2A796B
5914C3CDDAAC0AB8B0420C27169584B5755288E12F8B92C5EB3F931462B8FB2C
8AE1F1C8A218480E5121D9BBCF0A256F7E4D1AC82DFE24F5F8324F78496AF1F5
F6238B4A8E7EB72D12C5F0497B63DCA364C3734973508B63541784AC26B69454
C5A1B0517BA526AA8E3A2BCD4A21B13811882713C2F60A07EE48AA0BD7159C84
D4A2B415BD6685748BB6A223AB571A94B8F54DCE488529B0ACF4A388E9A98BCE
4A93D26262EB51BE9642E520D428754AF32AB528B98394FF2985F4D9A66F42F6
A86D8437660D0000000049454E44AE426082
}
end
object GroupBox1: TGroupBox
Left = 104
Height = 99
Top = 1
Width = 184
Caption = 'Centre d''inertie'
ClientHeight = 74
ClientWidth = 180
TabOrder = 0
object Label1: TLabel
Left = 8
Height = 20
Top = 5
Width = 17
Caption = 'x='
ParentColor = False
end
object Label2: TLabel
Left = 8
Height = 20
Top = 41
Width = 17
Caption = 'y='
ParentColor = False
end
object log1: TLabel
Left = 145
Height = 20
Top = 5
Width = 30
Caption = 'log1'
ParentColor = False
end
object log2: TLabel
Left = 144
Height = 20
Top = 46
Width = 30
Caption = 'log2'
ParentColor = False
end
object Edit_gx: TEdit
Left = 32
Height = 28
Top = 0
Width = 101
TabOrder = 0
end
object Edit_gy: TEdit
Left = 31
Height = 28
Top = 39
Width = 102
TabOrder = 1
end
end
object GroupBox2: TGroupBox
Left = 8
Height = 61
Top = 232
Width = 282
Caption = 'Angle au sommet'
ClientHeight = 36
ClientWidth = 278
TabOrder = 1
object Label4: TLabel
Left = 14
Height = 20
Top = 11
Width = 20
Caption = 'A='
ParentColor = False
end
object Label7: TLabel
AnchorSideLeft.Control = Edit_angleausommet
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Edit_angleausommet
AnchorSideTop.Side = asrCenter
Left = 148
Height = 20
Top = 11
Width = 22
Caption = 'rad'
ParentColor = False
end
object Edit_angleausommet: TEdit
AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrCenter
Left = 34
Height = 28
Top = 7
Width = 114
TabOrder = 0
end
end
object GroupBox3: TGroupBox
Left = 10
Height = 56
Top = 296
Width = 280
Caption = 'Angle polaire de la hauteur principale'
ClientHeight = 31
ClientWidth = 276
TabOrder = 2
object Label5: TLabel
Left = 12
Height = 20
Top = 7
Width = 15
Caption = 't='
ParentColor = False
end
object Label8: TLabel
AnchorSideLeft.Control = Edit_anglepolaire
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Edit_anglepolaire
AnchorSideTop.Side = asrCenter
Left = 136
Height = 20
Top = 7
Width = 22
Caption = 'rad'
ParentColor = False
end
object Edit_anglepolaire: TEdit
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrCenter
Left = 27
Height = 28
Top = 3
Width = 109
TabOrder = 0
end
end
object GroupBox4: TGroupBox
Left = 13
Height = 58
Top = 360
Width = 275
Caption = 'Hauteur'
ClientHeight = 33
ClientWidth = 271
TabOrder = 3
object Label6: TLabel
Left = 5
Height = 20
Top = 8
Width = 63
Caption = 'Hauteur='
ParentColor = False
end
object log3: TLabel
AnchorSideLeft.Control = Edit_hauteur
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrCenter
Left = 177
Height = 20
Top = 8
Width = 30
Caption = 'log3'
ParentColor = False
end
object Edit_hauteur: TEdit
AnchorSideLeft.Control = Label6
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrCenter
Left = 68
Height = 28
Top = 4
Width = 109
TabOrder = 0
end
end
object BitBtn1: TBitBtn
Left = 13
Height = 112
Top = 112
Width = 275
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
OnClick = BitBtn1Click
TabOrder = 4
end
object BitBtn2: TBitBtn
Left = 424
Height = 40
Top = 496
Width = 232
Cancel = True
Caption = 'Annuler'
Kind = bkCancel
ModalResult = 2
TabOrder = 5
end
object boutonsup: TBitBtn
Left = 9
Height = 40
Top = 496
Width = 408
Caption = 'Supprimer ce prisme'
TabOrder = 6
end
object GroupBox5: TGroupBox
Left = 13
Height = 63
Top = 424
Width = 271
Caption = 'Couleur du prisme'
ClientHeight = 38
ClientWidth = 267
TabOrder = 7
object Label9: TLabel
Left = 7
Height = 20
Top = 13
Width = 54
Caption = 'Couleur:'
ParentColor = False
end
object colorgrid1: TColorBox
AnchorSideLeft.Control = Label9
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label9
AnchorSideTop.Side = asrCenter
Left = 71
Height = 22
Top = 12
Width = 129
BorderSpacing.Left = 10
ItemHeight = 16
TabOrder = 0
end
end
object GroupBox6: TGroupBox
Left = 304
Height = 175
Top = 312
Width = 352
Caption = 'Indice de réfraction du milieu'
ClientHeight = 150
ClientWidth = 348
TabOrder = 8
object StaticText2: TLabel
Left = 8
Height = 20
Top = 15
Width = 91
Caption = 'Pour le rouge:'
ParentColor = False
end
object StaticText3: TLabel
Left = 8
Height = 20
Top = 42
Width = 77
Caption = 'Pour le vert:'
ParentColor = False
end
object StaticText4: TLabel
Left = 8
Height = 20
Top = 71
Width = 81
Caption = 'Pour le bleu:'
ParentColor = False
end
object StaticText7: TLabel
Left = 8
Height = 20
Top = 113
Width = 62
Caption = 'Matériau:'
ParentColor = False
end
object editnrouge: TEdit
AnchorSideLeft.Control = StaticText2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText2
AnchorSideTop.Side = asrCenter
Left = 109
Height = 28
Top = 11
Width = 81
BorderSpacing.Left = 10
TabOrder = 0
Text = '1,5'
end
object editnvert: TEdit
AnchorSideLeft.Control = StaticText3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText3
AnchorSideTop.Side = asrCenter
Left = 95
Height = 28
Top = 38
Width = 91
BorderSpacing.Left = 10
TabOrder = 1
Text = '1,6'
end
object editnbleu: TEdit
AnchorSideLeft.Control = StaticText4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText4
AnchorSideTop.Side = asrCenter
Left = 99
Height = 28
Top = 67
Width = 91
BorderSpacing.Left = 10
TabOrder = 2
Text = '1,7'
end
object combomateriaux: TComboBox
AnchorSideLeft.Control = StaticText7
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText7
AnchorSideTop.Side = asrCenter
Left = 80
Height = 28
Top = 109
Width = 185
BorderSpacing.Left = 10
ItemHeight = 20
OnChange = combomateriauxChange
Style = csDropDownList
TabOrder = 3
end
end
object radioentrant: TRadioGroup
Left = 304
Height = 137
Top = 168
Width = 352
AutoFill = True
Caption = 'Rayon réfléchi (sens entrant)'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 112
ClientWidth = 348
ItemIndex = 1
Items.Strings = (
'Toujours'
'Jamais'
'Seulement si le réfracté existe'
'Seulement si le réfracté n''existe pas'
)
TabOrder = 9
end
object radiosortant: TRadioGroup
Left = 304
Height = 161
Top = 3
Width = 344
AutoFill = True
Caption = 'Rayon réfléchi (sens sortant)'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 136
ClientWidth = 340
ItemIndex = 1
Items.Strings = (
'Toujours'
'Jamais'
'Seulement si le réfracté existe'
'Seulement si le réfracté n''existe pas'
)
TabOrder = 10
end
end
|
