Fichier 333236.jps — Modifié le 7 Novembre 2008 à 01 h 43
autocrop
28.45 setxunit
%quadrillage marks
-15 25 setxrange
-10 13 setyrange
/a {0 12 3} def
/b {0 0 3} def
/c {9 0 3} def
/d {9 12 3} def
/e {0 12 0} def
/f {0 0 0} def
/g {9 0 0} def
/h {9 12 0} def
/m {3 0 0} def
/n {0 4 0} def
/p {1 4 3 div 1} def
/vect_I {35 cos 35 sin .27 mulv} def
/vect_J {175 cos 175 sin .35 mulv} def
/vect_K {0 1 0.6 mulv} def
/xyz2xy {
3 dict begin
/z exch def
/y exch def
/x exch def
vect_I x mulv
vect_J y mulv
vect_K z mulv
addv addv
end
} def
[/A /B /C /D /E /F /G /H /M /N /P]
[a b c d e f g h m n p] {xyz2xy} capply
mapnp
/V {4 -1} def
/B' {B V translatepoint} def
/M' {M V translatepoint} def
/N' {N V translatepoint} def
/F' {F V translatepoint} def
/P' {P V translatepoint} def
%% corrige
%%%%%%%%%%
dotscale {2 dup} def
1 setlinewidth
[A E N M G C D A B C] ligne
%[B F] ligne
/fillstyle {hachure} def
[M B N] polygone*
[M N] ligne
[B' F' N' B' M' F'] ligne
gsave
.8 setlinewidth
pointilles
[D H E] ligne
[H G] ligne
[M' N'] ligne
grestore
%12 setfontsize
%setTimesItalic
(A) A [1.5 dup] ultext
(B) B [1.5 dup] ultext
(C) C [1.5 dup] urtext
(D) D [1.5 dup] ultext
(E) E [1.5 dup] dltext
%(F) F [1.5 dup] dctext
(G) G [1.5 dup] drtext
(H) H [1.5 dup] dctext
(M) M [1.5 dup] drtext
(N) N [1.5 dup] dltext
dotted
/angleA -60 def
/angleB 120 def
P (Z) enode
P' (Z') enode
(Z) (Z') (->) nccurve
%% adresse IP : 82.254.24.233