home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / mf_two.arc / IO.MF < prev    next >
Text File  |  1988-11-22  |  857b  |  24 lines
  1. mode_setup;
  2.  em#:=10pt#; cap#:=7pt#;
  3.  thin#:=1/3pt#; thick#:=5/6pt#;
  4.  o#:=1/5pt#;
  5. define_pixels(em,cap);
  6. define_blacker_pixels(thin,thick);
  7. define_corrected_pixels(o);
  8.  curve_sidebar=round 1/18em;
  9. beginchar("O",0.8em#,cap#,0); "The letter O";
  10.  penpos1(thick,10); penpos2(.1[thin,thick],90-10);
  11.  penpos3(thick,180+10); penpos4(thin,270-10);
  12.  x1l=w-x3l=curve_sidebar; x2=x4=.5w;
  13.  y1=.49h; y2l=-o; y3=.51h; y4l=h+o;
  14.  penstroke z1e{down}..z2e{right}
  15.             ..z3e{up}..z4e{left}..cycle;
  16.  penlabels(1,2,3,4); endchar;
  17. def test_I(expr code,trial_stem,trial_width) =
  18.  stem#:=trial_stem*pt#; define_blacker_pixels(stem);
  19.  beginchar(code,trial_width*em#,cap#,0); "The letter I";
  20.   penpos1(stem,15); penpos2(.9stem,12); penpos3(stem,10);
  21.   x1=x2=x3=.5w; y1=h; y2=.55h; y3=0; x2l:=1/6[x2l,x2];
  22.   penstroke z1e..z2e{down}..z3e;
  23.   penlabels(1,2,3); endchar; enddef;
  24.