.PS
cct_init

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

Tx:box "Tx"
line from Tx.n up_ dim; move down_ qrt
{line right_ dim/8 up_ qrt}
{line left_ dim/8 up_ qrt}
{move up_ hlf; "$G_t$"}
move down_ hlf; 
arrow up_ 0.1*dim
move right_ 0.2*dim; "$P_t$" below_


Rx:box "Rx" with .center at Tx.center+(7*dim,0)
line from Rx.n up_ dim; move down_ qrt
{line right_ dim/8 up_ qrt}
{line left_ dim/8 up_ qrt}
{move up_ hlf; "$G_r$"}
move down_ hlf; 
arrow down_ 0.1*dim
move right_ 0.2*dim; "$P_r$" above_

# Arc Calculations relative to Rx.center
r=Rx.center.x-Tx.center.x;
xdist=r*cos(pi_/9)+Tx.center.x;
ydist=r*sin(pi_/9);

arc dotted cw from (xdist,Tx.center.y+ydist) to (xdist,Tx.center.y-ydist) rad r;

xdist=r*cos(pi_/18)+Tx.center.x;
ydist=r*sin(pi_/18);
line -> dashed from Tx.center to (xdist,Tx.center.y-ydist) 
"$r$" at last line.center above_

"\tiny LinkEqn" at (2*dim,-1*dim)
.PE