%% code jps desormais obsolete (23/09/2003)
-.5 7.5 setxrange
-.2 3.2 setyrange

/fontcorps 22 def

/a 1.5 def
/b 1 a add def
/c .7 b add def
/d 1 c add def
/e .7 d add def
/f 1 e add def
/g 1 f add def
/h 1 def
/i 1 h add def
/j 1 i add def

/du .1 def

/A {0 j} def
/B {0 0} def
/C {a 0} def
/D {a h} def
/E {b h} def
/E' {E du neg 0 addvecteur} def
/E'' {E 0 du addvecteur} def
/F {b i} def
/F' {F du neg 0 addvecteur} def
/F'' {F 0 du neg addvecteur} def
/G {a i} def
/H {a j} def
/I {c i} def
/J {c h} def
/K {d i} def
/L {d h} def
/M {e i} def
/M' {M du 0 addvecteur} def
/M'' {M 0 du addvecteur} def
/N {e h} def
/N' {N du 0 addvecteur} def
/N'' {N 0 du neg addvecteur} def
/O {e 0} def
/P {g 0} def
/Q {g j} def
/R {e j} def
/S {f i} def
/T {f h} def

gsave
   pointilles
   verythin setcourbelinewidth
   [F' I] traceligne
   [E' J] traceligne
   [K M'] traceligne
   [L N'] traceligne
grestore

medium setcourbelinewidth
%% [F' F'' E' E'' M' M'' N' N'' A B C D E F G H I J K L M N O P Q R S T] points

I J (<->) line
L K (<->) line

[B A H G F' F'' E'' E' D C] tracepolygone
[R Q P O N'' N' T S M' M''] tracepolygone

setTimesItalic
   (x) I J milieu righttext
   (y) K L milieu righttext
   (A) A B milieu C H milieu milieu text
   (B) Q P milieu S T milieu milieu text
%%    (A) A righttext
%%    (B) B righttext
%%    (C) C righttext
%%    (D) D righttext
%%    (E) E righttext
%%    (F) F righttext
%%    (G) G righttext
%%    (H) H righttext
%%    (I) I righttext
%%    (J) J righttext
%%    (K) K righttext
%%    (L) L righttext
%%    (M) M righttext
%%    (N) N righttext
%%    (O) O righttext
%%    (P) P righttext
%%    (Q) Q righttext
%%    (R) R righttext
%%    (S) S righttext
%%    (T) T righttext