Présentation de bac_s_spe_proba_2002.jps

1.2 setlinewidth

/r1 5 def %% rayon du grand cercle
/r2 3 def %% rayon pour les legendes S_i

O r1 cercle           %% trace du cercle
O r1 8 0 genpolyreg   %% tableau des 8 sommets d'un octogone regulier
{O 1 trait} papply    %% on relie chacun a l'origine O


%% on prepare la position des legendes S_i
[/A 8 genMiname]         %% on genere le tableau des noms [/A1 ... /A8]
O r2 8 22.5 genpolyreg   %% puis le tableau des sommets de l'octogone regulier
mapnp                    %% on associe les noms aux sommets

xmin ymin xmax ymax frame  %% le cadre

%% les legendes
setTimes
   (S) A1 cctext
   (1) indice
   (S) A2 cctext
   (2) indice
   (S) A3 cctext
   (3) indice
   (S) A4 cctext
   (4) indice
   (S) A4 cctext
   (4) indice
   (S) A5 cctext
   (5) indice
   (S) A6 cctext
   (6) indice
   (S) A7 cctext
   (7) indice
   (S) A8 cctext
   (8) indice
   (R) -5 -5 cctext

%% puisle rond central, qui efface l'interieur de son fond
/fillstyle {blanc fill} def
circleit
/dx_boxit 10 def
/dy_boxit 10 def
   (D) O cctext