tests/.svn/text-base/test_18.tex.svn-base

   1 \documentclass{article}
   2 \usepackage{pst-solides3d,pst-node,pst-plot,multido,url}
   3 \usepackage[latin1]{inputenc}
   4 \usepackage[T1]{fontenc}
   5 \usepackage{colortbl}
   6 \usepackage{array}
   7 \usepackage[a4paper,bottom=2.5cm,top=2cm]{geometry}
   8 %%\usepackage[frenchle]{babel}
   9 \makeatletter
  10
  11 \title{\texttt{pst-solides3d} :\\
  12        Test}
  13 \date{\today }
  14 \begin{document}
  15 \maketitle
  16
  17 \section {Test cylindre}
  18
  19 \begin{pspicture*}(-3,-3)(4.5,5)
  20 %\psset{solidmemory}
  21 \psframe(-3,-3)(4.5,5)
  22 \psset{lightsrc=10 -20 50,viewpoint=10 -10 10,Decran=20}
  23 \defFunction{G}(t)
  24    {t}
  25    {t dup mul .25 mul}
  26    {-1}
  27 \psSolid[object=cylindre,
  28    r=1, h=1](-2,3,0)
  29 \psSolid[object=cylindre,
  30    range=0 2,
  31    h=3,
  32    function=G,
  33    axe=.2 0 1,
  34    ngrid=3 8]
  35 %% \codejps{
  36 %% %-1 1 1 [2 8] newcylindre
  37 %% -2 2 {F} {0 0 1} 3 [1 6] newcylindre
  38 %% drawsolid
  39 %% }
  40 \end{pspicture*}
  41
  42
  43 \end{document}