# 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
set no_histmem true

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/sct_oxford_mercury.tcl
fileeval $cfPath(environment)/temperature/west400.tcl
fileeval $cfPath(environment)/he3/sct_he3.tcl
fileeval $cfPath(environment)/magneticField/oxford_labview.tcl
fileeval config/load_setup.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

load_setup ../taipan_setup.txt
server_init
###########################################
# WARNING: Do not add any code below server_init, if you do SICS may fail to initialise properly.

# Provide tasmot notifications to GumTree when real motors move
hchain /sample/ei /instrument/crystal/m2
hchain /sample/en /instrument/crystal/m2
hchain /sample/ki /instrument/crystal/m2
hchain /sample/qh /instrument/crystal/m2
hchain /sample/qk /instrument/crystal/m2
hchain /sample/ql /instrument/crystal/m2
hchain /sample/qm /instrument/crystal/m2

hchain /sample/qh /sample/s1
hchain /sample/qk /sample/s1
hchain /sample/ql /sample/s1
hchain /sample/qm /sample/s1

hchain /sample/qh /sample/s2
hchain /sample/qk /sample/s2
hchain /sample/ql /sample/s2
hchain /sample/qm /sample/s2

hchain /sample/ef /instrument/detector/a2
hchain /sample/en /instrument/detector/a2
hchain /sample/kf /instrument/detector/a2
hchain /sample/qh /instrument/detector/a2
hchain /sample/qk /instrument/detector/a2
hchain /sample/ql /instrument/detector/a2
hchain /sample/qm /instrument/detector/a2

# 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