+ plotsym pentagon

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