Commit 75d309b8 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

optionally plot frame at viewport bounds

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: 4856
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 5bf2f053
......@@ -117,7 +117,7 @@ REFSUB=refract_readdata.o refract_skipdata.o refract_setdefaults.o \
refract_varplot.o refract_pgparameters.o refract_ttreduce.o \
refract_message.o refract_dopicks.o refract_domodel.o refract_usage.o \
refract_cmdopt.o refract_selfilestyle.o refract_preread.o \
refract_pgdefaults.o
refract_pgdefaults.o refract_vpframe.o
REFOBS=refract.o $(addprefix sub/, $(REFSUB))
# Fortran dependencies
......
......@@ -29,6 +29,7 @@ c 17/06/2003 V1.2 introduced plflag_tracenum
c 09/09/2004 V1.3 introduced plflag_tracename
c 14/11/2011 V1.4 remember whether minoff is forced on command line
c 12/11/2012 V1.5 optionally do not time shift offset shifted traces
c 12/11/2012 V1.6 added frame parameter
c
c==============================================================================
c
......@@ -137,6 +138,8 @@ c annotate each trace with its number
logical plflag_tracenum
c annotate each trace with its station name
logical plflag_tracename
c frame at viewport bounds
logical elem_vpframe
c
c strings to hold
c ---------------
......@@ -156,7 +159,8 @@ c common blocks
& plflag_tracename, plpar_forceminoff
common /refract_elem/ elem_modbox, elem_filenames, elem_version,
& elem_annot, elem_scales, elem_data,
& elem_syntt, elem_picks, plflag_subscale
& elem_syntt, elem_picks, plflag_subscale,
& elem_vpframe
common /refract_verb/ debug, verbose
common /refract_flags/ flag_pick, flag_replot
common /refract_reduce/ plflag_reduce, plpar_vred, plflag_osnoreduce
......
......@@ -34,6 +34,7 @@ c 04/12/2009 V1.6 use correct DIN notation for units
c 26/11/2010 V1.7 provide means to select file formats
c 14/11/2011 V1.8 remember whether minoff is forced
c 12/11/2012 V1.9 new option -Sn
c 13/11/2012 V1.10 new option -Ef
c
c==============================================================================
c
......@@ -63,7 +64,7 @@ c CVS Id
& '$Id$')
c commandline
integer maxopt
parameter(maxopt=61)
parameter(maxopt=62)
character*3 optid(maxopt)
character*120 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
......@@ -96,6 +97,9 @@ c elements and style options
data optid(59) /'-Es'/
data opthasarg(59) /.FALSE./
data optarg(59) /'-'/
data optid(62) /'-Ef'/
data opthasarg(62) /.FALSE./
data optarg(62) /'-'/
c file reading
data (optid(i), i=40,43) /'-Fp','-Fa','-Ft','-Fm'/
data (opthasarg(i), i=40,43) /4*.TRUE./
......@@ -169,6 +173,7 @@ c elements and style
read(optarg(39), *) opt_Epicks
plflag_tracenum=optset(58)
plflag_tracename=optset(59)
elem_vpframe=optset(62)
c
c file reading
opt_Fpicks=optarg(40)
......
......@@ -25,6 +25,7 @@ c
c REVISIONS and CHANGES
c 30/04/98 V1.0 Thomas Forbriger
c 16/06/2005 V1.1 set defaults here
c 13/11/2012 V1.2 plot frame at viewport bounds
c
c==============================================================================
cS
......@@ -58,6 +59,7 @@ c
call pgframe
if (elem_filenames) call refract_pgfilenames
if (elem_annot) call refract_pgparameters
if (elem_vpframe) call refract_vpframe
c
if (elem_data) then
itrace=firstinrevchain
......
......@@ -27,6 +27,7 @@ c 30/04/98 V1.0 Thomas Forbriger
c 18/02/99 V1.1 allow axis labelling in degrees
c 24/05/00 V1.2 - use selfilestyle
c - use axis label strings
c 13/11/12 V1.3 plot a frame at viewport bounds
c
c==============================================================================
cS
......
......@@ -46,7 +46,7 @@ c
c
c set viewport
call pgsvp(tov_vpright, 1., 0., 1.)
call pgswin(0., 1., 0., 1.)
call pgswin(0., 1.1, 0., 1.)
c
pg_nam_maxheight=0.
do i=1,nfiles
......
c this is <refract_vpframe.f>
c ----------------------------------------------------------------------------
c ($Id$)
c
c Copyright (c) 2012 by Thomas Forbriger (BFO Schiltach)
c
c plot a frame at viewport bounds
c
c REVISIONS and CHANGES
c 13/11/2012 V1.0 Thomas Forbriger
c
c ============================================================================
c
subroutine refract_vpframe
call pgsave
call pgsci(1)
call pgslw(1)
call pgsls(1)
call pgsvp(0.,1.,0.,1.)
call pgswin(0.,1.,0.,1.)
call pgmove(0.,0.)
call pgdraw(1.,0.)
call pgdraw(1.,1.)
call pgdraw(0.,1.)
call pgdraw(0.,0.)
call pgunsa
return
end
c
c ----- END OF refract_vpframe.f -----
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