81 lines
2.8 KiB
Tcl
81 lines
2.8 KiB
Tcl
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
|
|
# Required by server_config.tcl
|
|
VarMake Instrument Text Internal
|
|
Instrument wombat
|
|
Instrument lock
|
|
|
|
#START SERVER CONFIGURATION SECTION
|
|
source util/dmc2280/dmc2280_util.tcl
|
|
source sics_ports.tcl
|
|
source server_config.tcl
|
|
MakeDrive
|
|
#END SERVER CONFIGURATION SECTION
|
|
|
|
########################################
|
|
# INSTRUMENT SPECIFIC CONFIGURATION
|
|
|
|
source $cfPath(hipadaba)/hipadaba_configuration.tcl
|
|
fileeval $cfPath(motors)/motor_configuration.tcl
|
|
#fileeval $cfPath(motors)/sct_oscmotor.tcl
|
|
source instrument_vars.tcl
|
|
|
|
fileeval $cfPath(source)/source.tcl
|
|
fileeval $cfPath(motors)/positmotor_configuration.tcl
|
|
fileeval $cfPath(plc)/plc.tcl
|
|
fileeval $cfPath(counter)/counter.tcl
|
|
fileeval $cfPath(environment)/sct_keithley_2700.tcl
|
|
fileeval $cfPath(environment)/sct_protek_common.tcl
|
|
#TODO Provide method for choosing environment controller
|
|
fileeval $cfPath(environment)/temperature/sct_eurotherm_2000.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_lakeshore_336.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_lakeshore_340.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_lakeshore_370.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_julabo_lh45.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_qlink.tcl
|
|
fileeval $cfPath(environment)/temperature/west400.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_oxford_mercury.tcl
|
|
fileeval $cfPath(environment)/magneticField/sct_oxford_labview.tcl
|
|
#fileeval $cfPath(environment)/he3/sct_he3.tcl
|
|
#fileeval $cfPath(environment)/he3/sct_hmp_power.tcl
|
|
fileeval $cfPath(environment)/magneticField/sct_green_magnet.tcl
|
|
fileeval $cfPath(hmm)/hmm_configuration.tcl
|
|
fileeval $cfPath(nexus)/nxscripts.tcl
|
|
fileeval $cfPath(scan)/scan.tcl
|
|
fileeval $cfPath(commands)/commands.tcl
|
|
fileeval $cfPath(commands)/pulser.tcl
|
|
fileeval $cfPath(commands)/hvcommands.tcl
|
|
fileeval $cfPath(commands)/eulerscan.tcl
|
|
fileeval $cfPath(anticollider)/anticollider.tcl
|
|
fileeval $cfPath(hmm)/hmm_rapid.tcl
|
|
source gumxml.tcl
|
|
|
|
# Wombat only change to hvcommands' scaleval variable
|
|
SetVoltScale 2000.0
|
|
|
|
# The Alice Thing
|
|
# Qlink : 9600, 8 data, 1 stop, No Parity, None Flow
|
|
# LS340 : 9600, 7 data, 1 stop, Odd Parity, None Flow
|
|
# Julabo: 9600, 7 data, 1 stop, Even Parity, RTS/CTS Flow
|
|
# add_qlink qlink 137.157.201.86 4004 5
|
|
# add_sct_ls340 tc1 137.157.201.86 4001 "\r" 5.0 5.0
|
|
# add_lh45 tc2 137.157.201.86 4003 1
|
|
|
|
# Eurotherm
|
|
# add_et2000 name IP PORT MODBUS_ADDR TOL
|
|
# add_et2000 et2000 10.157.205.19 502 1 5
|
|
|
|
# Using a Keithley 2700 mulitimeter to read pressure
|
|
# add_k2700 pressure 137.157.201.86 4004 "\r"
|
|
|
|
# Lakeshore 370 Resistance Bridge
|
|
# add_lakeshore_370 ls370 137.157.201.86 4002 2.0
|
|
|
|
|
|
server_init
|
|
###########################################
|
|
# WARNING: Do not add any code below server_init, if you do SICS may fail to initialise properly.
|
|
|
|
# You can add extra-configuration code in ../extraconfig.tcl
|