.PS
cct_init

include(liborth.m4)

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

Org:Here
orthogaxes(4*dim)

# Cut and paste at a a larger distance...

# Colour first, black orthog lines after :-)
orthogmove(2*dim, pi_/4-pi_/40, pi_/3-pi_/30); 
A:line to Org;
orthogmove(2*dim, pi_/4+pi_/40, pi_/3-pi_/30); 
B:line to Org;
orthogmove(2*dim, pi_/4-pi_/40, pi_/3+pi_/30); 
C:line invis to Org;
orthogmove(2*dim, pi_/4+pi_/40, pi_/3+pi_/30); 
D:line to Org;

line invis shaded "green" from A.start to B.start \
  then to D.start then to C.start then to A.start; \
  move to Org

# Now overlay the lines...
orthogphicirc(2*dim, pi_/4-pi_/40, pi_/3-pi_/15, pi_/3+pi_/15);
orthogphicirc(2*dim, pi_/4+pi_/40, pi_/3-pi_/15, pi_/3+pi_/15);

orthogthetacirc(2*dim, pi_/3-pi_/30, pi_/4-pi_/20, pi_/4+pi_/20);
orthogthetacirc(2*dim, pi_/3+pi_/30, pi_/4-pi_/20, pi_/4+pi_/20);

# Colour first, black orthog lines after :-)
orthogmove(4*dim, pi_/4-pi_/40, pi_/3-pi_/30); 
A:line to Org;
orthogmove(4*dim, pi_/4+pi_/40, pi_/3-pi_/30); 
B:line to Org;
orthogmove(4*dim, pi_/4-pi_/40, pi_/3+pi_/30); 
C:line invis to Org;
orthogmove(4*dim, pi_/4+pi_/40, pi_/3+pi_/30); 
D:line to Org;

line invis shaded "yellow" from A.start to B.start \
  then to D.start then to C.start then to A.start; \
  move to Org

# Repeat the dotted :-)  
{move to C.start; line dotted to Org}

# Now overlay the lines...
orthogphicirc(4*dim, pi_/4-pi_/40, pi_/3-pi_/15, pi_/3+pi_/15);
orthogphicirc(4*dim, pi_/4+pi_/40, pi_/3-pi_/15, pi_/3+pi_/15);

orthogthetacirc(4*dim, pi_/3-pi_/30, pi_/4-pi_/20, pi_/4+pi_/20);
orthogthetacirc(4*dim, pi_/3+pi_/30, pi_/4-pi_/20, pi_/4+pi_/20);


orthogmove(1*dim, pi_/4, pi_/3)
move left 0.5mm__ # clear the arrowhead.
spline <- up_ dim/3 right_ dim/3 then right_ dim
" $\Omega$" ljust_

orthogmove(2*dim, pi_/4, pi_/3); dot
spline <- up_ dim/3 right_ dim/3 then right_ dim/2
" Area=A" ljust_

orthogmove(4*dim, pi_/4, pi_/3); dot
spline <- up_ dim/3 right_ dim/3 then right_ dim/2
" Area=A$^\prime$" ljust_


"\tiny PwrDensRadInt" at (3*dim,-1*dim)
.PE