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
|
unit unit_live_monitoring;
{Copyright (C) 2017, 2024 by Han Kleijn, www.hnsky.org
email: han.k.. at...hnsky.org
This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License (LGPL) as published
by the Free Software Foundation, either version 3 of the License, or(at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License (LGPL) along with this program. If not, see <http://www.gnu.org/licenses/>.}
{$mode delphi}
interface
uses
Classes, SysUtils,forms,fileutil,
graphics,
math;
procedure monitoring(path :string);{stack live average}
const
live_monitoring: boolean=false; {used to inhibit solving while live_stacking}
implementation
uses unit_stack, astap_main,unit_stack_routines,unit_astrometric_solving,unit_star_align,unit_inspector_plot;
var
latest_time : integer=0;
function file_available(monitor_directory:string; out filen: string ) : boolean; {check if fits file is available and report the filename}
Var Info : TSearchRec;
Count : Longint;
i : integer;
f : file;
ex : string;
const
extensions : array[0..44] of string=
(('.fit'),('.fits'),('*.FIT'),('.FITS'),('.RAW'),('.raw'),('.CRW'),('.crw'),('.CR2'),('.cr2'),('.CR3'),('.cr3'),('.KDC'),('.kdc'),('.DCR'),
('.dcr'),('.MRW'),('.mrw'),('.ARW'),('.arw'),('.NEF'),('.nef'),('.NRW'),('.nrw'),('.DNG'),('.dng'),('.ORF'),('.orf'),('.PTX'),('.ptx'),('.PEF'),
('.pef'),('.RW2'),('.rw2'),('.SRW'),('.srw'),('.RAF'),('.raf'),
('*.png'),('.PNG'),('.jpg'),('(.JPG'),('.tif'),('.tiff'),('.TIF'));
Begin
result:=false;
Count:=0;
If FindFirst (monitor_directory+ {$ifdef mswindows}'\' {$else} {unix} '/' {$endif}+'*', faAnyFile-faDirectory,Info)=0 then
begin
Repeat
Inc(Count);
With Info do
begin
// SR.FindData.ftLastWriteTime
if time>latest_time then
begin
ex:=extractfileext(name);
i:=-1;
repeat
inc(i);
until ((i>44) or (ex=extensions[i]));
if i>44 then continue;{no know image extension, continue with repeat}
result:=true;
filen:=name;
latest_time:=time;
end;
end;
Until FindNext(info)<>0;
FindClose(Info);
end;
if result then
begin
filen:= monitor_directory+ {$ifdef mswindows}'\' {$else} {unix} '/' {$endif}+filen;
{check if free for reading}
assign(f,filen);
{$I-}
reset(f); {prepare for reading}
{$I+}
result:=(IOresult=0); {report if file is accessible}
if result then
close(f);
end;
End;
procedure monitoring(path :string);{monitoring a directory}
var
counter: integer;
// init, solution, vector_based,waiting,transition_image,colour_correction :boolean;
// file_ext,filen : string;
// multiply_red,multiply_green,multiply_blue,add_valueR,add_valueG,add_valueB,largest,scaleR,scaleG,scaleB,dum :single; {for colour correction}
// warning : string;
begin
with stackmenu1 do
begin
esc_pressed:=false;
// total_counter:=0;
latest_time:=0;{for finding files}
if monitor_applydarkflat1.checked then {Prepare for dark and flats}
begin
analyse_listview(stackmenu1.listview2,false {light},false {full fits},false{refresh});{analyse dark tab, by loading=false the loaded img will not be effected. Calstat will not be effected}
analyse_listview(stackmenu1.listview3,false {light},false {full fits},false{refresh});{analyse flat tab, by loading=false the loaded img will not be effected}
end;
{live stacking}
repeat
begin
if file_available(path,filename2 {file found}) then
begin
try { Do some lengthy operation }
// waiting:=false;
Application.ProcessMessages;
{load image}
if ((esc_pressed) or (load_image(false,false {plot})=false)) then
begin
if esc_pressed=false then memo2_message('Error loading file'); {can't load}
live_monitoring1.font.style:=[];
live_monitoring:=false;
exit;
end;
memo2_message('Loading file: '+filename2) ;
if monitor_applydarkflat1.checked then
begin
apply_dark_and_flat(img_loaded);{apply dark, flat if required, renew if different head.exposure or ccd temp}
{these global variables are passed-on in procedure to protect against overwriting}
update_text(mainwindow.memo1.lines,'CALSTAT =',#39+head.calstat+#39);
if ((pos('D',head.calstat)>0) or (pos('F',head.calstat)>0)) then {status of dark application}
memo2_message('Calibration status '+head.calstat+'. Used '+inttostr(head.dark_count)+' darks, '+inttostr(head.flat_count)+' flats, '+inttostr(head.flatdark_count)+' flat-darks') ;
end;
Application.ProcessMessages;
if esc_pressed then exit;
if make_osc_color1.checked then
demosaic_bayer(img_loaded); {convert OSC image to colour}
use_histogram(img_loaded,true {update}); {plot histogram, set sliders}
plot_fits(mainwindow.image1,false,true{do not show header in memo1});{plot real}
monitor_date1.caption:= DateTimeToStr(FileDateToDateTime(latest_time));
finally
end;
end
else
wait(1000);{wait 1 second unless something happens}
end;{live average}
until esc_pressed;
live_monitoring:=false;
live_monitoring1.font.style:=[];
memo2_message('Live stack stopped. Save result if required');
counterL:=counter;
end;{with stackmenu1}
end;
end.
|
