Présentation de 3D_16a.jps

/syracuse/bbgraf/albums/sections_planes/3D_16a.jpg
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