Initial revision
This commit is contained in:
cvs
375
test.tcl
Normal file
375
test.tcl
Normal file
@@ -0,0 +1,375 @@
|
||||
# --------------------------------------------------------------------------
|
||||
# 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
|
||||
|
||||
#set auto_path "/data/koenneck/src/sics/tcl"
|
||||
#source $auto_path/tcl8/topsicom.tcl
|
||||
|
||||
# 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 /data/koenneck/log
|
||||
#LogFileDir is the directory where the command log is going
|
||||
|
||||
ServerOption LogFileBaseName /data/koenneck/src/sics/tmp/server
|
||||
# the path and base name of the internal server logfile to which all
|
||||
# activity will be logged.
|
||||
|
||||
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 /data/koenneck/src/sics/tcl
|
||||
ServerOption DefaultCommandFile topsicom.tcl
|
||||
|
||||
#------ 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
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
# 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" #initialisation
|
||||
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 lastscancommand Text User
|
||||
|
||||
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 0. 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
|
||||
|
||||
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 scan Spy
|
||||
Publish ScanCounts Spy
|
||||
Publish TextStatus Spy
|
||||
Publish otUnknown Spy
|
||||
Publish LogBook Spy
|
||||
MakeRuenBuffer
|
||||
#---------------- TestVariables for Storage
|
||||
VarMake SicsDataPath Text Mugger
|
||||
SicsDataPath "/data/koenneck/src/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 "/data/koenneck/src/sics/danu.dat"
|
||||
InitSANS /data/koenneck/src/sics/sansdict.dic
|
||||
#InitDMC
|
||||
|
||||
MakeScanCommand xxxscan counter topsi.hdd recover.bin
|
||||
MakePeakCenter xxxscan
|
||||
|
||||
|
||||
MakeHM banana SIM
|
||||
banana configure HistMode HRPT
|
||||
banana configure OverFlowMode reflect
|
||||
banana configure Rank 1
|
||||
#banana configure Length 400
|
||||
banana configure Length 16384
|
||||
banana configure dim0 128
|
||||
banana configure dim1 128
|
||||
banana configure BinWidth 4
|
||||
banana preset 100.
|
||||
banana CountMode Timer
|
||||
#banana configure HMComputer lnse02.psi.ch
|
||||
#banana configure HMPort 2400
|
||||
#banana configure Counter counter
|
||||
banana init
|
||||
ClientPut "HM initialized"
|
||||
source /data/koenneck/src/sics/tcl/topsicom.tcl
|
||||
source /data/koenneck/src/sics/countf.tcl
|
||||
Publish count User
|
||||
Publish repeat user
|
||||
source /data/koenneck/src/sics/tcl/cscan.tcl
|
||||
Publish cscan User
|
||||
Publish sscan User
|
||||
Publish sftime Spy
|
||||
source /data/koenneck/src/sics/tcl/fit.tcl
|
||||
Publish fit Spy
|
||||
SerialInit
|
||||
Publish serialport User
|
||||
Publish p1 User
|
||||
Publish HakleGet User
|
||||
#-------------------- Testing Haake thermostat
|
||||
source hakle.tcl
|
||||
Publish IniHaakeArray Mugger
|
||||
ClientPut "Installed ev test stuff"
|
||||
|
||||
|
||||
#------------------ 4 circle stuff
|
||||
Motor twotheta SIM -120.0 120. .1 2. # 2 theta arm
|
||||
Motor omega SIM -73. 134. .1 2. # omega
|
||||
Motor chi SIM 0. 360. .1 2. # chi circle
|
||||
Motor phi SIM 0. 360. .1 2. # phi circle
|
||||
Motor muca SIM 30. 36. .1 2. # phi circle
|
||||
Motor dg1 SIM -10. 40. .1 2. # phi circle
|
||||
SicsAlias phi ph
|
||||
SicsAlias chi ch
|
||||
SicsAlias twotheta stt
|
||||
SicsAlias omega om
|
||||
VarMake monodescription Text Mugger
|
||||
monodescription "unknownit crystal"
|
||||
VarMake mono2theta Text Mugger
|
||||
mono2theta 36.77
|
||||
VarMake det1zerox Text Mugger
|
||||
det1zerox 128.
|
||||
VarMake det1zeroy Text Mugger
|
||||
det1zeroy 128.
|
||||
VarMake det1dist Text Mugger
|
||||
det1dist 300.
|
||||
|
||||
MakeHKL twotheta omega chi phi chi
|
||||
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
|
||||
MakeMesure mess HKL xxxscan omega o2t /data/koenneck/src/sics/tmp \
|
||||
SicsDataNumber
|
||||
MakeHklscan xxxscan HKL
|
||||
|
||||
#------test rliste
|
||||
SicsAlias twotheta th
|
||||
SicsAlias omega om
|
||||
SicsAlias chi ch
|
||||
SicsAlias phi ph
|
||||
|
||||
source tcl/reflist.tcl
|
||||
Publish rliste User
|
||||
|
||||
source tcl/susca.tcl
|
||||
Publish susca User
|
||||
MakeMaximize counter
|
||||
|
||||
source fcircle.tcl
|
||||
fcircleinit
|
||||
|
||||
MakeDifrac twotheta omega chi phi counter
|
||||
|
||||
ClientPut "Installed 4-circle stuff"
|
||||
|
||||
|
||||
source transact.tcl
|
||||
Publish transact Spy
|
||||
Publish scaninfo Spy
|
||||
#MakeSPS suff lnsp26.psi.ch 4000 7
|
||||
|
||||
#source beamdt.tcl
|
||||
#------------- C804-DC motors
|
||||
set nob(Computer) lnsp22.psi.ch
|
||||
set nob(port) 4000
|
||||
set nob(channel) 7
|
||||
set nob(motor) 1
|
||||
set nob(upperlimit) 250000
|
||||
set nob(lowerlimit) -250000
|
||||
#MakePIMotor nobi c804 nob
|
||||
#set nob(channel) 6
|
||||
#Motor pilz pipiezo nob
|
||||
|
||||
VarMake datafile Text Spy
|
||||
datafile focus-1001848.hdf
|
||||
#--------- create a time array for histogramming
|
||||
#MakeHM chiquita SINQHM
|
||||
MakeHM hm SIM
|
||||
#chiquita configure HMComputer lnse03.psi.ch
|
||||
#chiquita configure HMport 2400
|
||||
hm configure HistMode TOF
|
||||
hm configure OverFlowMode Ceil
|
||||
hm configure Rank 1
|
||||
hm configure dim0 150
|
||||
hm configure Length 150
|
||||
hm configure BinWidth 4
|
||||
hm preset 100.
|
||||
hm CountMode Timer
|
||||
hm configure Counter counter
|
||||
hm configure init 0
|
||||
hm genbin 120. 35. 512
|
||||
hm init
|
||||
MakeFocusAverager average hm
|
||||
FocusInstall hm focus.dic
|
||||
|
||||
#MakeChopper choco docho lnsp20 4000 8
|
||||
MakeChopper choco sim
|
||||
#ChopperAdapter fermispeed choco chopper1.nspee 0 20000
|
||||
#ChopperAdapter diskspeed choco chopper2.nspee 0 20000
|
||||
#ChopperAdapter phase choco chopper2.nphas 0 90.
|
||||
#ChopperAdapter ratio choco chopper2.ratio 0 6.
|
||||
ChopperAdapter diskspeed choco speed 0 20000
|
||||
ChopperAdapter phase choco phase 0 90.
|
||||
ChopperAdapter ratio choco ratio 0 6.
|
||||
|
||||
source chosta.tcl
|
||||
Publish chosta Spy
|
||||
|
||||
#MakeSPS sps1 lnsp25.psi.ch 4000 10
|
||||
|
||||
|
||||
Publish testscan User
|
||||
proc testscan {} {
|
||||
return " 1 2 3 4 5"
|
||||
}
|
||||
|
||||
MakeXYTable ixi
|
||||
|
||||
source cotop.tcl
|
||||
Publish co User
|
||||
|
||||
source helium.tcl
|
||||
|
||||
MakeTRICSNEXUS sicsdatanumber /data/koenneck/src/sics/tmp trics.dic
|
||||
|
||||
source autofile.tcl
|
||||
autofilepath /data/koenneck/tmp/auto
|
||||
|
||||
MakeXYTable omth
|
||||
Reference in New Issue
Block a user