Galil Slit

The following lines create a widget that operates the jaws of a Galil slit.

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

#
# galil slit
#
$Spc::res_h{ galil_title} = { text => "Galil"};

$Spc::res_h{ galil_m1} = { name => "ga_t", unit => "mm"};
$Spc::res_h{ galil_m2} = { name => "ga_b", unit => "mm"};
$Spc::res_h{ galil_m3} = { name => "ga_l", unit => "mm"};
$Spc::res_h{ galil_m4} = { name => "ga_r", unit => "mm"};
$Spc::res_h{ galil_m5} = { name => "ga_cx", unit => "mm"};
$Spc::res_h{ galil_m6} = { name => "ga_cy", unit => "mm"};
$Spc::res_h{ galil_m7} = { name => "ga_dx", unit => "mm"};
$Spc::res_h{ galil_m8} = { name => "ga_dy", unit => "mm"};

Figure 14.27: BLSC: Galil