PSTricks Drawing: LuaLaTeX Gives Unexpected Output

Question

Code

Consider the following example:

\documentclass{article}
\usepackage{multido}
\usepackage{pstricks}
\begin{document}
\begin{figure}
% https://tex.stackexchange.com/questions/114278/isometric-paper-and-drawing-on-it-with-pstricks
\centering
 \psset{
   linejoin = 2
 }
 \SpecialCoor
  \begin{pspicture}(-0.5,-2)(10,8.5)
    \pstVerb{gsave [\fpeval{sqrt(3)/2} 0.5 0 1 0 -400] concat}
   {\psset{
      linewidth = 0.3pt,
      linecolor = black!50
    }
     \multido
       {\i = 0+1}
       {25}
       {\psline(\i,-4)(\i,20)
        \psline(!-5 \i\space 10 sub)(!20 \i\space 10 sub)
        \rput(!0 \i\space 15 sub){\psline(0,0)(!\i\space abs dup add dup)}}
   }
   {\psset{
      linewidth = 2pt
    }
    \pspolygon(8,2)(8,6)(11,9)(11,5)
    \pspolygon(1,2)(1,6)(8,6)(8,2)
    \pspolygon(1,6)(2.5,9.5)(9.5,9.5)(8,6)
    \psline(11,9)(9.5,9.5)
   {\psset{
      linestyle = dashed
    }
    \pspolygon(4,5)(4,9)(11,9)(11,5)
    \pspolygon(1,6)(4,9)(4,5)(1,2)
    \psline(4,9)(2.5,9.5)
    \pstVerb{grestore}
   }
   }
  \end{pspicture}
\end{figure}
\end{document}

Output

When I compile using lualatex I get the following wrong output:

However, when I compile using latex --> dvips --> ps2pdf -dALLOWPSTRANSPARENCY I get the following correct output:

Question

How can I compile using lualatex and get the correct output?

Answer 1

Until we find a better (automatic) solution use it this way:

\DocumentMetadata{}
\documentclass{article}
\usepackage{multido}
\usepackage{pstricks}
\begin{document}
\begin{pspicture}showgrid(10,12)
\ifPSTlualatex
  \pstVerb{ gsave [60 sin -0.5 0 1 0 100] concat }%
\else
  \pstVerb{ gsave [60 sin 0.5 0 1 0 -400] concat }%
\fi
{\psset{linewidth = 0.3pt,linecolor = black!50}%
    \multido{\i = 0+1}{25}{%
        \psline(\i,-4)(\i,20)
        \psline(!-5 \i\space 10 sub)(!20 \i\space 10 sub)
        \rput(!0 \i\space 15 sub){\psline(0,0)(!\i\space abs dup add dup)}}
}%
\psset{linewidth = 2pt}
\pspolygon(8,2)(8,6)(11,9)(11,5)
\pspolygon(1,2)(1,6)(8,6)(8,2)
\pspolygon(1,6)(2.5,9.5)(9.5,9.5)(8,6)
\psline(11,9)(9.5,9.5)
\psset{linestyle = dashed}
\pspolygon(4,5)(4,9)(11,9)(11,5)
\pspolygon(1,6)(4,9)(4,5)(1,2)
\psline(4,9)(2.5,9.5)
\psdotdotscale=3
\pspolygonlinecolor=red(10,10)(10,0)(0,10)(0,0)
\pstVerb{grestore}
\end{pspicture}
\end{document}