[pstricks] Bug in pscustom or ...

[Etienne Riga]

In the figure whose code follows, it seems to to me that the width of
the line which was traced in red for better locating should be 0.8pt.

If I move the code of this line at the place where is the blue line,
all becomes again normal.

\psset{unit=1truemm}
\line\bgroup\hss
\pspicture(-14,-13)(132,162)
\psset{xunit=10truemm}
\pscustom[fillstyle=solid,fillcolor=lightgray,linestyle=none]{
 \psline(0,14)(1,67)(2,20)(3,18)(4,2)(5,6)(6,0)(7,1)
  (8,1)(9,0)(10,0)(11,.5)(12,0)(13,.5)
 \psline(13,.5)(13,0)(0,0)(0,14)}
 \psline(0,14)(1,67)(2,20)(3,18)(4,2)(5,6)(6,0)(7,1)
  (8,1)(9,0)(10,0)(11,.5)(12,0)(13,.5)
\psline(0,24)(1,105.5)(2,54)(3,22)(4,3.5)(5,7)(6,0)(7,1)
  (8,1)(9,0)(10,0)(11,1.5)(12,0)(13,1.5)
\pscustom[fillstyle=vlines,hatchwidth=.4pt,hatchsep=3pt,linestyle=none]{
 \psline(0,27)(1,135)(2,95)(3,35)(4,12)(5,14)(6,2)(7,4.5)
  (8,3)(9,1)(10,.75)(11,1.5)(12,0)(13,1.5)
 \psline(13,1.5)(12,0)(11,1.5)(10,0)(9,0)(8,1)
  (7,1)(6,0)(5,7)(4,3.5)(3,22)(2,54)(1,105.5)(0,24)(0,27)}
 \psline(0,27)(1,135)(2,95)(3,35)(4,12)(5,14)(6,2)(7,4.5)
  (8,3)(9,1)(10,.75)(11,1.5)(12,0)(13,1.5)
\pscustom[fillstyle=hlines,hatchwidth=.4pt,hatchsep=1.5pt,linestyle=none]{
 \psline(0,28)(1,144.5)(2,101)(3,42)(4,13.5)(5,16)(6,3)(7,5)
  (8,4)(9,1.5)(10,.75)(11,1.5)(12,0)(13,2)
 \psline(13,2)(13,1.5)(12,0)(11,1.5)(10,.75)(9,1)(8,3)
  (7,4.5)(6,2)(5,14)(4,12)(3,35)(2,95)(1,135)(0,27)(0,28)}
 \psline[linecolor=red](0,28)(1,144.5)(2,101)(3,42)(4,13.5)(5,16)(6,3)(7,5)
  (8,4)(9,1.5)(10,.75)(11,1.5)(12,0)(13,2)
\pscustom[fillstyle=crosshatch*,fillcolor=black,hatchcolor=white,
  hatchwidth=.8pt,hatchsep=1.2pt,hatchangle=0,linestyle=none]{
 \psline(0,28)(1,147)(2,110)(3,54)(4,17)(5,25)(6,4.5)(7,7.75)
  (8,6)(9,5)(10,2)(11,3)(12,4.75)(13,3)
 \psline(13,3)(13,2)(12,0)(11,1.5)(10,.75)(9,1.5)(8,4)
  (7,5)(6,3)(5,16)(4,13.5)(3,42)(2,101)(1,144.5)(0,28)(0,28)}
 \psline(0,28)(1,147)(2,110)(3,54)(4,17)(5,25)(6,4.5)(7,7.75)
  (8,6)(9,5)(10,2)(11,3)(12,4.75)(13,3)
% \psline[linecolor=blue](0,28)(1,144.5)(2,101)(3,42)
%(4,13.5)(5,16)(6,3)(7,5)
%  (8,4)(9,1.5)(10,.75)(11,1.5)(12,0)(13,2)
\psset{unit=1truemm}
\rput[lB](70,110){\psframe[fillstyle=crosshatch*,fillcolor=black,
  hatchcolor=white,hatchwidth=.8pt,hatchsep=1.2pt,
  hatchangle=0](7,5)\rput[lB](10,1.5){EnlŠvement burinant}}
\rput[lB](70,102){\psframe[fillstyle=hlines,hatchwidth=.4pt,
 hatchsep=1.5pt](7,5)\rput[lB](10,1.5){Marche}}
\rput[lB](70,94){\psframe[fillstyle=vlines,hatchwidth=.4pt,
 hatchsep=3pt](7,5)\rput[lB](10,1.5){Plume}}
\rput[lB](70,86){\psframe(7,5)\rput[lB](10,1.5){CharniŠre}}
\rput[lB](70,78){\psframe[fillstyle=solid,fillcolor=lightgray]
  (7,5)\rput[lB](10,1.5){Languette}}
\psaxes[tickstyle=bottom,ticksize=2pt,linewidth=.4pt,
  Dx=1,dx=1truecm,Dy=10,dy=1.145truecm](130,160.35)
\rput[b]{90}(-11,80){Nombre de piŠces}
\rput[t](65,-9){Longueur de la trace en mm}
\endpspicture
\hss\egroup



Étienne Riga