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