diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples-en/22-06-1.ltx')
-rw-r--r-- | Master/texmf-dist/doc/latex/pstricks-examples-en/22-06-1.ltx | 109 |
1 files changed, 0 insertions, 109 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/22-06-1.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/22-06-1.ltx deleted file mode 100644 index 7a5d976eee1..00000000000 --- a/Master/texmf-dist/doc/latex/pstricks-examples-en/22-06-1.ltx +++ /dev/null @@ -1,109 +0,0 @@ -%% -%% A DANTE-Edition example -%% -%% -%% Copyright (C) 2011 Herbert Voss -%% -%% It may be distributed and/or modified under the conditions -%% of the LaTeX Project Public License, either version 1.3 -%% of this license or (at your option) any later version. -%% -%% See http://www.latex-project.org/lppl.txt for details. -%% -%% -%% ==== -% Show page(s) 1 -%% -\documentclass[]{article} -\pagestyle{empty} -\setlength\textwidth{375.57637pt} -\setlength\parindent{0pt} -\usepackage[utf8]{inputenc} -\usepackage[T1]{fontenc} - -\usepackage{pst-solides3d,pstricks-add} -% pour le dessin du point de vue -\def\PointEcran(#1,#2,#3)#4{% position du point sur l'ecran -\pstVerb{/xM #1 def /yM #2 def /zM #3 def - /kC dE dup mul xM xE mul yM yE mul zM zE mul add add sub - xV xE mul xM xE mul sub - yV yE mul yM yE mul sub add - zV zE mul zM zE mul sub add - div def - /x_E kC xV xM sub mul xM add def - /y_E kC yV yM sub mul yM add def - /z_E kC zV zM sub mul zM add def}% -\psPoint(x_E,y_E,z_E){#4}} - -\begin{document} -\psset{lightsrc=10 20 30,viewpoint=50 30 20 rtp2xyz,Decran=35} -\begin{pspicture}(-5,-5.7)(10,7) -\definecolor{bleuciel}{rgb}{0.78,0.84,0.99} -\psSolid[object=cube,fillcolor=bleuciel,a=2,action=draw*] -\psSolid[object=grille,base=0 8 0 10,action=draw,linecolor=black!20] -\psSolid[object=grille,base=0 7 0 10,action=draw,RotY=90,linecolor=black!20](0,0,7)% -\psSolid[object=grille,base=0 8 0 7,action=draw,RotX=-90,linecolor=black!20](0,0,7)% -\psSolid[object=cube,fillcolor=bleuciel,a=1,action=draw*](0.5,0.5,0.5)% -\psSolid[object=grille,base=-1 1 -1 1,action=draw,linecolor=blue](0,0,1)% -\psSolid[object=grille,base=-1 1 -1 1,action=draw,RotY=90,linecolor=blue](1,0,0)% -\psSolid[object=grille,base=-1 1 -1 1,action=draw,RotX=-90,linecolor=blue](0,1,0)% -\axesIIID(1,1,1)(8,10,7) -\pstVerb{ - /dV 12 def % distance V - /dE 6 def % distance écran - /Kc dV dE sub dV div def - /Theta 60 def - /Phi 30 def - /xV dV Phi cos mul Theta cos mul def - /yV dV Phi cos mul Theta sin mul def - /zV dV Phi sin mul def - /xE Kc xV mul def - /yE Kc yV mul def - /zE Kc zV mul def -}% -\psPoint(5,10,5){L}% -\psPoint(xV,yV,zV){V}\psPoint(xE,yE,zE){E}\psPoint(xV,yV,0){Vp} -% 5 distance ecran -%\psPoint(dE Theta cos mul Phi cos div dE Theta sin mul Phi cos div 0){Vq} -\psPoint(xV,0,0){Vx}\psPoint(0,yV,0){Vy}\psPoint(0,0,zV){Vz}\psdot(V) -{\psset{linestyle=dashed,linecolor=red} -\psline(V)(Vp)\psline(Vx)(Vp)\psline(Vy)(Vp)\psline(V)(Vz)\psline(V)(O)\psline(Vp)(O)} -\psSolid[object=grille,base=-5 5 -3 3,action=draw,RotX=-60,linecolor=red](xE,yE,zE)% -\psTransformPoint[RotX=-60](-5 -3 0)(xE,yE,zE){A} -\psTransformPoint[RotX=-60](-5 3 0)(xE,yE,zE){B} -\psTransformPoint[RotX=-60](5 3 0)(xE,yE,zE){C} -\psTransformPoint[RotX=-60](5 -3 0)(xE,yE,zE){D} -\pspolygon[fillcolor=yellow!50,fillstyle=solid,opacity=0.6](A)(B)(C)(D) -{\psset{linecolor=black!60,linewidth=0.2pt} -\PointEcran(1,1,1){S1} \psPoint(1,1,1){s1} \psline(s1)(S1)(V) -\PointEcran(1,1,-1){S2} \psPoint(1,1,-1){s2} \psline(s2)(S2)(V) -\PointEcran(-1,1,-1){S3}\psPoint(-1,1,-1){s3}\psline(s3)(S3)(V) -\PointEcran(-1,1,1){S4} \psPoint(-1,1,1){s4} \psline(s4)(S4)(V) -\PointEcran(1,-1,-1){S5}\psPoint(1,-1,-1){s5}\psline(s5)(S5)(V) -\PointEcran(1,-1,1){S6} \psPoint(1,-1,1){s6} \psline(s6)(S6)(V) -\PointEcran(-1,-1,1){S7}\psPoint(-1,-1,1){s7}\psline(s7)(S7)(V)} -% -\psset{solidmemory} -\psSolid[object=plan,definition=equation,args={[0 0 1 0]}, - base=-5 5 -3 3,RotX=-60,% showBase, - action=none,name=planbase] -%% here, we define the plantype object "Ecran" -\codejps{ - planbase - dup xE yE zE planputorigine - dup -180 rotateplan - /Ecran exch def -}% -%% uncomment follow line to draw "Ecran" -%\psSolid[object=plan,args=Ecran,showBase,planmarks] -\psProjection[object=texte,plan=Ecran,fontsize=20,text=projection plane](-2,2) -\pspolygon[fillcolor=red!60,fillstyle=solid,opacity=0.6](S1)(S2)(S3)(S4) -\pspolygon[fillcolor=red!60,fillstyle=solid,opacity=0.6](S1)(S2)(S5)(S6) -\pspolygon[fillcolor=red!60,fillstyle=solid,opacity=0.6](S1)(S4)(S7)(S6) -\psdots(s1)(s2)(s3)(s4)(s5)(s6)(s7)(S1)(S2)(S3)(S4)(S5)(S6)(S7) -% -\psbrace[ref=lC](V)(E){Decran} -\uput[45](V){viewpoint} -\psdot(L)\uput[45](L){light source} -\end{pspicture} -\end{document} |