obsolete/test_21.tex

   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 plan de projection}
  18
  19 \begin{pspicture}(-6,-5)(6,8)%
  20 \psframe*[linecolor=blue!50](-6,-5)(6,7)
  21 \psset{lightsrc=viewpoint,viewpoint=50 30 15,Decran=60}
  22 \psset{solidmemory}
  23 \defFunction[algebraic]{F1}(x){3*sin(x)}{}{}
  24 %% definition des plans
  25 %% exemple 1
  26 \psSolid[object=plantype,
  27    definition=equation,
  28    args={[1 0 0 0] 90},
  29    base=-4 4 -3 3,
  30    name=monplanA,
  31 ]
  32 %% exemple 2
  33 \psSolid[object=plantype,
  34    definition=normalpoint,
  35    args={1 1 2 [1 1 2 180]},
  36    base=-4 4 -3 3,
  37    name=monplanB,
  38 ]
  39 \psset{plan=monplanA}
  40 %% dessin du plan
  41 \psSolid[object=plan,
  42    definition=plantype,
  43    args=monplanA,
  44    fillcolor=white,
  45    linecolor=yellow,
  46    plangrid,
  47    planmarks,
  48    showBase,
  49 %   action=draw,
  50 ]
  51 %% %% dessin des accessoires" du plan : quadrillage, graduations, base
  52 %% \psSolid[object=plan,
  53 %%    definition=plantype,
  54 %%    args=monplan,
  55 %%    action=none,
  56 %% ]
  57 %% projete d'un chemin circulaire hachure
  58 \psProjection[object=chemin,
  59    fillstyle=hlines,hatchcolor=yellow,
  60    linecolor=blue,
  61    path=2 0 1 cercle
  62 ]
  63 %% projete courbe de fonction numerique
  64 \psProjection[object=courbe,
  65    range=-4 4,resolution=720,
  66    linecolor=red,
  67    function=F1]
  68 %% projete d'un texte
  69 \psProjection[object=texte,
  70    fontsize=20,linecolor=red,
  71    text=Yes !,
  72 ](-3,2)%
  73 %% projete et nommage d'un point
  74 \psProjection[object=point,
  75    args=-2 -1,
  76    name=A,
  77    text=A,
  78    linecolor=red,
  79    pos=uc,
  80 ]
  81 %% projete et nommage d'un point
  82 \psProjection[object=point,
  83    args=1 2,
  84    name=B,
  85    text=B,
  86    linecolor=blue,
  87    pos=ur,
  88 ]
  89 %% calcul d'un milieu
  90 \psProjection[object=point,
  91    definition=milieu,
  92    args=A B,
  93    name=C,
  94    text=C,
  95    pos=uc
  96 ]
  97 %% calcul d'un symetrique
  98 \psProjection[object=point,
  99    definition=sympoint,
 100    args=A 0 0,
 101    name=D,
 102    text=D,
 103    pos=uc
 104 ]
 105 \psProjection[object=vecteur,
 106    args=1 1,
 107 %   action=none,
 108    name=U,
 109    linestyle=dashed,
 110    linecolor=orange,
 111 ](A,)%
 112 %% point E tel que vect(AE) = U
 113 \psProjection[object=point,
 114    definition=translatepoint,
 115    args=A U,
 116    name=E,
 117    text=E,
 118    pos=uc
 119 ]
 120 %% une droite
 121 \psProjection[object=droite,
 122    args=A B,
 123    name=D1,
 124 ]
 125 %% une autre droite
 126 \psProjection[object=droite,
 127    args=E D,
 128    name=D2,
 129 ]
 130 %% point F = D1 inter D2
 131 \psProjection[object=point,
 132    definition=interdroites,
 133    args=D1 D2,
 134    name=F,
 135    text=F,
 136    pos=uc
 137 ]
 138 %% calcul d'un parallelogramme
 139 \psProjection[object=point,
 140    definition=parallelopoint,
 141    args=C B D,
 142    name=G,
 143    text=G,
 144    pos=uc
 145 ]
 146 %% dessin d'un polygone
 147 \psProjection[object=polygone,
 148    args=C B D G,
 149 ]
 150 \composeSolid
 151 \axesIIID(4,4,2)(5,5,6)
 152 \end{pspicture}
 153
 154 \end{document}