Source
%% auteur : Péric
56.90 setxunit
-2.3 2.3 setxrange
-2.3 2.3 setyrange
1 1 settkstep
1 1 setmkstep
ticks
/t {2} def
/h {0.1} def
/xmarkstyle {[1.5 dup] dltext} def
/ymarkstyle {[1.5 dup] ultext} def
[1 2 -1 -2] {xmark} apply
[1 2 -1 -2] {ymark} apply
traceaxes
axesarrow
unites


/A {-2 0} def
/C {1 3 sqrt neg} def
/O {0 0} def
/B {1 3 sqrt} def
 
1 setlinewidth
(A) A h add [t dup ] ultext
(C) C h neg add  [t dup ] dctext
(B) B h add  [t dup ] uctext
(O) O [t dup] ultext


[A O] ligne
[B O] ligne
[C O] ligne

gsave
1.5 setlinewidth
O 2 cercle
[A B C A] ligne
grestore