autocrop
uselabo
20 setxunit      18 setfontsize
1 setlinewidth   15 sethadjust
/A {-1 -1} def   /C {2 -1} def	
/B {-1 3} def    /D {2 3} def   

A 0 B 180 raccordsouple
C 0 D 0 raccordsouple

bleu 
[A B C D] {times2} papply
noir
(A) A cltext   (C) C crtext
(B) B cltext   (D) D crtext