.PS cct_init log_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; ground(,T) switch(up_) dot {line right_ hlf;dot} {resistor(up_);dot} move right_ 2*dim "A " rjust_ NOT_gate(right_) " Q" ljust_ "\tiny NOTGate" at (2*dim, -hlf) ljust_ .PE