% gpar.m4
% an exercise of the `gpar_' macro
.PS
cct_init
define(`elen_',dimen_)        # shorter default element lengths
  rpoint_(right_ .10 down_ 1) # skew current direction: a tough test

  gpar_(
        gpar_(capacitor(,C); rlabel(,,C_2),
              resistor; llabel(,R_2),
              ),
        gpar_(resistor; rlabel(,R_1); move to rvec_(-dimen_/5,0)
                inductor(,W); rlabel(,L_1),
              source(from rvec_(elen_,0) to Here,V,sourcerad_*2.5)
              rlabel(,v_s); move to last line.start,
              ),
        1.75*dimen_)
.PE