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