home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / useful / dist / text / tex / pastex / mf / inputs / logobase.mf < prev    next >
Text File  |  1990-02-14  |  1KB  |  35 lines
  1. % Base file  for the METAFONT logo
  2. logobase:=1;  % when logobase is known, this file has been input
  3.  
  4. def font_setup =
  5.  if unknown slant: slant:=0 else: currenttransform:=
  6.   identity slanted slant yscaled aspect_ratio fi;
  7.  
  8.  ygap#:=(ht#/13.5u#)*xgap#;              % vertical adjustment
  9.  ho#:=o#;                                % horizontal overshoot
  10.  leftstemloc#:=2.5u#+s#;                 % position of left stem
  11.  barheight#:=.45ht#;                     % height of bar lines
  12.  py#:=.9px#;                             % vertical pen thickness
  13.  
  14.  define_pixels(s,u);
  15.  define_whole_pixels(xgap);
  16.  define_whole_vertical_pixels(ygap);
  17.  define_blacker_pixels(px,py);
  18.  pickup pencircle xscaled px yscaled py;
  19.  logo_pen:=savepen;
  20.  define_good_x_pixels(leftstemloc);
  21.  define_good_y_pixels(barheight);
  22.  define_corrected_pixels(o);
  23.  define_horizontal_corrected_pixels(ho); enddef;
  24.  
  25. def beginlogochar(expr code, unit_width) =
  26.  beginchar(code,unit_width*u#+2s#,ht#,0);
  27.  pickup logo_pen enddef;
  28.  
  29. def super_half(suffix i,j,k) =
  30.  draw z.i{0,y.j-y.i}
  31.  ... (.8[x.j,x.i],.8[y.i,y.j]){z.j-z.i}
  32.  ... z.j{x.k-x.i,0}
  33.  ... (.8[x.j,x.k],.8[y.k,y.j]){z.k-z.j}
  34.  ... z.k{0,y.k-y.j} enddef;
  35.