Initial revision
This commit is contained in:
cvs
268
amortest.tcl
Normal file
268
amortest.tcl
Normal file
@@ -0,0 +1,268 @@
|
||||
# --------------------------------------------------------------------------
|
||||
# Initialization script for a simulated AMOR instrument
|
||||
#
|
||||
#
|
||||
# Dr. Mark Koennecke September,1999 - ??, ????
|
||||
#---------------------------------------------------------------------------
|
||||
|
||||
#------------ our home
|
||||
set home /data/koenneck/src/sics
|
||||
|
||||
#----------- 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/tmp
|
||||
#LogFileDir is the directory where the command log is going
|
||||
|
||||
ServerOption LogFileBaseName $home/tmp/server
|
||||
# the path and base name of the internal server logfile to which all
|
||||
# activity will be logged.
|
||||
|
||||
ServerOption statusfile $home/tmp/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 $home/tcl
|
||||
ServerOption DefaultCommandFile topsicom.tcl
|
||||
|
||||
#------ a port for broadcasting UDP messages
|
||||
ServerOption QuieckPort 2108
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# 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
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# G E N E R A L 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 AMOR
|
||||
Instrument lock
|
||||
|
||||
|
||||
|
||||
VarMake Title Text User
|
||||
VarMake sample Text User
|
||||
sample "DanielSulfid"
|
||||
Title "Amore mio in SINQ"
|
||||
VarMake User Text User
|
||||
User The reflective looser
|
||||
|
||||
VarMake lastscancommand Text User
|
||||
|
||||
VarMake Adress Text User
|
||||
VarMake phone Text User
|
||||
VarMake fax Text User
|
||||
VarMake email Text User
|
||||
VarMake sample_mur Float User
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# B u i l d i n g B l o c k s
|
||||
#--------------------------------------------------------------------------
|
||||
#
|
||||
#=================== Chopper
|
||||
VarMake chopperrotation Float User
|
||||
chopperrotation 10000.
|
||||
|
||||
ClientPut "Starting motor initialization ....."
|
||||
#=================== frame overlap mirror
|
||||
VarMake fomname Text Mugger
|
||||
fomname Super Duper Mirror
|
||||
fomname lock
|
||||
VarMake fomdist Float Mugger
|
||||
fomdist 120
|
||||
Motor FTZ SIM 0. 120. .1 2. # fom height
|
||||
Motor FOM SIM -30. 30. .1 2. # fom omega
|
||||
|
||||
#================== first diaphragm
|
||||
VarMake d1dist Float Mugger
|
||||
d1dist 200.
|
||||
Motor D1L SIM 0. 120. .1 2. # left
|
||||
Motor D1R SIM 0. 120. .1 2. # right
|
||||
Motor D1T SIM 0. 120. .1 2. # top
|
||||
Motor D1B SIM 0. 1000. .1 2. # bottom
|
||||
|
||||
#================== polarizer
|
||||
VarMake polname Text Mugger
|
||||
polname Daniels Special Edition Polarizer
|
||||
polname lock
|
||||
VarMake poldist Float Mugger
|
||||
fomdist 200
|
||||
Motor MOZ SIM 0. 1000. .1 2. # pol table height
|
||||
Motor MTY SIM -60. 60. .1 2. # pol y movement
|
||||
Motor MOM SIM -30. 30. .1 2. # pol omega
|
||||
Motor MTZ SIM -30. 30. .1 2. # pol omega height
|
||||
|
||||
#=================== diaphragm 2
|
||||
VarMake d2dist Float Mugger
|
||||
d2dist 200.
|
||||
Motor D2L SIM 0. 120. .1 2. # left
|
||||
Motor D2R SIM 0. 120. .1 2. # right
|
||||
Motor D2T SIM 0. 120. .1 2. # top
|
||||
Motor D2B SIM 0. 1000. .1 2. # bottom
|
||||
|
||||
#==================== diaphragm 3
|
||||
VarMake d3dist Float Mugger
|
||||
d3dist 200.
|
||||
Motor D3L SIM 0. 120. .1 2. # left
|
||||
Motor D3R SIM 0. 120. .1 2. # right
|
||||
Motor D3T SIM 0. 120. .1 2. # top
|
||||
Motor D3B SIM 0. 1000. .1 2. # bottom
|
||||
|
||||
#===================== sample table
|
||||
VarMake sampledist Float Mugger
|
||||
sampledist 200
|
||||
Motor STZ SIM -50. 50. .1 2. # sample height
|
||||
Motor SOM SIM -30. 30. .1 2. # sample omega
|
||||
Motor SCH SIM -30. 30. .1 2. # sample chi
|
||||
Motor SOZ SIM 0. 1000. .1 2. # table height
|
||||
|
||||
#====================== diaphragm 4
|
||||
VarMake d4dist Float Mugger
|
||||
d4dist 200.
|
||||
Motor D4L SIM 0. 120. .1 2. # left
|
||||
Motor D4R SIM 0. 120. .1 2. # right
|
||||
Motor D4T SIM 0. 120. .1 2. # top
|
||||
Motor D4B SIM 0. 1000. .1 2. # bottom
|
||||
|
||||
#======================= analyzer
|
||||
VarMake ananame Text Mugger
|
||||
ananame Daniels Special Edition Analyzer
|
||||
ananame lock
|
||||
VarMake anadist Float Mugger
|
||||
anadist 200
|
||||
Motor AOZ SIM 0. 1000. .1 2. # analyzer table height
|
||||
Motor AOM SIM -30. 30. .1 2. # analyzer omega
|
||||
Motor ATZ SIM -30. 30. .1 2. # analyzer omega height
|
||||
|
||||
#======================== diaphragm 5
|
||||
VarMake d5dist Float Mugger
|
||||
d5dist 200.
|
||||
Motor D5L SIM 0. 120. .1 2. # left
|
||||
Motor D5R SIM 0. 120. .1 2. # right
|
||||
Motor D5T SIM 0. 120. .1 2. # top
|
||||
Motor D5B SIM 0. 1000. .1 2. # bottom
|
||||
|
||||
#======================== counter
|
||||
VarMake detectordist Float Mugger
|
||||
detectordist 200.
|
||||
MakeCounter counter SIM
|
||||
Motor COZ SIM 0. 1000. .1 2. # counter table height
|
||||
Motor C3Z SIM 0. 300. .1 2. # counter height
|
||||
Motor COM SIM -30. 30. .1 2. # counter omega
|
||||
Motor COX SIM -100. 100. .1 2. # counter x
|
||||
ClientPut "Motors initialized"
|
||||
|
||||
#======================== histogram memory
|
||||
MakeHM hm SIM
|
||||
hm configure HistMode TOF
|
||||
hm configure OverFlowMode Ceil
|
||||
hm configure Rank 1
|
||||
hm configure dim0 128
|
||||
hm configure dim1 128
|
||||
hm configure Length 16384
|
||||
hm configure BinWidth 4
|
||||
hm preset 100.
|
||||
hm CountMode Timer
|
||||
hm configure Counter counter
|
||||
hm configure init 0
|
||||
hm genbin 0. 35. 100
|
||||
hm init
|
||||
|
||||
ClientPut "Histogram Memory Initialized"
|
||||
#--------------------------------------------------------------------------
|
||||
# D a t a S t o r a g e
|
||||
#------------------------------------------------------------------------
|
||||
VarMake SicsDataPath Text Mugger
|
||||
SicsDataPath $home/
|
||||
SicsDataPath lock
|
||||
VarMake SicsDataPrefix Text Mugger
|
||||
SicsDataPrefix amortest
|
||||
SicsDataPrefix lock
|
||||
VarMake SicsDataPostFix Text Mugger
|
||||
SicsDataPostFix ".hdf"
|
||||
SicsDataPostFix lock
|
||||
|
||||
MakeDataNumber SicsDataNumber $home/danu.dat
|
||||
|
||||
MakeStoreAmor hm
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# C o m m a n d I n i t i a l i z a t i o n
|
||||
#-------------------------------------------------------------------------
|
||||
#======= logbook
|
||||
source tcl/log.tcl
|
||||
Publish LogBook Spy
|
||||
#======== Drive
|
||||
MakeDrive
|
||||
#======== scan
|
||||
source $home/tcl/topsicom.tcl
|
||||
source $home/tcl/cscan.tcl
|
||||
Publish cscan User
|
||||
Publish sscan User
|
||||
Publish sftime Spy
|
||||
Publish scan Spy
|
||||
Publish ScanCounts Spy
|
||||
Publish TextStatus Spy
|
||||
Publish otUnknown Spy
|
||||
MakeScanCommand xxxscan counter topsi.hdd recover.bin
|
||||
xxxscan configure amor
|
||||
#========== peak & center
|
||||
MakePeakCenter xxxscan
|
||||
source /data/koenneck/src/sics/countf.tcl
|
||||
#========== serial port general purpose
|
||||
SerialInit
|
||||
Publish serialport User
|
||||
Publish p1 User
|
||||
#=========== the optimiser
|
||||
MakeOptimise opti counter
|
||||
|
||||
#=========== Amor2T
|
||||
set a2t(mom) mom
|
||||
set a2t(som) som
|
||||
set a2t(coz) coz
|
||||
set a2t(cox) cox
|
||||
set a2t(stz) stz
|
||||
set a2t(soz) soz
|
||||
set a2t(d4b) d4b
|
||||
set a2t(d5b) d5b
|
||||
set a2t(com) com
|
||||
MakeAmor2T a2t a2t
|
||||
|
||||
#=========== Status Display Support
|
||||
MakeAmorStatus amorstatus xxxscan hm
|
||||
source amorpar.tcl
|
||||
Publish amorpar Spy
|
||||
ClientPut "Done Initializing"
|
||||
|
||||
Reference in New Issue
Block a user