Commit 18a2a2a5 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

provide 'plot baseline' flag

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 4861
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent d549f38f
......@@ -29,6 +29,7 @@ c 14/11/11 V1.2 store minimum and maximum offset too
c 12/11/12 V1.3 store offset shift
c 20/11/12 V1.4 provide file specific variable area plot flag
c store field offset explicitely
c support plotting of a baseline
c
c==============================================================================
c
......@@ -46,6 +47,7 @@ c
character*4 auxid(maxtraces)
character*6 instype(maxtraces)
integer usevarplot(maxtraces)
logical plotbaseline(maxtraces)
real toffset(maxtraces), dt(maxtraces)
c
c roffset: to locate trace in plot panel
......@@ -64,7 +66,7 @@ c must expect to need maxsamples of time values (tos)
c
common /refract_data/ nsamples, firstsample, filename, source,
& station, channel, auxid, instype,
& toffset, roffset, fieldoffset,
& toffset, roffset, fieldoffset, plotbaseline,
& dt, fileindex, traceinfile, usevarplot,
& maxval, average, minval, data, timeofsample,
& nfiles, ntraces, firstinchain, chain, revchain,
......
......@@ -27,6 +27,7 @@ c 30/04/98 V1.0 Thomas Forbriger
c 24/05/00 V1.1 use selfilestyle
c 19/06/2003 V1.2 introduced trace labels
c 09/09/2004 V1.3 introduced station name labels
c 20/11/2012 V1.4 plot baseline if requested
c
c==============================================================================
cS
......@@ -107,6 +108,10 @@ c
c set correct baseline for variable area
baseline=0.
if (plpar_remav) baseline=average(i)
if (plotbaseline(fileindex(i))) then
call pgmove (trv_tmin, baseline)
call pgdraw (trv_tmax, baseline)
endif
c plot variable area
if (((plflag_vara).and.(usevarplot(fileindex(i)).ne.0))
& .or.(usevarplot(fileindex(i)).eq.1))
......
......@@ -40,6 +40,7 @@ c 14/11/2011 V1.8 store minimum and maximum offset
c 12/11/2012 V1.9 store offset shift
c 20/11/2012 V1.10 read variable offset flag
c store field offset, not offset shift
c read 'plot baseline' flag
c
c==============================================================================
c
......@@ -130,6 +131,7 @@ c check filespace
filename(nfiles)=infile
c set defaults
usevarplot(nfiles)=2
plotbaseline(nfiles)=.false.
c set default style values
pg_file_ls(nfiles)=-1
pg_file_lw(nfiles)=-1
......@@ -199,6 +201,10 @@ c read variable area plot flag
elseif (selection(1:2).eq.'v:') then
i=i+1
read(selection(3:), *) usevarplot(nfiles)
c read baseline plot flag
elseif (selection(1:2).eq.'b:') then
i=i+1
read(selection(3:), *) plotbaseline(nfiles)
else
moreflags=.false.
if (debug) print *,'DEBUG (readdata): is not a flag'
......
......@@ -35,6 +35,7 @@ c 17.12.2010 V1.6 format selection was missing in quick help
c 12/11/2012 V1.7 new option -Sn
c 20/11/2012 V1.8 new file specific flag v:
c new option -Eu
c new file specific flag b:
c
c==============================================================================
c
......@@ -289,6 +290,11 @@ c
print *,' else: use variable area if selected with global'
print *,' option -v'
print *,' '
print *,'Plot baseline for traces from this file - b:'
print *,'--------------------------------------------'
print *,' '
print *,' b:T|F'
print *,' '
print *,'Menus to be used in interactive picking mode:'
print *,'============================================='
print *,' '
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment