my $rec = {
                  edge => [$A, $B],
                  dx   => abs($X1 - $X2),
                  dz   => $Z1 - $Z2,
                  z    => ( $X1 < $X2 ) ? ($Z1) : ($Z2)
                  };