a24afd1298
The dingo_configuration.tcl could be based on this. TODO: Move scan configuration to scan.tcl
73 lines
2.0 KiB
Tcl
73 lines
2.0 KiB
Tcl
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
|
|
# @file This is a barebones SICS configuration file for testing the camera
|
|
# driver.
|
|
#
|
|
# Usage: You must first launch the simulated camera server and then runsics
|
|
# with this configuration.
|
|
# Eg
|
|
# cd TEST_SICS/fakeCameraServer
|
|
# ./SIM_DINGO_CAMSERVER.py
|
|
# Then launch SICS from the server directory as follows,
|
|
# ./runsics.py --dev -c camtest_configuration.tcl -t fakedev start
|
|
# You should then be able to run a scan as follows,
|
|
# iscan add dummy_motor 0 0.1
|
|
# iscan run 5 timer 3
|
|
#
|
|
# NOTE\n
|
|
# This configuration does not create a GumTree interface or let you
|
|
# save nexus data files.
|
|
|
|
# Required by server_config.tcl
|
|
VarMake Instrument Text Internal
|
|
Instrument bare_dingo
|
|
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
|
|
fileeval $cfPath(source)/source.tcl
|
|
fileeval $cfPath(plc)/plc.tcl
|
|
fileeval $cfPath(motors)/motor_configuration.tcl
|
|
|
|
#MakeAsyncQueue cmserver CAMERA localhost 63300
|
|
MakeAsyncQueue cmserver CAMERA [dict get $::CAMERA_HOSTPORT HOST] [dict get $::CAMERA_HOSTPORT PORT]
|
|
#MakeAsyncQueue cmserver CAMERA 137.157.204.193 33000
|
|
#MakeAsyncQueue cmserver CAMERA 192.168.56.1 33000
|
|
#MakeAsyncQueue cmserver CAMERA 192.168.1.2 33000
|
|
#MakeAsyncQueue cmserver CAMERA localhost 33000
|
|
MakeCounter cm1 anstocamera cmserver
|
|
MakeScanCommand iscan cm1 dingo.hdd recover.bin
|
|
foreach {n v} {
|
|
debug 0
|
|
clock 1
|
|
bin 1
|
|
size 2048
|
|
gain 1
|
|
flip 0
|
|
xstart 1
|
|
ystart 1
|
|
xend 2048
|
|
yend 2048
|
|
exposure 0.777
|
|
temperature -50
|
|
threshold 800
|
|
shutteropentime 100
|
|
shutterclosetime 200
|
|
} {
|
|
cm1 setpar $n 0 $v
|
|
}
|
|
## SCAN TEST EXAMPLE
|
|
# iscan add dummy_motor 0 0.1
|
|
# iscan run 5 timer 3
|
|
|
|
exe batchpath ../batch
|
|
exe syspath ../batch
|
|
clientput "serverport [get_portnum $::serverport]"
|