Tweaking the scaling of red curve.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2730 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/ftnquit.f90

@@ -1,9 +0,0 @@
-subroutine ftnquit
-
-! Destroy the FFTW plans
-  call four2a(a,-1,1,1,1)
-  call filbig(id,-1,f0,newdat,nfsample,c4a,c4b,n4)
-  stop
-
-  return
-end subroutine ftnquit

lib/redsync.f90

@@ -28,6 +28,12 @@ subroutine redsync(ss,ntrperiod,ihsym,iz,red)
   call pctile(red,iz,50,xmed)
   if(xmed.le.0.0) xmed=1.0
   red=red/xmed
+  smax=0.
+  do i=1,iz
+     smax=max(smax,red(i))
+  enddo
+  h=50.
+  if(smax.gt.h) red=red*(h/smax)
 
   return
 end subroutine redsync

lib/sync9.f90

@@ -27,7 +27,6 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,ccfred,ia,ib,ipkbest)
         sum=0.
         do j=1,16
            k=ii2(j) + lag
-!           if(k.ge.1) sum=sum + ss(k,i) 
            if(k.ge.1) sum=sum + ss(k,i) - 0.5*(ss(k+2,i)+ss(k+4,i))
         enddo
         if(sum.gt.smax) then

mainwindow.cpp

@@ -1,4 +1,4 @@
-//------------------------------------------------------------- MainWindow
+//-------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"

plotter.cpp

@@ -127,7 +127,7 @@ void CPlotter::draw(float swide[], float red[], int i0)             //draw()
     y2=0;
     if(m_bCurrent) y2 = gain*y + 30;
     if(m_bCumulative) y2=3*gain*10.0*log10(jt9com_.savg[i]);
-    if(m_bJT9Sync) y2=0.1*gain*red[i] - 20;
+    if(m_bJT9Sync) y2=3.0*gain*red[i] - 20;
     if(strong != strong0 or i==m_w-1) {
       painter2D.drawPolyline(LineBuf,j);
       j=0;