MarCCD

This section displays the beamline specific code for the MarCCD.

$Spc::res_h{ blsc} = "marccd";
########################
### MarCCD widget
########################
$Spc::res_h{ marccd_title} = { text => "MarCCD"}; 

$Spc::res_h{ "marccd_io1"} = { 
    label => { name => "SavingDirectory", 
                get => sub { Spectra::tng_attrStringRd( "marccd", "SavingDirectory");},
                unit => ""},
     entry => { set => sub { 
       Spectra::tng_attrStringWrt( "marccd", "SavingDirectory", $_[0]);}}};
$Spc::res_h{ "marccd_io2"} = { 
    label => { name => "SavingPrefix", 
                get => sub { Spectra::tng_attrStringRd( "marccd", "SavingPrefix");},
                unit => ""},
     entry => { set => sub { 
       Spectra::tng_attrStringWrt( "marccd", "SavingPrefix", $_[0]);}}};
$Spc::res_h{ "marccd_io3"} = { 
    label => { name => "SavingPostfix", 
                get => sub { Spectra::tng_attrStringRd( "marccd", "SavingPostfix");},
                unit => ""},
     entry => { set => sub { 
       Spectra::tng_attrStringWrt( "marccd", "SavingPostfix", $_[0]);}}};
$Spc::res_h{ "marccd_io4"} = { 
    label => { name => "BinXandY", 
	       get => sub { Spectra::tng_attrLongRd( "marccd", "BinXandY");},
                unit => ""},
     entry => { set => sub { Spectra::tng_attrLongWrt( "marccd", "BinXandY", $_[0]);}}};
$Spc::res_h{ "marccd_io5"} = { 
    label => { name => "FrameShift", 
                get => sub { Spectra::tng_attrLongRd( "marccd", "FrameShift");},
                unit => ""},
     entry => { set => sub { Spectra::tng_attrLongWrt( "marccd", "FrameShift", $_[0]);}}};
$Spc::res_h{ "marccd_io6"} = { 
    label => { name => "SizeX", 
                get => sub { Spectra::tng_attrLongRd( "marccd", "SizeX");},
                unit => ""},
     entry => { set => sub { Spectra::tng_attrLongWrt( "marccd", "SizeX", $_[0]);}}};
$Spc::res_h{ "marccd_io7"} = { 
    label => { name => "SizeY", 
                get => sub { Spectra::tng_attrLongRd( "marccd", "SizeY");},
                unit => ""},
     entry => { set => sub { Spectra::tng_attrLongWrt( "marccd", "SizeY", $_[0]);}}};
$Spc::res_h{ marccd_b1} = { name => "StartExposing", 
                        command => sub { Spectra::tng_inout( "marccd", "StartExposing");}};
$Spc::res_h{ marccd_b2} = { name => "StopExposing", 
                        command => sub { Spectra::tng_inout( "marccd", "StopExposing");}};

Figure 14.25: BLSC: MarCCD