o<slave_offset> sub
#!/usr/bin/tclsh
set inpin_1  axis.8.motor-pos-cmd
set inpin_2  axis.2.motor-pos-cmd
set outpin   offset.0.offset
#----------------------------------------------------------
package require Hal
set inpin_1_value [hal getp $inpin_1]
set inpin_2_value [hal getp $inpin_2]
set diff [expr $inpin_1_value - $inpin_2_value]

hal setp $outpin $diff

o<slave_offset> endsub

