# Egy célpont észlelése: ráállás a célpontra, képek elkészítése, asztrometria, mechanika szinkronizálása, hőmérséklet és fókusz ellenőrzése, IRIS-szkript legyártása
# Paraméterezés: eszl cepont;exp_hossza;darabszám
# Pl. eszl fxcas;45;10
# Kimenet: fxcas170111p45s1.cr2; ... fxcas170111p45s10.cr2

println Átállás erre a célpontra: @1
mount.goto @1
println 30s várakozás
sleep 30
println Képek készítése, @1 észlelése
ccd.expo @2; @3; 6; (@1)17($time.MONTH)($time.DAY)p(@2)s[@EXPNUMBER]
exec ufraw-batch --out-type=jpg ($home)/(@1)17($time.MONTH)($time.DAY)p(@2)s1.cr2
mount.getcoords coords
astrometry ($home)/(@1)17($time.MONTH)($time.DAY)p(@2)s1.jpg; $coords.RA; $coords.DEC; 5; coords
mount.sync ($coords.RA); ($coords.DEC)
println Mechanika szinkronizálása RA: $coords.RA DEC: $coords.DEC
mount.display HORIZONTAL_COORD
mount.setprop ALIGNLIST; ALIGNWRITEFILE
clean

println HOMERSEKLET ELLENORZES: (@1)17($time.MONTH)($time.DAY)p(@2)s1.cr2
exec exiftool ($home)/(@1)17($time.MONTH)($time.DAY)p(@2)s1.cr2 | grep "Camera Temperature"
# println HOMERSEKLET ELLENORZES: (@1)17($time.MONTH)($time.DAY)p(@2)s($reszossz).cr2
# exec exiftool ($home)/(@1)17($time.MONTH)($time.DAY)p(@2)s($reszossz).cr2 | grep "Camera Temperature"
println HOMERSEKLET ELLENORZES: (@1)17($time.MONTH)($time.DAY)p(@2)s(@3).cr2
exec exiftool ($home)/(@1)17($time.MONTH)($time.DAY)p(@2)s(@3).cr2 | grep "Camera Temperature"
println FOKUSZ ELLENORZES: (@1)17($time.MONTH)($time.DAY)p(@2)s1.cr2
exec exifprobe ($home)/(@1)17($time.MONTH)($time.DAY)p(@2)s1.cr2 | grep FocusInfo.01_FocalLength

# IRIS-szript generálása
exec rm ($home)/@1.pgm
println @1.pgm IRIS-szkript generálása
println (@1)17($time.MONTH)($time.DAY)p(@2)s képek alapján
reszossz := @3 / 2

file.writeln ($home)/@1.pgm; ' @1.pgm (@1)17($time.MONTH)($time.DAY)p(@2)s generalasa
println részösszeg: $reszossz
file.writeln ($home)/@1.pgm; '
file.writeln ($home)/@1.pgm; convertraw (@1)17($time.MONTH)($time.DAY)p(@2)s img @3
file.writeln ($home)/@1.pgm; pr img biasdark(@2)s master-flat cal @3
file.writeln ($home)/@1.pgm; cosme_cfa2 cal calx cosme(@2)s @3
file.writeln ($home)/@1.pgm; cfa2pic calx conv @3
file.writeln ($home)/@1.pgm; setspline 1
file.writeln ($home)/@1.pgm; coregister2 conv reg @3
file.writeln ($home)/@1.pgm; noffset2 reg roff 0 @3
file.writeln ($home)/@1.pgm; copyadd roff (@1)17($time.MONTH)($time.DAY)p(@2)s($reszossz)s @3 $reszossz
file.writeln ($home)/@1.pgm; split_rgb2 (@1)17($time.MONTH)($time.DAY)p(@2)s($reszossz)s (@1)17($time.MONTH)($time.DAY)p(@2)sp($reszossz)sr (@1)17($time.MONTH)($time.DAY)p(@2)s($reszossz)sg (@1)17($time.MONTH)($time.DAY)p(@2)s($reszossz)sb 2
file.writeln ($home)/@1.pgm; copyadd roff (@1)17($time.MONTH)($time.DAY)p(@2)s(@3)p @3 @3
file.writeln ($home)/@1.pgm; split_rgb2 (@1)17($time.MONTH)($time.DAY)p(@2)s(@3)p (@1)17($time.MONTH)($time.DAY)p(@2)s(@3)pr (@1)17($time.MONTH)($time.DAY)p(@2)s(@3)pg (@1)17($time.MONTH)($time.DAY)p(@2)s(@3)pb 1
file.writeln ($home)/@1.pgm; load (@1)17($time.MONTH)($time.DAY)p(@2)s(@3)p1
file.writeln ($home)/@1.pgm; savejpg (@1)17($time.MONTH)($time.DAY)p(@2)sc 1


# eszl lxand; 60; 10  esetén a kimenet:
# convertraw lxand170129p60s img 10
# pr img biasdark60s master-flat cal 10
# cosme_cfa2 cal calx cosme60s 10
# cfa2pic calx conv 10
# setspline 1
# coregister2 conv reg 10
# noffset2 reg roff 0 10
# copyadd roff lxand170129p60s5s 10 5
# split_rgb2 lxand170129p60s5s lxand170129p60s5sr lxand170129p60s5sg lxand170129p60s5sb 2
# copyadd roff lxand170129p60s10p 10 10
# split_rgb2 lxand170129p60s10p lxand170129p60s10pr lxand170129p60s10pg lxand170129p60s10pb 1
# load lxand170129p60s10p1
# savejpg lxand170129p60sc 1