From e719aef5977cf1b0a09fd3fc157546a79a76e63b Mon Sep 17 00:00:00 2001
From: "Joachim Wuttke (o)" <j.wuttke@fz-juelich.de>
Date: Fri, 17 Mar 2017 16:06:54 +0100
Subject: [PATCH] printing of graphic filename included in info block
---
pub/plot/ps_plotter.cpp | 6 +++---
pub/share/g4.ps | 2 +-
pub/share/wups17a.ps | 5 ++---
3 files changed, 6 insertions(+), 7 deletions(-)
diff --git a/pub/plot/ps_plotter.cpp b/pub/plot/ps_plotter.cpp
index e0b5b042..9fa249ff 100644
--- a/pub/plot/ps_plotter.cpp
+++ b/pub/plot/ps_plotter.cpp
@@ -211,10 +211,10 @@ namespace {
string ps_footer(const string& fname, const string& doc_lines)
{
- return "\n{ black 0 -4 13 1.65 NewList\n"
+ return "\n{ black 0 -3 13 1.65 NewList\n"
+ doc_lines
- + "} oooinfo 1 eq { exec } { pop } ifelse\n"
- + "\n{(" + fname + ")} /filename exch def 10 -2.8 18 showfilename\n\n"
+ + " {(plot -> " + fname + ")} TxLine\n"
+ + "} oooinfo 1 eq { exec } { pop } ifelse\n\n"
+ "EndFrame\n";
}
diff --git a/pub/share/g4.ps b/pub/share/g4.ps
index f483f74c..75460440 100644
--- a/pub/share/g4.ps
+++ b/pub/share/g4.ps
@@ -13,7 +13,7 @@ WuGdict17a begin
/EndFrame { nextFrame end } def
1 1 language
-1 1 InfSet % plot fnam, info
+1 infSet % plot info block?
1 dup 2 SymGSet % srad slin serr(2=from pset) : graph symbols, global preset
% /setboxbackgroundcolor { 0.93 setgray } def % default is white
% setPalatino
diff --git a/pub/share/wups17a.ps b/pub/share/wups17a.ps
index d481565c..68f0c4ee 100644
--- a/pub/share/wups17a.ps
+++ b/pub/share/wups17a.ps
@@ -1291,10 +1291,9 @@ WuGdict17a begin
setown
ooofnam 1 eq { filename textRB } { pop pop } ifelse
} def
-/InfSet { % ooofnam oooinfo | - : set on(1) or off(0)
- /oooinfo x def /ooofnam x def
+/infSet { % oooinfo | - : set whether(1) or not(0) to plot info block
+ /oooinfo x def
} def
-0 0 InfSet % default setting
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--
GitLab