diff --git a/pub/share/wups11a.ps b/pub/share/wups11a.ps index 7eb5808e770cb416408610d5e5cf0552107b34bc..7cbf270b63dddf43f56428b647150b8b345a5b51 100644 --- a/pub/share/wups11a.ps +++ b/pub/share/wups11a.ps @@ -1028,10 +1028,11 @@ WuGdict11a begin dup 7 eq {/ps {ps_valve} def} if dup 8 eq {/ps {ps_tfwd} def} if dup 9 eq {/ps {ps_tbwd} def} if - dup 10 eq {/ps {ps_penta} def} if + dup 10 eq {/ps {ps_pentagram} def} if dup 11 eq {/ps {ps_plus} def} if dup 12 eq {/ps {ps_cross} def} if dup 13 eq {/ps {ps_star} def} if + dup 14 eq {/ps {ps_pentagon} def} if pop % /t { % x y d[- d+] | - : plot a symbol and eventually an error bar. @@ -1164,8 +1165,8 @@ WuGdict11a begin gsave 90 rotate ps_eieruhr grestore } bind def -/ps_penta { - .94 dup dup dup dup +/ps_pentagram { + .8 dup dup dup dup 90 pol2xy np mv 234 pol2xy li 18 pol2xy li @@ -1173,6 +1174,15 @@ WuGdict11a begin 306 pol2xy li cp fill_symbol } bind def +/ps_pentagon { + .8 dup dup dup dup + 18 pol2xy np mv + 90 pol2xy li + 162 pol2xy li + 234 pol2xy li + 306 pol2xy li cp fill_symbol + } bind def + /ps_plus { gsave 45 rotate ps_cross grestore } bind def