From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- info/examples/lgc2/D-6-6.ltx | 104 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 104 insertions(+) create mode 100644 info/examples/lgc2/D-6-6.ltx (limited to 'info/examples/lgc2/D-6-6.ltx') diff --git a/info/examples/lgc2/D-6-6.ltx b/info/examples/lgc2/D-6-6.ltx new file mode 100644 index 0000000000..77b14b72ba --- /dev/null +++ b/info/examples/lgc2/D-6-6.ltx @@ -0,0 +1,104 @@ +%% +%% The LaTeX Graphics Companion, 2ed (first printing May 2007) +%% +%% Example D-6-6 on page . +%% +%% Copyright (C) 2007 Michel Goossens, Frank Mittelbach, Denis Roegel, Sebastian Rahtz, Herbert Vo\ss +%% +%% 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. +%% + +\documentclass{ttctexaplate} +\pagestyle{empty} +\setcounter{page}{6} +\setlength\textwidth{413.44133pt} +\StartShownPreambleCommands +\usepackage{pst-vue3d} +\setlength\parindent{0pt} +\StopShownPreambleCommands +\begin{document} +\psset{% + CubeColorFaceOne=1 1 1, CubeColorFaceTwo=1 0 0, + CubeColorFaceThree=0 1 0,CubeColorFaceFour=0 0 1, + CubeColorFaceFive=1 1 0, CubeColorFaceSix=0 1 1} +\definecolor{GrisClair}{cmyk}{0.25,0.01,1,0} +\definecolor{GrisTresClair}{cmyk}{0.01,0.25,1,0} +\newcommand*\PlansOXYZ[1]{{% + \psset{fillstyle=solid,grille=10,linewidth=0.2mm,% + normaleLongitude=0,normaleLatitude=90} + \FrameThreeD[fillcolor=GrisClair](0,0,0)(-50,0)(0,50) + \QuadrillageThreeD(0,0,0)(-50,0)(0,50)% + \psset{normaleLongitude=90,normaleLatitude=0} + \FrameThreeD[fillcolor=GrisTresClair](0,0,0)(0,0)(50,-#1) + \QuadrillageThreeD(0,0,0)(0,-#1)(50,0)% + \psset{normaleLongitude=0,normaleLatitude=0} + \FrameThreeD[fillcolor=GrisTresClair](0,0,0)(-50,0)(0,-#1) + \QuadrillageThreeD(0,0,0)(-50,-#1)(0,0)% +}} +\begin{pspicture}(-2.8,-3)(3.75,3.5) + \psset{THETA=30,PHI=30,Dobs=200,Decran=12} + \PlansOXYZ{50} + \pNodeThreeD(40,40,35){G} + \pNodeThreeD(40,40,0){G_XY} + \pNodeThreeD(40,0,0){G_X} + \pNodeThreeD(0,40,0){G_Y} + \pNodeThreeD(0,0,35){G_Z} + \pNodeThreeD(0,40,35){G_YZ} + \pNodeThreeD(40,0,35){G_XZ} + \psdots[linecolor=red,dotscale=3](G) + \psdots(G_XY)(G_XZ)(G_YZ)(G_X)(G_Y)(G_Z) + \AxesThreeD{->}(55) + { \psset{linecolor=red,linewidth=2pt} + \psline(G_Z)(G_XZ)\psline(G_Z)(G_YZ) + \psline(G_X)(G_XY)\psline(G_Y)(G_XY) + \psline(G_X)(G_XZ)\psline(G_Y)(G_YZ) + \psline(G_X)(0,0)\psline(G_Y)(0,0)\psline(G_Z)(0,0) + }% + \psset{A=5,B=5,C=5}% + \DieThreeD[RotZ=90](5,5,5)% + \DieThreeD(5,5,30)% + \DieThreeD[RotY=90](5,35,5)% + \DieThreeD[RotY=90,RotZ=90](35,35,5)% + \DieThreeD[RotZ=-90](35,5,5) + \DieThreeD[RotX=90,RotZ=-90](35,5,30)% + \psset{linecolor=red,linewidth=2pt} + \psline(G)(G_XZ)\psline(G)(G_YZ)\psline(G)(G_XY) +\end{pspicture} +\psset{% + CubeColorFaceOne=1 1 1, CubeColorFaceTwo=1 0 0, + CubeColorFaceThree=0 1 0,CubeColorFaceFour=0 0 1, + CubeColorFaceFive=1 1 0, CubeColorFaceSix=0 1 1} +\begin{pspicture}(-2,-2)(6,5) + \psset{Dobs=200,Decran=11} + \PlansOXYZ{50} + \pNodeThreeD(40,40,35){G} + \pNodeThreeD(40,40,0){G_XY} + \pNodeThreeD(40,0,0){G_X} + \pNodeThreeD(0,40,0){G_Y} + \pNodeThreeD(0,0,35){G_Z} + \pNodeThreeD(0,40,35){G_YZ} + \pNodeThreeD(40,0,35){G_XZ} + \psdots[linecolor=red,dotscale=3](G) + \psdots(G_XY)(G_XZ)(G_YZ)(G_X)(G_Y)(G_Z) + \AxesThreeD{->}(55) + { \psset{linecolor=red,linewidth=2pt} + \psline(G_Z)(G_XZ)\psline(G_Z)(G_YZ) + \psline(G_X)(G_XY)\psline(G_Y)(G_XY) + \psline(G_X)(G_XZ)\psline(G_Y)(G_YZ) + \psline(G_X)(0,0)\psline(G_Y)(0,0)\psline(G_Z)(0,0) + } + \psset{A=5,B=5,C=5} + \DieThreeD[RotZ=90](5,5,5) + \DieThreeD(5,5,30) + \DieThreeD[RotY=90](5,35,5) + \DieThreeD[RotY=90,RotZ=90](35,35,5) + \DieThreeD[RotZ=-90](35,5,5) + \DieThreeD[RotX=90,RotZ=-90](35,5,30) + \psset{linecolor=red,linewidth=2pt} + \psline(G)(G_XZ)\psline(G)(G_YZ)\psline(G)(G_XY) +\end{pspicture} +\end{document} -- cgit v1.2.3