113 lines
3.9 KiB
Tcl
113 lines
3.9 KiB
Tcl
#--------------------------------------------------------------
|
|
# This is the initialisation code for the ANDOR iKon-M
|
|
# camera and the CDDWWW WWW-server. It got separated into
|
|
# a separate file in order to support moving that camera around.
|
|
#
|
|
# Mark Koennecke, November 2010
|
|
#--------------------------------------------------------------
|
|
|
|
#source $scripthome/ccdwww.tcl
|
|
|
|
#---------------------------------------------------------------
|
|
set ccdwww::initnodes [list daqmode camerano accucycle accucounts \
|
|
triggermode temperature imagepar shutterlevel \
|
|
shuttermode openingtime closingtime flip rotate \
|
|
hspeed vspeed vamp]
|
|
#--------------------------------------------------------------
|
|
proc writecooler {} {
|
|
set target [sct target]
|
|
set status [ccdwww::httpsend "/ccd/cooling?status=$target"]
|
|
andisct queue /sics/andi/cooler read read
|
|
andisct queue /sics/andi/temperature read read
|
|
}
|
|
#--------------------------------------------------------------
|
|
proc readcooler {} {
|
|
sct send "/ccd/iscooling"
|
|
return coolerreply
|
|
}
|
|
#---------------------------------------------------------------
|
|
proc coolerreply {} {
|
|
set reply [sct result]
|
|
set status [catch {ccdwww::httptest $reply} data]
|
|
if {$status != 0} {
|
|
sct geterror $data
|
|
clientput $data
|
|
} else {
|
|
catch {hdelprop [sct] geterror}
|
|
if {$data == 0} {
|
|
sct update off
|
|
} else {
|
|
sct update on
|
|
}
|
|
}
|
|
return idle
|
|
}
|
|
#---------------------------------------------------------
|
|
proc readtemp {} {
|
|
ccdwww::httpsend "/ccd/temperature"
|
|
return tempreply
|
|
}
|
|
#--------------------------------------------------------
|
|
proc tempreply {} {
|
|
set reply [sct result]
|
|
set status [catch {ccdwww::httptest $reply} data]
|
|
if {$status != 0} {
|
|
sct geterror $data
|
|
clientput $data
|
|
} else {
|
|
catch {hdelprop [sct] geterror}
|
|
sct update $data
|
|
}
|
|
return idle
|
|
}
|
|
#-------------------------------------------------------------
|
|
proc MakeAndorHM {name host } {
|
|
ccdwww::MakeCCDWWW $name $host "ccdwww::initscript $name"
|
|
hfactory /sics/$name/daqmode plain mugger text
|
|
hset /sics/$name/daqmode single
|
|
hfactory /sics/$name/camerano plain mugger int
|
|
hset /sics/$name/camerano 0
|
|
hfactory /sics/$name/accucycle plain mugger int
|
|
hset /sics/$name/accucycle 20
|
|
hfactory /sics/$name/accucounts plain mugger int
|
|
hset /sics/$name/accucounts 5
|
|
hfactory /sics/$name/triggermode plain mugger int
|
|
hset /sics/$name/triggermode 0
|
|
hfactory /sics/$name/temperature plain mugger int
|
|
hset /sics/$name/temperature -30
|
|
hfactory /sics/$name/imagepar plain mugger intar 6
|
|
hset /sics/$name/imagepar 1 1 1 1024 1 1024
|
|
hfactory /sics/$name/shutterlevel plain mugger int
|
|
hset /sics/$name/shutterlevel 0
|
|
hfactory /sics/$name/shuttermode plain mugger int
|
|
hset /sics/$name/shuttermode 0
|
|
hfactory /sics/$name/openingtime plain mugger int
|
|
hset /sics/$name/openingtime 20
|
|
hfactory /sics/$name/closingtime plain mugger int
|
|
hset /sics/$name/closingtime 20
|
|
hfactory /sics/$name/flip plain mugger intar 2
|
|
hset /sics/$name/flip 0 1
|
|
hfactory /sics/$name/rotate plain mugger int
|
|
hset /sics/$name/rotate 0
|
|
hfactory /sics/$name/hspeed plain mugger int
|
|
hset /sics/$name/hspeed 2
|
|
hfactory /sics/$name/vspeed plain mugger int
|
|
hset /sics/$name/vspeed 0
|
|
hfactory /sics/$name/vamp plain mugger int
|
|
hset /sics/$name/vamp 1
|
|
hfactory /sics/$name/cooler plain mugger text
|
|
hset /sics/$name/cooler off
|
|
hsetprop /sics/$name/cooler write writecooler
|
|
hsetprop /sics/$name/cooler httpreply ccdwww::httpreply
|
|
hsetprop /sics/$name/cooler read readcooler
|
|
hsetprop /sics/$name/cooler coolerreply coolerreply
|
|
${name}sct write /sics/$name/cooler
|
|
${name}sct poll /sics/$name/cooler 30
|
|
hfactory /sics/$name/sensor_temperature plain mugger float
|
|
hsetprop /sics/$name/sensor_temperature read readtemp
|
|
hsetprop /sics/$name/sensor_temperature tempreply tempreply
|
|
${name}sct poll /sics/$name/sensor_temperature 30
|
|
$name dim 1024 1024
|
|
$name init
|
|
}
|