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

[Michael Sharpe]

On Jan 3, 2012, at 5:44 AM, Thomas Söll 1und1 wrote:

> 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}

For one method of drawing curves with continuously varying color, you could check the pstricks-add-doc.pdf section "Ticks and other marks on curves".

Michael