restore itest/curevplot under wups17a

pub/itest/curveplot.f2t

 #!/usr/bin/env frida
 ! rm -f /tmp/fridatestplot.ps
-pshead="g3wallpaper.ps"
+pshead="g4wallpaper.ps"
 gnc 100
 cca p0+p1*t
 op0 100000

pub/itest/g3wallpaper.ps → pub/itest/g4wallpaper.ps

-WuGdict11a begin
-
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%  Customizable plot setup, copied from g3.ps (editr: use latin-1)
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
-%%  Position and scale:
+WuGdict17a begin
 
-iFrame 0 eq
-{
 12 dup autolabel defsiz
 .4 dup geld stdred
+
 2 -11 setnewpage newpage
 3 8 13 -12 setpagegrid
 
@@ -17,38 +14,32 @@ iFrame 0 eq
 /EndFrame { nextFrame end } def
 
 1 1 language
-0 0 InfSet % plot fnam, info
+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
 
-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
+   { 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 [
-{ ccol { 1. [          ] lset } { 1. [] lset  0 icCol } ifelse }
-] def
-
-} if % iFrame==0
-
-%%  Clear frame:
+   { 1. [] lset siemensred }
+   ] def
 
 Resets
 BoxBackground