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