[pstricks] Re : pst-vue3D: two examples a bezier approximation.

[hjsalchow at aol.com]

mluque5130 at aol.com schrieb:
>  
> >dear manuel,
> >typical cooling towers hyperbolic structures. See:
>
> >http://en.wikipedia.org/wiki/Hyperboloid_structure
>
> >http://en.wikipedia.org/wiki/Cooling_tower
>
>
>
> >Your example seems to me as a mixture of a hyperbolic structure and a tube.
>
>
> The author of these two splendid examples is Christian Sgraja :
>
> http://www.tug.org/pipermail/pstricks/2006/003384.html
>
>     
> However, I also a little studied the representation of a tower of
> cooling of a nuclear thermal power station with the subscribers of the
> Syracuse list and the photographs of Jean-Michel Sarlat. The
> photographs and the PSTricks examples are here:
>
> http://syracuse.eu.org/~jms/photos/2006/0813-civaux1/
> http://syracuse.eu.org/~jms/photos/2006/0813-civaux2/
>
> http://syracuse.eu.org/syracuse/mluque/
>
> http://syracuse.eu.org/syracuse/mluque/pst-v3d/pst-V3D0.42/tours-civaux/
>
> Manuel 
>  
>
>
>
>
>
> Hans-Juergen Salchow
> _______________________________________________
> pstricks mailing list
> pstricks at tug.org <mailto:pstricks%40tug.org>
> http://tug.org/mailman/listinfo/pstricks
> ------------------------------------------------------------------------
>
> _______________________________________________
> pstricks mailing list
> pstricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
>   
Hi manuel,

this message ends with a latex document, that approximates the cooling
towers.
Compare the output to your image:

http://syracuse.eu.org/~jms/photos/2006/0813-civaux1/presentations/IMG_1183a.jpg.html

Best regards
Hans-Juergen Salchow

\documentclass{article}
\usepackage{pstricks}
\begin{document}
\psset{unit=.1mm}
\begin{center}
\begin{pspicture}(-330,-160)(330,-985)
%%%% sides
\psbezier(211,-197)(192,-493)(197,-583)(329,-973)
\psbezier(-211,-197)(-192,-493)(-197,-583)(-329,-973)
%%%% bottom and top
\psellipticarc(0,-973)(329,-11){0}{180}
\psellipticarc(0,-197)(211,29){0}{180}
\psellipticarc(0,-195)(217,36){-10}{190}
\end{pspicture}
\end{center}
\end{document}