frame for color legend now ok

pub/plot/ps_plotter.cpp

@@ -193,7 +193,6 @@ namespace {
         int ntpt;
         double ticklim[2];
         vector<double> Tacks;
-        ret += "\n";
         ret += "% " + string(1,a) + " axis:\n";
         if (A->logflag && A->inf <= 0)
             throw "BUG: log incompatible with limits " + A->str();
@@ -221,7 +220,14 @@ namespace {
 
     string ps_colorscale()
     {
-        return "pop %TODO colorscale\n";
+        return
+            "/hxlow 11.3 def\n"
+            "/hxhig 12.3 def\n"
+            " hxlow hxhig 0  0     0  90 OneAxx Axx %% low x line\n"
+            " hxlow hxhig 0 10     0  90 OneAxx Axx %% low x line\n"
+            " 0 10  hxlow 0    90   0 OneAxx Tic Tac Axx       %% left y axis\n"
+            " 0 10  hxhig 0    90 180 OneAxx Tic Tac Axx yNumH %% right y axis\n"
+            "hxhig YCH\n\n";
     }
 
     string ps_slice_header(

pub/share/wups17a.ps

@@ -924,16 +924,17 @@ WuGdict17a begin
       0 x 0 x textCB
    grestore
    } def
-/yCH { % ylabel | - ; plots coordinate name to the right of the y-axis.
+/YCH { % ylabel xpos | - ; plots coordinate name to the right of a vertical axis
    gsave
       setlab
-      yNumLengthH fontsize .85 mul add 10 xm add
+      yNumLengthH fontsize .85 mul add x xm add
       aMean ym translate
       0 0 mv
       90 rotate
       0 x 0 x textCT
    grestore
    } def
+/yCH { 10 YCH } def % ylabel | - ; plots coordinate name to the right of the y-axis.
 /yCF { % ylabel | - ; plots coordinate name *falling* right of the y-axis.
    gsave
       setlab