shwfs/get_apogee_image.tcl at master · drrcool/shwfs · GitHub

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
#!/usr/bin/tclsh

set exposure [lindex $argv 0]
set filename [lindex $argv 1]

if {$argc != 2} {
     error "Usage: get_apogee_image.tcl <exposure time> <filename>"
}

global SCOPE CAMSTATUS CCAPI

set DEBUG 0
set env(TKAPOGEE) /opt/apogee
set libs /opt/apogee/lib

load $libs/libfitsTcl.so
load $libs/libccd.so

source /opt/apogee/scripts/camera_init.tcl

$CAMERA Flush

set s [$CAMERA read_Status]
#puts stdout "Camera status before exposure is $s"

$CAMERA  Expose $exposure 1

set s [$CAMERA read_Status]
#puts stdout "Camera status during exposure is $s"

exec sleep [expr 1.02*$exposure ]
$CAMERA  BufferImage READOUT

set s [$CAMERA read_Status]
puts stdout "Camera status after exposure is $s"

set SCOPE(site) "Mt. Hopkins"
set SCOPE(telescope) "MMT f/9"
set SCOPE(latitude) "31:41:20.5"
set SCOPE(longitude) "110:53:04.5"
set SCOPE(instrument) "SH WFS"
set SCOPE(camera) "Apogee KX260e"
set SCOPE(detector) "512x512"
set SCOPE(observer) "T. E. Pickering"
set SCOPE(target) "Test Image"
set SCOPE(exptype) "Object"
set SCOPE(exposure) $exposure
set SCOPE(darktime) 0.0
set now [split [exec  date -u +%Y-%m-%d,%T] ,]
set SCOPE(obsdate) [lindex $now 0]
set SCOPE(obstime) [lindex $now 1]
set SCOPE(equinox) "J2000"
set SCOPE(ra) "00:00:00.0"
set SCOPE(dec) "00:00:00.0"
set SCOPE(az) "180.0"
set SCOPE(el) "90.0"
set SCOPE(ha) "00:00:00.0"
set SCOPE(lst) "00:00:00.0"
set SCOPE(secz) "1.0"
set SCOPE(focus) "0.0"
set SCOPE(rot) "0.0"
set SCOPE(filterpos) 1
set SCOPE(filtername) "clear"
set SCOPE(shutter) 1

set CAMSTATUS(CoolerMode) $CCAPI(CoolerMode)
set t [$CAMERA read_Temperature]
set CAMSTATUS(Temperature) $t
set CAMSTATUS(BinX) $CCAPI(BinX)
set CAMSTATUS(BinY) $CCAPI(BinY)
set CAMSTATUS(Gain) 8.0

exec rm -f $filename
write_calibrated READOUT $exposure $filename 0