diff options
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-vue3d/examples')
18 files changed, 671 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/ChaiseDemo.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/ChaiseDemo.pdf Binary files differnew file mode 100644 index 00000000000..426b0741a34 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/ChaiseDemo.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/ChaiseDemo.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/ChaiseDemo.tex new file mode 100644 index 00000000000..8cca398d509 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/ChaiseDemo.tex @@ -0,0 +1,36 @@ +\documentclass[a4paper]{article} +\usepackage{geometry} +\parindent=0pt +\usepackage{pstricks,pst-vue3d} +% +\definecolor{marron}{rgb}{1,0.55,0} +\def\Sol{% + \psset{normaleLongitude=90,normaleLatitude=90} + \FrameThreeD[fillcolor=lightgray,fillstyle=solid](0,0,-2)(2,-2)(-2,2) + \QuadrillageThreeD[grille=.5,linecolor=red](0,0,-2)(-2,-2)(2,2)% + \QuadrillageThreeD[grille=0.75,linecolor=cyan](0,0,-2)(-2,-2)(2,2)% +} +\def\chaise{% + \FrameThreeD[normaleLatitude=0,normaleLongitude=0,% + fillcolor=marron,fillstyle=solid](-0.8,1,2)(0.2,0)(1.8,1) + \CubeThreeD[A=.1,B=0.1,C=0.9](0.9,-0.9,-1.1) + \CubeThreeD[A=.1,B=0.1,C=0.9](0.9,0.9,-1.1) + \CubeThreeD[A=.1,B=0.1,C=2](-0.9,0.9,0) + \CubeThreeD[A=.1,B=0.1,C=2](-0.9,-0.9,0) + \CubeThreeD[A=0.9,B=1,C=0.1](0.1,0,-0.1) +} +\begin{document} + +\begin{center} + \begin{pspicture}(-5.5,-7)(5,4.5) + \psset{THETA=30,PHI=20,Dobs=10,Decran=20} + \Sol\chaise + \pNodeThreeD(-0.5,-0.3,0){littleChair} + \rput[lC](littleChair){% + \psset{THETA=30,PHI=20,Dobs=100,Decran=20} + \Sol\chaise% + } + \end{pspicture} +\end{center} + +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/CoorDemo.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/CoorDemo.pdf Binary files differnew file mode 100644 index 00000000000..aef6fe88b44 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/CoorDemo.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/CoorDemo.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/CoorDemo.tex new file mode 100644 index 00000000000..11a009fb95d --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/CoorDemo.tex @@ -0,0 +1,25 @@ +\documentclass[12pt]{article} +\usepackage{pstricks} +\usepackage{pst-vue3d} +\SpecialCoor +\makeatletter +% +\makeatother +\begin{document} + +\psset{unit=3} +\begin{pspicture}(-1.5,-0.75)(2.5,2.25) + \AxesThreeD(20) + \pNodeThreeD(15,18,15){P}% cartesian + \uput[0](P){P} + \psset{linecolor=red} + \qdisk(P){3pt} + \showCoorThreeD[linecolor=red](15,18,15) + \psset{linecolor=blue} + \pNodeThreeD(20;60;40){Q}% spherical + \uput[0](Q){Q} + \qdisk(Q){3pt} + \showCoorThreeD[linecolor=blue](20;60;40) +\end{pspicture} + +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/FrameDemo.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/FrameDemo.pdf Binary files differnew file mode 100644 index 00000000000..3c64334088c --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/FrameDemo.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/FrameDemo.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/FrameDemo.tex new file mode 100644 index 00000000000..b21e6794ccf --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/FrameDemo.tex @@ -0,0 +1,58 @@ +\documentclass[12pt]{article} % Herbert Voss 2003-12-20 +\usepackage{pst-vue3d,multido} +\begin{document} + +\fbox{\begin{pspicture}(-1.3,-0.75)(2,1.1) +\FrameThreeD[% + normaleLatitude=0,% + normaleLongitude=0,% + fillcolor=green,fillstyle=solid](0,0,0)(-10,-5)(10,5)% +\AxesThreeD[linecolor=red](20,15,10) +\end{pspicture}% +} +\hfill +\fbox{\begin{pspicture}(-1.3,-0.75)(2,1.1) +\FrameThreeD[% + normaleLatitude=90,% + normaleLongitude=0,% + fillcolor=green,fillstyle=solid](0,0,0)(-10,-5)(10,5)% +\AxesThreeD[linecolor=red](20,15,10) +\end{pspicture}% +}% +\hfill +\fbox{\begin{pspicture}(-1.3,-0.75)(2,1.1) +\FrameThreeD[% + normaleLatitude=0,% + normaleLongitude=90,% + fillcolor=green,fillstyle=solid](0,0,0)(-10,-5)(10,5)% +\AxesThreeD[linecolor=red](20,15,10) +\end{pspicture} +} + + + +\fbox{\begin{pspicture}(-1.3,-0.75)(2,1.1) +\psset{normaleLatitude=0,normaleLongitude=0,linewidth=0.5pt} +\FrameThreeD[fillcolor=cyan,fillstyle=solid](0,0,0)(-10,-5)(10,5)% +\QuadrillageThreeD[grille=2.5,linecolor=black,pas=5](0,0,0)(-10,-5)(10,5)% +\AxesThreeD[linecolor=red](20,15,10) +\end{pspicture}% +} +\hfill +\fbox{\begin{pspicture}(-1.3,-0.75)(2,1.1) +\psset{normaleLatitude=90,normaleLongitude=0,linewidth=0.5pt} +\FrameThreeD[fillcolor=cyan,fillstyle=solid](0,0,0)(-10,-5)(10,5)% +\QuadrillageThreeD[grille=2.5,linecolor=black](0,0,0)(-10,-5)(10,5)% +\AxesThreeD[linecolor=red](20,15,10) +\end{pspicture}% +}% +\hfill +\fbox{\begin{pspicture}(-1.3,-0.75)(2,1.1) +\psset{normaleLatitude=0,normaleLongitude=90,linewidth=0.5pt} +\FrameThreeD[fillcolor=cyan,fillstyle=solid](0,0,0)(-10,-5)(10,5)% +\QuadrillageThreeD[grille=2.5,linecolor=black](0,0,0)(-10,-5)(10,5)% +\AxesThreeD[linecolor=red](20,15,10) +\end{pspicture} +} + +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/Line3d.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/Line3d.pdf Binary files differnew file mode 100644 index 00000000000..ae2b3652466 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/Line3d.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/Line3d.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/Line3d.tex new file mode 100644 index 00000000000..1796dd659f8 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/Line3d.tex @@ -0,0 +1,66 @@ +\documentclass[12pt,a4paper]{article} +\usepackage{pstricks} +\usepackage{pst-vue3d} +\usepackage{multido} +\usepackage{geometry} +% +\begin{document} + + \psset{unit=1cm} + \begin{pspicture}(-3,-3)(3,4) + \psset{THETA=70,PHI=30,Dobs=150,Decran=10} + \AxesThreeD[linecolor=red,linestyle=dashed](50,60,50) + \pNodeThreeD(25,-25,25){A} + \pNodeThreeD(25,25,25){B} + \pNodeThreeD(25,25,-25){C} + \pNodeThreeD(25,-25,-25){D} + \pNodeThreeD(-25,-25,25){E} + \pNodeThreeD(-25,25,25){F} + \pNodeThreeD(-25,25,-25){G} + \pNodeThreeD(-25,-25,-25){H} + \pspolygon(A)(B)(C)(D) + \pspolygon(E)(F)(G)(H) + \psline(A)(E) + \psline(B)(F) + \psline(C)(G) + \psline(D)(H) + \psset{linestyle=dashed} + \psline(A)(G) + \psline(B)(H) + \psline(C)(E) + \psline(D)(F) +% routine page 49 in "présentation de PSTricks" +% D.Girou "cahier 16 Gutengerg" + \newcounter{lettre} + \multido{\i=1+1}{8}{% + \setcounter{lettre}{\i} + \psdot[linecolor=red](\Alph{lettre}) + \uput[90](\Alph{lettre}){\Alph{lettre}} + } +\end{pspicture} + + + + \begin{pspicture}(-2.5,-3.5)(3.5,1.5) + \psset{THETA=50,PHI=50,Dobs=250,Decran=10} + \multido{\iX=-70+10}{15}{% + \pNodeThreeD(\iX,0,0){X1} + \pNodeThreeD(\iX,50,0){X2} + \psline(X1)(X2) + } + \multido{\iY=0+10}{6}{% + \pNodeThreeD(-70,\iY,0){Y1} + \pNodeThreeD(70,\iY,0){Y2} + \psline(Y1)(Y2)% + } + \psset{normaleLongitude=0,normaleLatitude=90} + \multido{\iXorigine=-65+10}{14}{% + \multido{\iYorigine=5+10}{5}{% + \CircleThreeD[linecolor=red](\iXorigine,\iYorigine,0){5}% + }% + } + \end{pspicture}% + + + +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo.pdf Binary files differnew file mode 100644 index 00000000000..e82f795d86e --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo.tex new file mode 100644 index 00000000000..1e0608c2b11 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo.tex @@ -0,0 +1,69 @@ +\documentclass[a4paper]{article} +\usepackage{geometry} +\parindent=0pt +\usepackage{pstricks,pst-grad,multido,pst-plot,pst-vue3d} +% +\input realcalc +% +\psset{dimen=middle} +\newcommand{\cables}{% + \multido{\iY=-2+4}{2}{% + \parametricplot[linewidth=3\pslinewidth]{-5}{5}{% + \variablesTroisD + /Xabscisse t def + /Yordonnee \iY\space def + /Zcote 0.1 Xabscisse dup mul mul def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \multido{\nCable=-4.5+0.5}{20}{% + \Rmul\cote\nCable\nCable + \Rmul\cote\cote{0.1} + \LineThreeD(\nCable,\iY,\cote)(\nCable,\iY,0) + }% + }% + \LineThreeD[linewidth=3\pslinewidth](-9,-2,0)(-5,-2,2.5) + \LineThreeD[linewidth=3\pslinewidth](9,-2,0)(5,-2,2.5) + \LineThreeD[linewidth=3\pslinewidth](-9,2,0)(-5,2,2.5) + \LineThreeD[linewidth=3\pslinewidth](9,2,0)(5,2,2.5) +} +\def\bridge(#1)(#2){{% +\begin{pspicture}(#1)(#2) + \FrameThreeD[normaleLongitude=90,normaleLatitude=90,% the river + linestyle=none,fillstyle=gradient,gradbegin=white,% + gradend=blue,gradangle=45](0,0,-2)(-4,-9)(4,9) + {\psset{fracHeight=0.62, fillstyle=solid, % + ColorFaceA=lightgray,ColorFaceB=gray} + \PyramideThreeD[A=.4,B=.4,C=.4](-5,-2,-2){7}% Bridge + \PyramideThreeD[A=.5,B=.5,C=.5](5,-2,-2){7}} + \CubeThreeD[normaleLongitude=90,% the street + normaleLatitude=90,fillstyle=solid,A=9,B=2,C=0.05](0,0,0) + \multido{\nL=-8.8+0.2}{89}{% + \LineThreeD[linecolor=lightgray](\nL,-2,0)(\nL,2,0) + } + \AxesThreeD[linestyle=dashed,arrowsize=0.2,linecolor=red](6) + \cables + \psset{fracHeight=0.62, fillstyle=solid, % + ColorFaceA=lightgray,ColorFaceB=gray} + \PyramideThreeD[A=.4,B=.4,C=.4](-5,2,-2){7}% Bridge + \PyramideThreeD[A=.5,B=.5,C=.5](5,2,-2){7} +\end{pspicture} +}} + +\begin{document} +\begin{center} +\psset{PHI=30,THETA=45,Dobs=15,Decran=10} +\bridge(-7.5,-8.5)(7.5,4.5) + +\clearpage +\makebox[\linewidth]{ +\psset{PHI=0,THETA=0,Dobs=15} +\bridge(-8,-2.5)(8,4.25) +} + +\psset{PHI=90,THETA=0,Dobs=15} +\bridge(-5,-6)(5,6) +\end{center} +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo2.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo2.pdf Binary files differnew file mode 100644 index 00000000000..51d99979148 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo2.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo2.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo2.tex new file mode 100644 index 00000000000..8e59c4abcb2 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo2.tex @@ -0,0 +1,173 @@ +\documentclass[a4paper]{article} +% Manuel Luque <MLuque@aol.com> +% Herbert Voss <voss@perce.de> - 2003/12/20 +\usepackage{pstricks} +\usepackage{pst-node} +\usepackage{pst-plot} +\usepackage{pst-grad} +\usepackage{pst-vue3d} + +\input random + +\definecolor{pelouse}{cmyk}{0.14,0.42,0.56,0} +\definecolor{base}{rgb}{1,0.8,0} +\newpsstyle{surface}{fillstyle=vlines,hatchcolor=marron,% + hatchwidth=0.2\pslinewidth,hatchsep=1\pslinewidth} +\newpsstyle{sol}{fillstyle=vlines,hatchcolor=lightgray,% + hatchwidth=0.2\pslinewidth,hatchsep=1\pslinewidth} +\SpecialCoor + +\def\fleuve{% + \FrameThreeD[normaleLatitude=90,normaleLongitude=90,% + linestyle=none,fillstyle=gradient,% + gradbegin=blue,gradend=white](0,0,-2.5)(-12,-14)(12,14) +} +\newcommand{\tablier}{% + \FrameThreeD[normaleLatitude=90,normaleLongitude=90,% + linestyle=none,fillstyle=gradient,% + gradbegin=blue,gradend=white](0,0,0)(-\Xcinf,-2)(\Xcinf,2)% + \multido{\nL=-\Xcinf+0.2}{196}{% + \LineThreeD[linecolor=lightgray](\nL,-2,0)(\nL,2,0)% + }% +} +\newcommand\rembardes{% + \multido{\iY=-2+4}{2}{% + \LineThreeD[linecolor=red](-\Xcinf,\iY,0.5)(\Xcinf,\iY,0.5) + \multido{\rX=-\Xcinf+0.4}{98}{% + \LineThreeD[linecolor=red](\rX,\iY,0)(\rX,\iY,0.5)% + }% + }% +} +\newcommand\bases{% + \multido{\iYpos=-2+4}{2}{% + \multido{\rXpos=-\Xc+\twoXc}{2}{% + \parametricplot[fillstyle=solid,fillcolor=base]{0}{360}{% + /Xabscisse t cos 1.5 mul \rXpos\space add def + /Zcote -2.5 def + /Yordonnee t sin 1.5 mul \iYpos\space add def + tx@3DDict begin + formulesTroisD + Xi Yi + end + }% + }% + }% +} +\newcommand\Berges{% + \pNodeThreeD(-\Xcinf,-14,-2){B1} + \pNodeThreeD(-12,-14,-2.5){B2} + \pNodeThreeD(-\Xcinf,14,-2){B4} + \pNodeThreeD(-12,14,-2.5){B3} + \pspolygon[fillstyle=solid,fillcolor=pelouse](B1)(B2)(B3)(B4) + \pNodeThreeD(\Xcinf,-14,-2){B1} + \pNodeThreeD(12,-14,-2.5){B2} + \pNodeThreeD(\Xcinf,14,-2){B4} + \pNodeThreeD(12,14,-2.5){B3} + \pspolygon[fillstyle=solid,fillcolor=pelouse](B1)(B2)(B3)(B4)% +} +\pagestyle{empty} + +\def\Radius{14} +\def\Xc{6.5} +\newdimen\tempXc +\tempXc=\Xc pt +\multiply\tempXc by 3 +\def\Xcinf{\pointless\tempXc} +\newdimen\temptwoXc +\temptwoXc=\Xc pt +\multiply\temptwoXc by 2 +\def\twoXc{\pointless\temptwoXc} + +\begin{document} + +\psset{PHI=40,THETA=-70,Dobs=30,Decran=8} + +\begin{pspicture}(-8,-10)(15,10) +\pNodeThreeD(0,0,0){fictif} +\fleuve% +\Berges\bases% +\multido{\iY=-2+4}{2}{% + \pnode(! + /Xc \Xc\space def + /Radius \Radius\space def + /radius1 Xc 2 Radius mul add Xc Radius mul Radius dup mul add + sqrt 2 mul sub def + /X1 radius1 def + /Hpile Radius 1 1 Xc 2 mul dup mul 4 Radius dup mul mul div + sub sqrt sub mul neg def + X1 radius1){PointInitial} + \LineThreeD(-\Xcinf,\iY,-2)(-\Xcinf,\iY,0) + \LineThreeD(\Xcinf,\iY,-2)(\Xcinf,\iY,0) + \LineThreeD(-19.5,\iY,0)(19.5,\iY,0) + \LineThreeD(-\Xc,\iY,-2.5)(-\Xc,\iY,0) + \LineThreeD(\Xc,\iY,0)(\Xc,\iY,-2.5) + \multido{\nX=-13+13}{3}{% + \parametricplot{62.336}{117.664}{% + /Xabscisse t cos Radius mul \nX\space add def + /Zcote t sin Radius mul Radius sub def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \parametricplot{0}{360}{% + /Xabscisse t cos radius1 mul radius1 add Xc sub \nX\space add def + /Zcote t sin radius1 mul radius1 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \parametricplot{0}{360}{% + /Xabscisse t cos radius1 mul radius1 add neg Xc 2 mul add \nX\space add Xc sub def + /Zcote t sin radius1 mul radius1 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \multido{\i=0+1}{30}{% + \pnode(! + /B Radius X1 mul Xc radius1 mul sub neg def + /A Radius radius1 sub def + /C X1 X1 mul Radius mul Xc Xc mul radius1 mul sub def + /Discriminant B B mul A C mul sub sqrt def + /X2 B neg Discriminant add A div def + /radius2 X2 X1 sub 2 exp 4 radius1 mul div def + X2 radius2){fictif1} + \multido{\nX=-13+13}{3}{% + \parametricplot{0}{360}{% + /Xabscisse t cos radius2 mul X2 add Xc sub \nX\space add def + /Zcote t sin radius2 mul radius2 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \parametricplot{0}{360}{% + /Xabscisse t cos radius2 mul X2 add neg Xc 2 mul add Xc sub \nX\space add def + /Zcote t sin radius2 mul radius2 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + }% + } + \pnode(! + /X1 X2 def + /radius1 radius2 def + X1 radius1){fictif2} + } + }% +} +\tablier +\rembardes +\AxesThreeD[linestyle=dashed,arrowsize=0.2](21,16,10) +\end{pspicture} + +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo3.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo3.pdf Binary files differnew file mode 100644 index 00000000000..6b3116a610f --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo3.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo3.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo3.tex new file mode 100644 index 00000000000..ececb1d3531 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PontDemo3.tex @@ -0,0 +1,170 @@ +\documentclass[a4paper]{article} +% Manuel Luque <MLuque@aol.com> +% Herbert Voss <voss@perce.de> - 2003/12/20 +\usepackage{pstricks} +\usepackage{pst-node} +\usepackage{pst-plot} +\usepackage{pst-grad} +\usepackage{pst-vue3d} +\usepackage{multido} + +\input random + +\definecolor{pelouse}{cmyk}{0.14,0.42,0.56,0} +\definecolor{base}{rgb}{1,0.8,0} +\newpsstyle{surface}{fillstyle=vlines,hatchcolor=marron,% + hatchwidth=0.2\pslinewidth,hatchsep=1\pslinewidth} +\newpsstyle{sol}{fillstyle=vlines,hatchcolor=lightgray,% + hatchwidth=0.2\pslinewidth,hatchsep=1\pslinewidth} + +\SpecialCoor + +\def\fleuve{% + \FrameThreeD[normaleLatitude=90,normaleLongitude=90,% + linestyle=none,fillstyle=gradient,% + gradbegin=blue,gradend=white](0,0,-2.5)(-12,-14)(12,14) +} +\newcommand{\tablier}{% + \FrameThreeD[normaleLatitude=90,normaleLongitude=90,% + linestyle=none,fillstyle=gradient,% + gradbegin=gray,gradend=white](0,0,0)(-\Xcinf,-2)(\Xcinf,2)% + \multido{\nL=-\Xcinf+0.2}{196}{% + \LineThreeD[linecolor=lightgray](\nL,-2,0)(\nL,2,0)% + }% +} +\newcommand\rembardes{% + \multido{\iY=-2+4}{2}{% + \LineThreeD[linecolor=red](-\Xcinf,\iY,0.5)(\Xcinf,\iY,0.5) + \multido{\rX=-\Xcinf+0.4}{98}{% + \LineThreeD[linecolor=red](\rX,\iY,0)(\rX,\iY,0.5)% + }% + }% +} +\newcommand\bases{% + \multido{\iYpos=-2+4}{2}{% + \multido{\rXpos=-\Xc+\twoXc}{2}{% + \parametricplot[fillstyle=solid,fillcolor=base]{0}{360}{% + /Xabscisse t cos 1.5 mul \rXpos\space add def + /Zcote -2.5 def + /Yordonnee t sin 1.5 mul \iYpos\space add def + tx@3DDict begin + formulesTroisD + Xi Yi + end + }% + }% + }% +} +\newcommand\Berges{% + \pNodeThreeD(-\Xcinf,-14,-2){B1} + \pNodeThreeD(-12,-14,-2.5){B2} + \pNodeThreeD(-\Xcinf,14,-2){B4} + \pNodeThreeD(-12,14,-2.5){B3} + \pspolygon[fillstyle=solid,fillcolor=pelouse](B1)(B2)(B3)(B4) + \pNodeThreeD(\Xcinf,-14,-2){B1} + \pNodeThreeD(12,-14,-2.5){B2} + \pNodeThreeD(\Xcinf,14,-2){B4} + \pNodeThreeD(12,14,-2.5){B3} + \pspolygon[fillstyle=solid,fillcolor=pelouse](B1)(B2)(B3)(B4)% +} + +\pagestyle{empty} + +\def\Radius{14} +\def\Xc{6.5} +\newdimen\tempXc +\tempXc=\Xc pt +\multiply\tempXc by 3 +\def\Xcinf{\pointless\tempXc} +\newdimen\temptwoXc +\temptwoXc=\Xc pt +\multiply\temptwoXc by 2 +\def\twoXc{\pointless\temptwoXc} + +\begin{document} + +\begin{pspicture}(-4,-10)(15,10) +\psset{PHI=20,THETA=-30,Dobs=30,Decran=10} +\pNodeThreeD(0,0,0){fictif} +\fleuve\Berges\bases% +\multido{\iY=-2+4}{2}{% + \pnode(! + /Xc \Xc\space def + /Radius \Radius\space def + /radius1 Xc 2 Radius mul add Xc Radius mul Radius dup mul add + sqrt 2 mul sub def + /X1 radius1 def + /Hpile Radius 1 1 Xc 2 mul dup mul 4 Radius dup mul mul div + sub sqrt sub mul neg def + X1 radius1){PointInitial} + \LineThreeD(-\Xcinf,\iY,-2)(-\Xcinf,\iY,0) + \LineThreeD(\Xcinf,\iY,-2)(\Xcinf,\iY,0) + \LineThreeD(-19.5,\iY,0)(19.5,\iY,0) + \LineThreeD(-\Xc,\iY,-2.5)(-\Xc,\iY,0) + \LineThreeD(\Xc,\iY,0)(\Xc,\iY,-2.5) + \multido{\nX=-13+13}{3}{% + \parametricplot{62.336}{117.664}{% + /Xabscisse t cos Radius mul \nX\space add def + /Zcote t sin Radius mul Radius sub def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \parametricplot{0}{360}{% + /Xabscisse t cos radius1 mul radius1 add Xc sub \nX\space add def + /Zcote t sin radius1 mul radius1 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \parametricplot{0}{360}{% + /Xabscisse t cos radius1 mul radius1 add neg Xc 2 mul add \nX\space add Xc sub def + /Zcote t sin radius1 mul radius1 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + } + \multido{\i=0+1}{30}{% + \pnode(! + /B Radius X1 mul Xc radius1 mul sub neg def + /A Radius radius1 sub def + /C X1 X1 mul Radius mul Xc Xc mul radius1 mul sub def + /Discriminant B B mul A C mul sub sqrt def + /X2 B neg Discriminant add A div def + /radius2 X2 X1 sub 2 exp 4 radius1 mul div def + X2 radius2){fictif1} + \multido{\nX=-13+13}{3}{% + \parametricplot{0}{360}{% + /Xabscisse t cos radius2 mul X2 add Xc sub \nX\space add def + /Zcote t sin radius2 mul radius2 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + } + \parametricplot{0}{360}{% + /Xabscisse t cos radius2 mul X2 add neg Xc 2 mul add Xc sub \nX\space add def + /Zcote t sin radius2 mul radius2 add neg def + /Yordonnee \iY\space def + tx@3DDict begin + formulesTroisD + Xi Yi + end + }% + } + \pnode(! /X1 X2 def /radius1 radius2 def X1 radius1){fictif2} + }% +} +\tablier +\rembardes +\AxesThreeD[linestyle=dashed,arrowsize=0.2](21,16,10) +\end{pspicture} +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PyramidDemo.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PyramidDemo.pdf Binary files differnew file mode 100644 index 00000000000..7dc446803ca --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PyramidDemo.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/PyramidDemo.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PyramidDemo.tex new file mode 100644 index 00000000000..b0cf19da007 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/PyramidDemo.tex @@ -0,0 +1,17 @@ +\documentclass{article} +\usepackage{pst-vue3d} +\begin{document} + \psset{THETA=30,PHI=30,Dobs=400,Decran=30,fillstyle=solid} + \begin{pspicture}(-2.5,-2)(2.5,12) + \PyramideThreeD[fracHeight=0.5,A=10](0,0,0){150}% + \psset{A=5} + \PyramideThreeD(0,0,75){5}% + \end{pspicture}% + % + \begin{pspicture}(-2.5,-2)(2.5,12) + \CubeThreeD[A=15,B=15,C=15](0,0,15)% + \PyramideThreeD[fracHeight=0.5,A=10](0,0,30){150}% + \psset{A=5} + \PyramideThreeD(0,0,105){5}% + \end{pspicture}% +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/SphereDemo0.pdf b/Master/texmf-dist/doc/generic/pst-vue3d/examples/SphereDemo0.pdf Binary files differnew file mode 100644 index 00000000000..908c16af5d2 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/SphereDemo0.pdf diff --git a/Master/texmf-dist/doc/generic/pst-vue3d/examples/SphereDemo0.tex b/Master/texmf-dist/doc/generic/pst-vue3d/examples/SphereDemo0.tex new file mode 100644 index 00000000000..ec86ad42a83 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-vue3d/examples/SphereDemo0.tex @@ -0,0 +1,57 @@ +\documentclass[12pt]{article} +\usepackage{pstricks} +\usepackage{pst-grad} +\usepackage{pst-vue3d} + +\newpsstyle{GradGrayWhite}{fillstyle=gradient,% + gradbegin=blue,gradend=white,linewidth=0.1mm}% + +\begin{document} + +\begin{pspicture}(-3.75,-3.25)(5,5.5) + \AxesThreeD(45,40,50) + \psset{PortionSphereTHETA=60,PortionSpherePHI=45,linewidth=0.1pt} + \SphereThreeD[fillstyle=solid,fillcolor=cyan,linewidth=0.1pt](0,0,0){30} + \PortionSphereThreeD[fillstyle=solid,fillcolor=red](0,0,0){30} + \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,70,35) + \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,50,35) + \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,70,55) + \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,50,55) + \LineThreeD[SphericalCoor](30,70,35)(50,70,35) + \LineThreeD[SphericalCoor](30,50,35)(50,50,35) + \LineThreeD[SphericalCoor](30,70,55)(50,70,55) + \LineThreeD[SphericalCoor](30,50,55)(50,50,55) + \PortionSphereThreeD[fillstyle=solid,fillcolor=red](0,0,0){50} + \psset{linestyle=dashed,linecolor=red,linewidth=\pslinewidth} + \LineThreeD(0,0,0)(30,0,0) + \LineThreeD(0,0,0)(0,30,0) + \LineThreeD(0,0,0)(0,0,30) +\end{pspicture} + +\begin{pspicture}(-3,-3.5)(3,5)% + \psset{THETA=30,PHI=30,Dobs=100,Decran=10}% + \SphereThreeD[fillstyle=solid,fillcolor=cyan,linewidth=0.1pt](0,0,0){20} + \AxesThreeD(25) + \PortionSphereThreeD[fillstyle=solid,fillcolor=gray](0,0,0){20}% + \pNodeThreeD(20;10;10){C1}% + \pNodeThreeD(40;10;10){D1}% + \psline(C1)(D1)% + \pNodeThreeD(20;10;-10){C2}% + \pNodeThreeD(40;10;-10){D2}% + \psline(C2)(D2)% + \pNodeThreeD(20;-10;-10){C3}% + \pNodeThreeD(40;-10;-10){D3}% + \psline(C3)(D3)% + \pNodeThreeD(20;-10;10){C4}% + \pNodeThreeD(40;-10;10){D4}% + \psline(C4)(D4)% +% + \PortionSphereThreeD[style=GradGrayWhite](0,0,0){40}% + \psset{linecolor=white,PhiCercle=45}% + \SphereCercleThreeD(0,0,0){20}% + \SphereMeridienThreeD[ThetaMeridien=45](0,0,0){20}% + \SphereCercleThreeD[PhiCercle=0](0,0,0){20}% + \SphereMeridienThreeD[THETA=30,PHI=30,ThetaMeridien=0](0,0,0){20}% +\end{pspicture} + +\end{document} |