Initial revision

sansreal.tcl

@@ -0,0 +1,168 @@
+# --------------------------------------------------------------------------
+# Initialization script the instrument SANS at SINQ
+#
+# Dr. Mark Koennecke, June 1997
+#---------------------------------------------------------------------------
+#                        O P T I O N S
+
+# first all the server options are set
+
+ServerOption SaveFile sansstat.tcl
+# File to save the status of the instrument too
+
+ServerOption ReadTimeOut  10
+# 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  10
+# timeout when checking for connection req.
+# Similar to above, but for connections
+
+ServerOption ReadUserPasswdTimeout  500000 
+# 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 LogFileBaseName  /tmp/sanslog
+# the path and base name of the internal server logfile to which all
+# activity will be logged.
+
+ServerOption ServerPort 2915
+# 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 2917
+# The UDP port where the server will wait for Interrupts from clients.
+# Obviously, clients wishing to interrupt need to know this number.
+
+
+#---------------------------------------------------------------------------
+#                        U S E R S
+
+# than the SICS users are specified
+# Syntax: SicsUser name password userRightsCode
+SicsUser Manager Joachim   1
+SicsUser User    Kohl      2
+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 "SANS at SINQ,PSI" 
+#initialisation
+
+VarMake Title Text User
+VarMake User  Text User
+User "Albert von Villigen"
+VarMake SubTitle Text User
+VarMake environment Text User
+VarMake comment Text User
+
+#--------------------------------------------------------------------------
+#                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 a4 EL734DC LNSP22 4000 5 6
+# EL734DC motor with parameters: hostname PortNumber Channel MotorID
+
+# Motor nam SIM -20. 20. 5. 1.0
+# Simulated motor with name nam, lower limit -20, upper limit +20,
+# error ratio 5% and speed 1.0. Speed may be omitted 
+
+# Motors for sample movement
+Motor schi SIM -22.0 +22.0 10.
+Motor sphi SIM -22.0 +22.0 10.
+Motor som SIM -180.0 360.0 10.
+Motor sax SIM -30.0 +30.0 10.
+Motor say SIM -22.0 +22.0 10.
+Motor saz SIM .0    30.0 10.
+
+#Motors for detector movement
+Motor DetectorX EL734DC lnsp25.psi.ch 4000 3 1
+DetectorX Precision 0.5 
+Motor DetectorY EL734DC lnsp25.psi.ch 4000 3 2
+DetectorY Precision 0.2
+Motor DetectorRotation EL734DC lnsp25.psi.ch 4000 3 3
+DetectorRotation Precision 0.1
+
+#Motors for beamstop
+Motor BeamStopX EL734 lnsp25.psi.ch 4000 2 3
+BeamStopX Precision 0.2
+Motor BeamStopY EL734 lnsp25.psi.ch 4000 2 4
+BeamStopY Precision 0.2
+
+
+#--------------------------------------------------------------------------
+#                           P R O C E D U R E S
+
+# create the drive command
+MakeDrive
+#--------------------------------------------------------------------------
+# MultiMotor is an object which groups several motors together.
+
+#--------------------------------- sample position
+MakeMulti sample
+# creates a MultiMotor with name sample
+sample alias schi chi
+# alias creates an internal name (chi) for motor schi
+sample alias sphi phi
+sample alias som omega
+sample alias sax x
+sample alias say y
+sample alias saz z
+sample pos Jo schi  0.  sphi  0. som  45. sax  2. say  3. saz  10.
+# define Jo as a named position. This means with sample Jo you'll reach
+# the positions specified
+sample pos Mo schi  0.  sphi  0. som 180. sax  2. say  3. saz  10.
+sample endconfig
+# ends configuration of sample and install the command. This is REQUIRED
+
+#---------------------------------- detector position
+MakeMulti detector
+detector alias DetectorX X
+detector alias DetectorY Y
+detector alias DetectorRotation phi
+detector endconfig
+
+#----------------------------------- beamstop 
+MakeMulti BeamStop
+BeamStop alias BeamStopX X
+BeamStop alias BeamStopY Y
+BeamStop pos out BeamStopX  817.
+BeamStop endconfig
+#------------------------------------ Shortcuts
+SicsAlias BeamStop bs
+SicsAlias detector dt
+#------------------------------------ Histogram Memory
+MakeCounter counter EL737 lnsp25.psi.ch 4000 4
+counter SetExponent 6
+
+MakeHM banana SINQHM
+banana configure HistMode Normal
+banana configure OverFlowMode    Ceil
+banana configure Rank     1
+banana configure Length   16384
+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
+banana exponent 6
+#-----------------------------------------------------------------------------
+#                    R U E N B U F F E R
+MakeRuenBuffer
+source /data/kohlb/bin/sics/log.tcl
+Publish LogBook User
+
+source /data/kohlb/bin/sics/count.tcl
+Publish count User