[pstricks] Möbius Strip

[Herbert Voss]

Herbert Voss schrieb:

> but didn't look really nice ...

looks better

\listfiles
\documentclass{article}
\usepackage{pst-3dplot}

\begin{document}

\psset{Beta=20}
\begin{pspicture}(-4,-4)(4,4)
\def\Radius{5 }
\parametricplotThreeD[xPlotpoints=100,yPlotpoints=10](0,360)(-1,1){
   t 2 div cos u mul \Radius add t cos mul
   t 2 div cos u mul \Radius add t sin mul
   t 2 div sin u mul }
\pstThreeDCoor[xMin=-1,yMin=-1,zMin=-1]
\parametricplotThreeD[xPlotpoints=100,yPlotpoints=1,
	linecolor=red,linewidth=2pt,arrows=|->](180,-180){
   t 2 div cos \Radius add t cos mul
   t 2 div cos \Radius add t sin mul
   t 2 div sin }
\end{pspicture}

\end{document}


Herbert