.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; "5V" above; dot resistor(down_); llabel(,R,); diode(left_); "$v_A$sp_" rjust move right_ dim; dot line down_ hlf diode(left_); "$v_B$sp_" rjust move right_ dim line right_ hlf; "sp_$v_Q$" ljust move left_ hlf dot line down_ hlf corner(,at Here) diode(left_); "$v_C$sp_" rjust "\tiny DiodeLogic" at (dim, -2*dim) .PE