16e744be12
This lets us make run and drive wrappers for the fermi motors on pelican by renaming the SICS run and drive.
82 lines
2.6 KiB
Tcl
82 lines
2.6 KiB
Tcl
# Author: Jing Chen (jgn@ansto.gov.au)
|
|
|
|
# Required by server_config.tcl
|
|
VarMake Instrument Text Internal
|
|
Instrument taipan
|
|
Instrument lock
|
|
|
|
#START SERVER CONFIGURATION SECTION
|
|
source util/dmc2280/dmc2280_util.tcl
|
|
source sics_ports.tcl
|
|
source server_config.tcl
|
|
MakeDrive
|
|
# Taipan does not currently have a plc server
|
|
plc_simulation true
|
|
#END SERVER CONFIGURATION SECTION
|
|
|
|
########################################
|
|
# INSTRUMENT SPECIFIC CONFIGURATION
|
|
|
|
|
|
fileeval $cfPath(source)/source.tcl
|
|
source $cfPath(hipadaba)/hipadaba_configuration.tcl
|
|
fileeval $cfPath(motors)/sct_aerotech_soloist.tcl
|
|
fileeval $cfPath(motors)/motor_configuration.tcl
|
|
#fileeval $cfPath(motors)/spin_galil.tcl
|
|
fileeval $cfPath(motors)/positmotor_configuration.tcl
|
|
fileeval $cfPath(plc)/plc.tcl
|
|
fileeval $cfPath(optics)/optics.tcl
|
|
fileeval $cfPath(counter)/counter.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(anticollider)/anticollider.tcl
|
|
#fileeval $cfPath(tasmad)/taspub_sics/tasp.tcl
|
|
#fileeval $cfPath(tasmad)/taspub_sics/tasscript.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_eurotherm_2000.tcl
|
|
fileeval $cfPath(environment)/temperature/sct_julabo_lh45.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_oxford_itc.tcl
|
|
fileeval $cfPath(environment)/temperature/west400.tcl
|
|
fileeval $cfPath(environment)/magneticField/oxford_labview.tcl
|
|
fileeval log.tcl
|
|
publish logbook spy
|
|
source gumxml.tcl
|
|
|
|
::utility::mkVar ::anticollider::protect_detector text manager protect_detector false detector true false
|
|
::anticollider::protect_detector "true"
|
|
|
|
# init for the tasUB
|
|
#make mcv mch acv ach into mvfocus mhfocus avfocus ahfocus when it works
|
|
puts "doing tasub"
|
|
MakeTasUB tasub m1 m2 mcv mch s1 s2 sgu sgl a1 a2 acv ach
|
|
tasub mono dd 3.35416
|
|
tasub ana dd 3.35416
|
|
tasub updatetargets
|
|
puts "done tasub"
|
|
|
|
MakeDiffScan
|
|
|
|
server_init
|
|
###########################################
|
|
# WARNING: Do not add any code below server_init, if you do SICS may fail to initialise properly.
|
|
|
|
# fix all motors
|
|
if {0} {
|
|
foreach m [sicslist type motor] {
|
|
if {$m == "motor" || $m == "dummy_motor"} {
|
|
# skipit
|
|
} else {
|
|
clientput fix $m position
|
|
$m fixed 1
|
|
}
|
|
}
|
|
}
|
|
|
|
# You can add extra-configuration code in ../extraconfig.tcl
|