.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_
# OK, so that is what rvec_ is for "at Here+(0,3mm__)"
dot(at (dim,0)); "1" at rvec_(0,3mm__)
dot(at (-dim,0)); "0" at rvec_(0,3mm__)

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