% probe.mf
% Kristallprobe als Kondensator

input csym;
def probe =
  pickup pensquare scaled normalline;
  numeric pl;
  pl:=.5(cap_lt-cap_spc);
  z0=(0,0);
  z1=z0+(pl,0);
  z2=z1+(cap_spc,0);
  z3=z2+(pl,0);
  z4-z5=z6-z7=(0,cap_ht);
  z1=.5[z4,z5];
  z2=.5[z6,z7];
  draw z0--z1;
  draw z2--z3;
  draw z4--z5;
  draw z6--z7;
  pickup pensquare scaled thinline;
  for i=-.5 step 0.125 until .375:
     draw (pl,i*cap_ht)--(pl+cap_spc,(i+0.125)*cap_ht);
  endfor
enddef;
"Probe";
twochars(1)(probe)(.5cap_ht#,cap_lt#,.5cap_ht#);
end;





