# $Revision: 1.9 $ # $Date: 2007-03-02 22:19:52 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by: $Author: ffr $ # Required by server_config.tcl VarMake Instrument Text Internal Instrument wombat Instrument lock #START SERVER CONFIGURATION SECTION source util/dmc2280/dmc2280_util.tcl source sics_ports.tcl source server_config.tcl #END SERVER CONFIGURATION SECTION ######################################## # INSTRUMENT SPECIFIC CONFIGURATION fileeval $cfPath(motors)/motor_configuration.tcl ######## source $cfPath(hipadaba)/hipadaba_configuration.tcl source gumxml.tcl fileeval $cfPath(counter)/counter.tcl fileeval $cfPath(hmm)/hmm_configuration.tcl fileeval $cfPath(nexus)/nxscripts.tcl fileeval $cfPath(scan)/scan.tcl MakeStateMon hmscan VarMake detector_radius_mm Int User detector_radius_mm 700.0 VarMake detector_angle_deg Float User detector_angle_deg 120.0 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.0 VarMake detector_xpixel_zero_offset Float User detector_xpixel_zero_offset 0.0 VarMake detector_ypixel_zero_offset Float User detector_ypixel_zero_offset 0.0 VarMake crystal_type Text User VarMake crystal_wavelength_A Float User VarMake bmon_distance Float User VarMake detector_zero_xpixel Float User detector_zero_xpixel 127 VarMake detector_zero_ypixel Float User detector_zero_ypixel 255.5 fileeval extraconfig.tcl