From e6680e77c571d6253140e5429213d6d06d19eb36 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Fri, 16 Jul 2021 18:56:38 +0200 Subject: [PATCH] Convert TB scores in low depth. --- remoteglot.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/remoteglot.pl b/remoteglot.pl index 56554a6..fb663f8 100755 --- a/remoteglot.pl +++ b/remoteglot.pl @@ -540,9 +540,11 @@ sub parse_infos { my $now_depth = $info->{'depth1'} // $info->{'depth'}; if (defined($prev_depth) && POSIX::floor($now_depth / 10) > POSIX::floor($prev_depth / 10)) { my $d = POSIX::floor($now_depth / 10) * 10; # In case we skipped some. + complete_using_tbprobe($pos_calculating, $info, exists($info->{'depth1'}) ? '1' : ''); my $cp = $info->{'score_cp1'} // $info->{'score_cp'}; my $mate = $info->{'score_mate1'} // $info->{'score_mate'}; - push @{$info->{'lowdepth'}}, [ $d, $cp, $mate ]; + my $splicepos = $info->{'splicepos1'} // $info->{'splicepos'}; + push @{$info->{'lowdepth'}}, [ $d, $cp, $mate, $splicepos ]; } } @@ -957,7 +959,7 @@ sub output_json { $json->{'lowdepth'} = {}; if (exists($info->{'lowdepth'})) { for my $ld (@{$info->{'lowdepth'}}) { - $json->{'lowdepth'}{$ld->[0]} = score_digest_inner($ld->[1], $ld->[2], undef, 0, $pos_calculating); + $json->{'lowdepth'}{$ld->[0]} = score_digest_inner($ld->[1], $ld->[2], $ld->[3], 0, $pos_calculating); } } -- 2.39.2