.PS
include(libcct.m4)
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;
mm=1/25.4;
pi=atan2(0,-1);

pt=1/72;
Orig:Here
# Two-wire line
E1:ellipse wid 2*mm ht 4*mm
line from E1.n right_ 30*mm
line from E1.s right_ 30*mm
E2:ellipse wid 2*mm ht 4*mm with .s at Here
# Default TeX pic output is a linethickness of 8 mils!!
box invis fill 0 wid 1*mm+0.75*pt ht 4*mm-0.016 with .e at E2.c

# Paste.
move to E1 then down_ 10*mm
E1:ellipse wid 2*mm ht 4*mm
line from E1.n right_ 30*mm
line from E1.s right_ 30*mm
E2:ellipse wid 2*mm ht 4*mm with .s at Here
# Default TeX pic output is a linethickness of 8 mils!!
box invis fill 0 wid 1*mm+0.75*pt ht 4*mm-0.016 with .e at E2.c

dimension_(from E1.s to E1.n, 7*mm, d=2a)
dimension_(from E2.c+(0,12*mm) to E2.c, 5*mm, D,3*mm,2*mm)

circle rad 2*mm at Orig+(45*mm,0)
circle rad 2*mm at Orig+(45*mm,-12*mm)

# Fill vals are opposite to dot fill vals #$%^&#$%^#@
circle invis rad 4*mm fill 0.6 at Orig+(55*mm,0)
circle invis rad 4*mm fill 0.6 at Orig+(55*mm,-12*mm)
circle rad 2*mm fill 0 at Orig+(55*mm,0)
circle rad 2*mm fill 0 at Orig+(55*mm,-12*mm)
box invis wid 3*mm ht 6*mm fill 0.6 at Orig+(55*mm,-6*mm)

spline <- from Orig+(55*mm,-6*mm) up_ 3*mm right_ 3*mm then right_ 5*mm
"$\genfrac{.}{\}}{0pt}{0}{\epsilon_r}{\epsilon_0}\quad\epsilon_\mathrm{eff}$"\
below_ ljust_
line -> from last spline.end-(0,5*mm) left_ 4*mm

######
# Coax
move to Orig-(0,30*mm); right_
E1:ellipse wid 2*mm ht 4*mm
line from E1.n right_ 5*mm
line from E1.s right_ 5*mm
E2:ellipse wid 2*mm ht 4*mm with .s at Here
# Default TeX pic output is a linethickness of 8 mils!!


E3:ellipse wid 5*mm ht 10*mm with .c at E2.c
# After E3 to blank out extra line :-)
box invis fill 0 wid 3*mm+0.75*pt ht 4*mm-0.016 with .e at E2.c
line from E3.n right_ 25*mm
line from E3.s right_ 25*mm
E4:ellipse wid 5*mm ht 10*mm with .s at Here
# Default TeX pic output is a linethickness of 8 mils!!
box invis fill 0 wid 2.5*mm+0.75*pt ht 10*mm-0.016 with .e at E4.c

dimension_(from E1.s to E1.n, 7*mm, d)
dimension_(from E4.n to E4.s, 5*mm, D, 4*mm)

circle rad 5*mm fill 0.6 at Orig+(50*mm,-30*mm)
circle rad 2*mm fill 0 at Orig+(50*mm,-30*mm)

spline <- from Orig+(53.25*mm,-30*mm) up_ 3*mm right_ 3*mm then right_ 3*mm
"$\epsilon_r=\epsilon_\mathrm{eff}$" ljust_

######
# Microstrip
move to Orig-(0,50*mm); right_
B1:box invis fill 0.6 wid 30*mm ht 4*mm
linethick_(2)
line from B1.nw to B1.ne
line from B1.sw to B1.se
linethick_

B2:box invis fill 0.6 wid 15*mm ht 4*mm with .c at Orig+(50*mm,-50*mm)
linethick_(2)
line from B2.sw to B2.se
line from B2.n-(3*mm,0) to B2.n+(3*mm,0)
linethick_

dimension_(from last line.start to last line.end, 5*mm, w, 2*mm, 3*mm)
dimension_(from B2.sw to B2.nw, 5*mm, h, 3*mm, 3*mm)

spline <- from B2.c+(4.5*mm,0) up_ 5*mm right_ 5*mm then right_ 5*mm
"$\genfrac{.}{\}}{0pt}{0}{\epsilon_r}{\epsilon_0}\quad\epsilon_\mathrm{eff}$"\
below_ ljust_
line -> from last spline.end-(0,5*mm) left_ 4*mm

######
# Waveguide
move to Orig-(0,60*mm); right_
B1:box wid 30*mm ht 10*mm fill 0.6 with .nw at Here
box invis wid 3*mm ht 3*mm fill 0.6 with .nw at B1.sw+(2*mm,0)
box invis wid 3*mm ht 3*mm fill 0.6 with .ne at B1.se-(2*mm,0)
linethick_(2)
line from last box.s up_ 8*mm
line from 2nd last box.s up_ 8*mm
linethick_

B2:box fill 0.6 wid 15*mm ht 10.5*mm with .n at Orig+(50*mm,-60*mm)
box invis wid 3*mm ht 3*mm fill 0.6 with .n at last box.s 
linethick_(2)
line from last box.s up_ 8*mm
linethick_

dimension_(from B2.se to B2.sw,8*mm,a,3*mm)
dimension_(from B2.sw to B2.nw,3*mm,b,3*mm)

spline <- from 1/2 of the way between B2.c and B2.ne up_ 5*mm right_ 5*mm \
  then right_ 5*mm
"$\epsilon_r=\epsilon_\mathrm{eff}$" ljust_

######
# Fibre
move to Orig-(0,90*mm); right_
O:Here # Local Orig.
# Need to completely modify order to get correct layering!!!
E2:ellipse wid 4*mm ht 8*mm fill 0.3 at O+(30*mm,0)
box invis wid 30*mm ht 8*mm fill 0.3 with .e at E2.c
E1:ellipse wid 4*mm ht 8*mm fill 0.3 at O
line from E1.n right_ 30*mm
line from E1.s right_ 30*mm

move to O
E2:ellipse wid 2*mm ht 4*mm fill 0.6 at O+(30*mm,0)
box invis wid 30*mm ht 4*mm fill 0.6 with .e at E2.c
E1:ellipse wid 2*mm ht 4*mm fill 0.6 at O
line from E1.n right_ 30*mm
line from E1.s right_ 30*mm
# Default TeX pic output is a linethickness of 8 mils!!
#box invis fill 0 wid 1*mm+0.75*pt ht 4*mm-0.016 with .e at E2.c

move to Orig-(0,90*mm) then left_ 10*mm then down_ 2*mm; right_
line ->right_ 15*mm/2 up_ 2*mm 
line right_ 15*mm/2 up_ 2*mm
line right_ 15*mm down_ 4*mm
line -> right_ 15*mm up_ 4*mm

C1:circle rad 4*mm fill 0.3 at Orig+(50*mm,-90*mm)
C2:circle rad 2*mm fill 0.6 at Orig+(50*mm,-90*mm)

spline <- from 1/2 of the way between C1.ne and C2.ne up_ 3*mm right_ 3*mm \
  then right_ 3*mm
  "$\eta_2$" ljust_
spline <- from C1.c down_ 3*mm right_ 3*mm then right_ 5*mm
  "$\eta_1$" ljust_


######
# link
move to Orig-(0, 110*mm); right_
antenna; move right_ 30*mm; antenna

move to Orig-(0, 110*mm); right_
O:Here
for r=10*mm to 20*mm by 5*mm do {
  x=r*cos(pi_/12);
  y=r*sin(pi_/12);
  arc rad r dotted from O+(x,-y) to O+(x,y)
}


move to Orig+(50*mm, -110*mm); right_
{circle dotted rad 8*mm with .c at Here-(0,2.5*mm)}
antenna

######
# Evkom
move to Orig+(0,-130*mm); right_
O:Here
linethick_(2)
line down_ 10*mm
move right_ 30*mm
line up_ 10*mm
linethick_
move to O
spline right_ 15*mm down_ 5*mm then right_ 15*mm up_ 5*mm


move to O+(50*mm, 0)
O1:Here
linethick_(2)
{line left_ 5*mm}
{line right_ 5*mm}
{line from O1-(3*mm,0) to O1+(0,-10*mm)}
{line from O1+(3*mm,0) to O1+(0,-10*mm)}
linethick_
line down_ 2*mm ; circle rad 0.5*mm
line from O1-(5*mm,0) down_ 2*mm ; circle rad 0.5*mm
line from O1+(5*mm,0) down_ 2*mm ; circle rad 0.5*mm
"765kV !" at Orig+(60*mm,-135*mm) ljust_

"{\tiny txlnexa}" at Orig+(60*mm,-145*mm)
.PE