[pstricks] \pscustom[fillstyle=vlines]

[Denis Vergès]

Hello,
%%%%%%%%%%%%%%%%%%%%%%%%
\psset{unit=0.8cm}
\begin{pspicture}(-1,-2)(14,6)
\psaxes[linewidth=1.5pt]{->}(0,0)(-1,-2)(14,6)
\def\arc{\parametricplot{0}{0.25}{8 t mul 4 add 8 t mul t dup mul 8 mul sub}
\parametricplot[linecolor=blue]{0}{0.25}{8 8 t mul sub  8 t mul t dup mul 8 mul sub}}
\psgrid[gridlabels=0pt,gridcolor=orange,subgriddiv=1](0,-2)(14,6)
\psdots[dotstyle=+,dotangle=45,dotscale=2](0,0)(4,0)(8,0)(12,0)(4,4)(8,4)
\uput[ur](0,0){$P_{0}$}\uput[ul](4,4){$P_{1}$}\uput[ur](8,0){$P_{2}$}
\uput[ul](4,0){$P_{3}$}\uput[ur](8,4){$P_{4}$}\uput[ur](12,0){$P_{5}$}
\parametricplot{0}{1}{8 t mul 4 add 8 t mul t dup mul 8 mul sub}
\parametricplot[linecolor=blue]{0}{0.25}{8 8 t mul sub  8 t mul t dup mul 8 mul sub}
\pscustom[fillstyle=vlines]{
\parametricplot{0}{0.25}{8 t mul 4 add 8 t mul t dup mul 8 mul sub}
\psline(6,0)(4,0)}
\pscustom[fillstyle=vlines]{\parametricplot[linecolor=blue]{0}{0.25}{8 8 t mul sub  8 t mul t dup mul 8 mul sub}
\psline(6,0)(8,0)}
\end{pspicture}
%%%%%%%%%%%%%%%%%%%%%

\bigskip

\psset{unit=0.8cm}
\begin{pspicture}(-1,-2)(14,6)
\psaxes[linewidth=1.5pt]{->}(0,0)(-1,-2)(14,6)
\def\arc{\parametricplot{0}{0.25}{8 t mul 4 add 8 t mul t dup mul 8 mul sub}
\parametricplot[linecolor=blue]{0}{0.25}{8 8 t mul sub  8 t mul t dup mul 8 mul sub}}
\psgrid[gridlabels=0pt,gridcolor=orange,subgriddiv=1](0,-2)(14,6)
\psdots[dotstyle=+,dotangle=45,dotscale=2](0,0)(4,0)(8,0)(12,0)(4,4)(8,4)
\uput[ur](0,0){$P_{0}$}\uput[ul](4,4){$P_{1}$}\uput[ur](8,0){$P_{2}$}
\uput[ul](4,0){$P_{3}$}\uput[ur](8,4){$P_{4}$}\uput[ur](12,0){$P_{5}$}
\parametricplot{0}{1}{8 t mul 4 add 8 t mul t dup mul 8 mul sub}
\parametricplot[linecolor=blue]{0}{0.25}{8 8 t mul sub  8 t mul t dup mul 8 mul sub}
\pscustom[fillstyle=vlines]{
\arc
\psline(8,0)(4,0)}
\end{pspicture}
%%%%%%%%%%%%%%%%%
In the first script, I don't want the \psline(6,0)(6,1.5)

In the second  I don't want the \psline(8,0)(6,1.5).

How can I do ?

Thanks.
Denis