From b32a0dff3c472cafc963cb026ab09bc60cdb31de Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Fri, 23 Feb 2007 09:20:25 +1100 Subject: [PATCH] Added detector physical specs. r1551 | ffr | 2007-02-23 09:20:25 +1100 (Fri, 23 Feb 2007) | 2 lines --- .../instrument/hipd/wombat_configuration.tcl | 21 +++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/site_ansto/instrument/hipd/wombat_configuration.tcl b/site_ansto/instrument/hipd/wombat_configuration.tcl index 14734215..bef31eb4 100644 --- a/site_ansto/instrument/hipd/wombat_configuration.tcl +++ b/site_ansto/instrument/hipd/wombat_configuration.tcl @@ -1,5 +1,5 @@ -# $Revision: 1.7 $ -# $Date: 2007-02-20 05:10:08 $ +# $Revision: 1.8 $ +# $Date: 2007-02-22 22:20:25 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by: $Author: ffr $ @@ -31,3 +31,20 @@ fileeval $cfPath(nexus)/nxscripts.tcl fileeval $cfPath(scan)/scan.tcl MakeStateMon hmscan fileeval extraconfig.tcl + +VarMake detector_radius_mm Int User +detector_radius_mm 700 +VarMake detector_angle_deg Float User +detector_angle_deg 120 +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 200 + +VarMake detector_zero_xpixel Float User +detector_zero_xpixel 2000 +VarMake detector_zero_ypixel Float User +detector_zero_ypixel 255.5