Initial revision

dmca.tcl

@@ -0,0 +1,174 @@
+# --------------------------------------------------------------------------
+# Initialization script for DMC at SINQ, SICS server.
+#
+# Dr. Mark Koennecke March 1997
+#---------------------------------------------------------------------------
+#                        O P T I O N S
+
+set auto_path "/data/koenneck/src/sics/tcl"
+source $auto_path/dmccom.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  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 ServerLogBaseName  /data/koenneck/src/sics/server
+# the path and base name of the internal server logfile to which all
+# activity will be logged.
+
+ServerOption ServerPort 2910 
+# 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 2913
+# The UDP port where the server will wait for Interrupts from clients.
+# Obviously, clients wishing to interrupt need to know this number.
+
+ServerOption DefaultCommandFile dmccom.tcl
+# The path to the file containing common Tcl-commands and procedures.
+# Every connection is initialized with this
+
+#---------------------------------------------------------------------------
+#                        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       3
+
+
+#--------------------------------------------------------------------------
+#                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 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 
+
+# Monochromator motors
+Motor  OmegaM    SIM    20. 120. 5. 2.0
+Motor  TwoThetaM SIM 20. 120. 5. 0.5
+Motor  MonoX     SIM -20. 20. 5. 5.0
+Motor  MonoY     SIM -20. 20. 5. 5.0
+Motor  CurveM    SIM 0. 1000.  10. 5.0
+Motor  MonoPhi   SIM -20. 20. 5. 5.0
+Motor  MonoChi   SIM -20. 20. 5. 5.0
+
+# sample Table
+Motor  Table     SIM  -180. 180. 5. 7.0
+Motor  TwoThetaD SIM  10.   330.  5. 1.0
+#--------------------------------------------------------------------------
+#                          Configure Detector
+# needs a EL737 or simualation for count control
+MakeCounter xxxNo SIM
+
+#MakeHM banana SINQHM        
+MakeHM banana  SIM
+banana configure HistMode Normal
+banana configure OverFlowMode    Ceil
+banana configure Rank     1
+banana configure Length   400
+banana configure BinWidth 4
+banana configure Time 10. 12. 14 16. 17.
+banana preset 100.
+banana CountMode Timer
+#banana configure HMComputer psds02.psi.ch
+#banana configure HMport 2400
+#banana configure Counter xxxNo
+banana init
+#--------------------------------------------------------------------------
+#     C O N F I G U R E     D E V I C E S     T O    H A L T  I N
+#                        I N T E R R U P T 
+AddHalt  OmegaM TwoThetaM MonoX MonoY MonoChi MonoPhi CurveM Table TwoThetaD
+#--------------------------------------------------------------------------
+#                        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 "DMC at SINQ,PSI" 
+#initialisation
+
+VarMake Title Text User
+VarMake User  Text User
+VarMake Collimation Text User
+VarMake Sample Text User
+VarMake comment1 Text User
+VarMake comment2 Text User
+VarMake Comment3 Text User
+
+VarMake SicsDataPath Text Internal
+SicsDataPath "/data/koenneck/src/sics/"
+VarMake SicsDataPrefix Text Internal
+SicsDataPrefix DMC
+VarMake SicsDataNumber Int Internal
+SicsDataNumber 0
+VarMake SicsDataPostFix Text Internal
+SicsDataPostFix ".hdf"
+VarMake Adress Text User
+VarMake phone  Text User
+VarMake fax    Text User
+VarMake email  Text User
+VarMake sample_mur Float User
+VarMake DetStepWidth Float Internal
+DetStepWidth 0.02
+
+  
+
+# Monochromator variables 
+# Syntax MakeMono name type  OmegaMotor 2ThetaMotor CurveMotor1 CurveMotor2
+MakeMono Mono "Ge-111" OmegaM TwoThetaM CurveM
+# Syntax MakeWaveLength name MonochromatorToUse
+MakeWaveLength lambda  Mono
+ 
+             
+#--------------------------------------------------------------------------
+#                           P R O C E D U R E S
+
+# create the drive command
+MakeDrive
+#start RuenBuffer system
+MakeRuenBuffer
+
+if { 0 } {
+
+DMCInit 5 2.0 1
+# end --------  of ------------- file -------------------------------------
+# test code for powder diagrams, merging etc.
+
+set id1 [DMCShot set 1 2  2 2 2 2 2]
+set id2 [DMCShot set 2 3  3 3 3 3 3]
+set id3 [DMCShot set 6 1  1 1 1 1 1]
+set id4 [DMCShot set 7 5  5 5 5 5 5]
+set p1 [DMCPowder merge $id1 $id2 $id3 $id4]
+ClientPut [DMCPowder info $p1]
+ClientPut [DMCPowder list $p1 0 17]
+ClientPut [DMCPowder Start $p1]
+ClientPut [DMCPowder Step  $p1]
+ClientPut [DMCPowder Stop   $p1] 
+DMCReset
+}
+# test of alias
+SicsAlias OmegaM    A1
+SicsAlias TwoThetaM A2
+SicsAlias Table     A3
+SicsAlias TwoThetaD A4
+InitDMC