Commit 7b143d26 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

prefer blue

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: 1752
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 8c1f9592
......@@ -2,7 +2,7 @@ c this is <refract_pgdefaults.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_pgdefaults.f,v $)
c ($Id: refract_pgdefaults.f,v 2.0 2000-05-24 17:20:37 thof Exp $)
c ($Id: refract_pgdefaults.f,v 2.1 2005-06-16 09:04:28 tforb Exp $)
c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -10,6 +10,7 @@ c set some pgplot defaults from options
c
c REVISIONS and CHANGES
c 24/05/2000 V1.0 Thomas Forbriger
c 16/06/2005 V1.1 prefer blue
c
c==============================================================================
c
......@@ -25,7 +26,8 @@ c
cE
c declare local variables
character*(*) refract_pgdefaults_id
parameter (refract_pgdefaults_id='$Id: refract_pgdefaults.f,v 2.0 2000-05-24 17:20:37 thof Exp $')
parameter (refract_pgdefaults_id=
& '$Id: refract_pgdefaults.f,v 2.1 2005-06-16 09:04:28 tforb Exp $')
c
c------------------------------------------------------------------------------
c go
......@@ -35,6 +37,9 @@ c go
call pgqvp(0, tov_vpleft, tov_vpright, tov_vpbot, tov_vptop)
call pgscr(0, pg_std_bgrgb(1), pg_std_bgrgb(2), pg_std_bgrgb(3))
call pgscr(1, pg_std_fgrgb(1), pg_std_fgrgb(2), pg_std_fgrgb(3))
c prefer blue over green
call pgscr(3, 0., 0., 1.)
call pgscr(4, 0., 1., 0.)
c
return
c the following line prevents the linker from removing the ID string
......
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