summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-vue3d/examples/SphereDemo0.tex
blob: ec86ad42a83abecb80d3b51bff0ebd5e36804a9c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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}