# 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 .hnco <Key-a> {assign}
proc assign {} {
set pid [nv_peak closest hncolist]
echo assigning peak $pid
nv_peak panel $pid
set lbln [nv_peak elem N15.L $pid]
set lblh [nv_peak elem H1.L $pid]
set lblc [nv_peak elem C13.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
nv_peak elem C13.L adiflist.$pkn $lblc
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
nv_peak elem C13.L asumlist.$pkn $lblc
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
nv_peak elem C13.L udiflist.$pkn $lblc
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 elem C13.L usumlist.$pkn $lblc
nv_peak panel $pid
nv_win act .hnco.0
}

bind .hnco <Key-n> {next}
proc next {} {
set pid [nv_peak closest hncolist]
set pknum [nv_peak idnum $pid]
set newpid [expr $pknum+1]
echo now using hnco peak number $newpid
set px [nv_peak elem H1.P $newpid]
set py [nv_peak elem N15.P $newpid]
set pz [nv_peak elem C13.P $newpid]
#set zrng [expr 0.18]
set zrng [expr 0]
set x1 [expr 9.77]
set x2 [expr 6.67]
set y1 [expr 131.4]
set y2 [expr 102.1]
set zl [expr $pz-$zrng]
set zh [expr $pz+$zrng]
nv_win act .hnco.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $pz
nv_win draw
#nv_win cross1 $px $py
nv_win act .adif.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .asum.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .udif.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .usum.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .hnco.0
}

bind .hnco <Key-i> {expand}
proc expand {} {
set xrng [expr 0.6]
set yrng [expr 5.5]
set zrng [expr 0]
nv_win act .hnco.0
set px [nv_win cross1x]
set py [nv_win cross1y]
set pz2 [nv_win ppm z]
set pz [lindex $pz2 0]
echo plane $pz
set xl [expr $px-$xrng]
set xh [expr $px+$xrng]
set yl [expr $py-$yrng]
set yh [expr $py+$yrng]
set zl [expr $pz-$zrng]
set zh [expr $pz+$zrng]
nv_win x $xl $xh
nv_win y $yl $yh
nv_win draw
nv_win act .adif.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .asum.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .udif.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .usum.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .hnco.0
}

bind .hnco <Key-I> {expand2}
proc expand2 {} {
set xrng [expr 0.3]
set yrng [expr 2.75]
set zrng [expr 0]
nv_win act .hnco.0
set px [nv_win cross1x]
set py [nv_win cross1y]
set pz2 [nv_win ppm z]
set pz [lindex $pz2 0]
echo plane $pz
set xl [expr $px-$xrng]
set xh [expr $px+$xrng]
set yl [expr $py-$yrng]
set yh [expr $py+$yrng]
set zl [expr $pz-$zrng]
set zh [expr $pz+$zrng]
nv_win x $xl $xh
nv_win y $yl $yh
nv_win draw
nv_win act .adif.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .asum.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .udif.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .usum.0
nv_win x $xl $xh
nv_win y $yl $yh
nv_win z $zl $zh
nv_win draw
nv_win act .hnco.0
}

bind .hnco <Key-o> {compress}
proc compress {} {
set zrng [expr 0.18]
set x1 [expr 9.77]
set x2 [expr 6.67]
set y1 [expr 131.4]
set y2 [expr 102.1]
set pz2 [nv_win ppm z]
set pz [lindex $pz2 0]
echo plane $pz
set zl [expr $pz-$zrng]
set zh [expr $pz+$zrng]
nv_win act .hnco.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win draw
nv_win act .adif.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .asum.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .udif.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .usum.0
nv_win x $x1 $x2
nv_win y $y1 $y2
nv_win z $zl $zh
nv_win draw
nv_win act .hnco.0
}