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