diff --git a/pub/share/wups11a.ps b/pub/share/wups11a.ps index 9e05a27786c81fa774a8fd21b6693b688809dbb8..f457d57f2d9d0a3ecfb220ba66ea6b868cf71786 100644 --- a/pub/share/wups11a.ps +++ b/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