bd533e6131
- Mapped fileeval to exe manager - Updates for TRICS file formats SKIPPED: psi/libpsi.a psi/sinqhmdriv.c psi/sinqhttp.c psi/tabledrive.c psi/tasscan.c psi/hardsup/asynsrv_utility.c psi/hardsup/sinqhm.c
158 lines
5.0 KiB
Tcl
158 lines
5.0 KiB
Tcl
#--------------------------------------------------------------------------
|
|
# Initialization script for a virtual DMC instrument using a McStas
|
|
# simulationas a data source
|
|
#
|
|
# Dr. Mark Koennecke, June 2005
|
|
#---------------------------------------------------------------------------
|
|
# O P T I O N S
|
|
# wwwMode = 1 when running for the WWW-VDMC application
|
|
set wwwMode 1
|
|
|
|
if {$wwwMode == 1} {
|
|
set home /home/lnswww/vinstrument/mcstas/dmc
|
|
set datahome /home/lnswww/www/vinstrument
|
|
} else {
|
|
set home $env(HOME)/src/workspace/sics/mcstas/dmc
|
|
}
|
|
#--------------------------------- first all the server options are set
|
|
#ServerOption RedirectFile $home/stdcdmc
|
|
ServerOption ReadTimeOut 10
|
|
ServerOption AcceptTimeOut 10
|
|
ServerOption ReadUserPasswdTimeout 500000
|
|
ServerOption LogFileBaseName "$home/vdmclog"
|
|
ServerOption LogFileDir $home/
|
|
ServerOption ServerPort 2911
|
|
ServerOption statusfile $home/vdmcstatus.tcl
|
|
ServerOption InterruptPort 3007
|
|
ServerOption TelnetPort 1301
|
|
ServerOption TelWord sicslogin
|
|
#---------------------------------------------------------------------------
|
|
# U S E R S
|
|
SicsUser lnsmanager lnsSICSlns 1
|
|
SicsUser Manager Manager 1
|
|
SicsUser user looser 2
|
|
SicsUser Spy 007 1
|
|
#--------------------------------------------------------------------------
|
|
# D E V I C E S : M O T O R S
|
|
#---------------------------------------------------------------------------
|
|
ClientPut "Installing Motors"
|
|
Motor OmegaM SIM 0 120 -.1 2.
|
|
Motor TwoThetaM SIM 30 100 -.1 1.
|
|
Motor MonoX SIM -30 30 -.1 3.0
|
|
Motor MonoY SIM -30 30 -.1 3.0
|
|
Motor CurveM SIM 0 20 -.1 3.0
|
|
Motor MonoPhi SIM -30 30 -.1 3.0
|
|
Motor MonoChi SIM -30 30 -.1 3.0
|
|
|
|
# sample Table
|
|
Motor Table SIM -180 360 -.1 2.
|
|
Motor TwoThetaD SIM -10 120 -.1 1.
|
|
#-------------------------------------------------------------
|
|
# Monochromator
|
|
#-------------------------------------------------------------
|
|
MakeMono Mono "PG-002" OmegaM TwoThetaM CurveM
|
|
Mono DD 3.3537
|
|
Mono vk1 -0.025942
|
|
Mono vk2 5.351660
|
|
# Syntax MakeWaveLength name MonochromatorToUse
|
|
MakeWaveLength lambda Mono
|
|
#--------------------------------------------------------------------------
|
|
# Configure Detector
|
|
# NOTE: the McStas objects have to be created first, otherwise
|
|
# the initialisation will fail.
|
|
#--------------------------------------------------------------------------
|
|
MakeMcStasReader
|
|
MakeMcStasController
|
|
allowexec $home/dmcafter
|
|
allowexec $home/dmc_sics05
|
|
|
|
ClientPut "Installing counter"
|
|
MakeCounter counter mcstas
|
|
counter SetExponent 1
|
|
MakeHM banana mcstas
|
|
banana configure HistMode Normal
|
|
banana configure OverFlowMode Ceil
|
|
banana configure Rank 1
|
|
banana configure dim0 400
|
|
banana configure BinWidth 4
|
|
banana preset 100.
|
|
banana CountMode Timer
|
|
banana configure Counter counter
|
|
banana configure init 0
|
|
banana init
|
|
banana exponent 3
|
|
#-------------------------------------------------------------------------
|
|
# Aliases
|
|
#-------------------------------------------------------------------------
|
|
SicsAlias OmegaM A1
|
|
SicsAlias TwoThetaM A2
|
|
SicsAlias Table A3
|
|
SicsAlias TwoThetaD A4
|
|
SicsAlias MonoX A5
|
|
SicsAlias MonoY A6
|
|
SicsAlias MonoPhi A7
|
|
SicsAlias MonoChi A8
|
|
SicsAlias CurveM A9
|
|
DefineAlias TT temperature
|
|
#--------------------------------------------------------------------------
|
|
# 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 SicsDataPath Text Internal
|
|
SicsDataPath "$home/"
|
|
SicsDataPath lock
|
|
VarMake DetStepWidth Float Internal
|
|
DetStepWidth 0.2
|
|
DetStepWidth lock
|
|
VarMake Instrument Text Internal
|
|
Instrument "Virtual DMC driven by McStas"
|
|
Instrument lock
|
|
VarMake Title Text User
|
|
VarMake User Text User
|
|
VarMake Collimation Text User
|
|
VarMake SampleIntern Text User
|
|
SampleIntern Kellerit
|
|
VarMake comment1 Text User
|
|
VarMake comment2 Text User
|
|
VarMake comment3 Text User
|
|
VarMake starttime Text User
|
|
starttime ""
|
|
VarMake SicsDataPrefix Text Internal
|
|
SicsDataPrefix vdmc
|
|
#--------- make data number
|
|
MakeDataNumber SicsDataNumber $home/DataNumber
|
|
VarMake SicsDataPostFix Text Internal
|
|
SicsDataPostFix ".xml"
|
|
VarMake Adress Text User
|
|
VarMake phone Text User
|
|
VarMake fax Text User
|
|
VarMake email Text User
|
|
VarMake sample_mur Float User
|
|
VarMake lastdatafile Text User
|
|
#--------------------------------------------------------------------------
|
|
# P R O C E D U R E S
|
|
#--------------------------------------------------------------------------
|
|
MakeDrive
|
|
MakeBatchManager
|
|
MakeNXScript
|
|
MakeRuenBuffer
|
|
#-------------------- initialize scripted commands
|
|
source $home/vdmccom.tcl
|
|
#-------------------- configure commandlog
|
|
commandlog auto
|
|
commandlog intervall 5
|
|
|
|
#----------- enable sycamore
|
|
#InstallProtocolHandler
|
|
#InstallSinfox
|
|
#source sycFormat.tcl
|
|
#source /usr/lib/tcllib1.6.1/stooop/stooop.tcl
|
|
#namespace import stooop::*
|
|
#source sinfo.tcl
|
|
#source sycamore.tcl
|
|
#Publish sinfo Spy
|