- New HM driver for Delcam CCD camera

test/delcamtest.tcl

@@ -0,0 +1,87 @@
+# --------------------------------------------------------------------------
+# Initialization script for testing the DELcam driver for SICS
+#
+# Started: Dr. Mark Koennecke, March 2007
+#---------------------------------------------------------------------------
+#                        O P T I O N S
+
+# --------------- Initialize Tcl internals --------------------------------
+
+# first all the server options are set
+
+ServerOption ReadTimeOut  10
+# timeout when checking for commands. In the main loop SICS checks for
+# pending commands on each connection with the above timeout, has 
+# PERFORMANCE impact!
+
+ServerOption AcceptTimeOut  10 
+# timeout when checking for connection req.
+# Similar to above, but for connections
+
+ServerOption ReadUserPasswdTimeout  500000 
+# time to wiat for a user/passwd to be sent from a client. Increase this
+# if there is a problem connecting to a server due to network overload\
+
+ServerOption ServerPort 2911
+# the port number the server is going to listen at. The client MUST know
+# this number in order to connect. It is in client.ini
+
+ServerOption InterruptPort 2913
+# The UDP port where the server will wait for Interrupts from clients.
+# Obviously, clients wishing to interrupt need to know this number.
+
+ServerOption TelnetPort 1301
+ServerOption TelWord sicslogin
+
+#---------------------------------------------------------------------------
+#                        U S E R S
+# Syntax: SicsUser name password userRightsCode
+SicsUser Spy    007       1
+
+#----------------- Counters -------------------------------------------------
+MakeCounter counter regress
+counter setpar errortype 1 0
+counter setpar recover 1 1
+#------------------------------
+proc SICSValue {command} {
+	set txt [eval $command]
+	set l [split $txt =]
+	return [string trim [lindex $l 1]]
+}
+#-------------------------------------------------------------------------
+# Histogram Memory 
+#------------------------------------------------------------------------
+MakeHM hm delcam
+hm configure rank 2
+hm configure dim0 769
+hm configure dim1 512
+hm configure amplictrl 1
+hm configure shutterctrl 2
+hm configure clear 1
+hm configure counter counter
+hm configure init 1
+hm init
+#------------------------------------------------------------------------
+# SicsData
+#------------------------------------------------------------------------
+sicsdatafactory new data
+#------------------------------------------------------------------------
+# Adapters for SansStatus 
+#------------------------------------------------------------------------
+proc hmframe {no {update 0}} {
+	set dim [SICSValue "hm configure dim0"]
+	data putint 0 $dim
+	set dim [SICSValue "hm configure dim1"]
+	data putint 1 $dim
+	data copyhm 2 hm
+	data writeuu framedata
+}
+#---------------------------------------------------------------------------
+proc statusinfo {} {
+	return "Dummy info for DELcam"
+}
+#----------------------------------------------------------------------------
+Publish hmframe Spy
+Publish statusinfo Spy
+
+restore