.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_; 

L1:line right_ 50mm__
line right_ 5mm__
resistor(down_,,E); llabel(,Z_L\angle\phi)
line left_ 5mm__
line left_ 50mm__

"$Z_0; \gamma$" at L1.center+(0,-hlf)

"$x=0$" at L1.end+(0,6mm__)
"$x=x$" at L1.start+(0,6mm__)
line <- from L1.start+(0,3mm__) to L1.end+(0,3mm__)

move to L1.start+(2mm__,0)
line -> up_ from Here+(0,-dim)
"$V_i$" at last line.center+(3mm__,0)

move to L1.end+(-2mm__,0)
line -> up_ from Here+(0,-dim)
"$V_r$" at last line.center+(-3mm__,0)

# Last to paint over
move to L1.start
gap(down_,1)
move to L1.end
gap(down_,1)

"\tiny stand" at (L1.center.x,-15mm__)
.PE