.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

Org:Here
line -> from Org+(-2*dim,0) to Org+(2*dim,0); " I"  ljust_
line -> from Org+(0,-2*dim) to Org+(0,2*dim); "Q " rjust_
dot(at (dim,dim)); "00" at rvec_(0,3mm__)
dot(at (-dim,-dim)); "11" at rvec_(0,3mm__)
dot(at (dim,-dim)); "01" at rvec_(0,3mm__)
dot(at (-dim,dim)); "10" at rvec_(0,3mm__)

"\tiny QPSK" at (dim,-1.5*dim)
.PE