Power plant
Fossil-fuel power station (original code: http://pstricks.blogspot.com/2012/01/centrale-thermique-flammes-schematisee_07.html)
\documentclass[
landscape
]{article}
\usepackage[utf8]{inputenc}
\usepackage[
hmargin=2cm,
vmargin=2.5cm
]{geometry}
\usepackage{
pst-grad,
pst-coil,
pstricks-add
}
\psset{
unit=1.5
}
%-------------------------------------------------------------------------------
%--------------------- Flammefarve: Kontinuerlig gradient ----------------------
%-------------------------------------------------------------------------------
\makeatletter
\pst@addfams{pst-HSB}
\define@key[psset]{pst-HSB}{HueBegin}{%
\def\PstParametricplotHSB@HueBegin{#1}
}
\define@key[psset]{pst-HSB}{HueEnd}{%
\def\PstParametricplotHSB@HueEnd{#1}
}
\define@boolkey[psset]{pst-HSB}[Pst@]{HSB}[true]{}
\psset[pst-HSB]{
HueBegin=0,
HueEnd=1,
HSB=true
}
\psset{dimen=outer}
\def\parametricplotHSB{\pst@object{parametricplotHSB}}
\def\parametricplotHSB@i#1#2#3{{%
\begin@ClosedObj
\addto@pscode{%
/t #1 def
/dt #2 t sub \psk@plotpoints\space div def
/t t dt sub def
/Counter 0 def
1 setlinejoin
\psk@plotpoints {
/t t dt add def
/Counter Counter 1 add def
#3
\pst@number\psyunit mul exch
\pst@number\psxunit mul exch
1 Counter eq { moveto currentpoint /OldY ED /OldX ED }
{\ifPst@HSB
/PointY exch def
/PointX exch def
Counter \psk@plotpoints\space div
\PstParametricplotHSB@HueEnd\space
\PstParametricplotHSB@HueBegin\space sub mul
\PstParametricplotHSB@HueBegin\space add
1 1 sethsbcolor
OldX OldY PointX PointY lineto lineto
stroke
PointX PointY moveto
/OldX PointX def /OldY PointY def
\else lineto \fi } ifelse
} repeat }
\end@ClosedObj}
\ignorespaces}
\makeatother
\pagestyle{empty}
%-------------------------------------------------------------------------------
\begin{document}
\begin{center}
\newhsbcolor{ColorC}{.5 0.8 0}
\newhsbcolor{ColorD}{.5 0.5 0.5}
\begin{pspicture}(-3.9,-6.1)(11.8,3.5)
{\psset{
linewidth=3pt,
linecolor=gray!40,
linearc=0,
bordercolor=black,
border=1.1pt
}
\pspolygon[
fillstyle=gradient,
gradangle=10,
gradbegin=orange!80,
gradmidpoint=0,
gradend=white
](-1.8,3.45)(-0.9,2)(-0.9,-1.6)(0.9,-1.6)(0.9,2.4)(-0.2,2.4)(-0.88,3.45)(-1.8,3.45)% Brændkammeret med udfyldning
\pspolygon(-1.8,3.45)(-0.9,2)(-0.9,-1.6)(0.9,-1.6)(0.9,2.4)(-0.2,2.4)(-0.88,3.45)(-1.8,3.45)% Brændkammerets omrids
\pspolygon[
linewidth=4pt
](-1.85,-2.65)(8.75,-2.65)(8.75,3.45)(-1.85,3.45)% Kraftværkets omrids
}
\pspolygon[
linewidth=0.8pt,
fillstyle=solid,
fillcolor=black,
opacity=1
](-1.35,-0.92)(-1.25,-0.85)(-1,-0.85)(-1,-0.95)(-0.85,-0.95)(-0.85,-1.15)(-1,-1.15)(-1,-1.45)(-1.25,-1.45)(-1.35,-1.38)% Brænder
%-------------------------------------------------------------------------------
%----------------------------------- Flamme ------------------------------------
%-------------------------------------------------------------------------------
{\psset{
linestyle=none,
fillstyle=solid,
fillcolor=yellow!50
}
\pscustom{%
\pscurve(-0.87,-1)(-0.4,-0.75)(-0.55,-0.4)(-0.4,-0.13)
\pscurve(-0.45,-0.33)(-0.2,-0.53)
\psline(-0.2,-0.53)(-0.2,-0.97)
\pscurve(-0.2,-0.97)(-0.6,-1.05)(-0.87,-1.01)
}
\pscustom{%
\pscurve(-0.2,-0.53)(-0.17,-0.35)(0.1,-0.1)
\pscurve(0.1,-0.1)(-0.01,-0.4)(0,-0.6)
\pscurve(0,-0.6)(0.04,-0.52)(0.16,-0.46)
\pscurve(0.16,-0.46)(0.1,-0.6)(0.17,-0.8)(0,-0.98)(-0.2,-0.97)
\psline(-0.2,-0.97)(-0.2,-0.53)
}
\pscustom{%
\pscurve(0.1,-0.7)(0.2,-0.6)(0.2,-0.36)(0.4,-0.1)
\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)
\psline(0.1,-0.86)(0.1,-0.7)
}
}
\psframe[
linecolor=black,
linewidth=0.8pt,
fillstyle=solid,
fillcolor=black,
opacity=1
](-1,-1.15)(-0.81,-0.95)
%-------------------------------------------------------------------------------
%--------------------------------- Kondensator ---------------------------------
%-------------------------------------------------------------------------------
\pscustom[
linestyle=none,
fillstyle=gradient,
gradangle=0,
gradbegin=white,
gradmidpoint=0,
gradend=magenta!80
]{%
\psarcn[liftpen=0](6.8,-0.2){2}{190}{165}
\psline(!5.162 2 15 sin mul 0.2 sub)(5.162,0.92)(5.338,0.92)(!5.338 2 15 sin mul 0.2 sub)(!6.312 2 15 sin mul 0.2 sub)(6.312,0.92)(6.488,0.92)(!6.488 2 15 sin mul 0.2 sub)
\psarcn[liftpen=0](4.8,-0.2){2}{15}{-10}
\closepath%
}
\pscustom[
linestyle=none,
fillstyle=gradient,
gradangle=0,
gradbegin=blue!70,
gradmidpoint=0,
gradend=cyan!60
]{%
\psarcn[liftpen=0](6.8,-0.2){2}{195}{190}
\psarcn[liftpen=0](4.8,-0.2){2}{-10}{-15}
\closepath%
}
\pscustom[
linewidth=1.0pt
]{%
\psarcn[liftpen=0](6.8,-0.2){2}{195}{165}
\psline(!5.162 2 15 sin mul 0.2 sub)(5.162,0.92)(5.338,0.92)(!5.338 2 15 sin mul 0.2 sub)(!6.312 2 15 sin mul 0.2 sub)(6.312,0.92)(6.488,0.92)(!6.488 2 15 sin mul 0.2 sub)
\psarcn[liftpen=0](4.8,-0.2){2}{15}{-15}
\closepath%
}
%-------------------------------------------------------------------------------
%------------------------- Vandledning i brændkammeret -------------------------
%-------------------------------------------------------------------------------
\psset{
coilheight=0.495,
coilwidth=1.3,
coilaspect=52
}
\rput{90}(0,0){%
\psCoil[
linewidth=0.07cm,
linecolor=black,
doubleline=true
]{250}{720}
}
\rput(0.15,0.395){%
\parametricplotHSB[
linewidth=1.4mm,
plotpoints=500,
HueBegin=0.6,
HueEnd=0.84
]{270}{90}{0.88 t cos mul 0.36 t sin mul}
}
{\psset{
linewidth=0.07cm,
linecolor=black,
doubleline=true
}
\rput{90}(0,0){\psCoil{600}{1200}}
\rput{90}(0,0){\psCoil{850}{1400}}
\rput{90}(0,0){\psCoil{1260}{1550}}
}
{\psset{
linewidth=0.045cm,
linecolor=magenta,
doubleline=true
}
\rput{90}(0,0){\psCoil{470}{1200}}
\rput{90}(0,0){\psCoil{850}{1400}}
\rput{90}(0,0){\psCoil{1220}{1550}}
}
%-------------------------------------------------------------------------------
{\psset{
linewidth=1.47mm,
linecolor=magenta,
linearc=0.15,
bordercolor=black,
border=1.1pt
}
\psline(0.2,1.943)(4.1,1.943)(4.1,1.6)
\psline(4.65,1.6)(4.65,1.943)(5.75,1.943)(5.75,1.6)
}
{\psset{
arrows=->,
arrowinset=0,
arrowscale=1.2,
arrowlength=0.8,
linewidth=0.6pt
}
\psline(5.25,0.5)(5.25,0.1)
\psline(6.4,0.5)(6.4,0.1)
}
\pscircle[
linewidth=0.8pt,
fillstyle=solid,
fillcolor=blue!20!green!70
](8.3,-0.4){0.17}
{\psset{
linewidth=1.3mm,
linecolor=blue!20!green!70,
linearc=0.15,
bordercolor=black,
border=1.1pt
}
\psline(8.18,-0.4)(5.1,-0.4)(5.1,-0.1)(9.4,-0.1)(9.4,-1.2)
\psline(8.423,-0.4)(9.1,-0.4)(9.1,-1.2)
}
%-------------------------------------------------------------------------------
%------------------------------------ Flod -------------------------------------
%-------------------------------------------------------------------------------
\multido{\rA=1.05+0.1}{6}{%
\psplot[
linecolor=blue
]{8.9}{9.8}{x 1600 mul sin 0.02 mul \rA\space sub}
}
%-------------------------------------------------------------------------------
%----------------------------------- Turbine -----------------------------------
%-------------------------------------------------------------------------------
\psframe[
linecolor=black,
fillstyle=gradient,
gradangle=0,
gradbegin=blue!20!green!70,
gradmidpoint=0,
gradend=green!10
](3.9,0.9)(6.6,1.6)
\psline(4.9,0.9)(4.9,1.6)
%-------------------------------------------------------------------------------
%----------------------------- Akse og turbinehjul -----------------------------
%-------------------------------------------------------------------------------
{\psset{
linecolor=black,
linestyle=none,
fillstyle=gradient,
gradientHSB=true,
gradangle=0,
gradbegin=ColorC,
gradmidpoint=0.5,
gradend=ColorD
}
\psframe[
gradmidpoint=0.4
](3.7,1.2)(8.47,1.3)
\pspolygon(4,1.35)(4.8,1.5)(4.8,1.0)(4,1.15)
\pspolygon(5.0,1.5)(5.7,1.35)(5.70,1.15)(5.0,1.0)
\pspolygon(5.8,1.35)(6.5,1.5)(6.5,1.0)(5.8,1.15)
}
{\psset{
fillstyle=vlines,
hatchangle=0,
hatchsep=2pt
}
\pspolygon(4,1.35)(4.8,1.5)(4.8,1.0)(4,1.15)
\pspolygon(5.0,1.5)(5.7,1.35)(5.7,1.15)(5.0,1.0)
\pspolygon(5.8,1.35)(6.5,1.5)(6.5,1.0)(5.8,1.15)
}
{\psset{
linecolor=black,
fillstyle=solid,
fillcolor=blue!20!green!70,
opacity=0.6,
dimen=inner
}
\psframe(3.8,1.05)(3.9,1.45)
\psframe(6.6,1.1)(6.7,1.4)
}
%-------------------------------------------------------------------------------
%-------------------- Generator og magnetiseringsmekanisme ---------------------
%-------------------------------------------------------------------------------
{\psset{
linecolor=black,
fillstyle=gradient,
gradangle=0,
gradbegin=blue!60!green!70,
gradmidpoint=0,
gradend=green!10
}
\psframe[
dimen=inner
](6.95,1.1)(7,1.4)
\psframe(7,0.9)(8,1.6)
\psframe[
gradbegin=yellow!90,
gradend=yellow!20,
dimen=inner
](8,1.05)(8.4,1.45)
}
{\psset{
linecolor=black,
linewidth=0.8pt
}
\psline(7.7,0.9)(7.7,0.8)(8.3,0.8)
\psline(7.6,0.9)(7.6,0.7)(8.3,0.7)
\psline(7.5,0.9)(7.5,0.6)(8.3,0.6)
}
\multido{\rB=0.6+0.1}{3}{%
\rput(8.38,\rB){%
\psplot[
linecolor=black,
linewidth=0.6pt
]{-0.01}{0.16}{x 2500 mul sin 0.02 mul}
}
}
%-------------------------------------------------------------------------------
\pspolygon[
fillstyle=solid,
fillcolor=black
](8.2,-0.4)(8.36,-0.31)(8.36,-0.49)
\psframe[
fillstyle=vlines,
hatchangle=90,
hatchsep=1.5pt,
hatchcolor=red,
linewidth=0.8pt
](2.2,-0.8)(2.8,-0.2)
\pscircle[
linewidth=0.8pt,
fillstyle=solid,
fillcolor=blue!70
](3.2,-1.1){0.25}
\pspolygon[
fillstyle=solid,
fillcolor=black
](3.05,-1.1)(3.3,-0.96)(3.3,-1.24)
{\psset{
linewidth=1.47mm,
linecolor=blue!70,
linearc=0.15,
bordercolor=black,
border=1.1pt
}
\psline(0.2,0.035)(2.5,0.035)(2.5,-1.1)(2.99,-1.1)
\psline(3.4,-1.1)(5.8,-1.1)(!5.8 -2 15 sin mul 0.2 sub 0.0175 add)
}
\psset{
arrows=->,
arrowinset=0,
arrowscale=1.2,
arrowlength=0.8,
linewidth=0.6pt
}
\psline(1.6,0.035)(1.2,0.035)
\psline(0.2,0.82)(-0.2,0.85)
\psline(1.2,1.943)(1.6,1.943)
\psline(5.025,1.943)(5.425,1.943)
\psline(7.5,-0.4)(7.1,-0.4)
\psline(7.5,-0.1)(7.9,-0.1)
%-------------------------------------------------------------------------------
{\scriptsize
{\psset{
linewidth=0.6pt
}
\rput(-0.85,2.7){\shortstack[l]{%
\ Gas-\strut\\[-1.25ex]\quad
kanal\strut}
}
\rput(-1.2,-2){Brænder}
\psline(-1.2,-1.9)(-1.2,-1.2)
\rput(0.25,-2){Brændkammer}
\psline(0.25,-1.9)(0.25,-1.2)
\rput(3.2,-1.5){Pumpe}
\rput(3.5,-0.4){\shortstack[c]{%
Forvarm-\strut\\[-1.25ex]
ningsanlæg}
}
\psline(2.7,1.95)(2.7,2.55)
\rput(2.7,2.7){Damp}
\psline(1.77,0.035)(1.77,0.22)
\rput(1.8,0.5){\shortstack{%
Oversprøjt-\strut\\[-1.25ex]
ningsvand\strut}
}
\rput(4.4,2.8){\shortstack[c]{%
Overtryks-\strut\\[-1.25ex]
turbine\strut}
}
\psline(4.4,1.5)(4.4,2.5)
\rput(6.1,2.8){\shortstack{%
Undertryks-\strut\\[-1.25ex]
turbine\strut}
}
\psline(6.1,1.5)(6.1,2.5)
\rput(7.5,3.2){Generator}
\psline(7.5,1.5)(7.5,3.0)
\rput(8.15,2.5){\shortstack{%
Magneti-\strut\\[-1.25ex]
serings-\strut\\[-1.25ex]
maskine\strut}
}
\psline(8.15,1.4)(8.15,2.1)
\rput(4.2,0.1){\shortstack{%
Konden-\strut\\[-1.25ex]
sator\strut}
}
\psline(4.5,0.1)(5.1,0.1)
\rput(7.7,-0.8){Kølevand}
\psline(7.7,-0.4)(7.7,-0.6)
\rput(9.3,-1.8){Flod}
}
}
%-------------------------------------------------------------------------------
\rput(-2,-4.5){%
\psset{
arrows=->,
ArrowFill=true,
arrowinset=0,
arrowscale=0.7,
arrowlength=0.5,
framearc=0.05,
linecolor=gray!40,
dimen=outer
}
\psline[
linewidth=0.7cm
](12,0)(14,0)
\psline[
linewidth=0.2cm,
linearc=0.3
](12,-0.35)(12.5,-0.35)(12.5,-1.0)
\psframe[
linecolor=black
](10,-0.8)(12,0.8)
\psline[
linewidth=0.9cm
](8,0)(10,0)
\psline[
linewidth=0.2cm,
linearc=0.3
](8,-0.45)(8.5,-0.45)(8.5,-1.1)
\psframe[
linecolor=black
](6,-0.8)(8,0.8)
\psline[
linewidth=1.1cm
](4,0)(6,0)
\psline[
linewidth=0.2cm,
linearc=0.3
](4,-0.55)(4.5,-0.55)(4.5,-1.2)
\psframe[
linecolor=black
](2,-0.8)(4,0.8)
\psline[
linewidth=1.3cm
](0,0)(2,0)
\psline[
linewidth=0.2cm,
linearc=0.3
](0,-0.65)(0.5,-0.65)(0.5,-1.3)
\psframe[
linecolor=black
](-2,-0.8)(0,0.8)
\rput(-1,0){Brænder}
\rput(3,0){Kedelrør}
\rput(7,0){Turbine}
\rput(11,0){Generator}
\textcolor{red}{%
\rput(0.55,0){\shortstack[l]{%
\footnotesize Termisk\strut\\[-1.25ex]
\footnotesize energi\strut}
}
\rput(4.6,0){\shortstack[l]{%
\footnotesize Potentiel\strut\\[-1.25ex]
\footnotesize energi\strut}
}
\rput(8.55,0){\shortstack[l]{%
\footnotesize Kinetisk\strut\\[-1.25ex]
\footnotesize energi\strut}
}
\rput(12.6,0){\shortstack[l]{%
\footnotesize Elektrisk\strut\\[-1.25ex]
\footnotesize energi\strut}
}
\rput(0.5,-1.5){\footnotesize Spildt energi}
\rput(4.5,-1.4){\footnotesize Spildt energi}
\rput(8.5,-1.3){\footnotesize Spildt energi}
\rput(12.5,-1.2){\footnotesize Spildt energi}
}
}
\end{pspicture}
\end{center}
Note that the text is converted into Danish.
Note: At pstricks.blogspot.com/2013/06/un-schema-de-centrale-electrique.html one can see a drawing of a nuclear power plant. I would've liked to add this code too, but I'm limited to 30k characters.