mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-10-31 13:10:19 -04:00 
			
		
		
		
	1. Document variables in gcom1.f90
2. Remove "Accelerated decoding" as menu item (now always ON) 3. Clean up a few unused variables 4. Change from MS Sans Serif to Helvetica fonts 5. Make Tx msg boxes wider git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@15 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
		
							parent
							
								
									0d93735ba0
								
							
						
					
					
						commit
						01798a7b64
					
				
							
								
								
									
										2
									
								
								g1.bat
									
									
									
									
									
								
							
							
						
						
									
										2
									
								
								g1.bat
									
									
									
									
									
								
							| @ -1,4 +1,4 @@ | ||||
| df /fpp /define:Win32 makedate.f90 | ||||
| makedate | ||||
| cl /c /DWin32 /Fojtaudio.o jtaudio.c | ||||
| f2py.py -c --quiet --opt="/traceback /fast /fpp /define:Win32" init_rs.o encode_rs.o decode_rs.o jtaudio.o -lwinmm -lpa -lfftw3single -llibsamplerate -m Audio --"fcompiler=compaqv" only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 makedate_sub : a2d.f90 abc441.f90 astro0.f90 audio_init.f90 azdist0.f90 decode1.f90 decode2.f90 decode3.f90 ftn_init.f90 ftn_quit.f90 get_fname.f90 getfile.f90 horizspec.f90 hscroll.f90 i1tor4.f90 makedate_sub.f90 rfile.f90 savedata.f90 spec.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f resample.c ptt.c wrapkarn.c fivehz.f90 | ||||
| f2py.py -c --quiet --opt="/traceback /fast /fpp /define:Win32" init_rs.o encode_rs.o decode_rs.o jtaudio.o -lwinmm -lpa -llibsamplerate -m Audio --"fcompiler=compaqv" only: ftn_init ftn_quit audio_init spec getfile azdist0 astro0 makedate_sub : a2d.f90 abc441.f90 astro0.f90 audio_init.f90 azdist0.f90 decode1.f90 decode2.f90 decode3.f90 ftn_init.f90 ftn_quit.f90 get_fname.f90 getfile.f90 horizspec.f90 hscroll.f90 i1tor4.f90 makedate_sub.f90 rfile.f90 savedata.f90 spec.f90 wsjtgen.f90 runqqq.f90 wsjt1.f fsubs1.f fsubs.f astro.f astropak.f resample.c ptt.c wrapkarn.c fivehz.f90 | ||||
|  | ||||
							
								
								
									
										51
									
								
								gcom1.f90
									
									
									
									
									
								
							
							
						
						
									
										51
									
								
								gcom1.f90
									
									
									
									
									
								
							| @ -1,36 +1,37 @@ | ||||
| parameter(NRxMax=2048*1024) | ||||
| parameter(NTxMax=150*11025) | ||||
| 
 | ||||
| real*8 Tsec                   !Present time | ||||
| real*8 tbuf | ||||
| real*8 rxdelay | ||||
| real*8 txdelay | ||||
| real*8 samfacin | ||||
| real*8 samfacout | ||||
| integer*2 y1                  !Rx audio samples (ring buffer) | ||||
| integer*2 y2                  !WWVB or 1 PPS signal | ||||
| integer iwrite                !Pointer to ring buffer | ||||
| integer*2 iwave               !Tx data | ||||
| integer nwave                 !Length of Tx data | ||||
| integer TxOK                  !OK to transmit? | ||||
| integer TxFirst               !Transmit first? | ||||
| integer Receiving             !Actually receiving? | ||||
| integer Transmitting          !Actually transmitting? | ||||
| integer TRPeriod              !Tx or Rx period in seconds | ||||
| integer level                 !S-meter level, 0-100 | ||||
| integer mute                  !True means "don't transmit" | ||||
| integer ndsec                 !Dsec in units of 0.1 s | ||||
| integer newdat                !True if waterfall should scroll | ||||
| integer mfsample              !Measured sample rate, input | ||||
| integer mfsample2             !Measured sample rate, output | ||||
| character*8 cversion          !Program version | ||||
| ! Variable             Purpose                               Set in Thread | ||||
| !--------------------------------------------------------------------------- | ||||
| real*8 Tsec            !Present time                       SoundIn, SoundOut | ||||
| real*8 tbuf            !Tsec at time of input callback          SoundIn | ||||
| real*8 rxdelay         !Delay between PTT=1 and Tx audio        SoundIn | ||||
| real*8 txdelay         !Delay from end of Tx Audio and PTT=0    SOundOut | ||||
| real*8 samfacin        !(Input sample rate)/11025               GUI | ||||
| real*8 samfacout       !(Output sample rate)/11025              GUI | ||||
| integer*2 y1           !Ring buffer for audio channel 0         SoundIn | ||||
| integer*2 y2           !Ring buffer for audio channel 1         SoundIn | ||||
| integer iwrite         !Write pointer to ring buffer            SoundIn | ||||
| integer*2 iwave        !Data for audio output                   SoundIn | ||||
| integer nwave          !Number of samples in iwave              SoundIn | ||||
| integer TxOK           !OK to transmit?                         SoundIn | ||||
| !                       NB: TxOK=1 only in SoundIn; TxOK=0 also in GUI | ||||
| integer TxFirst        !Transmit first?                         GUI | ||||
| integer Receiving      !Actually receiving?                     SoundIn | ||||
| integer Transmitting   !Actually transmitting?                  SoundOut | ||||
| integer TRPeriod       !Tx or Rx period in seconds              GUI | ||||
| integer level          !S-meter level, 0-100                    GUI | ||||
| integer mute           !True means "don't transmit"             GUI | ||||
| integer ndsec          !Dsec in units of 0.1 s                  GUI | ||||
| integer newdat         !New data available for waterfall?       GUI | ||||
| integer mfsample       !Measured sample rate, input             SoundIn | ||||
| integer mfsample2      !Measured sample rate, output            SoundOut | ||||
| 
 | ||||
| common/gcom1/Tbuf(1024),ntrbuf(1024),Tsec,rxdelay,txdelay,              & | ||||
|      samfacin,samfacout,y1(NRxMax),y2(NRxMax),                          & | ||||
|      nmax,iwrite,iread,iwave(NTXMAX),nwave,TxOK,Receiving,Transmitting, & | ||||
|      TxFirst,TRPeriod,ibuf,ibuf0,ave,rms,ngo,level,mute,newdat,ndsec,   & | ||||
|      ndevin,ndevout,nx,mfsample,mfsample2,ns0,                          & | ||||
|      cversion | ||||
|      ndevin,ndevout,nx,mfsample,mfsample2,ns0 | ||||
| 
 | ||||
| !### volatile /gcom1/ | ||||
| 
 | ||||
|  | ||||
| @ -1,3 +1,7 @@ | ||||
| ! Variable             Purpose                                  Set by | ||||
| !------------------------------------------------------------------------- | ||||
| real ps0               !Spectrum of best ping, FSK441/JT6m      wsjt1 | ||||
| real psavg             !Average spectrum                        wsjt1 | ||||
| integer*2 d2a,d2b,b | ||||
| integer shok,sendingsh | ||||
| integer dftolerance | ||||
|  | ||||
							
								
								
									
										1
									
								
								spec.f90
									
									
									
									
									
								
							
							
						
						
									
										1
									
								
								spec.f90
									
									
									
									
									
								
							| @ -47,7 +47,6 @@ subroutine spec(brightness,contrast,logmap,ngain,nspeed,a) | ||||
|      fac=2.0/10000. | ||||
|      nsum=0 | ||||
|      iread=0 | ||||
|      cversion='5.5.0   ' | ||||
|      first=.false. | ||||
|      b0=-999 | ||||
|      c0=-999 | ||||
|  | ||||
							
								
								
									
										11
									
								
								specjt.py
									
									
									
									
									
								
							
							
						
						
									
										11
									
								
								specjt.py
									
									
									
									
									
								
							| @ -247,12 +247,11 @@ def update(): | ||||
|             if minsep.get(): | ||||
|                 draw.line((0,0,749,0),fill=128)     #Draw the minute separator | ||||
| 
 | ||||
| # Don't update display while decoding on a slow computer | ||||
|         if Audio.gcom2.ndecoding==0 or g.naccel==0 or Audio.gcom2.ndiskdat: | ||||
|             pim=ImageTk.PhotoImage(im)              #Convert Image to PhotoImage | ||||
|             graph1.delete(ALL) | ||||
|             #For some reason, top two lines are invisible, so we move down 2 | ||||
|             graph1.create_image(0,0+2,anchor='nw',image=pim) | ||||
| # Don't update waterfall while decoding | ||||
|         pim=ImageTk.PhotoImage(im)              #Convert Image to PhotoImage | ||||
|         graph1.delete(ALL) | ||||
|         #For some reason, top two lines are invisible, so we move down 2 | ||||
|         graph1.create_image(0,0+2,anchor='nw',image=pim) | ||||
| 
 | ||||
|         if nspeed>5: | ||||
|             color="white" | ||||
|  | ||||
							
								
								
									
										31
									
								
								wsjt.py
									
									
									
									
									
								
							
							
						
						
									
										31
									
								
								wsjt.py
									
									
									
									
									
								
							| @ -44,10 +44,10 @@ idsec=0 | ||||
| lauto=0 | ||||
| cmap0="Linrad" | ||||
| fileopened="" | ||||
| #font1='Arial' | ||||
| #font2='Arial' | ||||
| font1=('MS', 'Sans', 'Serif') | ||||
| font2=('MS', 'Sans', 'Serif') | ||||
| font1='Helvetica' | ||||
| font2='Helcetica' | ||||
| #font1=('MS', 'Sans', 'Serif') | ||||
| #font2=('MS', 'Sans', 'Serif') | ||||
| font3='Courier' | ||||
| hiscall="" | ||||
| hisgrid="" | ||||
| @ -77,7 +77,6 @@ nopen=0 | ||||
| nosh441=IntVar() | ||||
| noshjt65=IntVar() | ||||
| nsked=IntVar() | ||||
| naccel=IntVar() | ||||
| setseq=IntVar() | ||||
| ShOK=IntVar() | ||||
| slabel="Sync   " | ||||
| @ -91,7 +90,6 @@ balloon=Pmw.Balloon(root) | ||||
| 
 | ||||
| g.freeze_decode=0 | ||||
| g.mode="" | ||||
| g.naccel=1 | ||||
| g.ndevin=IntVar() | ||||
| g.ndevout=IntVar() | ||||
| 
 | ||||
| @ -925,11 +923,11 @@ def dtdf_change(event): | ||||
|         t="%.1f" % (event.x*30.0/500.0,) | ||||
|         lab6.configure(text=t,bg='green') | ||||
|     else: | ||||
|         if event.y<60 and Audio.gcom2.nspecial==0: | ||||
|         if event.y<40 and Audio.gcom2.nspecial==0: | ||||
|             lab1.configure(text='Time (s)',bg="#33FFFF")   #light blue | ||||
|             t="%.1f" % (12.0*event.x/500.0-2.0,) | ||||
|             lab6.configure(text=t,bg="#33FFFF") | ||||
|         elif (event.y>=60 and event.y<95) or \ | ||||
|         elif (event.y>=40 and event.y<95) or \ | ||||
|                  (event.y<95 and Audio.gcom2.nspecial>0): | ||||
|             lab1.configure(text='DF (Hz)',bg='red') | ||||
|             t="%d" % int(1200.0*event.x/500.0-600.0,) | ||||
| @ -1204,7 +1202,6 @@ def update(): | ||||
|             options.MyGrid.get().upper(),HisGrid.get().upper(),utchours) | ||||
|         azdist() | ||||
|         g.nfreq=nfreq.get() | ||||
|         g.naccel=naccel.get() | ||||
| 
 | ||||
|         g.AzSun,g.ElSun,g.AzMoon,g.ElMoon,g.AzMoonB,g.ElMoonB,g.ntsky, \ | ||||
|             g.ndop,g.ndop00,g.dbMoon,g.RAMoon,g.DecMoon,g.HA8,g.Dgrd,  \ | ||||
| @ -1469,7 +1466,6 @@ setupmenu.add_checkbutton(label = 'Double-click on callsign sets TxFirst', | ||||
|                           variable=setseq) | ||||
| setupmenu.add_checkbutton(label = 'GenStdMsgs sets Tx1',variable=k2txb) | ||||
| setupmenu.add_separator() | ||||
| setupmenu.add_checkbutton(label = 'Accelerated decoding',variable=naccel) | ||||
| setupmenu.add_checkbutton(label = 'Enable diagnostics',variable=ndebug) | ||||
| 
 | ||||
| #------------------------------------------------------ View menu | ||||
| @ -1796,42 +1792,42 @@ auto.grid(column=0,row=5,sticky='EW',padx=4) | ||||
| #txstop.grid(column=0,row=6,sticky='EW',padx=4) | ||||
| 
 | ||||
| ntx=IntVar() | ||||
| tx1=Entry(f5c,width=22, font=(font2,9)) | ||||
| tx1=Entry(f5c,width=28, font=(font2,9)) | ||||
| rb1=Radiobutton(f5c,value=1,variable=ntx) | ||||
| b1=Button(f5c, text='Tx1',underline=2,command=btx1,padx=1,pady=1) | ||||
| tx1.grid(column=1,row=0) | ||||
| rb1.grid(column=2,row=0) | ||||
| b1.grid(column=3,row=0) | ||||
| 
 | ||||
| tx2=Entry(f5c,width=22, font=(font2,9)) | ||||
| tx2=Entry(f5c,width=28, font=(font2,9)) | ||||
| rb2=Radiobutton(f5c,value=2,variable=ntx) | ||||
| b2=Button(f5c, text='Tx2',underline=2,command=btx2,padx=1,pady=1) | ||||
| tx2.grid(column=1,row=1) | ||||
| rb2.grid(column=2,row=1) | ||||
| b2.grid(column=3,row=1) | ||||
| 
 | ||||
| tx3=Entry(f5c,width=22, font=(font2,9)) | ||||
| tx3=Entry(f5c,width=28, font=(font2,9)) | ||||
| rb3=Radiobutton(f5c,value=3,variable=ntx) | ||||
| b3=Button(f5c, text='Tx3',underline=2,command=btx3,padx=1,pady=1) | ||||
| tx3.grid(column=1,row=2) | ||||
| rb3.grid(column=2,row=2) | ||||
| b3.grid(column=3,row=2) | ||||
| 
 | ||||
| tx4=Entry(f5c,width=22, font=(font2,9)) | ||||
| tx4=Entry(f5c,width=28, font=(font2,9)) | ||||
| rb4=Radiobutton(f5c,value=4,variable=ntx) | ||||
| b4=Button(f5c, text='Tx4',underline=2,command=btx4,padx=1,pady=1) | ||||
| tx4.grid(column=1,row=3) | ||||
| rb4.grid(column=2,row=3) | ||||
| b4.grid(column=3,row=3) | ||||
| 
 | ||||
| tx5=Entry(f5c,width=22, font=(font2,9)) | ||||
| tx5=Entry(f5c,width=28, font=(font2,9)) | ||||
| rb5=Radiobutton(f5c,value=5,variable=ntx) | ||||
| b5=Button(f5c, text='Tx5',underline=2,command=btx5,padx=1,pady=1) | ||||
| tx5.grid(column=1,row=4) | ||||
| rb5.grid(column=2,row=4) | ||||
| b5.grid(column=3,row=4) | ||||
| 
 | ||||
| tx6=Entry(f5c,width=22, font=(font2,9)) | ||||
| tx6=Entry(f5c,width=28, font=(font2,9)) | ||||
| rb6=Radiobutton(f5c,value=6,variable=ntx) | ||||
| b6=Button(f5c, text='Tx6',underline=2,command=btx6,padx=1,pady=1) | ||||
| tx6.grid(column=1,row=5) | ||||
| @ -1864,7 +1860,6 @@ ldate.after(100,update) | ||||
| lauto=0 | ||||
| isync=1 | ||||
| ntx.set(1) | ||||
| naccel.set(1) | ||||
| ndepth.set(2) | ||||
| 
 | ||||
| import options | ||||
| @ -1962,7 +1957,6 @@ try: | ||||
|         elif key == 'Aggressive': naggressive.set(value) | ||||
|         elif key == 'NEME': neme.set(value) | ||||
|         elif key == 'NDepth': ndepth.set(value) | ||||
|         elif key == 'Accelerate': naccel.set(value) | ||||
|         elif key == 'Debug': ndebug.set(value) | ||||
|         elif key == 'HisCall': | ||||
|             Audio.gcom2.hiscall=(value+'            ')[:12] | ||||
| @ -2058,7 +2052,6 @@ f.write("NoShJT65 " + str(noshjt65.get()) + "\n") | ||||
| f.write("Aggressive " + str(naggressive.get()) + "\n") | ||||
| f.write("NEME " + str(neme.get()) + "\n") | ||||
| f.write("NDepth " + str(ndepth.get()) + "\n") | ||||
| f.write("Accelerate " + str(naccel.get()) + "\n") | ||||
| f.write("Debug " + str(ndebug.get()) + "\n") | ||||
| #f.write("TRPeriod " + str(Audio.gcom1.trperiod) + "\n") | ||||
| mrudir2=mrudir.replace(" ","#") | ||||
|  | ||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user