heat plot colors in aCol6, made deafault in setup2D.

pub/share/setup2D.ps

@@ -18,7 +18,7 @@ WuGdict17a begin
 % /setboxbackgroundcolor { 0.93 setgray } def % default is white
 % setPalatino
 
-{ 10 aCol2 iColA } /icCol x bind def % number of colours and colour style
+{ 10 aCol6 iColA } /icCol x bind def % number of colours and colour style
 
 /hxlow 11.3 def
 /hxhig 12.3 def

pub/share/wups17a.ps

@@ -368,6 +368,17 @@ WuGdict17a begin
    { 255 165   0 } % orange
    { 255 127  80 } % coral
    ] def
+/aCol6 [ % heat plot
+   { 100   0 100 } % violet
+   {  60  30 130 } % dark blue
+   {  30  50 220 } % blue
+   {  50 150 100 } % green
+   { 150 200 100 } % green
+   { 215 255  50 } % green/yellow
+   { 255 255   0 } % yellow
+   { 255 125   0 } % orange
+   { 255   0   0 } % red
+   ] def
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%  Fonts