[pstricks] hook and arrowinset

[Bernd Sellentin]

Am Dienstag, 11. Dezember 2007 schrieb Herbert Voss:
>
>   \makeatletter
>   \edef\pst at arrowtable{\pst at arrowtable,D-D}
>   \@namedef{psas at D}{
>      \psk at arrowinset \psk at arrowlength \psk at arrowsize exch
>      dup 0 gt {/Positive true def}{/Positive false def} ifelse
>      abs exch
>      CLW mul add dup
>      2 div /w ED
>      mul dup /h ED
>      mul /Inset ED
>      0 h Inset sub moveto
>      w Positive {neg} if h L 0 0 L
>      gsave fill grestore }
>   \makeatother
>
> Herbert
>
It works. Thank you for the help!
Bernd