.PS
cct_init

# Got to figure this one out at some stage. "Start of sinusoid" causes the
# wierdest error, "Start of sinusoi" does not. Capital S is fine........
# OK: sinusoid and Darlington are new macro's!!! The "text" processing does
# not parse seperately from commands. Thus I cannot print a macro name in a
# string??????


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

E1:ellipse width 0.2*dim height 0.1*dim 
E2:ellipse same at E1.center+(0,-dim)
# Paint over...
box invis fill 1 width 0.2*dim-lthick height 0.1*dim with .c at E2.n
line from E1.e to E2.e
line from E1.w to E2.w
dimension_(from E1.w to E2.w,-5mm__,$d\ell$,3mm__)
line dotted from E1.e to E1.e+(hlf,-hlf); line dotted to E2.e
"$I$" at last line.start+(dim/10,0) ljust_
E3:ellipse width 0.2*dim height 0.1*dim at E1+(3*dim, -hlf)
line from E3.e down_ hlf
line from E3.w down_ hlf
line from E3.w up_ dim/4;
linethick_(1.5); line left_ dim; linethick_()
Dim:Here
line dashed up_ dim/3 right_ dim
# Works, but ugly:
# " Start of Sinusoid "  ljust_
# definitely crazy errors:
# " Start of sinusoid "  ljust_
# Workaround:
" Start of {s}inusoid "  ljust_
# Sure enough, this does not work:
# "resistor might be here" ljust
# this does:
# "{r}esistor might be here" ljust
line from E3.c up_ dim/4;
linethick_(2); line right_ dim; linethick_()
dimension_(from Here to Dim, dim, "$\ell\ll\lambda$", 0.9*dim, dim/4);

"\tiny Short" at (dim,-1.5*dim)
.PE