%tel12nx%  non-uniform pen(x-axis)
input telmode;
font_size 12pt#;
slant:=0;
pen_width#:=0.74pt#;
vardef special_telpen =
   pickup pencircle xscaled (pen_width/2) yscaled (pen_width);
enddef;
input telparam;
%%