Inaccurate scaling in `haploDraw()`

[magnusdv]

library(ibdsim2)
#> Loading required package: pedtools
x = nuclearPed()
s = ibdsim(x, verbose = F)
haploDraw(x, s, chrom = 1, pos = c(3,3,1))

(By default, haplotypes should be 1 'symbol width' away from the pedigree symbols.)

Caused by a rescaling step performed after calculation of the haplotype positions. Not trivial to fix,