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
58
59
60
61
62
63
64
65
66
|
\documentclass[12pt,a4paper]{article}
\usepackage{pstricks}
\usepackage{pst-vue3d}
\usepackage{multido}
\usepackage{geometry}
%
\begin{document}
\psset{unit=1cm}
\begin{pspicture}(-3,-3)(3,4)
\psset{THETA=70,PHI=30,Dobs=150,Decran=10}
\AxesThreeD[linecolor=red,linestyle=dashed](50,60,50)
\pNodeThreeD(25,-25,25){A}
\pNodeThreeD(25,25,25){B}
\pNodeThreeD(25,25,-25){C}
\pNodeThreeD(25,-25,-25){D}
\pNodeThreeD(-25,-25,25){E}
\pNodeThreeD(-25,25,25){F}
\pNodeThreeD(-25,25,-25){G}
\pNodeThreeD(-25,-25,-25){H}
\pspolygon(A)(B)(C)(D)
\pspolygon(E)(F)(G)(H)
\psline(A)(E)
\psline(B)(F)
\psline(C)(G)
\psline(D)(H)
\psset{linestyle=dashed}
\psline(A)(G)
\psline(B)(H)
\psline(C)(E)
\psline(D)(F)
% routine page 49 in "présentation de PSTricks"
% D.Girou "cahier 16 Gutengerg"
\newcounter{lettre}
\multido{\i=1+1}{8}{%
\setcounter{lettre}{\i}
\psdot[linecolor=red](\Alph{lettre})
\uput[90](\Alph{lettre}){\Alph{lettre}}
}
\end{pspicture}
\begin{pspicture}(-2.5,-3.5)(3.5,1.5)
\psset{THETA=50,PHI=50,Dobs=250,Decran=10}
\multido{\iX=-70+10}{15}{%
\pNodeThreeD(\iX,0,0){X1}
\pNodeThreeD(\iX,50,0){X2}
\psline(X1)(X2)
}
\multido{\iY=0+10}{6}{%
\pNodeThreeD(-70,\iY,0){Y1}
\pNodeThreeD(70,\iY,0){Y2}
\psline(Y1)(Y2)%
}
\psset{normaleLongitude=0,normaleLatitude=90}
\multido{\iXorigine=-65+10}{14}{%
\multido{\iYorigine=5+10}{5}{%
\CircleThreeD[linecolor=red](\iXorigine,\iYorigine,0){5}%
}%
}
\end{pspicture}%
\end{document}
|