test_ombre_cube.tex

\documentclass{article}
\usepackage{pst-V3D}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}% utiliser obligatoirement ce codage !!!
% sinon affichage des lettres accentuées
% très perturbées !!!
%\usepackage[frenchb]{babel}
\usepackage[a4paper]{geometry}
\input{cube_object_shadow.tex}
 
\def\Rectangle(#1,#2)(#3,#4){
newpath
#1 #2 moveto
#3 #2 lineto
#3 #4 lineto
#1 #4 lineto
 closepath }
 
 
\definecolor{Orange}{rgb}{.956 .643 .376}
 
 
\pagestyle{empty}
\begin{document}
\begin{center}
\begin{pspicture}(-5,-3)(6,15)
\psset{d=10,A=4,THETA=20,PHI=30,Dobs=30,Decran=10,%
thetaLight=180,phiLight=45,dLight=40,transparence=0.7}
\planThreeDput[fillstyle=solid,fillcolor=Orange,normale=90 -90]{\Rectangle(-14,-14)(9,17)}
\planThreeDput[gridcolor=white,normale=90 -90,fontscale=0.5]{\Grille(-14,-14)(9,17)}
\psCube[d=1e6,RotZ=60,A=1,B=1,C=10,arete=false](-12,-5,5)
\psCube[d=1e6,RotZ=60,A=6,B=1,C=1,arete=false](-12,-5,10.5)
\psCube[d=1e6,RotZ=60,A=1,B=1,C=2,arete=false](-12,-5,12)
\psCube[d=3,A=4,RotZ=30,RotY=50,arete=false](-5,1,5)
\psCube[d=1e6,RotZ=60,B=14,C=4,A=2](-5,10,2)
\pnodeSphericalCoor(40,180,45){L}
\psdot(L)
\end{pspicture}
\end{center}
 
 
\end{document}