linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PSI sics-cvs-psi_pre-ansto

Browse Source
This commit is contained in:
koennecke
2003-06-13 00:00:00 +00:00
committed by Douglas Clowes
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

199
trics.tcl Normal file
View File

@@ -0,0 +1,199 @@
# --------------------------------------------------------------------------
# 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"