%% 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