update for Lyrebird deployment

r3105 | jgn | 2011-04-20 08:48:12 +1000 (Wed, 20 Apr 2011) | 1 line

site_ansto/instrument/lyrebird/config/tasmad/sicscommon/andorhm.tcl

@@ -0,0 +1,112 @@
+#--------------------------------------------------------------
+# 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
+}