Fichier 029.jps — Modifié le 8 Janvier 2008 à 11 h 36
350 setwidth
350 setheight
-2 20 setxrange
-2 20 setyrange
/l 8 def
/a {0 l l} def /f {l l 0} def /m {0 3 l} def
/b {l l l} def /g {l 0 0} def /n {4 0 l} def
/c {l 0 l} def /h {0 0 0} def /p {0 0 5} def
/e {0 l 0} def
/I {-15 cos -15 sin} def
/J {35 cos 35 sin .8 mulv} def
/K {0 1} def
/cree_points {
[/A /B /C /E /F /G /H /M /N /P]
[a b c e f g h m n p] {xyz2xy} capply
mapnp
} def
/dessin {
[M A B C G F B] ligne
[C N M P N] ligne
[P H G] ligne
[A E H] ligne
[E F] ligne
} def
%% vue de dessus
/xyz2xy {
pop
} def
cree_points
/mn M N distance def
gsave
0 -1 stranslate
1 setlinewidth
dessin
10 setfontsize
setTimesItalic
(A) A ultext (P) P dltext
(B) B urtext (M) M bltext
(C) C drtext (N) N dctext
grestore
%% vue de face
/xyz2xy {
exch pop
} def
gsave
0 10 stranslate
cree_points
/pn P N distance def
1 setlinewidth
dessin
10 setfontsize
setTimesItalic
(C) C urtext (P) P cltext
(G) G drtext (M) M ultext
(H) H dltext (N) N uctext
grestore
%% vue de gauche
/xyz2xy {
3 dict begin
/z exch def
/y exch def
/x exch def
y neg z
end
} def
gsave
19 10 stranslate
cree_points
/mp M P distance def
dessin
10 setfontsize
setTimesItalic
(A) A ultext (P) P crtext
(E) E dltext (M) M uctext
(H) H drtext (N) N urtext
grestore
gsave
11 -1 stranslate
/M {3 7} def
M .2 -1 mn mulv addv /N defpoint
M mp
N pn
intercercle /P defpoint pop
[M N P] polygone
.5 setlinewidth
M N 10 Arc
M P 10 Arc
N P 10 Arc
setTimesItalic
(M) M ultext
(N) N drtext
(P) P urtext
grestore