Présentation de cerc_circ_001.jps

-5 8 setxrange
-3 10 setyrange
tracerepere
marks

/A {-3 0} def
/B {6 3} def
/C {1 8} def

%% les milieux
/A' {B C milieu} def
/B' {A C milieu} def
/C' {B A milieu} def

%% les mediatrices
/dA {B C mediatrice} def
/dB {A C mediatrice} def
/dC {B B mediatrice} def

%% le centre du cercle circonscrit
/O {dA dB interdroite} def

%% les angles droits
O A' C angledroit
O B' A angledroit
O C' B angledroit

%% on marque les longueurs
A' C 1 marked
B A' 1 marked
A C' 2 marked
C' B 2 marked
/dotangle A C angle def
A B' milieu times3
B' C milieu times3

1.7 setlinewidth
[A B C] polygone

.7 setlinewidth
[A' O C'] ligne
[O B'] ligne

O dashpoint

orange
O O C distance cercle
bleu
setTimesItalic
   (K) O dltext
   (A) A dltext
   (B) B crtext
   (C) C urtext