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