!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
gtvl\gtv search <vcoord
if (.not.gtv%exist) then
   gtvl\create directory <vcoord /plot_page 10 10 /geometry 256 256 /pos 100% 100%
   gtvl\change directory <vcoord
   greg1\set box 0 10 0 10
   greg1\set expand 1
else
   gtvl\change directory <vcoord
   gtvl\clear directory
endif
!
define character string*16 cx*24 cy*24
!
! Channel
greg1\draw text 0 -1.0 "Channel "'true%chan%p' 6 0 /char 7
let string true%chan%f /format F16.3
greg1\draw text 0 -2.5 "Frequency "'string'" MHz"  6 0 /char 7
greg1\draw text 0 -4.0 "Velocity "'0.01*nint(100*true%chan%v)'" km/s"  6 0 /char 7
!
! Pixel
greg1\draw text 0 -5.5 "Pixel ("'true%pos%p[1]'","'true%pos%p[2]'")" 6 0 /char 7
let cx true%pos%s[1] /format f0.2
let cy true%pos%s[2] /format f0.2
greg1\draw text 0 -7.0 "Offset ("'cx'"`,"'cy'"`)" 6 0 /char 7
!
let string aaa1['true%pos%p[1]','true%pos%p[2]','true%chan%p'] /format 1pg11.3
greg1\draw text 0 -8.5 "Value "'string'" "'aaa1%unit' 6 0 /char 7
!!$if (flux) then
!!$   let string &1[ix,iy,ciplane]/view_jyperk /format 1pg11.3
!!$   greg1\draw text 0 -10 "Value "'string'" (K)" 6 0 /char 7
!!$endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
