<font color='black' size='2' face='Arial, Helvetica, sans-serif'>Dea<font size="2" color="black" face="Arial, Helvetica, sans-serif">r Thomas,<br>
<br>
Nothing is perfect in this low world, but your drawing is splendid. It's a very good example of the possibilities of PStricks.<br>
<br>
I think Herbert will place the new version I saw of the electrical generating power station in the examples on the site of PStricks?<br>
<div> <br>
Best regards,<br>
<br>
Manuel<br>
<br>
PS : <span id="result_box" class="short_text" lang="en"><span class="hps">The new version is</span> <span class="hps">here : <br>
</span></span><a href="http://pstricks.blogspot.com/2012/01/centrale-thermique-flammes-schematisee_07.html" target="_blank">http://pstricks.blogspot.com/<wbr>2012/01/centrale-thermique-<wbr>flammes-schematisee_07.html</a><br>
</div>
<div> <br>
</div>
<div> <br>
</div>
<div style="font-family:arial,helvetica;font-size:10pt;color:black">-----E-mail d'origine-----<br>
De : Thomas Söll 1und1 <Thomas.Soell@onlinehome.de><br>
A: pstricks <pstricks@tug.org><br>
Envoyé le : Vendredi, 6 Janvier 2012 9:45<br>
Sujet : [pstricks] continues color in a coil<br>
<br>
<div id="AOLMsgPart_2_34b5c3e7-f148-4d9b-b2f8-d7a56374d389">
<div><font face="Calibri">Hello,</font></div>
<div><font face="Calibri"></font> </div>
<div><font face="Calibri">a few days ago, I asked about a problem by drawing a
scheme of a carbon power-station.</font></div>
<div><font face="Calibri">Now, here is my (not perfect) solution for anyone you
are interested.</font></div>
<div><font face="Calibri"></font> </div>
<div><font face="Calibri">Thomas</font></div>
<div><font face="Calibri"></font> </div>
<div><font face="Calibri">\documentclass[a4paper,12pt]{article}<br>
\usepackage[T1]{fontenc}<br>
\usepackage[latin1]{inputenc}<br>
\usepackage{ngerman}<br>
\usepackage{amsmath,amsthm}<br>
\usepackage{amsfonts}<br>
\usepackage[psamsfonts]{amssymb}<br>
\renewcommand{\familydefault}{\sfdefault}<br>
\usepackage{mathpazo}<br>
\usepackage[scaled=.95]{helvet}<br>
\usepackage{courier}<br>
%\linespread{1.05}
% Zeilenabstand um 5%
erhöhen<br>
\usepackage{upgreek}<br>
\usepackage{multido}
% From
PSTricks<br>
\usepackage[dvips]{graphics}<br>
\usepackage[dvips]{graphicx}<br>
\usepackage[dvips,usenames,dvipsnames]{xcolor}
%% Farben sind im Dokument xcolor.pdf
definiert<br>
\usepackage{pst-plot}<br>
\usepackage{pst-node}<br>
\usepackage{pst-tree}<br>
\usepackage{pst-eps}<br>
\usepackage[tiling]{pst-fill}<br>
\usepackage{pst-text}<br>
\usepackage{pst-grad}<br>
\usepackage{pst-coil}<br>
\usepackage{pstricks-add}</font></div>
<div> </div>
<font face="Calibri">
<div><br>
%---------------- Kontinuierlicher Farbverlauf bei Kurven
-------------------------<br>
\makeatletter<br>
\pst@addfams{pst-HSB}<br>
\define@key[psset]{pst-HSB}{HueBegin}{%
Between 0 and 1<br>
\def\PstParametricplotHSB@HueBegin{#1}}<br>
\define@key[psset]{pst-HSB}{HueEnd}{%
Between 0 and 1<br>
\def\PstParametricplotHSB@HueEnd{#1}}<br>
\define@boolkey[psset]{pst-HSB}[Pst@]{HSB}[true]{}<br>
%
Default
values<br>
\psset[pst-HSB]{HueBegin=0,HueEnd=1,HSB=true}<br>
\psset{dimen=outer}</div>
<div> </div>
<div>\def\parametricplotHSB{\pst@object{parametricplotHSB}}<br>
\def\parametricplotHSB@i#1#2#3{{%<br>
\begin@ClosedObj<br>
\addto@pscode{%<br>
/t #1
def<br>
/dt #2 t sub \psk@plotpoints\space div
def<br>
/t t dt sub def<br>
/Counter 0
def<br>
1 setlinejoin<br>
\psk@plotpoints
{<br>
/t t dt add
def<br>
/Counter Counter 1 add
def<br>
#3<br>
\pst@number\psyunit mul exch<br>
\pst@number\psxunit mul exch<br>
1 Counter eq {
moveto currentpoint /OldY ED /OldX ED } % First
point<br>
{\ifPst@HSB % Other points
than the first one<br>
/PointY exch def<br>
/PointX exch def<br>
Counter \psk@plotpoints\space
div<br>
\PstParametricplotHSB@HueEnd\space<br>
\PstParametricplotHSB@HueBegin\space sub
mul<br>
\PstParametricplotHSB@HueBegin\space
add<br>
1 1
sethsbcolor<br>
OldX OldY
PointX PointY lineto
lineto<br>
stroke<br>
PointX PointY
moveto<br>
/OldX PointX def /OldY PointY
def<br>
\else lineto \fi }
ifelse<br>
} repeat }% fin du code ps<br>
\end@ClosedObj}%<br>
\ignorespaces} % fin de la commande
PSTricks<br>
\makeatother</div>
<div> </div>
<div>%-------------------------------------------------------------------------------</div>
<div> </div>
<div>\begin{document}</div>
<div> </div>
<div>%\rput[l](-2.12,-0.1){\includegraphics[width=12cm]{Kohlekraftwerk1.eps}}%\\</div>
<div> </div>
<div>%\vspace{5.8cm}</div>
<div> </div>
<div>\rput(0,0){%<br>
%\psgrid(-3,-3)(10,4)%<br>
\psframe[fillstyle=solid,fillcolor=gray!40,
opacity=0.9,linewidth=0.8pt](-1.85,-2.65)(8.8,3.45)%<br>
\psframe[fillstyle=solid,fillcolor=white,
opacity=0.9,linewidth=0.8pt](-1.7,-2.5)(8.65,3.3)%<br>
\pspolygon[fillstyle=solid,fillcolor=gray!40,
opacity=0.9,linewidth=0.8pt]%<br>
(-1.7,3.15)(-1,2)(-1,-1.7)(1,-1.7)(1,2.5)(-0.25,2.5)(-0.8,3.3)(-1.7,3.3)%<br>
\pspolygon[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=10,gradbegin=orange!80,gradend=white]%<br>
(-1.665,3.3)(-0.88,2)(-0.88,-1.6)(0.9,-1.6)(0.9,2.4)(-0.32,2.4)(-0.93,3.3)(-1.665,3.3)%<br>
\pspolygon[fillstyle=solid,fillcolor=black,
opacity=1,linewidth=0.8pt]%<br>
(-1.35,-0.92)(-1.25,-0.85)(-1,-0.85)(-1,-0.95)(-0.88,-0.95)(-0.88,-1.15)(-1,-1.15)(-1,-1.45)(-1.25,-1.45)(-1.35,-1.38)%<br>
%<br>
%---------------
Flammen
------------------------------------------------------------------<br>
%-------------------------------------------------------------------------------------------<br>
\pscustom[fillstyle=solid,fillcolor=yellow!50,linestyle=none]{%<br>
\pscurve(-0.87,-1)(-0.4,-0.75)(-0.55,-0.4)(-0.4,-0.13)%<br>
\pscurve(-0.45,-0.33)(-0.2,-0.53)%<br>
\psline(-0.2,-0.53)(-0.2,-0.97)%<br>
\pscurve(-0.2,-0.97)(-0.6,-1.05)(-0.87,-1.01)%<br>
}%<br>
\pscustom[fillstyle=solid,fillcolor=yellow!50,linestyle=none]{%<br>
\pscurve(-0.2,-0.53)(-0.17,-0.35)(0.1,-0.1)%<br>
\pscurve(0.1,-0.1)(-0.01,-0.4)(0,-0.6)%<br>
\pscurve(0,-0.6)(0.04,-0.52)(0.16,-0.46)%<br>
\pscurve(0.16,-0.46)(0.1,-0.6)(0.17,-0.8)(0,-0.98)(-0.2,-0.97)%<br>
\psline(-0.2,-0.97)(-0.2,-0.53)%<br>
}%<br>
\pscustom[fillstyle=solid,fillcolor=yellow!50,linestyle=none]{%<br>
\pscurve(0.1,-0.7)(0.2,-0.6)(0.2,-0.36)(0.4,-0.1)%<br>
\pscurve(0.4,-0.1)(0.31,-0.29)(0.33,-0.4)(0.39,-0.6)(0.3,-0.8)(0.1,-0.86)%<br>
\psline(0.1,-0.86)(0.1,-0.7)%<br>
}%<br>
%-------------------------------------------------------------------------------------------<br>
%---------------
Kondensator
---------------------------------------------------------------<br>
%-------------------------------------------------------------------------------------------<br>
\pspolygon[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=0,gradbegin=blue,gradend=cyan]%<br>
(4.9,-0.7)(4.85,-0.55)(6.75,-0.55)(6.7,-0.7)%<br>
\pscurve[linewidth=0.8pt](4.9,-0.7)(4.8,-0.2)(4.9,0.3)%<br>
\psline[linewidth=0.8pt](4.9,0.3)(6.7,0.3)%<br>
\pscurve[linewidth=0.8pt](6.7,0.3)(6.8,-0.2)(6.7,-0.7)%<br>
\psline[linewidth=0.8pt](6.7,-0.7)(4.9,-0.7)%<br>
%<br>
%-----------------------------------------------------------------------------------------<br>
\rput[l](-1.47,3.1){\tiny
Rauch-}%<br>
\rput[l](-1.2,2.8){\tiny gas-}%<br>
\rput[l](-1.05,2.6){\tiny
kanal}%<br>
\rput[l](-1.5,-1.9){\tiny Brenner}
\psline[linewidth=0.6pt](-1.2,-1.75)(-1.2,-1.2)%<br>
\rput[l](0,-2){\tiny
Brennkammer}
\psline[linewidth=0.6pt](0.25,-1.9)(0.25,-1.2)%<br>
\rput[l](2.9,-0.15){\tiny
Vor-} \rput[l](2.9,-0.35){\tiny wärm-} \rput[l](2.9,-0.55){\tiny
anlage}%<br>
\rput[l](2.9,-1.5){\tiny Pumpe}%<br>
%<br>
%----
Wasserwendel----------------------------------------------------------------------<br>
%-----------------------------------------------------------------------------------------<br>
\psset{coilheight=0.495,coilwidth=1.3cm,coilaspect=52}%<br>
\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{250}{720}}%<br>
\rput(0.235,0.4){%<br>
\parametricplotHSB[plotpoints=500,linewidth=1.73mm,HueBegin=0.65,HueEnd=0.84]{270}{90}{0.88
t cos mul 0.365 t sin
mul}}%<br>
\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{600}{1200}}<br>
\rput{90}(0,0){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{470}{1200}}<br>
\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{850}{1400}}<br>
\rput{90}(0,0){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{850}{1400}}<br>
\rput{90}(0,0){\psCoil[doubleline=true,linecolor=black,linewidth=0.07cm]{1260}{1550}}<br>
\rput{90}(0,0){\psCoil[doubleline=true,linecolor=magenta,linewidth=0.045cm]{1220}{1550}}<br>
%---------------------------------------------------------------------------------------------------------------<br>
\psline[linewidth=1.47mm,linecolor=magenta,linearc=0.15,bordercolor=black,border=1.1pt](0.2,1.943)(4.1,1.943)(4.1,1.6)%<br>
\psline[linewidth=1.47mm,linecolor=magenta,linearc=0.15,bordercolor=black,border=1.1pt](4.85,1.6)(4.85,1.943)(5.8,1.943)(5.8,1.6)%<br>
\psline[linewidth=1.47mm,linecolor=white,linearc=0.15,bordercolor=black,border=1.1pt](5.25,0.285)(5.25,0.9)%<br>
\psline[linewidth=1.47mm,linecolor=white,linearc=0.15,bordercolor=black,border=1.1pt](6.4,0.285)(6.4,0.9)%<br>
\psframe[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=0,gradbegin=white,gradend=magenta!70](5.162,0.27)(5.338,0.92)%<br>
\psframe[fillstyle=gradient,linestyle=none,gradmidpoint=0,gradangle=0,gradbegin=white,gradend=magenta!70](6.312,0.27)(6.488,0.92)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(5.25,0.5)(5.25,0.1)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(6.4,0.5)(6.4,0.1)%<br>
\pscircle[linewidth=0.8pt,fillstyle=solid,fillcolor=blue!20!green!70](8.3,-0.4){0.17}%<br>
\psline[linewidth=1.3mm,linecolor=blue!20!green!70,linearc=0.15,bordercolor=black,border=1.1pt]%<br>
(8.18,-0.4)(5.1,-0.4)(5.1,-0.1)(9.4,-0.1)(9.4,-1.2)%<br>
\psline[linewidth=1.3mm,linecolor=blue!20!green!70,linearc=0.15,bordercolor=black,border=1.1pt]%<br>
(8.423,-0.4)(9.1,-0.4)(9.1,-1.2)%<br>
%-------------------------------------------------------------------------------------------<br>
%--------------------------- Fluss
----------------------------------------------------------<br>
\psplot[linecolor=blue]{8.9}{9.8}{x
1600 mul sin 0.02 mul 1.05 sub}%<br>
\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul
sin 0.02 mul 1.15 sub}%<br>
\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02
mul 1.25 sub}%<br>
\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02 mul 1.35
sub}%<br>
\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02 mul 1.45
sub}%<br>
\psplot[linecolor=blue]{8.9}{9.8}{x 1600 mul sin 0.02 mul 1.55
sub}%<br>
%-------------------------------------------------------------------------------------------<br>
%--------------------------
Turbine
------------------------------------------------------------<br>
\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!20!green!70,gradend=green!10]%<br>
(3.9,0.9)(6.6,1.6)%<br>
\psline(4.6,0.9)(4.6,1.6)%<br>
\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!20!green!70,gradend=green!10,dimen=inner]%<br>
(3.8,1.05)(3.9,1.45)%<br>
\psframe[fillstyle=solid,linecolor=black,fillcolor=black](3.7,1.2)(3.8,1.3)%<br>
\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!20!green!70,gradend=green!10,dimen=inner]%<br>
(6.6,1.1)(6.7,1.4)%<br>
%-------------------------------------------------------------------------------------------<br>
%------------------------------
Generator
--------------------------------------------------<br>
\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!60!green!70,gradend=green!10,dimen=inner]%<br>
(6.95,1.1)(7,1.4)%<br>
\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!60!green!70,gradend=green!10]%<br>
(7,0.9)(8,1.6)%<br>
\psframe[fillstyle=gradient,linecolor=black,gradmidpoint=0,gradangle=0,gradbegin=blue!60!green!70,gradend=green!10,dimen=inner]%<br>
(8,1.05)(8.4,1.45)%<br>
\psframe[fillstyle=solid,linecolor=black,fillcolor=black](8.4,1.2)(8.47,1.3)%<br>
\psframe[fillstyle=solid,linecolor=black,fillcolor=black](6.7,1.2)(7,1.3)%<br>
\psline[linecolor=black,linewidth=0.8pt](7.7,0.9)(7.7,0.8)(8.3,0.8)%<br>
\psline[linecolor=black,linewidth=0.8pt](7.6,0.9)(7.6,0.7)(8.3,0.7)%<br>
\psline[linecolor=black,linewidth=0.8pt](7.5,0.9)(7.5,0.6)(8.3,0.6)%<br>
\rput[l](8.38,0.8){\psplot[linecolor=black,linewidth=0.6pt]{-0.01}{0.16}{x
2500 mul sin 0.02
mul}}<br>
\rput[l](8.38,0.7){\psplot[linecolor=black,linewidth=0.6pt]{-0.01}{0.16}{x
2500 mul sin 0.02
mul}}<br>
\rput[l](8.38,0.6){\psplot[linecolor=black,linewidth=0.6pt]{-0.01}{0.16}{x
2500 mul sin 0.02
mul}}<br>
%-------------------------------------------------------------------------------------------<br>
\pspolygon[fillstyle=solid,fillcolor=black](8.2,-0.4)(8.36,-0.31)(8.36,-0.49)%<br>
\psframe[fillstyle=vlines,hatchangle=90,hatchsep=1.5pt,hatchcolor=red,linewidth=0.8pt](2.2,-0.8)(2.8,-0.2)%<br>
\pscircle[linewidth=0.8pt,fillstyle=solid,fillcolor=blue](3.2,-1.1){0.25}%<br>
\pspolygon[fillstyle=solid,fillcolor=black](3.05,-1.1)(3.3,-0.96)(3.3,-1.24)%<br>
\psline[linewidth=1.47mm,linecolor=blue,linearc=0.15,bordercolor=black,border=1.1pt](0.2,0.035)(2.5,0.035)(2.5,-1.1)(2.99,-1.1)%<br>
\psline[linewidth=1.47mm,linecolor=blue,linearc=0.15,bordercolor=black,border=1.1pt](3.4,-1.1)(5.8,-1.1)(5.8,-0.688)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(1.6,0.035)(1.2,0.035)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(0.2,0.82)(-0.2,0.85)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(1.2,1.943)(1.6,1.943)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.8pt]{->}(5.2,1.943)(5.6,1.943)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.6pt]{->}(7.5,-0.4)(7.1,-0.4)%<br>
\psline[arrowinset=0,arrowscale=1.2,arrowlength=0.8,linewidth=0.6pt]{->}(7.5,-0.1)(7.9,-0.1)%<br>
\rput[l](2.05,2.7){\tiny
Frischdampf}
\psline[linewidth=0.6pt](2.7,1.95)(2.7,2.55)%<br>
\rput[l](1.5,0.6){\tiny
Speise-}
\psline[linewidth=0.6pt](1.77,0.035)(1.77,0.22)%<br>
\rput[l](1.5,0.3){\tiny
wasser} %<br>
\rput[l](4,2.7){\tiny Turbine}
\psline[linewidth=0.6pt](4.5,1.4)(4.5,2.5)%<br>
\rput[l](7.0,2.7){\tiny
Generator}
\psline[linewidth=0.6pt](7.5,1.4)(7.5,2.5)%<br>
\rput[l](7.3,-0.8){\tiny
Kühlwasser}
\psline[linewidth=0.6pt](7.7,-0.4)(7.7,-0.6)%<br>
\rput[l](9.1,-1.8){\tiny
Fluss}%<br>
}</div>
<div> </div>
<div> </div>
<div> </div>
</font>
<div><font face="Calibri">\end{document} </font></div>
</div>
<!-- end of AOLMsgPart_2_34b5c3e7-f148-4d9b-b2f8-d7a56374d389 -->
<div id="AOLMsgPart_5_34b5c3e7-f148-4d9b-b2f8-d7a56374d389" style="margin: 0px;font-family: Tahoma, Verdana, Arial, Sans-Serif;font-size: 12px;color: #000;background-color: #fff;">
<pre style="font-size: 9pt;"><tt>_______________________________________________
PSTricks mailing list
<a href="mailto:PSTricks@tug.org">PSTricks@tug.org</a>
<a href="http://tug.org/mailman/listinfo/pstricks" target="_blank">http://tug.org/mailman/listinfo/pstricks</a>
archive: <a href="http://www.tug.org/pipermail/pstricks/" target="_blank">http://www.tug.org/pipermail/pstricks/</a>
</tt></pre>
</div>
<!-- end of AOLMsgPart_5_34b5c3e7-f148-4d9b-b2f8-d7a56374d389 -->
</div>
</font></font>