TwoThetaP07

$Spc::res_h{ blsc} = "tth";
#
# If an isAlive function is defined, it is called. If it
# returns 0, the widget is not opened.
#
$Spc::res_h{ tth_isalive} = sub { return Spectra::tng_isAlive( "tth");};

$Spc::res_h{ tth_cmpnd} = { name => "tth", unit => "Deg."};

$Spc::res_h{ tth_help} = sub 
{ 
    Util::display_text( "Help Mythen", 
'
UseAnalyzer
  0 - neither the collimator nor the analyzer are rotated

EFromAttribute
  0 - energy from the Energy attribute 
  1 - energy from the Position attribute of the AxisMonochromator 
      (this is a property)
'
)};

#
# the motors
#
$Spc::res_h{ tth_m1} = { name => "RDT", unit => "Deg"};
$Spc::res_h{ tth_m2} = { name => "XDT", unit => "mm"};
$Spc::res_h{ tth_m3} = { name => "RCOLL", unit => "Deg"};
$Spc::res_h{ tth_m4} = { name => "OMAN", unit => "Deg"};
$Spc::res_h{ tth_m5} = { name => "YDT", unit => "mm"};

$Spc::res_h{ tth_io1 } = { label => { name => "tthMin", 
					   get => sub {Spectra::tng_attrDoubleRd( "tth", "UnitLimitMin");}},
				entry => { set => sub {Spectra::tng_attrDoubleWrt( "tth", "UnitLimitMin", $_[0]);}}};

$Spc::res_h{ tth_io2 } = { label => { name => "tthMax", 
					   get => sub {Spectra::tng_attrDoubleRd( "tth", "UnitLimitMax");}},
				entry => { set => sub {Spectra::tng_attrDoubleWrt( "tth", "UnitLimitMax", $_[0]);}}};
$Spc::res_h{ tth_io3 } = { label => { name => "UseAnalyzer", 
					   get => sub {Spectra::tng_attrLongRd( "tth", "FlagUseAnalyzer");}},
				entry => { set => sub {Spectra::tng_attrLongWrt( "tth", "FlagUseAnalyzer", $_[0]);}}};
$Spc::res_h{ tth_io4 } = { label => { name => "EFromAttribute", 
					   get => sub {Spectra::tng_attrLongRd( "tth", "FlagEnergyFromAttribute");}},
				entry => { set => sub {Spectra::tng_attrLongWrt( "tth", "FlagEnergyFromAttribute", $_[0]);}}};

Figure 14.22: BLSC: TwoThetaP07