# Use for assigning ipap xpeaks
# Change names of spectra and peaklists in code below
# to match your names.

# Spectra and associated xpeak lists are
# hsqc, adif, asum, udif, and usum
# i - expand about hsqc cursor
# I - more expand about Nhsqc cursor
# o - zoom out to predefined axis limits
# a - get assignemnt of closest xpeak of Nhsqc
#     and assign to last xpeak of
#     adiflist, asumlist, udiflist, and usumlist

bind .win_hsqc.0 <Key-a> {assign}
proc assign {} {
set pid [nv_peak closest k9cNhList]
echo $pid
nv_peak panel $pid
set lbln [nv_peak elem N15.L $pid]
set lblh [nv_peak elem H1.L $pid]
set pknum [nv_peak n adiflist]
set pkn [expr $pknum-1]
nv_peak elem N15.L adiflist.$pkn $lbln
nv_peak elem H1.L adiflist.$pkn $lblh
set pknum [nv_peak n asumlist]
set pkn [expr $pknum-1]
nv_peak elem N15.L asumlist.$pkn $lbln
nv_peak elem H1.L asumlist.$pkn $lblh
set pknum [nv_peak n udiflist]
set pkn [expr $pknum-1]
nv_peak elem N15.L udiflist.$pkn $lbln
nv_peak elem H1.L udiflist.$pkn $lblh
set pknum [nv_peak n usumlist]
set pkn [expr $pknum-1]
nv_peak elem N15.L usumlist.$pkn $lbln
nv_peak elem H1.L usumlist.$pkn $lblh
nv_peak panel $pid
}

bind .win_hsqc.0 <Key-n> {next}
proc next {} {
set xrng [expr 0.3]
set yrng [expr 2.75]
set pid [nv_peak closest k9cNhList]
set pknum [nv_peak idnum $pid]
set newpid [expr $pknum+1]
echo now using hsqc peak number $newpid
set px [nv_peak elem H1.P k9cNhList.$newpid]
set py [nv_peak elem N15.P k9cNhList.$newpid]
set x1 [expr $px+$xrng]
set x2 [expr $px-$xrng]
set y1 [expr $py+$yrng]
set y2 [expr $py-$yrng]
nv_win act .win_hsqc.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_adif.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_asum.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_udif.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_usum.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_hsqc.0
}

bind .win_hsqc.0 <Key-I> {expand}
proc expand {} {
set xrng [expr 0.6]
set yrng [expr 5.5]
nv_win act .win_hsqc.0
set px [nv_win cross1x]
set py [nv_win cross1y]
set xl [expr $px-$xrng]
set xh [expr $px+$xrng]
set yl [expr $py-$yrng]
set yh [expr $py+$yrng]
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_adif.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_asum.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_udif.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_usum.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
}

bind .win_hsqc.0 <Key-i> {expand2}
proc expand2 {} {
set xrng [expr 0.3]
set yrng [expr 2.75]
nv_win act .win_hsqc.0
set px [nv_win cross1x]
set py [nv_win cross1y]
set xl [expr $px-$xrng]
set xh [expr $px+$xrng]
set yl [expr $py-$yrng]
set yh [expr $py+$yrng]
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_adif.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_asum.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_udif.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
nv_win act .win_usum.0
nv_win ppm x $xl $xh
nv_win ppm y $yl $yh
nv_win draw
}

bind .win_hsqc.0 <Key-o> {compress}
proc compress {} {
set x1 [expr 9.77]
set x2 [expr 6.67]
set y1 [expr 131.4]
set y2 [expr 102.1]
nv_win act .win_hsqc.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_adif.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_asum.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_udif.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_usum.0
nv_win ppm x $x1 $x2
nv_win ppm y $y1 $y2
nv_win draw
nv_win act .win_hsqc.0
}