[pstricks] a problem of deformation

[Cyrille Piatecki]

Dear all, and certainly Herbert,

I wonder why the open mouth is not correct in the following graphics. In 
pmy computer the two mouth are not drawn alike.

In the same spirit when I use \psscalebox whith such a custom graphics I 
have often some deformation


  Thanks to have a look

Cyrille Piatecki


\documentclass{article}
\usepackage{graphicx}
\usepackage[dvips, x11names]{xcolor}
\usepackage{pstricks, pstricks-add, pst-blur,pst-slpe,pst-coil}
\begin{document}

\begin{figure}
\begin{center}
\begin{pspicture}(3,.5)(9,6)
%\psgrid
\def\prisu{
\psline(6,.6)(7,.8)
\psset{linecolor=red,linestyle=none}
%\rput(3,2.5){\includegraphics[scale=1.2]{pdwc.eps}}
\psline[linewidth=5cm,linecolor=red](6,0)(6.2,.75)(6.4,.5)(6.8,.7)
%\rput(7,2.5){\includegraphics[scale=1.2]{pdwc.eps}}
\pscircle[fillstyle=slope,slopebegin=PeachPuff2,slopeend=PeachPuff1!20,slopeangle=60,linestyle 
= none](7.36,2.95){.58cm}
\pscircle[fillstyle=slope,slopebegin=PeachPuff2,slopeend=PeachPuff1!20,slopeangle=60,linestyle 
= none](7.35,3.9){.57cm}
\pscircle[fillstyle=slope,slopebegin=PeachPuff2,slopeend=PeachPuff1!20,slopeangle=60,linestyle 
= none](6.65,1.95){.2cm}
\pscircle[fillstyle=slope,slopebegin=PeachPuff2,slopeend=PeachPuff1!20,slopeangle=60,linestyle 
= none](8.18,1.9){.2cm}
\pscustom[fillstyle=slope,slopebegin=white, 
slopeend=black!01,fillstyle=slope,slopebegin=white,slopeend = black!20]{
\pscurve[showpoints=true,linewidth=2.8pt](6.8,1.75)(7.3,1.75)(7.98,1.8)
\pscurve[showpoints=true,linewidth=2.8pt](7.98,1.9)(7.96,2.2)(7.9,3.225)%
\lineto(7.925,3.275)
\pscurve[showpoints=true,linewidth=2.8pt](7.9,3.29)(7.8,3.35)(7.7,3.38)%
\pscurve[showpoints=true,linewidth=2.8pt](7.7,3.38)(7.3,3.25)(7.,3.38)%
\pscurve[showpoints=true,linewidth=2.8pt](7,3.38)(6.8,3.31)(6.7,3.24)%
\pscurve[showpoints=true,linewidth=2.8pt](6.7,3.24)(6.75,2.5)(6.8,1.75)%
}
\pscustom[fillstyle=slope,slopebegin=black!30,slopeend=black!70,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](7,3.38)(6.8,3.31)(6.7,3.24)%
\pscurve(6.7,3.22)(6.75,3.15)(6.8,3.1)(7.,3.15)(7.4,3.1)(7.6,3.15)(7.8,3.15)(7.9,3.175)(7.925,3.18)(7.9,3.2)
\psline(7.92,3.225)(7.95,3.3)
\pscurve(7.95,3.3)(7.825,3.35)(7.7,3.39)(7.4,3.25)(7,3.39)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=black!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](6.7,3.24)(6.68,3.24)(6.4,2.24)(6.45,1.95)%
\psline[showpoints=true,linewidth=2.8pt](6.425,1.95)(6.8,1.95)%
\pscurve[showpoints=true,linewidth=2.8pt](6.7,3.24)(6.68,3.24)(6.4,2.24)(6.45,1.95)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=black!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](7.95,3.325)(8.3,2.7)(8.35,1.95)%
\psline[showpoints=true,linewidth=2.8pt](8.35,1.95)(7.95,1.95)%
\pscurve[showpoints=true,linewidth=2.8pt](7.95,1.95)(7.975,2.1)(7.85,2.7)(7.9,3.2)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=black!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](7.42,1.75)(7.5,1.24)(7.5,.6)%
\psline[showpoints=true,linewidth=2.8pt](7.5,.6)(8.1,.73)%
\pscurve[showpoints=true,linewidth=2.8pt](8.1,.725)(8.15,.8)(8.15,.94)(7.975,1.8)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=black!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](6.8,1.75)(6.75,1.24)(6.55,.7)%
\psline[showpoints=true,linewidth=2.8pt](6.55,.6)(7.19,.55)%
\pscurve[showpoints=true,linewidth=2.8pt](7.2,.73)(7.25,.84)(7.25,.94)(7.4,1.75)
}
%\pspolygon[fillstyle=slope,slopebegin=white,slopeend=black!30,linecolor=blue]()()
\pspolygon[fillstyle=slope,slopebegin=black!10,slopeend=black!70,linecolor=blue,linearc=0.01](6.85,2.9)(7,2.95)(7.4,2.875)(7.7,2.95)(7.875,2.95)(7.85,2.8)(7.4,2.7)(7,2.8)(6.855,2.75)
%\pspolygon[fillstyle=slope,slopebegin=black,slopeend=black!50,linecolor=blue](7.73,.45)(8.265,.45)(8.2685,.6)(7.73,.6)
\pswedge[fillstyle=slope,slopebegin=black,slopeend=black!50,linecolor=blue](8,.45){.3cm}{0}{180}
\pswedge[fillstyle=slope,slopebegin=black,slopeend=black!50,linecolor=blue](6.85,.45){.3cm}{0}{180}
\rput(6,.75){\psBall{black}{.4cm}}
\psline(6,.6)(9,.8)}

\def\prisd{
\psline(6,.6)(7,.8)
\psset{linecolor=red,linestyle=none}
%\rput(3,2.5){\includegraphics[scale=1.2]{pdwc.eps}}
\psline[linewidth=5cm,linecolor=red](6,0)(6.2,.75)(6.4,.5)(6.8,.7)
%\rput(7,2.5){\includegraphics[scale=1.2]{pdwc.eps}}
\pscircle[fillstyle=slope,slopebegin=Seashell4,slopeend=Seashell4!20,slopeangle=60,linestyle 
= none](7.36,2.95){.58cm}
\pscircle[fillstyle=slope,slopebegin=Seashell3,slopeend=Seashell4!20,slopeangle=60,linestyle 
= none](7.35,3.9){.57cm}
\pscircle[fillstyle=slope,slopebegin=Seashell3,slopeend=Seashell4!20,slopeangle=60,linestyle 
= none](6.65,1.95){.2cm}
\pscircle[fillstyle=slope,slopebegin=Seashell3,slopeend=Seashell4!20,slopeangle=60,linestyle 
= none](8.18,1.9){.2cm}
\pscustom[fillstyle=slope,slopebegin=white, 
slopeend=Coral1!01,fillstyle=slope,slopebegin=white,slopeend = Coral1!20]{
\pscurve[showpoints=true,linewidth=2.8pt](6.8,1.75)(7.3,1.75)(7.98,1.8)
\pscurve[showpoints=true,linewidth=2.8pt](7.98,1.9)(7.96,2.2)(7.9,3.225)%
\lineto(7.925,3.275)
\pscurve[showpoints=true,linewidth=2.8pt](7.9,3.29)(7.8,3.35)(7.7,3.38)%
\pscurve[showpoints=true,linewidth=2.8pt](7.7,3.38)(7.3,3.25)(7.,3.38)%
\pscurve[showpoints=true,linewidth=2.8pt](7,3.38)(6.8,3.31)(6.7,3.24)%
\pscurve[showpoints=true,linewidth=2.8pt](6.7,3.24)(6.75,2.5)(6.8,1.75)%
}
\pscustom[fillstyle=slope,slopebegin=Coral1!30,slopeend=Coral1!70,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](7,3.38)(6.8,3.31)(6.7,3.24)%
\pscurve(6.7,3.22)(6.75,3.15)(6.8,3.1)(7.,3.15)(7.4,3.1)(7.6,3.15)(7.8,3.15)(7.9,3.175)(7.925,3.18)(7.9,3.2)
\psline(7.92,3.225)(7.95,3.3)
\pscurve(7.95,3.3)(7.825,3.35)(7.7,3.39)(7.4,3.25)(7,3.39)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=Coral1!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](6.7,3.24)(6.68,3.24)(6.4,2.24)(6.45,1.95)%
\psline[showpoints=true,linewidth=2.8pt](6.425,1.95)(6.8,1.95)%
\pscurve[showpoints=true,linewidth=2.8pt](6.7,3.24)(6.68,3.24)(6.4,2.24)(6.45,1.95)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=Coral1!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](7.95,3.325)(8.3,2.7)(8.35,1.95)%
\psline[showpoints=true,linewidth=2.8pt](8.35,1.95)(7.95,1.95)%
\pscurve[showpoints=true,linewidth=2.8pt](7.95,1.95)(7.975,2.1)(7.85,2.7)(7.9,3.2)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=Coral1!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](7.42,1.75)(7.5,1.24)(7.5,.6)%
\psline[showpoints=true,linewidth=2.8pt](7.5,.6)(8.1,.73)%
\pscurve[showpoints=true,linewidth=2.8pt](8.1,.725)(8.15,.8)(8.15,.94)(7.975,1.8)
}
\pscustom[fillstyle=slope,slopebegin=white,slopeend=Coral1!30,linecolor=blue]{
\pscurve[showpoints=true,linewidth=2.8pt](6.8,1.75)(6.75,1.24)(6.55,.7)%
\psline[showpoints=true,linewidth=2.8pt](6.55,.6)(7.19,.55)%
\pscurve[showpoints=true,linewidth=2.8pt](7.2,.73)(7.25,.84)(7.25,.94)(7.4,1.75)
}
%\pspolygon[fillstyle=slope,slopebegin=white,slopeend=black!30,linecolor=blue]()()
\pspolygon[fillstyle=slope,slopebegin=Coral1!10,slopeend=Coral1!70,linecolor=blue,linearc=0.01](6.85,2.9)(7,2.95)(7.4,2.875)(7.7,2.95)(7.875,2.95)(7.85,2.8)(7.4,2.7)(7,2.8)(6.855,2.75)
%\pspolygon[fillstyle=slope,slopebegin=Coral1,slopeend=black!50,linecolor=blue](7.73,.45)(8.265,.45)(8.2685,.6)(7.73,.6)
\pswedge[fillstyle=slope,slopebegin=Coral1,slopeend=Coral1!50,linecolor=blue](8,.45){.3cm}{0}{180}
\pswedge[fillstyle=slope,slopebegin=Coral1,slopeend=Coral1!50,linecolor=blue](6.85,.45){.3cm}{0}{180}
\rput(6,.75){\psBall{Coral1}{.4cm}}
\psline(6,.6)(9,.8)}
\rput(2.4,2.2){\psscalebox{.15 .15}{\prisu}}
\rput(5.9,5.2){\psscalebox{.15 .15}{\prisd}}

\pspolygon[fillstyle=slope,slopebegin=white,slopeend=PaleTurquoise1,linecolor=SteelBlue2,shadow=true,blur=true](5.5,1)(8.5,1)(8.5,4.)(5.5,4.)
\psline[linecolor=SteelBlue2](5.5,2.5)(8.5,2.5)
\psline[linecolor=SteelBlue2](7,1)(7,4)
\rput(6.4,3.2){(3,3)}
\rput(7.8,3.2){(5,0)}
\rput(6.4,1.8){(0,5)}
\rput(7.8,1.8){(1,1)}

\pscircle[fillstyle=slope,slopebegin=Seashell3,slopeend=Seashell4!20,slopeangle=60,linestyle 
= none](7.75,4.5){.45cm}
\pscircle[fillstyle=slope,slopebegin=Seashell3,slopeend=Seashell4!20,slopeangle=60,linestyle 
= none](6.25,4.5){.45cm}
\pscircle[fillstyle=slope,slopebegin=PeachPuff2,slopeend=PeachPuff1!20,slopeangle=60,linestyle 
= none](4.5,1.8){.45cm}
\pscircle[fillstyle=slope,slopebegin=PeachPuff2,slopeend=PeachPuff1!20,slopeangle=60,linestyle 
= none](4.5,3.2){.45cm}
\def\bouche{
\pscustom[linecolor=Firebrick2,fillstyle=solid,fillcolor=pink]{
\psline(6.1,4.3)(6.4,4.3)
\pscurve(6.4,4.3)(6.2,4.2)(6.1,4.3)
}}
\rput(0,0){\bouche}
\rput(-1.8,-1.3){\bouche}
\def\sil{
\psline[linewidth=2pt,linecolor=Firebrick1]{cc-cc}(7.6,4.4)(7.9,4.2)
\psline[linewidth=2pt,linecolor=Firebrick1]{cc-cc}(7.6,4.2)(7.9,4.4)}
\rput(0,0){\sil}
\rput(-3.2,-2.7){\sil}
%\psgrid
\end{pspicture}
\caption{\textsc{}}\label{}
\end{center}
\end{figure}





\end{document}