[pstricks] Transparency - Problem very ... odd

[Herbert Voss]

Loïc wrote:

> \documentclass[10pt]{article}
> \usepackage{pstricks,pst-xkey,pstricks-add}
> \makeatletter
> \define at key[psset]{}{transpalpha}{\pst at checknum{#1}\pstranspalpha}
> \psset{transpalpha=1}
> \def\psfs at transp{%
>  \addto at pscode{/Normal .setblendmode \pstranspalpha .setshapealpha }
> \psfs at solid}
> \makeatother

\def\psfs at transp{%
   \addto at pscode{%
     /Normal .setblendmode \pstranspalpha .setshapealpha }% <-!!!
     \psfs at solid}
\makeatother

an unexpected horizontal move is in 99% of all cases
a trailing space ...

Herbert