rendered paste body$trans = $i4->clone();
if (defined($bhdr->{IMND_read_offset})) {
$trans->[0][3] = $bhdr->{IMND_read_offset}[0];
$trans->[1][3] = best_of(
$bhdr->{IMND_phase1_offset}[0],
$bhdr->{ACQ_phase1_offset}[0],
0);
$trans->[2][3] = $bhdr->{IMND_slice_offset};
} else {
$trans->[0][3] = mean(@{
best_of($bhdr->{PVM_ReadOffset},
$bhdr->{PVM_SPackArrReadOffset})
});
$trans->[1][3] = mean(@{
best_of($bhdr->{PVM_Phase1Offset},
$bhdr->{PVM_SPackArrPhase1Offset})
});
$trans->[2][3] = @{
best_of($bhdr->{PVM_SliceOffset},
$bhdr->{PVM_SPackArrSliceOffset}[0])
};
}