88 lines
2.9 KiB
Tcl
88 lines
2.9 KiB
Tcl
# --------------------------------------------------------------------------
|
|
# 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
|