File: unit_inspector_plot.lfm

package info (click to toggle)
astap 2024.11.13-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 7,032 kB
  • sloc: pascal: 49,240; sh: 205; makefile: 5
file content (439 lines) | stat: -rw-r--r-- 12,971 bytes parent folder | download
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
434
435
436
437
438
439
object form_inspection1: Tform_inspection1
  Cursor = crHandPoint
  Left = 629
  Height = 270
  Top = 283
  Width = 948
  Caption = 'Image inspection'
  ClientHeight = 270
  ClientWidth = 948
  KeyPreview = True
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  Position = poDesktopCenter
  LCLVersion = '3.4.0.0'
  object undo_button1: TBitBtn
    Left = 712
    Height = 30
    Hint = 'Restore image'
    Top = 208
    Width = 30
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00C0C0C000C0C0C000C0C0C000C0C0C000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00
      FF00C0C0C000C0C0C000C0C0C000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00
      FF00C0C0C000C0C0C000FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00
      FF00C0C0C000FF00FF00FF00FF00FF00FF00C0C0C000C0C0C000FF00FF00FF00
      FF00FF00FF00FF00FF00C0C0C000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C0C0C000C0C0
      C000C0C0C000C0C0C000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
    }
    OnClick = undo_button1Click
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object help_uncheck_outliers1: TLabel
    Cursor = crHandPoint
    Left = 784
    Height = 30
    Hint = 'Online help about inspector'
    Top = 208
    Width = 9
    Caption = '?'
    Font.Color = clBlue
    Font.Height = -21
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = help_uncheck_outliers1Click
  end
  object show_distortion1: TBitBtn
    Left = 712
    Height = 26
    Hint = 'Show image distortion using the star positions and solution. Lines a 50x larger then distortion.'
    Top = 88
    Width = 186
    AutoSize = True
    Caption = 'Show distortion'
    Constraints.MinWidth = 186
    Images = mainwindow.ImageList1
    ImageIndex = 40
    OnClick = show_distortion1Click
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object aberration_inspector1: TBitBtn
    Left = 712
    Height = 26
    Hint = 'Makes a compilation of the image corners and the center for a closer inspection.'
    Top = 128
    Width = 186
    AutoSize = True
    Caption = 'Aberration inspector  F6'
    Constraints.MinWidth = 186
    Images = mainwindow.ImageList1
    ImageIndex = 39
    OnClick = aberration_inspector1Click
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object background_values1: TBitBtn
    Left = 712
    Height = 25
    Hint = 'Annotate the image with the median background values relative to the center.'
    Top = 48
    Width = 186
    AutoSize = True
    Caption = 'Background values'
    Constraints.MinWidth = 186
    Images = mainwindow.ImageList1
    OnClick = background_values1Click
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object GroupBox3: TGroupBox
    Left = 8
    Height = 248
    Top = 8
    Width = 432
    ClientHeight = 228
    ClientWidth = 428
    TabOrder = 4
    object GroupBox2: TGroupBox
      Left = 8
      Height = 200
      Top = 24
      Width = 185
      ClientHeight = 180
      ClientWidth = 181
      TabOrder = 0
      object tilt1: TBitBtn
        Left = 22
        Height = 26
        Hint = 'Calculate tilt and curvature. The absolute font size will be smaller if you zoom in.'
        Top = 144
        Width = 86
        AutoSize = True
        Caption = 'Tilt    F4'
        Images = mainwindow.ImageList1
        ImageIndex = 41
        OnClick = tilt1Click
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object extra_stars1: TCheckBox
        Left = 16
        Height = 19
        Hint = ' Uses all stars with SNR >10 else use star with SNR >30 (more accurate)'
        Top = 8
        Width = 71
        Caption = 'Extra stars'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnChange = extra_stars1Change
      end
      object rectangle1: TRadioButton
        Left = 17
        Height = 19
        Hint = 'Octagon shape. For perfect optic the octagon will form a square'
        Top = 40
        Width = 64
        Caption = 'Octagon'
        Checked = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        TabStop = True
      end
      object triangle1: TRadioButton
        Left = 16
        Height = 19
        Hint = 'A round area is taken from the image and divided in three slices.'
        Top = 72
        Width = 60
        Caption = 'Triangle'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnChange = triangle1Change
      end
      object measuring_angle1: TComboBox
        Left = 104
        Height = 23
        Hint = 'Rotation angle. Use first the tools menu to flip the image vertical or horizontal to get the north up en east left. Then set rotation such that it matches with the three screws of the tilt adapter.'
        Top = 68
        Width = 72
        DropDownCount = 13
        ItemHeight = 15
        ItemIndex = 0
        Items.Strings = (
          '0'
          '10'
          '20'
          '30'
          '40'
          '50'
          '60'
          '70'
          '80'
          '90'
          '100'
          '110'
          '120'
        )
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        Text = '0'
        OnChange = measuring_angle1Change
      end
    end
    object GroupBox1: TGroupBox
      Left = 200
      Height = 200
      Top = 24
      Width = 224
      ClientHeight = 180
      ClientWidth = 220
      TabOrder = 1
      object vectors1: TCheckBox
        Left = 16
        Height = 19
        Hint = 'Show the orientation of the star unroundness.'
        Top = 104
        Width = 153
        Caption = 'Add unroundness vectors'
        Checked = True
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 0
        OnChange = vectors1Change
      end
      object values1: TCheckBox
        Left = 16
        Height = 19
        Hint = 'Add the star HFD value persistent to the fits file. No HFD filtering.'
        Top = 72
        Width = 76
        Caption = 'Add values'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnChange = values1Change
      end
      object voronoi1: TCheckBox
        Left = 16
        Height = 19
        Hint = 'Creates a diagram based on the values. The gray values represent the values *100. The values are local median filtered for each three stars'
        Top = 40
        Width = 107
        Caption = 'Voronoi diagram'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnChange = voronoi1Change
      end
      object contour1: TCheckBox
        Left = 16
        Height = 19
        Hint = 'Creates a 2D contour diagram based on the values. The gray values represent the values *100. The values are local median filtered for each three stars.'
        Top = 8
        Width = 124
        Caption = '2D contour diagram'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnChange = contour1Change
      end
      object hfd_button1: TButton
        Left = 8
        Height = 25
        Hint = 'Creates a diagram based on the HFD values. The gray values represent the HFD *100. The HFD values are local median filtered for each three stars.'
        Top = 144
        Width = 49
        AutoSize = True
        Caption = 'HFD'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = roundness1Click
      end
      object roundness_button1: TButton
        Left = 88
        Height = 25
        Hint = 'Measure the unroundness of the stars.'
        Top = 144
        Width = 105
        AutoSize = True
        Caption = 'Roundness   F3'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = roundness1Click
      end
    end
    object bayer_label1: TLabel
      Left = 8
      Height = 15
      Top = 0
      Width = 102
      Caption = 'Bayer matrix image'
      ParentColor = False
    end
  end
  object to_clipboard1: TCheckBox
    Left = 904
    Height = 17
    Hint = 'Data to clipboard'
    Top = 88
    Width = 18
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object GroupBox4: TGroupBox
    Left = 456
    Height = 200
    Top = 56
    Width = 199
    ClientHeight = 180
    ClientWidth = 195
    TabOrder = 6
    object background_contour1: TBitBtn
      Left = 8
      Height = 25
      Hint = 'Show the background values as a contour'
      Top = 136
      Width = 186
      AutoSize = True
      Caption = 'Background contour'
      Constraints.MinWidth = 186
      Images = mainwindow.ImageList1
      OnClick = background_contour1Click
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object grid_size1: TComboBox
      Left = 104
      Height = 23
      Hint = 'Grid used for median values.'
      Top = 48
      Width = 72
      DropDownCount = 13
      ItemHeight = 15
      ItemIndex = 1
      Items.Strings = (
        '20'
        '30'
        '40'
      )
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = '30'
      OnChange = grid_size1Change
    end
    object Label1: TLabel
      Left = 24
      Height = 15
      Top = 48
      Width = 68
      Caption = 'Grid size[px]:'
    end
    object gradations1: TComboBox
      Left = 104
      Height = 23
      Hint = 'How many background shall be detected'
      Top = 88
      Width = 72
      DropDownCount = 13
      ItemHeight = 15
      ItemIndex = 1
      Items.Strings = (
        '5'
        '10'
        '20'
        '30'
      )
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = '10'
      OnChange = gradations1Change
    end
    object Label2: TLabel
      Left = 24
      Height = 15
      Top = 88
      Width = 60
      Caption = 'Gradations:'
    end
    object Label3: TLabel
      Left = 24
      Height = 15
      Top = 8
      Width = 41
      Caption = 'Binning'
    end
    object bin_factor1: TComboBox
      Left = 104
      Height = 23
      Hint = 'Bin current image in the viewer. Noise will be reduced.'
      Top = 5
      Width = 72
      ItemHeight = 15
      ItemIndex = 1
      Items.Strings = (
        '1x1'
        '2x2'
        '3x3'
        '4x4'
      )
      ParentFont = False
      Style = csDropDownList
      TabOrder = 3
      Text = '2x2'
      OnChange = bin_factor1Change
    end
  end
end