diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-vue3d')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex | 1468 |
1 files changed, 1468 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex b/Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex new file mode 100644 index 00000000000..07ae96eb41e --- /dev/null +++ b/Master/texmf-dist/tex/generic/pst-vue3d/pst-vue3d.tex @@ -0,0 +1,1468 @@ + +%% This is file `pst-vue3d.tex', +%% +%% IMPORTANT NOTICE: +%% +%% Package `pst-vue3d.tex' +%% +%% Manuel Luque <Mluque5130@aol.com> (France) +%% Herbert Voss <voss _at_ pstricks.de (Germany) +%% +%% 2004/06/17 +%% +%% This program can be redistributed and/or modified under the terms +%% of the LaTeX Project Public License Distributed from CTAN archives +%% in directory macros/latex/base/lppl.txt. +%% +%% DESCRIPTION: +%% `pst-vue3d' is a PSTricks package to define 3d views +%% ChangeLog (at end) +%% +\csname PSTVueTroisDLoaded\endcsname +\let\PSTVueTroisDLoaded\endinput +% Require PSTricks and pst-node packages +\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi +\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi +\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi +% +\def\fileversion{1.21}% +\def\filedate{2005/02/21}% +\message{`PST-VUE3D v\fileversion, \filedate\space (ML)(hv)}% +\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax +\pst@addfams{pst-vue3d}% for pst-xkey + +%%%% +\define@key[psset]{pst-vue3d}{scale}{\def\psk@TroisD@scale{#1}} % echelle +\define@key[psset]{pst-vue3d}{RotX}{\def\psk@TroisD@RotX{#1}} % rotation autour de Ox en degrés +\define@key[psset]{pst-vue3d}{RotY}{\def\psk@TroisD@RotY{#1}} % rotation autour de Oy en degrés +\define@key[psset]{pst-vue3d}{RotZ}{\def\psk@TroisD@RotZ{#1}} % rotation autour de OZ en degrés +\define@key[psset]{pst-vue3d}{A}{\def\psk@TroisD@A{#1}} % double d'une arête du parallèlépipède +\define@key[psset]{pst-vue3d}{B}{\def\psk@TroisD@B{#1}} % double d'une arête du parallèlépipède +\define@key[psset]{pst-vue3d}{C}{\def\psk@TroisD@C{#1}} % double de l'arête du parallèlépipède +\define@key[psset]{pst-vue3d}{Rtetraedre}{\def\psk@TroisD@Rtetraedre{#1}} % Rayon du cercle tétraèdre +\define@key[psset]{pst-vue3d}{ColorFaceA}{\def\psk@TroisD@TetraedreColorFaceA{#1}} % couleur de la face A du tétraèdre +\define@key[psset]{pst-vue3d}{ColorFaceB}{\def\psk@TroisD@TetraedreColorFaceB{#1}} % couleur de la face B du tétraèdre +\define@key[psset]{pst-vue3d}{ColorFaceC}{\def\psk@TroisD@TetraedreColorFaceC{#1}} % couleur de la face C du tétraèdre +\define@key[psset]{pst-vue3d}{ColorFaceD}{\def\psk@TroisD@TetraedreColorFaceD{#1}} % couleur de la face D du tétraèdre +\define@key[psset]{pst-vue3d}{ColorFaceE}{\def\psk@TroisD@TetraedreColorFaceE{#1}} % couleur de la face D du tétraèdre +\define@key[psset]{pst-vue3d}{fracHeight}{\def\psk@TroisD@fracHeight{#1}} % fraction de la hauteur du cone +\define@key[psset]{pst-vue3d}{fracHcone}{\def\psk@TroisD@fracHeight{#1}} % for compatibility +% +\define@key[psset]{pst-vue3d}{normaleLongitude}{\def\psk@TroisD@normaleLongitude{#1}} % coordonnées angulaires de la normale +\define@key[psset]{pst-vue3d}{normaleLatitude}{\def\psk@TroisD@normaleLatitude{#1}} % coordonnées angulaires de la normale +\define@key[psset]{pst-vue3d}{pas}{\def\psk@TroisD@pas{#1}} % en cm résolution du tracé +\define@key[psset]{pst-vue3d}{grille}{\def\psk@TroisD@grille{#1}} % Pas de la grille en cm +% +\define@key[psset]{pst-vue3d}{THETA}{\def\psk@TroisD@Theta{#1}} +\define@key[psset]{pst-vue3d}{PHI}{\def\psk@TroisD@Phi{#1}} +\define@key[psset]{pst-vue3d}{DeltaTHETA}{\def\psk@TroisD@DeltaTheta{#1}} +\define@key[psset]{pst-vue3d}{DeltaPHI}{\def\psk@TroisD@DeltaPhi{#1}} +\define@key[psset]{pst-vue3d}{PortionSphereTHETA}{\def\psk@TroisD@PortionSphereTHETA{#1}} +\define@key[psset]{pst-vue3d}{PortionSpherePHI}{\def\psk@TroisD@PortionSpherePHI{#1}} +\define@key[psset]{pst-vue3d}{PhiCercle}{\def\psk@TroisD@PhiCercle{#1}} +\define@key[psset]{pst-vue3d}{ThetaMeridien}{\def\psk@TroisD@ThetaMeridien{#1}} +\define@key[psset]{pst-vue3d}{Dobs}{\def\psk@TroisD@Dobs{#1}} +\define@key[psset]{pst-vue3d}{Decran}{\def\psk@TroisD@Ecran{#1}} +% +\psset{THETA=30,PHI=10,% + Dobs=100,Decran=10,% + normaleLongitude=45,% + normaleLatitude=45,% + PhiCercle=0,% + ThetaMeridien=0,% + pas=1,% + grille=10,% + scale=1,% + RotX=0,RotY=0,RotZ=0,% + A=10,B=10,C=10,% + Rtetraedre=5,% + ColorFaceD=cyan,ColorFaceA=magenta,ColorFaceB=red,% + ColorFaceC=blue,ColorFaceE=yellow,% + fracHeight=1,% + DeltaTHETA=10,DeltaPHI=10,% + PortionSphereTHETA=0,PortionSpherePHI=0} +% ajout du 28 août 2003 +% colorier au choix les faces du cube +\define@key[psset]{pst-vue3d}{CubeColorFaceOne}{\def\psk@TroisD@CubeColorFaceOne{#1}} % couleur de la face 1 du cube +\define@key[psset]{pst-vue3d}{CubeColorFaceTwo}{\def\psk@TroisD@CubeColorFaceTwo{#1}} % couleur de la face 2 du cube +\define@key[psset]{pst-vue3d}{CubeColorFaceThree}{\def\psk@TroisD@CubeColorFaceThree{#1}} % couleur de la face 3 du cube +\define@key[psset]{pst-vue3d}{CubeColorFaceFour}{\def\psk@TroisD@CubeColorFaceFour{#1}} % couleur de la face 4 du cube +\define@key[psset]{pst-vue3d}{CubeColorFaceFive}{\def\psk@TroisD@CubeColorFaceFive{#1}} % couleur de la face 5 du cube +\define@key[psset]{pst-vue3d}{CubeColorFaceSix}{\def\psk@TroisD@CubeColorFaceSix{#1}} % couleur de la face 6 du cube +\psset{CubeColorFaceOne= 1 1 0 , + CubeColorFaceTwo= 0.9 0.9 0 , + CubeColorFaceThree= 0.8 0.8 0 , + CubeColorFaceFour= 0.7 0.7 0 , + CubeColorFaceFive= 0.6 0.6 0 , + CubeColorFaceSix= 0.5 0.5 0 } +% fin 28 août 2003 +% ajout 27 octobre 2003 +\newif\ifPst@cubeInside +\define@key[psset]{pst-vue3d}{CubeInside}[false]{\@nameuse{Pst@cubeInside#1}} +\psset{CubeInside=false} +% hv 2003-12-20 +\newif\ifPst@SphericalCoor +\define@key[psset]{pst-vue3d}{SphericalCoor}[true]{\@nameuse{Pst@SphericalCoor#1}} +\psset{SphericalCoor=false} +% +\def\variablesTroisD{% + 0 0 translate + /reduction \psk@TroisD@scale\space def + /RotX \psk@TroisD@RotX\space def + /RotY \psk@TroisD@RotY\space def + /RotZ \psk@TroisD@RotZ\space def + /A \psk@TroisD@A\space def + /B \psk@TroisD@B\space def + /C \psk@TroisD@C\space def + /RayonBaseTetraedre \psk@TroisD@Rtetraedre\space def + /fracHeight \psk@TroisD@fracHeight\space def + /Rpoint A 4 div def + /nTheta \psk@TroisD@normaleLongitude\space def + /nPhi \psk@TroisD@normaleLatitude\space def + /S1 \psk@TroisD@normaleLongitude\space sin def + /C1 \psk@TroisD@normaleLongitude\space cos def + /S2 \psk@TroisD@normaleLatitude\space sin def + /C2 \psk@TroisD@normaleLatitude\space cos def + /THETA \psk@TroisD@Theta\space def + /PHI \psk@TroisD@Phi\space def + /dTHETA \psk@TroisD@DeltaTheta\space def + /dPHI \psk@TroisD@DeltaPhi\space def + /psTHETA \psk@TroisD@PortionSphereTHETA\space def + /psPHI \psk@TroisD@PortionSpherePHI\space def + /PhiCercle \psk@TroisD@PhiCercle\space def + /ThetaMeridien \psk@TroisD@ThetaMeridien\space def + /Dobs \psk@TroisD@Dobs\space def + /DScreen \psk@TroisD@Ecran\space def + /Sin1 THETA sin def + /Sin2 PHI sin def + /Cos1 THETA cos def + /Cos2 PHI cos def + /Cos1Sin2 Cos1 Sin2 mul def + /Sin1Sin2 Sin1 Sin2 mul def + /Cos1Cos2 Cos1 Cos2 mul def + /Sin1Cos2 Sin1 Cos2 mul def + /XpointVue Dobs Cos1Cos2 mul def + /YpointVue Dobs Sin1Cos2 mul def + /ZpointVue Dobs Sin2 mul def + /M11 RotZ cos RotY cos mul def + /M12 RotZ cos RotY sin mul RotX sin mul + RotZ sin RotX cos mul sub def + /M13 RotZ cos RotY sin mul RotX cos mul + RotZ sin RotX sin mul add def + /M21 RotZ sin RotY cos mul def + /M22 RotZ sin RotY sin RotX sin mul mul + RotZ cos RotX cos mul add def + /M23 RotZ sin RotY sin mul RotX cos mul + RotZ cos RotX sin mul sub def + /M31 RotY sin neg def + /M32 RotX sin RotY cos mul def + /M33 RotX cos RotY cos mul def + }% +% hv 2003-12-20 +% -------------- Utilities ----------------- +\SpecialCoor +\pstheader{3D.pro} + +\def\face{% + \pscurve(1;160)(0.8;180)(1;200) + \pscustom{\gsave\psarc(0,0){1}{165}{195} + \pscurve(1;195)(0.85;180)(1;165) + \fill[fillstyle=solid,fillcolor=blue]\grestore} + \pscurve[linewidth=.4pt](1;195)(0.85;180)(1;165) + \bgroup + \psset{linewidth=2pt} + \psarc(0,1){1}{180}{270} + \psarc(0,-1){1}{90}{180} + \egroup + \psarc(0,0){1}{150}{210} + \psset{linewidth=4pt,linecolor=gray}% + \pscurve(-.5,3.5)(-1,3)(-1.2,2.5)(-1.3,2)(-1.4,1)(-1.35,0.5)% + (-1.2,-.2)(-1.35,-.5)(-1.4,-1)(-1.5,-1.5)(-1.8,-2)(-1.8,-2.3)% + (-1.65,-2.5)(-1.35,-2.55)(-.95,-2.8)(-.95,-3.35)(-1,-3.65)(-.8,-4)(-.4,-4.1) + \pscurve(-.8,-4)(-.8,-4.2)(-.5,-4.5)(-.4,-5)(-.25,-5.5)(0,-5.8)(.5,-6)% +} +\def\eye{% + \psarc[linewidth=2pt](0,2.5){2.5}{215}{270}% + \psarc[linewidth=2pt](0,-2.5){2.5}{90}{140}% + \psarc(-2.5,0){1}{-30}{30}% + \psarc(0,0){1.75}{160}{200} + \psclip{\pscircle[linestyle=none](0,0){1.75}} + \pscircle[fillstyle=solid,fillcolor=lightgray](-2.5,0){0.9} + \endpsclip% +} +% +% -------------- Basic Macros -------------- +% +% hv 2003 +\def\AxesThreeD{\pst@object{AxesThreeD}} +\def\AxesThreeD@i{\@ifnextchar({\AxesThreeD@iii}{\AxesThreeD@ii}} +\def\AxesThreeD@ii#1(#2){% + \begingroup + \addto@par{arrows=#1}% + \begin@OpenObj + \AxesThreeD@iv#2,@comma*\relax% +} +\def\AxesThreeD@iii(#1){% + \begingroup + \begin@OpenObj + \AxesThreeD@iv#1,@comma*\relax% +} +% +\def\AxesThreeD@iv#1,#2*{% + \def\@tempa{#2}\def\@tempb{@comma}% + \ifx\@tempa\@tempb% only one value + \AxesThreeD@v#1,#2\else\AxesThreeD@vi#1,#2\relax% + \fi% +} +\def\AxesThreeD@v#1,#2\relax{% + \AxesThreeD@vi#1,#1,#1,#1\relax% +} +\def\AxesThreeD@vi#1,#2,#3,#4\relax{% + \use@par + \pNodeThreeD(0,0,0){Origin}% + \pNodeThreeD(0,0,#3){ZMax}\pNodeThreeD(#1,0,0){XMax}\pNodeThreeD(0,#2,0){YMax}% + \psline(Origin)(ZMax)\psline(Origin)(XMax)\psline(Origin)(YMax)% + \uput[0](ZMax){\small Z}\uput[90](XMax){\small X}\uput[0](YMax){\small Y}% + \end@OpenObj + \endgroup +} +% +% hv 2003 +\def\showCoorThreeD{\pst@object{showCoorThreeD}} +\def\showCoorThreeD@i(#1){{% + \begin@OpenObj + \showCoorThreeD@ii#1,@comma*\relax + \end@OpenObj + }\ignorespaces% +} +\def\showCoorThreeD@ii#1,#2*{% + \def\@tempa{#2}\def\@tempb{@comma}% + \ifx\@tempa\@tempb% + \showCoorThreeD@iii#1;#2\else\showCoorThreeD@iv#1,#2\relax% + \fi% +} +% +\def\showCoorThreeD@iii#1;#2;#3;#4\relax{% + \psline(! + \variablesTroisD + /Radius #1 def + /longitude #2 def + /latitude #3 def + /Zcote Radius latitude sin mul def + /Xabscisse Radius longitude cos mul latitude cos mul def + /Yordonnee Radius longitude sin mul latitude cos mul def + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end)(! + /Zcote 0 def + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end) + \psline(! + /Zcote 0 def + /Xabscisse Radius longitude cos mul latitude cos mul def + /Yordonnee Radius longitude sin mul latitude cos mul def + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end)(! + /Zcote 0 def + /Yordonnee 0 def + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end) + \psline(! + /Zcote 0 def + /Xabscisse Radius longitude cos mul latitude cos mul def + /Yordonnee Radius longitude sin mul latitude cos mul def + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end)(! + /Zcote 0 def + /Xabscisse 0 def + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end) +} +% +\def\showCoorThreeD@iv#1,#2,#3,#4\relax{% +% \qdisk(P){1pt} + \LineThreeD(#1,#2,#3)(#1,#2,0)% + \LineThreeD(#1,#2,0)(#1,0,0)% + \LineThreeD(#1,#2,0)(0,#2,0)% +} +% +% +\def\CubeThreeD{\pst@object{CubeThreeD}} +\def\CubeThreeD@i(#1,#2,#3){{ + \begin@ClosedObj + \use@par + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + \ifPst@cubeInside /Condition { ge } def \else /Condition { le } def \fi + /CubeColorFaceOne {\psk@TroisD@CubeColorFaceOne} def + /CubeColorFaceTwo {\psk@TroisD@CubeColorFaceTwo} def + /CubeColorFaceThree {\psk@TroisD@CubeColorFaceThree} def + /CubeColorFaceFive {\psk@TroisD@CubeColorFaceFive} def + /CubeColorFaceFour {\psk@TroisD@CubeColorFaceFour} def + /CubeColorFaceSix {\psk@TroisD@CubeColorFaceSix} def + tx@3DDict begin + /Condition1 {PS1 0 le } def + Cube + end + }% fin du code ps + \end@ClosedObj% +}} +% +\def\DieThreeD{\pst@object{DieThreeD}} +\def\DieThreeD@i(#1,#2,#3){{% +% (#2,#3,#4) coordonnées du centre + \begin@ClosedObj + \use@par + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + \ifPst@cubeInside /Condition { ge } def \else /Condition {le } def \fi + /CubeColorFaceOne {\psk@TroisD@CubeColorFaceOne} def + /CubeColorFaceTwo {\psk@TroisD@CubeColorFaceTwo} def + /CubeColorFaceThree {\psk@TroisD@CubeColorFaceThree} def + /CubeColorFaceFive {\psk@TroisD@CubeColorFaceFive} def + /CubeColorFaceFour {\psk@TroisD@CubeColorFaceFour} def + /CubeColorFaceSix {\psk@TroisD@CubeColorFaceSix} def + tx@3DDict begin + Cube + PointsDie + end + }% fin du code ps + \end@ClosedObj% +}} +% +% Dodecahedron : 31 décembre 2003 ml +\def\DodecahedronThreeD{\pst@object{DodecahedronThreeD}} +\def\DodecahedronThreeD@i(#1,#2,#3){{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + /CX #1 def + /CY #2 def + /CZ #3 def + /Condition {le } def + tx@3DDict begin + Dodecahedron + end + }% fin du code ps + \end@ClosedObj% +}} +% +\def\SphereThreeD{\pst@object{SphereThreeD}} +\def\SphereThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) coordonnées du centre +% #5 rayon + \begin@ClosedObj% + \use@par + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rsphere #4 def + /increment 10 def + tx@3DDict begin + /condition { PSfacette 0 le } def + /departPhi -90 def + MaillageSphere + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj% +}\ignorespaces} +% % fin de la commande PSTricks +% +% 2décembre 2002 +% +\def\SphereInverseThreeD{\pst@object{SphereInverseThreeD}} +\def\SphereInverseThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) coordonnées du centre +% #5 rayon + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rsphere #4 def + /increment 10 def + tx@3DDict begin + /condition {PSfacette 0 ge} def + /departPhi -90 def + MaillageSphere + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj% +}\ignorespaces} +% % fin de la commande PSTricks +% fin 2 décembre 2002 +% +\def\SphereCercleThreeD{\pst@object{SphereCercleThreeD}} +\def\SphereCercleThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) coordonnées du centre +% #5 rayon + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rsphere #4 def + tx@3DDict begin + 0 2 360 { + /ThetaEquateur exch def + /Xpoint Rsphere ThetaEquateur cos mul PhiCercle cos mul def + /Ypoint Rsphere ThetaEquateur sin mul PhiCercle cos mul def + /Zpoint Rsphere PhiCercle sin mul def + CalculsPointsAfterTransformations +% rayon de las sphère (normale) + /nXfacette Xabscisse CX sub def + /nYfacette Yordonnee CY sub def + /nZfacette Zcote CZ sub def +% rayon vers point de vue + /RXvue Xabscisse XpointVue sub def + /RYvue Yordonnee YpointVue sub def + /RZvue Zcote ZpointVue sub def +% test de visibilité + /PSPoint RXvue nXfacette mul + RYvue nYfacette mul add + RZvue nZfacette mul add + def + PSPoint 0 le { + newpath + CalcCoordinates + 0.5 0 360 arc + closepath + fill + } if +%lineto + } for + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj% +}\ignorespaces} +% +% +\def\SphereMeridienThreeD{\pst@object{SphereMeridienThreeD}} +\def\SphereMeridienThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) coordonnées du centre +% #5 rayon + \begin@ClosedObj% + \use@par + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rsphere #4 def + tx@3DDict begin + 0 2 360 { + /PhiCercle exch def + /Xpoint Rsphere ThetaMeridien cos mul PhiCercle cos mul def + /Ypoint Rsphere ThetaMeridien sin mul PhiCercle cos mul def + /Zpoint Rsphere PhiCercle sin mul def + CalculsPointsAfterTransformations +% rayon de las sphère (normale) + /nXfacette Xabscisse CX sub def + /nYfacette Yordonnee CY sub def + /nZfacette Zcote CZ sub def +% rayon vers point de vue + /RXvue Xabscisse XpointVue sub def + /RYvue Yordonnee YpointVue sub def + /RZvue Zcote ZpointVue sub def +% test de visibilité + /PSPoint RXvue nXfacette mul + RYvue nYfacette mul add + RZvue nZfacette mul add + def + PSPoint 0 le{ + newpath + CalcCoordinates + 0.5 0 360 arc + closepath + fill + } if + %lineto + } for + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj% +}\ignorespaces} +% +\def\CylindreThreeD{\pst@object{CylindreThreeD}} +\def\CylindreThreeD@i(#1,#2,#3)#4#5{{% +% Le centre de la base sera placé avec +% (#2,#3,#4) les paramètres CX,CY et CZ +% #5 rayon +% #6 hauteur +% on peut ensuite faire tourner le cylindre +% avec RotX, RotY et RotZ + \begin@ClosedObj + \use@par + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rcylindre #4 def + /Hcylindre #5 def + /incrementANGLE 10 def + /incrementHAUTEUR Hcylindre 5 div def + tx@3DDict begin + CylinderThreeD + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj +}\ignorespaces}% % fin de la commande PSTricks +% +% hv 2003-12-18 +\def\LineThreeD{\pst@object{LineThreeD}} +\def\LineThreeD@i(#1,#2,#3)(#4,#5,#6){{% +% (#2,#3,#4) coordonnées du point1 +% (#5,#6,#7) coordonnées du point2 + \begin@OpenObj + \pNodeThreeD(#1,#2,#3){tempNodeA} + \pNodeThreeD(#4,#5,#6){tempNodeB} + \psline(tempNodeA)(tempNodeB) + \end@OpenObj +}\ignorespaces} +% +% hv 2003-12-17 +\def\pNodeThreeD{\pst@object{pNodeThreeD}} +% point can be in cartesian (x,y,z) or sphere coordinates (r;phi;theta) +\def\pNodeThreeD@i(#1)#2{{% + \begin@ClosedObj + \edef\@NodeNameThreeD{#2} + \pNodeThreeD@ii#1,@comma*\relax + \end@ClosedObj + }\ignorespaces% +} +\def\pNodeThreeD@ii#1,#2*{% + \def\@tempa{#2}\def\@tempb{@comma}% + \ifx\@tempa\@tempb% + \pNodeThreeD@iii#1;#2\else\pNodeThreeD@iv#1,#2\relax% + \fi% +} +\def\pNodeThreeD@iii#1;#2;#3;#4\relax{% + \pnode(! + \variablesTroisD + /Radius #1 def + /longitude #2 def + /latitude #3 def + /Zcote Radius latitude sin mul def + /Xabscisse Radius longitude cos mul latitude cos mul def + /Yordonnee Radius longitude sin mul latitude cos mul def + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end){\@NodeNameThreeD} +} +\def\pNodeThreeD@iv#1,#2,#3,#4\relax{% + \pnode(! + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /Zcote Radius latitude sin mul def + /Xabscisse Radius longitude cos mul latitude cos mul def + /Yordonnee Radius longitude sin mul latitude cos mul def + \else + /Zcote #3 def + /Xabscisse #1 def + /Yordonnee #2 def + \fi + tx@3DDict begin + formulesTroisD + Xi reduction mul Yi reduction mul + end){\@NodeNameThreeD}% +} +% +% +\def\TetraedreThreeD{\pst@object{TetraedreThreeD}} +\def\TetraedreThreeD@i(#1,#2,#3){{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + tx@3DDict begin + Tetraedre + end + }% fin du code ps + \end@ClosedObj +}\ignorespaces} +% +% +% pyramide +% +\def\FaceSAB{\pst@object{FaceSAB}} +\def\FaceSAB@i(#1,#2,#3)#4{{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + /Hpyramide #4 def + tx@3DDict begin + SommetsPyramide + PSAB 0 le { % + reduction reduction scale + newpath + 1 setlinejoin + /Xabscisse XS 1 fracHeight sub XA XS sub mul add def + /Yordonnee YS 1 fracHeight sub YA YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + moveto + /Xabscisse XA def + /Yordonnee YA def + /Zcote ZA def + CalcCoordinates + lineto + /Xabscisse XB def + /Yordonnee YB def + /Zcote ZB def + CalcCoordinates + lineto + /Xabscisse XS 1 fracHeight sub XB XS sub mul add def + /Yordonnee YS 1 fracHeight sub YB YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + lineto + closepath + } if + end + }% fin du code ps + \end@ClosedObj +}\ignorespaces} +% +\def\FaceSBC{\pst@object{FaceSBC}} +\def\FaceSBC@i(#1,#2,#3)#4{{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + /Hpyramide #4 def + tx@3DDict begin + SommetsPyramide + PSBC 0 le { % + reduction reduction scale + newpath + 1 setlinejoin + /Xabscisse XS 1 fracHeight sub XB XS sub mul add def + /Yordonnee YS 1 fracHeight sub YB YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + moveto + /Xabscisse XB def + /Yordonnee YB def + /Zcote ZB def + CalcCoordinates + lineto + /Xabscisse XC def + /Yordonnee YC def + /Zcote ZC def + CalcCoordinates + lineto + /Xabscisse XS 1 fracHeight sub XC XS sub mul add def + /Yordonnee YS 1 fracHeight sub YC YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + lineto + closepath + } if + end + }% fin du code ps + \end@ClosedObj +}\ignorespaces} +% +% +\def\FaceSCD{\pst@object{FaceSCD}} +\def\FaceSCD@i(#1,#2,#3)#4{{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + /Hpyramide #4 def + tx@3DDict begin + SommetsPyramide + PSCD 0 le { % + reduction reduction scale + newpath + 1 setlinejoin + /Xabscisse XS 1 fracHeight sub XC XS sub mul add def + /Yordonnee YS 1 fracHeight sub YC YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + moveto + /Xabscisse XC def + /Yordonnee YC def + /Zcote ZC def + CalcCoordinates + lineto + /Xabscisse XD def + /Yordonnee YD def + /Zcote ZD def + CalcCoordinates + lineto + /Xabscisse XS 1 fracHeight sub XD XS sub mul add def + /Yordonnee YS 1 fracHeight sub YD YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + lineto + closepath + } if + end + }% fin du code ps + \end@ClosedObj +}\ignorespaces} +% +\def\FaceSDA{\pst@object{FaceSDA}} +\def\FaceSDA@i(#1,#2,#3)#4{{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + /Hpyramide #4 def + tx@3DDict begin + SommetsPyramide + PSDA 0 le { % + reduction reduction scale + newpath + 1 setlinejoin + /Xabscisse XS 1 fracHeight sub XD XS sub mul add def + /Yordonnee YS 1 fracHeight sub YD YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + moveto + /Xabscisse XD def + /Yordonnee YD def + /Zcote ZD def + CalcCoordinates + lineto + /Xabscisse XA def + /Yordonnee YA def + /Zcote ZA def + CalcCoordinates + lineto + /Xabscisse XS 1 fracHeight sub XA XS sub mul add def + /Yordonnee YS 1 fracHeight sub YA YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + lineto + closepath + } if + end + }% fin du code ps + \end@ClosedObj +}\ignorespaces} +% +\def\FaceABCD{\pst@object{FaceABCD}} +\def\FaceABCD@i(#1,#2,#3)#4{{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + /Hpyramide #4 def + tx@3DDict begin + SommetsPyramide + PSABCD 0 le { % + reduction reduction scale + newpath + 1 setlinejoin + /Xabscisse XA def + /Yordonnee YA def + /Zcote ZA def + CalcCoordinates + moveto + /Xabscisse XB def + /Yordonnee YB def + /Zcote ZB def + CalcCoordinates + lineto + /Xabscisse XC def + /Yordonnee YC def + /Zcote ZC def + CalcCoordinates + lineto + /Xabscisse XD def + /Yordonnee YD def + /Zcote ZD def + CalcCoordinates + lineto + closepath + } if + end + }% fin du code ps + \end@ClosedObj +}\ignorespaces} +% +% hv 2003 +\def\FaceABCDTop{\pst@object{FaceABCDTop}} +\def\FaceABCDTop@i(#1,#2,#3)#4{{% + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + /Hpyramide #4 def + tx@3DDict begin + SommetsPyramide + PSABCD 0 gt { % + reduction reduction scale + newpath + 1 setlinejoin + /Xabscisse XS 1 fracHeight sub XD XS sub mul add def + /Yordonnee YS 1 fracHeight sub YD YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + moveto + /Xabscisse XS 1 fracHeight sub XA XS sub mul add def + /Yordonnee YS 1 fracHeight sub YA YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + lineto + /Xabscisse XS 1 fracHeight sub XB XS sub mul add def + /Yordonnee YS 1 fracHeight sub YB YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + lineto + /Xabscisse XS 1 fracHeight sub XC XS sub mul add def + /Yordonnee YS 1 fracHeight sub YC YS sub mul add def + /Zcote ZS CZ sub fracHeight mul CZ add def + CalcCoordinates + lineto + closepath + } if + end + }% fin du code ps + \end@ClosedObj +}\ignorespaces} +% +\def\PyramideThreeD{\@ifnextchar[{\PyramideThreeD@i}{\PyramideThreeD@i[]}} +% (#2,#3,#4) the coordinates of the origin +% #5 the height of the pyrimide +\def\PyramideThreeD@i[#1](#2,#3,#4)#5{{% + \FaceSAB[fillcolor=\psk@TroisD@TetraedreColorFaceA,#1](#2,#3,#4){#5}% + \FaceSBC[fillcolor=\psk@TroisD@TetraedreColorFaceB,#1](#2,#3,#4){#5}% + \FaceSCD[fillcolor=\psk@TroisD@TetraedreColorFaceC,#1](#2,#3,#4){#5}% + \FaceSDA[fillcolor=\psk@TroisD@TetraedreColorFaceD,#1](#2,#3,#4){#5}% + \FaceABCD[fillcolor=\psk@TroisD@TetraedreColorFaceE,#1](#2,#3,#4){#5}% + \FaceABCDTop[fillcolor=\psk@TroisD@TetraedreColorFaceE,#1](#2,#3,#4){#5}% +}\ignorespaces} +% +% +\def\ConeThreeD{\pst@object{ConeThreeD}} +\def\ConeThreeD@i(#1,#2,#3)#4#5{{% +% Le centre de la base sera placé avec +% (#2,#3,#4) les paramètres CX,CY et CZ +% #5 rayon +% #6 hauteur +% on peut ensuite faire tourner le cylindre +% avec RotX, RotY et RotZ + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rcone #4 def + /Hcone #5 def + tx@3DDict begin + ConeThreeD + end + }% fin du code ps + \showpointsfalse + \end@ClosedObj +}\ignorespaces}% +% +\def\CircleThreeD{\pst@object{CircleThreeD}} +\def\CircleThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) les paramètres CX,CY et CZ +% #5 rayon du cercle + \begin@ClosedObj + \addto@pscode{% + /Rcercle #4 def + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + tx@3DDict begin + reduction reduction scale + /TableauxPoints [ + 0 1 359 {% on décrit le cercle + /Angle exch def [ + /Xcercle Rcercle Angle cos mul def + /Ycercle Rcercle Angle sin mul def + /Xabscisse Xcercle S1 mul Ycercle S2 C1 mul mul add CX add def + /Yordonnee Xcercle C1 mul neg Ycercle S2 S1 mul mul add CY add def + /Zcote Ycercle C2 mul neg CZ add def + CalcCoordinates ] + } for + ] def + TableauxPoints 0 get aload pop moveto + 0 1 359 { + /compteur exch def + TableauxPoints compteur get aload pop + lineto } for + end + }% fin du code ps + \showpointsfalse + \end@ClosedObj +}\ignorespaces} +% +% +\def\FrameThreeD{\pst@object{FrameThreeD}} +\def\FrameThreeD@i(#1,#2,#3)(#4,#5)(#6,#7){{% +% (#2,#3,#4) the origin +% (#5,#6) d'un sommet +% (#7,#8) du sommet opposé +% rectangle ABCD + \begin@ClosedObj + \addto@pscode{% + /XA #4 def + /YA #5 def + /XC #6 def + /YC #7 def +% on en déduit les autres sommets + /XB XC def + /YB YA def + /XD XA def + /YD YC def + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + tx@3DDict begin + reduction reduction scale + newpath + /Xframe XA def + /Yframe YA def + /Xabscisse Xframe S1 mul Yframe S2 C1 mul mul add CX add def + /Yordonnee Xframe C1 mul neg Yframe S2 S1 mul mul add CY add def + /Zcote Yframe C2 mul neg CZ add def + CalcCoordinates + moveto + /Xframe XB def + /Yframe YB def + /Xabscisse Xframe S1 mul Yframe S2 C1 mul mul add CX add def + /Yordonnee Xframe C1 mul neg Yframe S2 S1 mul mul add CY add def + /Zcote Yframe C2 mul neg CZ add def + CalcCoordinates + lineto + /Xframe XC def + /Yframe YC def + /Xabscisse Xframe S1 mul Yframe S2 C1 mul mul add CX add def + /Yordonnee Xframe C1 mul neg Yframe S2 S1 mul mul add CY add def + /Zcote Yframe C2 mul neg CZ add def + CalcCoordinates + lineto + /Xframe XD def + /Yframe YD def + /Xabscisse Xframe S1 mul Yframe S2 C1 mul mul add CX add def + /Yordonnee Xframe C1 mul neg Yframe S2 S1 mul mul add CY add def + /Zcote Yframe C2 mul neg CZ add def + CalcCoordinates + lineto + /Xframe XA def + /Yframe YA def + /Xabscisse Xframe S1 mul Yframe S2 C1 mul mul add CX add def + /Yordonnee Xframe C1 mul neg Yframe S2 S1 mul mul add CY add def + /Zcote Yframe C2 mul neg CZ add def + CalcCoordinates + lineto + closepath + end + }% fin du code ps + \showpointsfalse + \end@ClosedObj +}\ignorespaces}% % fin de la commande PSTricks +% +% +\def\QuadrillageThreeD{\pst@object{QuadrillageThreeD}} +\def\QuadrillageThreeD@i(#1,#2,#3)(#4,#5)(#6,#7){{% + \begin@OpenObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + /Xmin #4 def + /Xmax #6 def + /Ymin #5 def + /Ymax #7 def + /pas \psk@TroisD@pas\space def + /grille \psk@TroisD@grille\space def + tx@3DDict begin + reduction reduction scale + Ymin grille Ymax {% balayage suivant Oy + /Ygrille exch def + /TableauxPoints [ + Xmin pas Xmax { % balayage suivant Ox + /Xgrille exch def + /Xabscisse Xgrille S1 mul Ygrille S2 C1 mul mul add CX add def + /Yordonnee Xgrille C1 mul neg Ygrille S2 S1 mul mul add CY add def + /Zcote Ygrille C2 mul neg CZ add def + formulesTroisD + [ Xi 28.45 mul Yi 28.45 mul ] + } for + ] def + TableauxPoints 0 get aload pop moveto + 0 1 Xmax Xmin sub pas div { + /compteur exch def + TableauxPoints compteur get aload pop + lineto + } for +% stroke + } for +% + Xmin grille Xmax {% balayage suivant Ox + /Xgrille exch def + /TableauxPoints [ + Ymin pas Ymax { % balayage suivant Ox + /Ygrille exch def + /Xabscisse Xgrille S1 mul Ygrille S2 C1 mul mul add CX add def + /Yordonnee Xgrille C1 mul neg Ygrille S2 S1 mul mul add CY add def + /Zcote Ygrille C2 mul neg CZ add def + formulesTroisD + [ Xi 28.45 mul Yi 28.45 mul ] + } for + ] def + TableauxPoints 0 get aload pop moveto + 0 1 Ymax Ymin sub pas div { + /compteur exch def + TableauxPoints compteur get aload pop + lineto + } for + \pst@number\pslinewidth SLW + \pst@usecolor\pslinecolor + \@nameuse{psls@\pslinestyle} +% stroke + } for +% fin du tracé + end + }% fin du code ps + \end@OpenObj +}\ignorespaces}% % fin de la commande PSTricks +% +% +% 11 novembre +\def\DemiSphereThreeD{\pst@object{DemiSphereThreeD}} +\def\DemiSphereThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) coordinates of the center +% #5 rayon + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rsphere #4 def + /increment 10 def + tx@3DDict begin + /condition { PSfacette 0 le } def + /departPhi 0 def + MaillageSphere +% centre de la base inférieure après transformations + /CxFaceInf CX def + /CyFaceInf CY def + /CzFaceInf CZ def +% correction 16 novembre 2002 +% /Xpoint CxFaceInf def +% /Ypoint CyFaceInf def +% /Zpoint CzFaceInf def + /Xpoint 0 def + /Ypoint 0 def + /Zpoint 0 def +% fin correction 16/11/2002 + CalculsPointsAfterTransformations + /CxBaseInf Xabscisse def + /CyBaseInf Yordonnee def + /CzBaseInf Zcote def + /RXvueInf CxBaseInf XpointVue sub def + /RYvueInf CyBaseInf YpointVue sub def + /RZvueInf CzBaseInf ZpointVue sub def +% Sommet de la sphère + /Xpoint 0 def + /Ypoint 0 def + /Zpoint Rsphere def + CalculsPointsAfterTransformations + /XsommetSphere Xabscisse def + /YsommetSphere Yordonnee def + /ZsommetSphere Zcote def +% Normale extérieure à la base inférieure + /nXBaseInf CxFaceInf XsommetSphere sub def + /nYBaseInf CyFaceInf YsommetSphere sub def + /nZBaseInf CzFaceInf ZsommetSphere sub def +% Visibilité de la base inférieure + /PSbaseSphere nXBaseInf RXvueInf mul + nYBaseInf RYvueInf mul add + nZBaseInf RZvueInf mul add def + PSbaseSphere 0 le { + /TableauxPoints [ + 0 1 359 {% on décrit le cercle + /theta exch def [ + /Xpoint Rsphere theta cos mul def + /Ypoint Rsphere theta sin mul def + /Zpoint 0 def + CalculsPointsAfterTransformations + CalcCoordinates ] + } for + ] def + gsave + newpath + TableauxPoints 0 get aload pop moveto + 0 1 359 { + /compteur exch def + TableauxPoints compteur get aload pop + lineto + } for + 0.7 setgray + closepath + fill + grestore + } if + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj +}\ignorespaces}% % fin de la commande PSTricks +% +% +\def\SphereCreuseThreeD{\pst@object{SphereCreuseThreeD}} +\def\SphereCreuseThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) coordinates of the center +% #5 rayon + \begin@ClosedObj + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rsphere #4 def + /increment 10 def + tx@3DDict begin + /SphereInside { + /condition {PSfacette 0 ge} def + /departPhi 0 def + MaillageSphere + } def +%% centre de la base inférieure après transformations + /CxFaceInf CX def + /CyFaceInf CY def + /CzFaceInf CZ def + /Xpoint CxFaceInf def + /Ypoint CyFaceInf def + /Zpoint CzFaceInf def + CalculsPointsAfterTransformations + /CxBaseInf Xabscisse def + /CyBaseInf Yordonnee def + /CzBaseInf Zcote def + /RXvueInf CxBaseInf XpointVue sub def + /RYvueInf CyBaseInf YpointVue sub def + /RZvueInf CzBaseInf ZpointVue sub def +% Sommet de la sphère + /Xpoint 0 def + /Ypoint 0 def + /Zpoint Rsphere def + CalculsPointsAfterTransformations + /XsommetSphere Xabscisse def + /YsommetSphere Yordonnee def + /ZsommetSphere Zcote def +% Normale extérieure à la base inférieure + /nXBaseInf CxFaceInf XsommetSphere sub def + /nYBaseInf CyFaceInf YsommetSphere sub def + /nZBaseInf CzFaceInf ZsommetSphere sub def +% Visibilité de la base inférieure + /PSbaseSphere nXBaseInf RXvueInf mul nYBaseInf RYvueInf mul add + nZBaseInf RZvueInf mul add def + /base { + /TableauxPoints [ + 0 1 359 {% on décrit le cercle + /theta exch def [ + /Xpoint Rsphere theta cos mul def + /Ypoint Rsphere theta sin mul def + /Zpoint 0 def + CalculsPointsAfterTransformations + CalcCoordinates ] + } for + ] def +% gsave + newpath + TableauxPoints 0 get aload pop moveto + 0 1 359 { + /compteur exch def + TableauxPoints compteur get aload pop + lineto } for + 0.7 setgray + closepath +% stroke +%grestore + } def + PSbaseSphere 0 le { + base + clip + SphereInside + }{ 0 0 0.01 0 360 arc } ifelse + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj +}\ignorespaces}% % fin de la commande PSTricks +% +% 30 novembre 2002 +% révisé le 30 octobre 2003 +\def\PortionSphereThreeD{\pst@object{PortionSphereThreeD}} +\def\PortionSphereThreeD@i(#1,#2,#3)#4{{% +% (#2,#3,#4) coordinates of the center +% #5 rayon + \begin@ClosedObj% + \addto@pscode{% + \variablesTroisD + \ifPst@SphericalCoor + /Radius #1 def + /longitude #2 def + /latitude #3 def + /CZ Radius latitude sin mul def + /CX Radius longitude cos mul latitude cos mul def + /CY Radius longitude sin mul latitude cos mul def + \else + /CX #1 def + /CY #2 def + /CZ #3 def + \fi + reduction reduction scale + /Rsphere #4 def + /increment 1 def +% /increment 2.5 def + tx@3DDict begin + PortionSphere + end + }% fin du code ps + \showpointsfalse% + \end@ClosedObj% +}\ignorespaces}% % fin de la commande PSTricks +% +%% END: pst-vue3D.tex +\endinput + |