[pstricks] an example for coorType=2

[Markus Krebs]

Hi readers!

only a small example for coorType=2

Intersection between a pyramid and a plane

Markus

\documentclass{article}
\usepackage[svgnames,usenames]{pstricks}
\usepackage{pst-3dplot,pstricks-add}

\makeatletter
		\def\psxyzlabel#1{\small\expandafter\@stripDecimals#1..\@nil}
\makeatother

  \begin{document}

\psset{unit=.65,plotpoints=2000,linejoin=1,coorType=2}
\begin{pspicture}(-7.5,-6.5)(14,14)
\psgrid[subgriddiv=2]
%
\pstThreeDCoor[xMin=-1,
							 yMin=-1,
							 zMin=-1,
							 xMax=11,
							 yMax=13,
							 zMax=13,
							 nameX=$x_1$,
							 nameY=$x_2$,
							 nameZ=$x_3$,
							 IIIDticks=true,
							 IIIDticksize=0.2,
							 linewidth=.75pt,
							 linecolor=Black,
							 IIIDxticksep=-.8,
							 IIIDyticksep=-.5,
							 IIIDzticksep=-.9,
							 drawing=true,
							 Alpha=90,
							 IIIDxTicksPlane=yz]
%\pstThreeDBox(0,0,0)(4,0,0)(0,4,0)(0,0,4)

\pstThreeDNode(0,0,0){A}
\pstThreeDNode(8,0,0){B}
\pstThreeDNode(8,8,0){C}
\pstThreeDNode(0,8,0){D}
\pstThreeDNode(4,4,12){S}
\pstThreeDNode(4,4,0){F}
%
\pstThreeDNode(10,0, 14 5 div){X}
\pstThreeDNode(10,7,0){XY}
\pstThreeDNode(0,12,0){Y}
\pstThreeDNode(0,0,24 5 div){Z}
%
\pspolygon[linecolor=Blue,fillstyle=vlines,hatchwidth=.25pt,hatchsep=1pt,hatchcolor=gray](A)(B)(C)(D)
\pspolygon[linecolor=DarkGreen,fillstyle=vlines,hatchwidth=.25pt,hatchsep=1pt,hatchcolor=Orange](X)(XY)(Y)(Z)
\psline(A)(S)
\psline(B)(S)
\psline(C)(S)
\psline(D)(S)
%\psline[linecolor=red](B)(D)
%\psline[linecolor=red](A)(C)
%\psline(S)(F)
%
\parametricplotThreeD[linecolor=DarkGreen,linestyle=dashed](.4,.5833333333){-24 
t mul 24 add 0 24 5 div t mul}
\parametricplotThreeD[linecolor=DarkGreen,linestyle=dashed](.45,.5833333333){-24 
t mul 24 add 12 t mul 0}

\psset{linewidth=1.75pt}
\pstThreeDNode(4 3 div , 4 3 div, 4){SA}
\pstThreeDNode(7,1,3){SB}
\pstThreeDNode(8,8,0){SC}
\pstThreeDNode(4 7 div , 52 7 div , 12 7 div){SD}
\pspolygon(SA)(SB)(SC)(SD)

\end{pspicture}
\end{document}