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