1 \documentclass{article}
2 \usepackage{pst-solides3d,pst-node,pst-plot,multido,url}
3 \usepackage[latin1]{inputenc}
4 \usepackage[T1]{fontenc}
7 \usepackage[a4paper,bottom=2.5cm,top=2cm]{geometry}
8 %%\usepackage[frenchle]{babel}
11 \title{\texttt{pst-solides3d} :\\
17 \section {Tube avec PSTricks}
19 %\psset{lightsrc=10 20 30,viewpoint=50 20 30 rtp2xyz}
20 \psset{viewpoint=50 20 30 rtp2xyz}
23 \psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=50}
24 \begin{pspicture*}(-5,-4)(6,3)
26 \defFunction{F}(t){t Cos 2 mul}{t Sin 2 mul}{2 t mul Sin 1 mul}
27 \psSolid[object=courbe,
37 \section {Tube avec jps}
39 %\psset{lightsrc=10 20 30,viewpoint=50 20 30 rtp2xyz}
40 \psset{viewpoint=50 20 30 rtp2xyz}
43 \psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=50}
44 \begin{pspicture*}(-5,-4)(6,3)
53 t Cos a mul %% #rpn# a*Cos(t)
54 t Sin a mul %% #rpn# a*Sin(t)
55 2 t mul Sin b mul %% #rpn# b*Sin(2*t)
62 t Sin a neg mul %% #rpn# -a*Sin(t)
63 t Cos a mul %% #rpn# a*Cos(t)
64 2 t mul Cos 2 b mul mul %% #rpn# 2*b*Cos(2*t)
68 0 pi 2 mul {g} CourbeR3
72 %/aretescachees false def
78 0 pi 2 mul (g) .25 [120 12] newtube
79 dup (rouge) outputcolors