[pstricks] How can the color in a coil changed?

[Thomas Söll 1und1]

Hallo,
I have tried to change the color in a coil to make the change of the temperature in the water visible, but my ideas are not possible to realize.

Has anyone an idea?

The picture i want to create is in the attechement.

Thanks for helping,

Thomas Söll

\documentclass[a4paper,12pt]{article}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage{ngerman}

\usepackage[dvips]{graphics}
\usepackage[dvips]{graphicx}
\usepackage[dvips,usenames,dvipsnames]{xcolor} %% Farben sind im Dokument xcolor.pdf definiert
\usepackage{pst-plot}
\usepackage{pst-node}
\usepackage{pst-tree}
\usepackage{pst-eps}
\usepackage[tiling]{pst-fill}
\usepackage{pst-text}
\usepackage{pst-blur}
\usepackage{pst-grad}
%\usepackage{pst-ghsb}
\usepackage{pst-slpe}
\usepackage{pst-coil}
\usepackage{pst-circ}
\usepackage{pst-eucl}
\usepackage{pst-math}
\usepackage{pst-func}
\usepackage{pstricks-add}





\begin{document}


\rput[l](1.7,-0.8){%
\psset{ArrowFill=true,arrowinset=0,arrowscale=0.7,arrowlength=0.5,framearc=0.05,dimen=outer}%
%\psframe(14,-0.8)(16,0.8)%
\psline[linewidth=0.7cm,linecolor=gray!40]{->}(12,0)(14,0)%
\psline[linewidth=0.2cm,linecolor=gray!40,linearc=0.3]{->}(12,-0.35)(12.5,-0.35)(12.5,-1.0)
\psframe(10,-0.8)(12,0.8)%
\psline[linewidth=0.9cm,linecolor=gray!40]{->}(8,0)(10,0)%
\psline[linewidth=0.2cm,linecolor=gray!40,linearc=0.3]{->}(8,-0.45)(8.5,-0.45)(8.5,-1.1)
\psframe(6,-0.8)(8,0.8)%
\psline[linewidth=1.1cm,linecolor=gray!40]{->}(4,0)(6,0)%
\psline[linewidth=0.2cm,linecolor=gray!40,linearc=0.3]{->}(4,-0.55)(4.5,-0.55)(4.5,-1.2)
\psframe(2,-0.8)(4,0.8)%
\psline[linewidth=1.3cm,linecolor=gray!40]{->}(0,0)(2,0)%
\psline[linewidth=0.2cm,linecolor=gray!40,linearc=0.3]{->}(0,-0.65)(0.5,-0.65)(0.5,-1.3)
\psframe(-2,-0.8)(0,0.8)%
\rput[c](3,0.3){\psframebox[linecolor=white]{Rohre}}%
\rput[c](3,-0.3){\psframebox[linecolor=white]{Kessel}}%
\rput[l](4.1,0.2){\small potentielle}%
\rput[l](4.1,-0.3){\small Energie}%
\textcolor{red}{%
\rput[l](0.1,0.2){\small thermische}%
\rput[l](0.1,-0.3){\small Energie}%
\rput[l](8.1,0.2){\small kinetische}%
\rput[l](8.1,-0.3){\small Energie}%
\rput[l](12.1,0){\small elektr. Energie}%
\rput[c](-1,0){\psframebox[linecolor=white]{Brenner}}%
\rput[c](7,0){\psframebox[linecolor=white]{Turbine}}%
\rput[c](11,0){Generator}%
\rput[l](12.7,-0.85){\small WE}%
\rput[l](8.7,-0.95){\small WE}%
\rput[l](4.7,-1.05){\small WE}%
\rput[l](0.7,-1.15){\small WE}%
}}%
%

{\psset{coilheight=0.495,coilwidth=1.3cm,coilaspect=52}
\rput(0.55,-7.64){%
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{250}{720}}
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=cyan,linewidth=0.045cm]{250}{720}}
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{600}{1200}}
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{600}{1200}}
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{850}{1400}}
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{850}{1400}}
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{1300}{1550}}
\rput{90}(0,3.5){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{1300}{1550}}
}}
\rput(0.3,-3.01){%
\psframe[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=90,gradbegin=cyan!100,gradend=cyan!90](1,-1.18)(3,-1)
\psframe[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=90,gradbegin=cyan!90,gradend=magenta!90](0,-1.18)(1,-1) }




\end{document} 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20120103/c9be5c7d/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Wasserkreislauf_im_Kraftwerk.pdf
Type: application/pdf
Size: 1128773 bytes
Desc: not available
URL: <http://tug.org/pipermail/pstricks/attachments/20120103/c9be5c7d/attachment-0001.pdf>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Wasserkreislauf_im_Kraftwerk.tex
Type: application/octet-stream
Size: 3236 bytes
Desc: not available
URL: <http://tug.org/pipermail/pstricks/attachments/20120103/c9be5c7d/attachment-0001.obj>