diff --git a/pub/itest/curveplot.f2t b/pub/itest/curveplot.f2t
index 5a0fd68e441036fd671a30a31d8ec0dac11259e3..57a7696703fae387793a9f4c1d03b758a93b0a8d 100755
--- a/pub/itest/curveplot.f2t
+++ b/pub/itest/curveplot.f2t
@@ -1,6 +1,6 @@
 #!/usr/bin/env frida
 ! rm -f /tmp/fridatestplot.ps
-pshead="g3wallpaper.ps"
+pshead="g4wallpaper.ps"
 gnc 100
 cca p0+p1*t
 op0 100000
diff --git a/pub/itest/g3wallpaper.ps b/pub/itest/g3wallpaper.ps
deleted file mode 100644
index 371abf1932226c7fdce3e8c97b52721ab856833e..0000000000000000000000000000000000000000
--- a/pub/itest/g3wallpaper.ps
+++ /dev/null
@@ -1,58 +0,0 @@
-WuGdict11a begin
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%  Customizable plot setup, copied from g3.ps (editör: use latin-1)
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%  Position and scale:
-
-iFrame 0 eq
-{
-12 dup autolabel defsiz
-.4 dup geld stdred
-2 -11 setnewpage newpage
-3 8 13 -12 setpagegrid
-
-2 8 24 abcset % usage: {(text)} abc
-/EndFrame { nextFrame end } def
-
-1 1 language
-0 0 InfSet % plot fnam, info
-1 dup 2 SymGSet % srad slin serr(2=from pset) : graph symbols, global preset
-% /setboxbackgroundcolor { 0.93 setgray } def % default is white
-% setPalatino
-
-F /pcol x def % black&white on/off
-{ 8 aCol5 iColA } /ipCol x bind def % number of colours and colour style
-/pStyles [
-{ pcol {  1 1 0 1. 1. pset } { 11 0 0 1. 1. pset  0 ipCol } ifelse }
-{ pcol {  1 0 0 1. 1. pset } { 12 1 0 1. 1. pset  1 ipCol } ifelse }
-{ pcol {  2 1 0 1. 1. pset } { 13 1 0 1. 1. pset  2 ipCol } ifelse }
-{ pcol {  2 0 0 1. 1. pset } {  1 0 0 1. 1. pset  3 ipCol } ifelse }
-{ pcol {  3 1 0 1. 1. pset } {  1 1 0 .7 1. pset  4 ipCol } ifelse }
-{ pcol {  3 0 0 1. 1. pset } {  3 0 0 1. 1. pset  5 ipCol } ifelse }
-{ pcol {  4 1 0 1. 1. pset } {  3 1 0 .7 1. pset  6 ipCol } ifelse }
-{ pcol {  4 0 0 1. 1. pset } {  4 0 0 1. 1. pset  7 ipCol } ifelse }
-{ pcol {  5 1 0 1. 1. pset } {  4 1 0 .7 1. pset  0 ipCol } ifelse }
-{ pcol {  5 0 0 1. 1. pset } {  5 0 0 1. 1. pset  1 ipCol } ifelse }
-{ pcol {  5 0 0 1. 1. pset } {  5 1 0 .7 1. pset  2 ipCol } ifelse }
-{ pcol {  3 0 0 1. 1. pset } {  2 0 0 1. 1. pset  3 ipCol } ifelse }
-{ pcol {  4 1 0 1. 1. pset } {  2 1 0 .7 1. pset  4 ipCol } ifelse }
-] def
-
-F /ccol x def % black&white on/off
-{ 8 aCol5 iColA } /icCol x bind def % number of colours and colour style
-/cStyles [
-{ ccol { 1. [          ] lset } { 1. [] lset  0 icCol } ifelse }
-] def
-
-} if % iFrame==0
-
-%%  Clear frame:
-
-Resets
-BoxBackground
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%  Mark "ecu", end of the customization section
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/pub/itest/g4wallpaper.ps b/pub/itest/g4wallpaper.ps
new file mode 100644
index 0000000000000000000000000000000000000000..f78e8cc66a8275121eee8c2c318fb9541088264e
--- /dev/null
+++ b/pub/itest/g4wallpaper.ps
@@ -0,0 +1,49 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%  Customizable plot setup, copied from g3.ps (editör: use latin-1)
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+WuGdict17a begin
+
+12 dup autolabel defsiz
+.4 dup geld stdred
+
+2 -11 setnewpage newpage
+3 8 13 -12 setpagegrid
+
+2 8 24 abcset % usage: {(text)} abc
+/EndFrame { nextFrame end } def
+
+1 1 language
+0 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
+
+{ 8 aCol5 iColA } /ipCol x bind def % number of colours and colour style
+/pStyles [
+   { 11 0 0 1. 1. pset  0 ipCol }
+   { 12 1 0 1. 1. pset  1 ipCol }
+   { 13 1 0 1. 1. pset  2 ipCol }
+   {  1 0 0 1. 1. pset  3 ipCol }
+   {  1 1 0 .7 1. pset  4 ipCol }
+   {  3 0 0 1. 1. pset  5 ipCol }
+   {  3 1 0 .7 1. pset  6 ipCol }
+   {  4 0 0 1. 1. pset  7 ipCol }
+   {  4 1 0 .7 1. pset  0 ipCol }
+   {  5 0 0 1. 1. pset  1 ipCol }
+   {  5 1 0 .7 1. pset  2 ipCol }
+   {  2 0 0 1. 1. pset  3 ipCol }
+   {  2 1 0 .7 1. pset  4 ipCol }
+   ] def
+
+{ 8 aCol2 iColA } /icCol x bind def % number of colours and colour style
+/cStyles [
+   { 1. [] lset siemensred }
+   ] def
+
+Resets
+BoxBackground
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%  Mark "ecu", end of the customization section
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%