Fichier 3D_16a.jps — Modifié le 10 Décembre 2006 à 18 h 16
jpegmode
%quadrillage marks
400 setheight
400 setwidth
-12 8 setxrange
-5.5 14.5 setyrange
%% la plan de base
/P1 {-9 -3} def
/P2 {4 -5} def
/P3 {8.5 0} def
/a {-4 4 0} def
/b {4 4 0} def
/c {4 -4 0} def
/d {-4 -4 0} def
/s {0 0 10} def
/I {1.5 5.5} def
/J {-2 4} def
/K {2 2} def
/vect_I {15 cos 15 sin} def
/vect_J {135 cos 135 sin .8 mulv} def
/vect_K {0 1} 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 /S]
[a b c d s] {xyz2xy} capply
mapnp
K I D S interdroite /K1 defpoint
K1 J I J K paral interdroite /L defpoint
gsave
orange
.5 setlinewidth
K K1 1.2 trait
S K1 1.2 trait
L K1 1.1 trait
grestore
/dotscale {2 dup} def
[I J K K1 L] {times} plot
1.2 setlinewidth
[A D C S] ligne
[A S D] ligne
[-9 I J xdpoint J] ligne
[xmax I J xdpoint I] ligne
[-9 K L xdpoint L] ligne
[xmax K L xdpoint K] ligne
gsave
.8 setlinewidth
pointilles
[A B C] ligne
[B S] ligne
[I J] ligne
[K L] ligne
grestore
2 setlinewidth
[-12 P2 P1 xdpoint P2 P3] ligne
12 setfontsize
setTimesItalic
(A) A dltext
(B) B urtext
(C) C drtext
(D) D dltext
(I) I (0 2) uctext
(J) J urtext
(K) K drtext
(L) L drtext
(S) S urtext
(d) 7 8 bltext
(d') 7 4.5 bctext