revision of TecsServer / treat "interest" correctly

tecs/tecs_plot.f90

@@ -42,6 +42,7 @@ subroutine tecs_plot(file)
     goto 99
   endif
   xmax=0
+  x1=0
 
 1 if (right .or. window==0 .or. live) then
     ntot=dlog_get(dmax, nset, tbase, -window*1.1, 0.0, undef, xd, yd)
@@ -55,7 +56,11 @@ subroutine tecs_plot(file)
       x2=maxval(xd(1:ntot))
     endif
     if (live) then
-      x1=max(x2-window,xd(1))
+      if (x1 .eq. 0) then
+        x1=max(x2-window,xd(1))
+      else
+        window=x2-x1
+      endif
       x2=max(x1+window,x2+min(window*0.2,max(window*0.01,300.)))
     elseif (window==0) then
       x1=minval(xd(1:ntot))
@@ -65,10 +70,12 @@ subroutine tecs_plot(file)
     endif
   else
     if (.not. zoom) then
-      x1=x2-window
       if (window==0) then ! maximal
         x1=0
         x2=1e20
+      else
+        x2=(x1+x2+window)/2
+        x1=x2-window
       endif
     endif
     ntot=dlog_get(dmax, nset, tbase, x1-window*0.1, x2+window*0.1, undef, xd, yd)
@@ -122,12 +129,13 @@ subroutine tecs_plot(file)
       enddo
 
       ey=(ymax(rl)-ymin(rl))
+      fy=abs(ymax(rl))
       if (rl==1) then
-        ymax(rl)=ymax(rl)+ey*0.25
-        ymin(rl)=ymin(rl)-ey*0.01
+        ymax(rl)=ymax(rl)+max(fy*0.0075,ey*0.25)
+        ymin(rl)=ymin(rl)-max(fy*0.005,ey*0.01)
       else
-        ymax(rl)=ymax(rl)+ey*0.01
-        ymin(rl)=ymin(rl)-ey*4
+        ymax(rl)=ymax(rl)+max(fy*0.1,ey*0.01)
+        ymin(rl)=ymin(rl)-max(fy,ey*4)
       endif
       if (live) then
         ymin(rl)=min(ymin(rl),max(0.0,ylast1-ey*0.4))
@@ -346,18 +354,26 @@ subroutine tecs_plot(file)
       call pgsci(1)
       call pgmtxt('T', 2.0, 0.9, 0.0, buf(l:))
     endif
-    call get_key(key, 2, 10)
+    if (xwin .and. .not. live) then
+      call pgcurs(ex, ey, key)
+      call must_purge
+    else
+      call get_key(key, 2, 10)
+    endif
     if (key/=char(0)) goto 8
     goto 7
   elseif (key .eq. 'D') then
     window=min(7*24*3600,24*3600*max(1,numb))
     right=.true.
+    x1=0
   elseif (key .eq. 'H') then
     window=min(7*24*3600,3600*max(1,numb))
     right=.true.
+    x1=0
   elseif (key .eq. 'M') then
     window=min(7*24*3600,60*max(1,numb))
     right=.true.
+    x1=0
   elseif (key .eq. 'L') then
     live=.not. live
     if (live) then