% Phone symbol
% T.Przechlewski <ekotp@halina.univ.gda.pl> (1992) 
% 

pw#:=18pt#; % default size 

mode_setup; define_pixels(pw);
u:=1/50pw;

beginchar("0",pw#,2/3pw#,0);
 x0=.5w;y0=0;
 y1'=y1=0; x1+16.5u=x1'-16.5u=x0;
 y2=y2'=5u;x2+17u=x2'-17u=x0;
 y3=y3'=18u;x3+12u=x3'-12u=x0;
 y4=y4'=22u;x4+9u=x4'-9u=x0;
 y5=y5'=23u;x5+6u=x5'-6u=x0;
 y6=y6'=25u;x6+9u=x6'-9u=x0;
 y7=y7'=25.5u;x7+7u=x7'-7u=x0;
 x8=x9+1u;x8'-x0=x0-x8;y8=y8'=y9+2u;
 x9=x0-13u;x9'-x0=x0-x9;
 y9=y9'=y10=y10'=y4;
 x10=x9-12u;x10'-x0=x0-x10;
 x11'-x0=x0-x11;x11=x10+2.5u;
 y11=y11'=y10+7u;
 x99=x0;y99=13u;

 x88=x0;y88=h;
 x20=x10;x19=x9;y20=y19=y10-1u;
 x21=.5[x19,x20];y21=y20-2.5u;
 x20'=x10';x19'=x9';y20'=y19'=y10'-1u;
 x21'=.5[x19',x20'];y21'=y20'-2.5u;

filldraw z1--z1'--z2'--z3'--z4'--
  z6'--z7'--z5'--z5--z7--
  z6--z4--z3--z2--cycle;

filldraw z6..z8..z9--z10{up}..
  z11..tension1.44..z88..
  tension1.44..z11'..{down}
  z10'--z9'..z8'..z6'..tension1.55
  ..cycle; % receiver

filldraw z20{down}..{right}
  z21{right}..{up}z19--cycle;

filldraw z20'{down}..{left}
  z21'{left}..{up}z19'--cycle;

erase filldraw fullcircle
  scaled 14u shifted z99;
labels(range 0 thru 99);

endchar;
bye