200 lines
5.6 KiB
Tcl
200 lines
5.6 KiB
Tcl
# --------------------------------------------------------------------------
|
|
# Initialization script for the TRICS instrument
|
|
#
|
|
#
|
|
# Dr. Mark Koennecke November, 1996
|
|
#---------------------------------------------------------------------------
|
|
# O P T I O N S
|
|
set home /data/koenneck/src/sics/tmp
|
|
|
|
# first all the server options are set
|
|
|
|
ServerOption ReadTimeOut 100
|
|
# 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 100
|
|
# timeout when checking for connection req.
|
|
# Similar to above, but for connections
|
|
|
|
ServerOption ReadUserPasswdTimeout 7000
|
|
# 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 LogFileDir $home/log
|
|
#LogFileDir is the directory where the command log is going
|
|
|
|
ServerOption LogFileBaseName $home/log/tricsserver
|
|
# the path and base name of the internal server logfile to which all
|
|
# activity will be logged.
|
|
|
|
|
|
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 2914
|
|
# The UDP port where the server will wait for Interrupts from clients.
|
|
# Obviously, clients wishing to interrupt need to know this number.
|
|
|
|
# Telnet options
|
|
ServerOption TelnetPort 1301
|
|
ServerOption TelWord sicslogin
|
|
|
|
ServerOption DefaultTclDirectory $home/bin
|
|
|
|
#------ a port for broadcasting UDP messages
|
|
ServerOption QuieckPort 2108
|
|
|
|
TokenInit connan
|
|
|
|
#---------------------------------------------------------------------------
|
|
# U S E R S
|
|
|
|
# than the SICS users are specified
|
|
# Syntax: SicsUser name password userRightsCode
|
|
SicsUser Jurg willibald 1
|
|
SicsUser Spy 007 3
|
|
|
|
#--------------------------------------------------------------------------
|
|
# S I M P L E V A R I A B L E S
|
|
|
|
# now a few general variables are created
|
|
# Syntax: VarMake name type access
|
|
# type can be one of: Text, Int, Float
|
|
#access can be one of: Internal, Mugger, user, Spy
|
|
|
|
VarMake Instrument Text Internal
|
|
Instrument "TRICS" #initialisation
|
|
Instrument lock
|
|
|
|
VarMake Title Text User
|
|
VarMake sample Text User
|
|
sample "Scheferit"
|
|
VarMake User Text User
|
|
User "Jurg"
|
|
VarMake distance Float User
|
|
VarMake monochromator Text User
|
|
VarMake lambda Float Mugger
|
|
|
|
#--------------------------------------------------------------------------
|
|
# D E V I C E S : M O T O R S
|
|
|
|
# Motor a4 EL734 LNSP22 4000 5 6
|
|
# EL734 motor with parameters: hostname PortNumber Channel MotorID
|
|
#Motor D1V EL734 lnsp22.psi.ch 4000 3 3
|
|
|
|
#------------ Monochromator Motors
|
|
ClientPut "Initialising Elephant"
|
|
Motor MOMU EL734 lnsp18.psi.ch 4000 4 9
|
|
Motor MTVU EL734 lnsp18.psi.ch 4000 4 11
|
|
Motor MTPU EL734 lnsp18.psi.ch 4000 4 10
|
|
Motor MGVU EL734 lnsp18.psi.ch 4000 4 5
|
|
Motor MGPU EL734 lnsp18.psi.ch 4000 4 12
|
|
Motor MCVU EL734 lnsp18.psi.ch 4000 4 6
|
|
Motor MOML EL734 lnsp18.psi.ch 4000 4 7
|
|
Motor MTVL EL734 lnsp18.psi.ch 4000 4 1
|
|
Motor MTPL EL734 lnsp18.psi.ch 4000 4 8
|
|
Motor MGVL EL734 lnsp18.psi.ch 4000 4 3
|
|
Motor MGPL EL734 lnsp18.psi.ch 4000 4 2
|
|
Motor MCVL EL734 lnsp18.psi.ch 4000 4 4
|
|
Motor MEXZ EL734 lnsp18.psi.ch 4000 5 1
|
|
|
|
#------------- Sample Table Motors
|
|
ClientPut "Initialising Sample Table Motors"
|
|
Motor SOM EL734 lnsp18.psi.ch 4000 2 2
|
|
Motor STT EL734 lnsp18.psi.ch 4000 2 1
|
|
Motor SCH EL734 lnsp18.psi.ch 4000 2 3
|
|
Motor SPH EL734 lnsp18.psi.ch 4000 2 4
|
|
Motor DG1 EL734 lnsp18.psi.ch 4000 2 5
|
|
Motor DG2 EL734 lnsp18.psi.ch 4000 2 6
|
|
Motor DG3 EL734 lnsp18.psi.ch 4000 2 7
|
|
|
|
#------------- Collimators
|
|
Motor CEX1 EL734 lnsp18.psi.ch 4000 3 1
|
|
Motor CEX2 EL734 lnsp18.psi.ch 4000 3 2
|
|
|
|
#------------- Motor Aliases
|
|
#SicsAlias CEX1 A17
|
|
#SicsAlias CEX2 A18
|
|
SicsAlias MOMU A1
|
|
SicsAlias MTVU A12
|
|
SicsAlias MTPU A13
|
|
SicsAlias MGVU A14
|
|
SicsAlias MGPU A15
|
|
SicsAlias MCVU A16
|
|
SicsAlias MOML B1
|
|
SicsAlias MTVL A22
|
|
SicsAlias MTPL A23
|
|
SicsAlias MGVL A24
|
|
SicsAlias MGPL A25
|
|
SicsAlias MCVL A26
|
|
SicsAlias MEXZ A37
|
|
SicsAlias SOM A3
|
|
SicsAlias SOM OM
|
|
SicsAlias STT A4
|
|
SicsAlias STT TH
|
|
SicsAlias SCH A10
|
|
SicsAlias SPH A20
|
|
SicsAlias SCH CH
|
|
SicsAlias SPH PH
|
|
SicsAlias DG1 A31
|
|
SicsAlias DG2 A32
|
|
SicsAlias DG3 A33
|
|
|
|
#--------------------------------------------------------------------------
|
|
# C O U N T E R S
|
|
MakeCounter counter EL737 lnsp18.psi.ch 4000 6
|
|
|
|
MakeO2T O2T OM TH
|
|
#--------------------------------------------------------------------------
|
|
# P R O C E D U R E S
|
|
MakeDrive
|
|
MakeRuenBuffer
|
|
#---------------- TestVariables for Storage
|
|
VarMake SicsDataPath Text Mugger
|
|
SicsDataPath "$home/data/"
|
|
SicsDataPath lock
|
|
VarMake SicsDataPrefix Text Mugger
|
|
SicsDataPrefix trics
|
|
SicsDataPrefix lock
|
|
VarMake SicsDataPostFix Text Mugger
|
|
SicsDataPostFix ".asc"
|
|
SicsDataPostFix lock
|
|
|
|
VarMake Adress Text User
|
|
VarMake phone Text User
|
|
VarMake fax Text User
|
|
VarMake email Text User
|
|
VarMake sample_mur Float User
|
|
|
|
MakeDataNumber SicsDataNumber "$home/data/DataNumber"
|
|
|
|
VarMake lastscancommand Text Spy
|
|
MakeScanCommand xxxscan counter $home/bin/trics.hdd recover.bin
|
|
MakePeakCenter xxxscan
|
|
|
|
|
|
source $home/bin/topsicom.tcl
|
|
set home /home/TRICS
|
|
source $home/bin/cscan.tcl
|
|
source $home/bin/log.tcl
|
|
Publish cscan User
|
|
Publish scan Spy
|
|
Publish scaninfo Spy
|
|
Publish sscan User
|
|
Publish sftime Spy
|
|
SerialInit
|
|
Publish serialport User
|
|
Publish p1 User
|
|
#------------------ 4 circle stuff
|
|
MakeHKL TH OM CH PH
|
|
HKL lambda 0.70379
|
|
HKL setub -0.1247023 0.0016176 -0.0413566 \
|
|
-0.1044479 -0.0013264 0.0493878 \
|
|
0.0007513 0.0840941 0.0015745
|
|
MakeOptimise opti counter
|
|
|
|
ClientPut "DONE initialsing TRICS"
|