Commit 6eba76a8 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

ts/refract [FIX]: fix trace label in reverse mode (was not displayed)

parent d5408b23
......@@ -3,7 +3,7 @@ this is <COPYING>
refract: refraction seismics data analysis and plotting tool
============================================================================
Copyright (C) 1998, 2013 by Thomas Forbriger
Copyright (C) 1998, 2013, 2016 by Thomas Forbriger
----
refract is free software; you can redistribute it and/or modify
......
c this is <refract.f>
c------------------------------------------------------------------------------
c
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010, 2016 by Thomas Forbriger (IfG Stuttgart)
c
c REFRACTion seismics - data interpretation
c
......@@ -59,6 +59,7 @@ c 08/02/2016 V4.14 introduce upper limit for trace displays world
c coordinate range in counts; this makes the
c program robust, when displaying a zero offset
c trace with offset dependend scaling
c 01/12/2016 V4.15 fix trace label in reverse mode
c
c==============================================================================
c
......@@ -66,7 +67,7 @@ c
c
character*79 version
parameter(version=
& 'REFRACT V4.14 REFRACTion seismics - data interpretation')
& 'REFRACT V4.15 REFRACTion seismics - data interpretation')
c
c get common blocks
include 'refract_dim.inc'
......
......@@ -27,6 +27,7 @@ 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 01/12/2016 V1.5 fix check for label bounding box in reverse mode
c
c==============================================================================
cS
......@@ -131,8 +132,13 @@ c check string position
call pgqtxt(xpos,data(nlast),0.,1.,label, xbox, ybox)
inside=.false.
do j=1,4
if ((ybox(j).gt.trv_vmin).and.(ybox(j).lt.trv_vmax))
& inside=.true.
if (reverse) then
if ((ybox(j).lt.trv_vmin).and.(ybox(j).gt.trv_vmax))
& inside=.true.
else
if ((ybox(j).gt.trv_vmin).and.(ybox(j).lt.trv_vmax))
& inside=.true.
endif
enddo
if (inside) then
call pgsave
......
Markdown is supported
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