%kan12nx%  non-uniform pen(x-axis)
%input kanmode;
font_size 12pt#;
slant:=0;
pen_width#:=0.74pt#;
vardef special_kanpen =
    pickup pencircle xscaled (pen_width/2) yscaled (pen_width);
enddef;
input kanmain;  
%%