Source
28.45 setxunit
-2 4 setxrange
-3 3 setyrange
1 1 settkstep
1 1 setmkstep
ticks
marks
traceaxes
axesarrow
unites
2 -2 plus2 
2 sqrt 6 sqrt plus2
(B) 2 -2 [1.5 dup ] dctext
(A) 2 sqrt 6 sqrt [1.5 dup ] uctext
[2 -2 2 sqrt 6 sqrt]  ligne
[0 0 2 sqrt 6 sqrt]  ligne
[2 -2 0 0]  ligne
(O) 0 0 [1.5 dup ] dltext
[ 2 -2 2 0 ] .5 setlinewidth pointilles ligne
[ 2 -2 0 -2 ] .5 setlinewidth pointilles ligne
[ 2 sqrt 6 sqrt 0 6 sqrt ] .5 setlinewidth pointilles ligne
[ 2 sqrt 6 sqrt 2 sqrt 0 ] .5 setlinewidth pointilles ligne
#latex# $\sqrt{2}$
 2 sqrt 0 [0.75 dup ] dctexlabel
#latex# $\sqrt{6}$
 0 6 sqrt  [0.75 dup ] cltexlabel
2 -2 0 0 2 marked
0 0 2 sqrt 6 sqrt 2 marked