- Updated the managers documentation a little
- The crystal settings calculation in hkl now tried to put omega into the limts by calculating a delta omega. - TRICS data files now include HKL and the UB - The scan module has been expanded to support user defined scans which run a script at any scan point. - A small fix to the PSD code in SinqHM_srv_filler
This commit is contained in:
cvs
225
test.tcl
225
test.tcl
@@ -48,7 +48,7 @@ ServerOption TecsPort 9753
|
||||
|
||||
ServerOption statusfile sicsstatus.tcl
|
||||
|
||||
ServerOption ServerPort 2911
|
||||
ServerOption ServerPort 3006
|
||||
# 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
|
||||
|
||||
@@ -325,229 +325,6 @@ fcircleinit
|
||||
MakeDifrac twotheta omega chi phi counter
|
||||
|
||||
#----------- histogram memory
|
||||
# --------------------------------------------------------------------------
|
||||
# Initialization script for a simulated TOPSI instrument
|
||||
#
|
||||
#
|
||||
# Dr. Mark Koennecke February, 1996
|
||||
#---------------------------------------------------------------------------
|
||||
# O P T I O N S
|
||||
# --------------- Initialize Tcl internals --------------------------------
|
||||
|
||||
rename scan stscan
|
||||
|
||||
#-------- a home for this, everything else is in relation to this
|
||||
set shome /data/koenneck/src
|
||||
|
||||
|
||||
|
||||
# first all the server options are set
|
||||
|
||||
#ServerOption RedirectFile $shome/sics/stdout
|
||||
|
||||
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 10
|
||||
# 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 $shome/log
|
||||
#LogFileDir is the directory where the command log is going
|
||||
|
||||
#ServerOption logstartfile $shome/sics/start.tcl
|
||||
|
||||
ServerOption LogFileBaseName $shome/sics/tmp/server
|
||||
# the path and base name of the internal server logfile to which all
|
||||
# activity will be logged.
|
||||
|
||||
ServerOption TecsStartCmd "tecs/bin/TecsServer -h lnsp26:4000/0"
|
||||
# -h host:port/channel is for serial server
|
||||
ServerOption TecsBinDir tecs/bin/
|
||||
ServerOption TecsLogDir /data/koenneck/tmp/
|
||||
ServerOption TecsPort 9753
|
||||
|
||||
ServerOption statusfile sicsstatus.tcl
|
||||
|
||||
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 $shome/sics/tcl
|
||||
ServerOption DefaultCommandFile ""
|
||||
|
||||
#------ 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 Mugger Diethelm 1
|
||||
SicsUser User Rosy 2
|
||||
SicsUser Spy 007 1
|
||||
SicsUser me me 1
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# 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 "TOPSI"
|
||||
Instrument lock
|
||||
|
||||
VarMake starttime Text User
|
||||
|
||||
VarMake Title Text User
|
||||
VarMake sample Text User
|
||||
sample "DanielOxid"
|
||||
Title "TopsiTupsiTapsi"
|
||||
VarMake User Text User
|
||||
User "Daniel_the_Clementine"
|
||||
|
||||
VarMake detectordist Float Mugger
|
||||
detectordist 2500
|
||||
detectordist lock
|
||||
VarMake sampledist Float Mugger
|
||||
sampledist 496.
|
||||
sampledist lock
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# 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
|
||||
Motor A1 SIM 15.0 120. .1 2. # Monochromator Theta
|
||||
Motor A2 SIM -73. 137. .1 1. # Monochromator 2Theta
|
||||
Motor A3 SIM -360. 360. .1 3. # Sample Omega
|
||||
Motor A4 SIM -130. 130. .1 1. # Sample 2Theta
|
||||
Motor A5 SIM -30. 30. .1 3. # ? horiz. Translation
|
||||
Motor A6 SIM -30. 30. .1 3. # ? vert Translation
|
||||
Motor MTL SIM -30. 30. .1 3. # mono lower translation
|
||||
Motor MTU SIM -30. 30. .1 3. # mono upper translation
|
||||
Motor STL SIM -30. 30. .1 3. # sample lower translation
|
||||
Motor STU SIM -30. 30. .1 3. # sample upper translation
|
||||
Motor MGU SIM -50. 50. .1 3. # mono upper goniometer
|
||||
Motor SGL SIM -20. 20. .1 3. # sample lower goniometer
|
||||
Motor SGU SIM -20. 20. .1 3. # sample upper goniometer
|
||||
Motor SDM SIM -5 50. .1 3. # weird Motor
|
||||
SicsAlias A4 Tasse
|
||||
SicsAlias A5 MonoX
|
||||
SicsAlias A5 MonoY
|
||||
SicsAlias A5 MonoPhi
|
||||
SicsAlias A5 MonoChi
|
||||
|
||||
Motor D1R SIM -20. 20. .1 3. # Diaphragm 1 right
|
||||
Motor D1L SIM -20. 20. .1 3. # Diaphragm 1 left
|
||||
Motor D1T SIM -20. 20. .1 3. # Diaphragm 1 top & Bottom
|
||||
|
||||
Motor D2R SIM -20. 20. .1 3. # Diaphragm 2 right
|
||||
Motor D2L SIM -20. 20. .1 3. # Diaphragm 2 left
|
||||
Motor D2T SIM -20. 20. .1 3. # Diaphragm 2 top & Bottom
|
||||
|
||||
Motor BeamStopX SIM -20. 20. .1 3. # Diaphragm 2 right
|
||||
Motor BeamStopY SIM -20. 20. .1 3. # Diaphragm 2 left
|
||||
|
||||
Motor DetectorX SIM -20. 20. .1 3. # Diaphragm 2 right
|
||||
Motor DetectorY SIM -20. 20. .1 3. # Diaphragm 2 left
|
||||
Motor DetectorRotation SIM -20. 20. .1 3. # Diaphragm 2 top & Bottom
|
||||
|
||||
ClientPut "Motors done"
|
||||
|
||||
MakeMulti sampletable
|
||||
sampletable alias D1r x
|
||||
sampletable alias D1L y
|
||||
sampletable alias D1T z
|
||||
sampletable pos henry D1r 5. D1L -5. D1T 0.
|
||||
sampletable endconfig
|
||||
SicsAlias sampletable st
|
||||
#------------------------------------------------------------------------
|
||||
# Velocity selector
|
||||
#Motor tilt EL734 lnsp25.psi.ch 4000 2 2
|
||||
Motor tilt SIM -15 15 .1 3.
|
||||
set dornen(Host) lnsp25.psi.ch
|
||||
set dornen(Port) 4000
|
||||
set dornen(Channel) 6
|
||||
set dornen(Timeout) 5000
|
||||
#VelocitySelector nvs tilt DORNIER dornen
|
||||
VelocitySelector nvs tilt SIM
|
||||
nvs add -20 28800
|
||||
nvs add 3800 4500
|
||||
nvs add 5900 6700
|
||||
nvs add 8100 9600
|
||||
unset dornen
|
||||
MakeSANSWave lumbda nvs
|
||||
ClientPut "Velocity Selector done"
|
||||
SicsAlias MTL sax
|
||||
SicsAlias A3 som
|
||||
#--------------------------------------------------------------------------
|
||||
# C O U N T E R S
|
||||
MakeCounter counter SIM
|
||||
#MakeCounter counter EL737 lnsp19.psi.ch 4000 4
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# M U L T I D E V I C E V A R I A B L E S
|
||||
MakeMono Mono "Ge-111" A1 A2 SDM
|
||||
Mono dd 3.3537
|
||||
Mono vk1 -0.025942
|
||||
Mono vk2 5.35166
|
||||
MakeWaveLength lambda Mono
|
||||
MakeO2T O2T A3 A4
|
||||
#--------------------------------------------------------------------------
|
||||
# P R O C E D U R E S
|
||||
|
||||
source tcl/log.tcl
|
||||
|
||||
MakeDrive
|
||||
SicsAlias drive dr
|
||||
Publish LogBook Spy
|
||||
MakeRuenBuffer
|
||||
#---------------- TestVariables for Storage
|
||||
VarMake SicsDataPath Text Mugger
|
||||
SicsDataPath "$shome/sics/"
|
||||
SicsDataPath lock
|
||||
VarMake SicsDataPrefix Text Mugger
|
||||
SicsDataPrefix test
|
||||
SicsDataPrefix lock
|
||||
VarMake SicsDataPostFix Text Mugger
|
||||
SicsDataPostFix ".hdf"
|
||||
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 "$shome/sics/danu.dat"
|
||||
#InitSANS $shome/sics/sansdict.dic
|
||||
InitDMC
|
||||
|
||||
MakeScanCommand xxxscan counter topsi.hdd recover.bin
|
||||
MakePeakCenter xxxscan
|
||||
|
||||
|
||||
#MakeHM hm1 SinqHM
|
||||
MakeHM hm1 SIM
|
||||
|
||||
Reference in New Issue
Block a user