Présentation de 8842.jps

usecolor
-3 3 setxrange
-3 3 setyrange
60 setxunit
/cerc{O 2} def
/r0 2 def                      %% rayon

/a10 2 pi mul -0.25 mul def    %% angle extremite inf

/a20 2 pi mul 0.583 mul def     %% angle extremite sup


/A{70 cerc cpoint} def
/B{120 cerc cpoint} def
/C{210 cerc cpoint} def
/D{270 cerc cpoint} def
/E{300 cerc cpoint} def


A point B point C point D point E point 

a10 rd a20 rd O r0 Cercle

%% le cercle representant l'intervalle de resolution

/r 2 def                      %% rayon

/a1 2 pi mul 0.583 mul def                   %% angle extremite inf

/a2 2 pi mul 0.75 mul def         %% angle extremite sup

%% trace

.8 setlinewidth
%%[A B C] polygone*

/fillstyle{.5 setgray fill } def
setTimes
gsave
  pointilles
  a1 rd a2 rd O r Cercle
grestore

gsave
blue
[A C] ligne
[B D] ligne
grestore
[A B] ligne
[A D] ligne
[A E] ligne
[B C] ligne
[B E] ligne
[C D] ligne
[C E] ligne
[D E] ligne