Added detector spec variables.

r1539 | ffr | 2007-02-22 16:10:20 +1100 (Thu, 22 Feb 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-02-22 16:10:20 +11:00
committed by Douglas Clowes
parent 30eead7937
commit d2450cde32

View File

@@ -1,5 +1,5 @@
# $Revision: 1.15 $ # $Revision: 1.16 $
# $Date: 2007-02-20 04:59:49 $ # $Date: 2007-02-22 05:10:20 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $ # Last revision by: $Author: ffr $
@@ -31,3 +31,20 @@ fileeval $cfPath(nexus)/nxscripts.tcl
fileeval $cfPath(scan)/scan.tcl fileeval $cfPath(scan)/scan.tcl
MakeStateMon hmscan MakeStateMon hmscan
fileeval extraconfig.tcl fileeval extraconfig.tcl
VarMake detector_radius_mm Int User
detector_radius_mm 1250
VarMake detector_angle_deg Float User
detector_angle_deg 158.75
VarMake deg_per_rad Float Internal
deg_per_rad 57.29577951308232
deg_per_rad lock
VarMake detector_angle_rad Float User
detector_angle_rad [expr [SplitReply [detector_angle_deg]]/[SplitReply [deg_per_rad]] ]
VarMake detector_active_height_mm Float User
detector_active_height_mm 335
VarMake detector_zero_xpixel Float User
detector_zero_xpixel 127
VarMake detector_zero_ypixel Float User
detector_zero_ypixel 255.5