#!/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

hal setp mux2.0.sel 1
hal setp mux2.1.sel 1
