Présentation de pentagone_11.jps

/syracuse/bbgraf/albums/pentagone/pentagone_11.jpg
%%%%% les anciens traces %%%%% .8 setgray %%% trace des axes gsave mixte traceOx grestore %%% la style pour les points definitifs /dotscale {1.5 1.5} def /note { gsave bleu %% point grestore } def /R 4 def %% rayon du cercle initial /A0 {R 0} def %% le point initial /C0 {O dupp A0 distance} def %% le cercle initial /A'0 {R neg 0} def %% le point diametralement oppose au %% point initial /I {0 R} def %% un point d'intersection du cercle %% initial avec l'axe vertical %%% trace des points initiaux O times A0 note %%% trace du cercle initial C0 cercle A'0 times %% trace du point I /I' {I 0 1.5 addv} def A0 I' 10 Arc A'0 I' 10 Arc O I' 1.1 trait I times %%% La mediatrice de [O A'0] %% points necessaires a la construction /Omega {O A'0 milieu} def /B1 {Omega 0 R 1.2 mulv addv} def /B2 {Omega 0 R 1.2 mulv subv} def %% trace des arcs de cercle A'0 B1 10 Arc O B1 10 Arc A'0 B2 10 Arc O B2 10 Arc %% trace de la mediatrice et du point milieu B1 B2 droite Omega times %% le cercle de centre Omega passant par I /C1 {Omega I IAcercle} def %% et son intersction M avec [O A0] O A0 C1 interdroitecercle /M defpoint pop %% trace de l'arc de cercl 90 -10 C1 Cercle %% et du point d'intersection M times %% trace de la mediatrice de [OM] %% les points necessaires a la construction simulee au compas /H {O M milieu} def /B'1 {H 0 R 1.2 mulv addv} def /B'2 {H 0 R 1.2 mulv subv} def %% les arcs de cercle A0 B'1 10 Arc O B'1 10 Arc A0 B'2 10 Arc O B'2 10 Arc %% trace de la mediatrice O M mediatrice /d defdroite d droite %% definition puis trace de l'intersection de cette mediatrice avec %% le cercle initial d C0 interdroitecercle /A1 defpoint /A4 defpoint A1 note A4 note %% trace des derniers points et arcs de cercle pour simuler le report %% des longueurs /r A0 A1 distance def /C2 {A1 r} def /C3 {A4 r} def -145 -180 C2 Cercle %% oblige de tricher : on ne dispose pas de l'intersection de 2 %% cercles... /A2 {A0 O 144 rotatepoint} def A2 note 145 180 C3 Cercle /A3 {A0 O 216 rotatepoint} def A3 note %% nouveau trace 0 setgray %% le pentagone !!! medium setlinewidth [A0 A1 A2 A3 A4] polygone