Mythen Detector

$Spc::res_h{ blsc} = "mythen";


$Spc::res_h{ mythen_title } = { text => "Mythen Detector"};
$Spc::res_h{ mythen_help} = sub 
{ 
    Util::display_text( "Help Mythen", 
'
  n.n.
'
)};
$Spc::res_h{ mythen_io1 } = { label => { name => "OutDir", 
					   get => sub {Spectra::tng_attrStringRd( "mythen", "OutDir");}},
				entry => { set => sub {Spectra::tng_attrStringWrt( "mythen", "OutDir", $_[0]);}}};
$Spc::res_h{ mythen_io2 } = { label => { name => "Threshold", 
                                         get => sub {Spectra::tng_attrShortRd( "mythen", "Threshold");}},
                              entry => { set => sub {Spectra::tng_attrShortWrt( "mythen", "Threshold", $_[0]);}}};
$Spc::res_h{ mythen_io3 } = { label => { name => "Setting", 
                                         get => sub {Spectra::tng_attrShortRd( "mythen", "Settings");}},
                              entry => { set => sub {Spectra::tng_attrShortWrt( "mythen", "Settings", $_[0]);}}};
$Spc::res_h{ mythen_io4 } = { label => { name => "NCycles", 
                                         get => sub {Spectra::tng_attrShortRd( "mythen", "NCycles");}},
                              entry => { set => sub {Spectra::tng_attrShortWrt( "mythen", "NCycles", $_[0]);}}};
$Spc::res_h{ mythen_io5 } = { label => { name => "FramesPerCycle", 
                                         get => sub {Spectra::tng_attrShortRd( "mythen", "FramesPerCycle");}},
                              entry => { set => sub {Spectra::tng_attrShortWrt( "mythen", "FramesPerCycle", $_[0]);}}};
$Spc::res_h{ mythen_io6 } = { label => { name => "ExposureTime", 
                                         get => sub {Spectra::tng_attrFloatRd( "mythen", "ExposureTime");}},
                              entry => { set => sub {Spectra::tng_attrFloatWrt( "mythen", "ExposureTime", $_[0]);}}};


$Spc::res_h{ mythen_b1} = { name => "Start", 
			       command => sub { while(Spectra::tng_state( "mythen") != 0)
                                    {
                                        Spectra::wait(0.1);
                                      }
                                    Spectra::tng_inout( "mythen", "StartAcquisition");}}; 
$Spc::res_h{ mythen_b2} = { name => "Stop", 
			       command => sub {Spectra::tng_inout( "mythen", "StopAcquisition");}}; 
$Spc::res_h{ mythen_b3} = { name => "Init", 
			       command => sub {Spectra::tng_inout( "mythen", "Init");}};

Figure 14.21: BLSC: Mythen