.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Orig:Here line -> from Orig-(2*dim,0) to Orig+(2*dim,0); " I" ljust_ line -> from Orig-(0,2*dim) to Orig+(0,2*dim); "Q " rjust_ # dpic() does not do copy thru. Bugger. gpic() does not do tikZ. Bugger. # vim() to the rescue :-) # copy thru % dot(at Orig + ($1*dim/2, $2*dim/2)) % until "END" # -1.5 -1.5 # -1.5 -0.5 # -1.5 0.5 # -1.5 1.5 # -0.5 -1.5 # -0.5 -0.5 # -0.5 0.5 # -0.5 1.5 # 0.5 -1.5 # 0.5 -0.5 # 0.5 0.5 # 0.5 1.5 # 1.5 -1.5 # 1.5 -0.5 # 1.5 0.5 # 1.5 1.5 # END x=dim/2; dot(at Orig + (-1.5*x,-1.5*x)) dot(at Orig + (-1.5*x,-0.5*x)) dot(at Orig + (-1.5*x, 0.5*x)) dot(at Orig + (-1.5*x, 1.5*x)) dot(at Orig + (-0.5*x,-1.5*x)) dot(at Orig + (-0.5*x,-0.5*x)) dot(at Orig + (-0.5*x, 0.5*x)) dot(at Orig + (-0.5*x, 1.5*x)) dot(at Orig + ( 0.5*x,-1.5*x)) dot(at Orig + ( 0.5*x,-0.5*x)) dot(at Orig + ( 0.5*x, 0.5*x)) dot(at Orig + ( 0.5*x, 1.5*x)) dot(at Orig + ( 1.5*x,-1.5*x)) dot(at Orig + ( 1.5*x,-0.5*x)) dot(at Orig + ( 1.5*x, 0.5*x)) dot(at Orig + ( 1.5*x, 1.5*x)) Orig:Orig+(5*dim,0) line -> from Orig-(2*dim,0) to Orig+(2*dim,0); " I" ljust_ line -> from Orig-(0,2*dim) to Orig+(0,2*dim); "Q " rjust_ # copy thru % dot(at Orig + ($1*dim/2, $2*dim/2)) % until "END" # -0.5 -0.5 # -0.5 0.5 # 0.5 -0.5 # 0.5 0.5 # -1.5 1.5 # -1.5 0 # -1.5 1.5 # 0 1.5 # 1.5 1.5 # -1.5 -1.5 # 1.5 0 # 1.5 -1.5 # 0 -1.5 # 0 -2.5 # 0 2.5 # 2.5 0 # -2.5 0 # END dot(at Orig + (-0.5*x,-0.5*x)) dot(at Orig + (-0.5*x, 0.5*x)) dot(at Orig + ( 0.5*x,-0.5*x)) dot(at Orig + ( 0.5*x, 0.5*x)) dot(at Orig + (-1.5*x, 1.5*x)) dot(at Orig + (-1.5*x, 0.0*x)) dot(at Orig + (-1.5*x, 1.5*x)) dot(at Orig + ( 0.0*x, 1.5*x)) dot(at Orig + ( 1.5*x, 1.5*x)) dot(at Orig + (-1.5*x,-1.5*x)) dot(at Orig + ( 1.5*x, 0.0*x)) dot(at Orig + ( 1.5*x,-1.5*x)) dot(at Orig + ( 0.0*x,-1.5*x)) dot(at Orig + ( 0.0*x,-2.5*x)) dot(at Orig + ( 0.0*x, 2.5*x)) dot(at Orig + ( 2.5*x, 0.0*x)) dot(at Orig + (-2.5*x, 0.0*x)) "\tiny constellations" at (7*dim,-1.5*dim) .PE