Présentation de equ1_023a.jps

%% code jps desormais obsolete (23/09/2003)

-5 5 setxrange
-8 4.5 setyrange

/A {-2 -1} def
/B {0 -1} def
/C {2 -1} def
/P {0 -6} def	%% point d'attache du parachute
/l .3 def
/L 1 def
/Q {P 0 L 2 div neg addvecteur} def

/arcpath {
   5 copy pop dup   %% x0, y0, r, ang1, ang2, x0, y0, r, ang1, ang1
   cos 5 1 roll     %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, r, ang1
   sin exch dup     %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, sin(ang1),r, r
   6 1 roll         %% x0, y0, r, ang1, ang2, r, cos(ang1), x0, y0, sin(ang1),r
   mul add 4 1 roll %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), r, cos(ang1), x0
   3 1 roll mul add %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), x0 + r cos(ang1)
   exch
   smoveto
   sarc
} def

/arcnpath {	 %% x0 y0 r ang1 ang2 
   5 copy pop dup   %% x0, y0, r, ang1, ang2, x0, y0, r, ang1, ang1
   cos 5 1 roll	    %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, r, ang1
   sin exch dup	    %% x0, y0, r, ang1, ang2, cos(ang1), x0, y0, sin(ang1),r, r
   6 1 roll	    %% x0, y0, r, ang1, ang2, r, cos(ang1), x0, y0, sin(ang1),r
   mul add 4 1 roll %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), r, cos(ang1), x0
   3 1 roll mul add %% x0, y0, r, ang1, ang2, y0 + r sin(ang1), x0 + r cos(ang1)
   exch
   smoveto
   sarcn
} def

.7 setgray

gsave
newpath
   O smoveto
   1 .8 scale
   O 3.2 185 -5 arcnpath
   O slineto
clip
fill
grestore

1 setgray

gsave
newpath
   C smoveto
   C 2 sqrt 33 140 arcpath
clip
fill
grestore

gsave
newpath
   B smoveto
   B 2 sqrt 40 140 arcpath
clip
fill
grestore

gsave
newpath
   A smoveto
   A 2 sqrt 40 147 arcpath
clip
fill
grestore

0 setgray

gsave
   A 2 sqrt 45 147 tracearc
   B 2 sqrt 45 135 tracearc
   C 2 sqrt 33 135 tracearc
   1 .8 scale
   O 3.2 -5 185 tracearc
grestore

/A1 {A 2 sqrt 0 addvecteur A 147 rotatepoint} def
/A2 {A 2 sqrt 0 addvecteur A 45 rotatepoint} def
/A3 {B 2 sqrt 0 addvecteur B 45 rotatepoint} def
/A4 {C 2 sqrt 0 addvecteur C 33 rotatepoint} def

thin setcourbelinewidth
[P A1] traceligne
[P A2] traceligne
[P A3] traceligne
[P A4] traceligne

0 4 point
setTimesItalic
   (O) 0 4 lefttext
   (i) 0 3.4 righttext
newpath
   0 4 hadjust xunit div -.7 addvecteur 
   0 fontcorps yunit div addvecteur
   2 copy
   .5 0 addvecteur
   tracevecteur
stroke

0 4 0 3 tracevecteur
Q times2
Q Q 0 -1.3 addvecteur tracevecteur
Q Q 0 1.3 addvecteur tracevecteur
   (P) Q 0.1 -.7 addvecteur righttext
   (R) Q 0.1 .2 addvecteur righttext


%% fleche sur P
newpath
   Q hadjust xunit div -.7 addvecteur 
   0.1 fontcorps yunit div addvecteur
   2 copy
   .5 0 addvecteur
   tracevecteur
stroke

%% fleche sur R
newpath
   Q hadjust xunit div .2 addvecteur 
   0.1 fontcorps yunit div addvecteur
   2 copy
   .5 0 addvecteur
   tracevecteur
stroke

newpath
   P smoveto
   l -2 div 0 srmoveto
   l 0 srlineto
   0 L neg srlineto
   l neg 0 srlineto
   0 L srlineto
closepath
stroke