Fichier 399.jps — Modifié le 19 Janvier 2008 à 13 h 23

399.pdf
Source
%% auteur : jpv

autocrop
/h 5.5 def
/a 3 def
/ell [0 0 a .8 0] def
/A {-120 ell epoint} def

[0 h A 0 h neg] ligne
[a neg 0 0 h a 0 0 h neg] polygone
-180 0 ell Ellipse

%% legende
setTimesItalic
[.2 0 a .2 sub 0] (<->) ligne
(r) 0 0 a 0 milieu uctext
[0 .2 0 h .4 sub] (<->) ligne
(h) 0 0 0 h milieu crtext

setTimes
[0 h a 0] {h a .1 mulv addv } papply
dup (<->) ligne
(3 dm) exch
aload pop milieu {h a atan neg} uctext

pointilles
0 180 ell Ellipse
[a neg 0 0 0 0 h neg] ligne