corr, due to rewrite of /ps using 'scale'

pub/share/wups11a.ps

@@ -954,19 +954,19 @@ WuGdict11a begin
 
 %% Set plot symbol:
 
-/pset { % styp sfill serr srad sline | -
-   % arg5 -> symbol linewidth
+/pset { % styp sfill serr srad slin | -
+   % arg -> symbol linewidth
    /slin x slinglo mul def   
-   % arg4 -> symbol size
+   % arg -> symbol size
    /srad x fm 0.16 mul sradglo mul def
-   % arg3 -> plot error bar?
+   % arg -> plot error bar?
    2 serrglo ne { pop serrglo } if % if (serrglo=2) use serr else use serrglo
    /plot_errorbar x 1 eq { { errorbar } } { { pop pop pop pop } } ifelse def
-   % arg2 -> fill the symbol? (0=open, 1=full, 2=colored_with_black_border)
+   % arg -> fill the symbol? (0=open, 1=full, 2=colored_with_black_border)
    /sfill x def
    % adjust srad: it's the _outer_ radius
-   sfill 1 ne {/srad srad slin fm pt sub def} if 
-   % arg1 -> symbol type
+   % TROUBLE sfill 1 ne {/srad srad slin fm pt sub def} if 
+   % arg -> symbol type
    /ps {pop pop} def % default: don't plot (maybe we only want an error bar)
    dup  1 eq {/ps {ps_square}     def} if
    dup  2 eq {/ps {ps_diamond}    def} if
@@ -1047,7 +1047,7 @@ WuGdict11a begin
    gsave
       offset
       srad dup scale
-      slin setline
+      slin srad div setline % Faktor 1/div unverstanden, aber noetig
       ps % the actual plot symbol, defined by 'pset'
       grestore
    } bind def