autocrop
30 setxunit

/A {2 0} def
/B {0 2} def
/C {-2 0} def
/D {-60 O 2 cpoint} def

O 2 cercle
[O A B C D] points
[A B C D] polygone
[A C] ligne
[B O D] ligne
[B D] ligne

setTimesItalic
   (O) O ultext
   (A) A crtext
   (B) B uctext
   (C) C cltext
   (D) D drtext