diff --git a/site_ansto/instrument/hrpd/echidna_configuration.tcl b/site_ansto/instrument/hrpd/echidna_configuration.tcl index c511d0e4..f6fa4df4 100644 --- a/site_ansto/instrument/hrpd/echidna_configuration.tcl +++ b/site_ansto/instrument/hrpd/echidna_configuration.tcl @@ -1,5 +1,5 @@ -# $Revision: 1.15 $ -# $Date: 2007-02-20 04:59:49 $ +# $Revision: 1.16 $ +# $Date: 2007-02-22 05:10:20 $ # 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 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