-0.5 5 setxrange
-0.5 4.5 setyrange

/fontsize 10 def
/a 4 def

O point
a a point
[O 0 a a a a 0] polygone

setTimesRoman
 
/a 4 def

O point
a a point
[O 0 a a a a 0] polygone

setTimesRoman
(\(0, 0\)) O dltext
(\(250, 250\)) a a urtext