% METAFONT Source fuer einen Zeichensatz nur bestehend aus dem UniLogo (von A - Z)

mode_setup;
font_size 10pt#;
font_identifier:="UNILOGO";
font_coding_scheme:="Uni-Logo";

ff:=sqrt 1.2;
u#:=10/18pt#; uu#:=.1u#;
ph#:=120uu#; pw#:=132uu#;
dd#:=6uu#;
bar#:=36uu#;

for k=0 upto 25:
define_pixels(ph,pw,dd,bar);
beginchar(65+k,2(pw#+2dd#)+dd#,2(ph#+dd#)+bar#+2dd#,bar#+3dd#);
"UNILOGO";
a:=0.1w;
x1=y1=y2=x5=0;
x2=6.9a;
x3=1.4a; y3=1.1a;
x4=1.4a; y4=3.9a;
y5=2.8a;

x6=2.2a; y6=1.75a;
z7=(7.4a,0.3a);
z8=(3.6a,2.85a);
z9=(3.6a,6.85a);
z10=(2.2a,5.75a);

z11=z8+z6-z3;
z12=(7.7a,.5a);
z13=(5.8a,3.8a);
z14=z15+z9-z10;
z15=2z10-z5;

z16=(6.6a,4.85a);
z17=(8a,0.7a);
z18=(8a,5.75a);
z19=(6.6a,6.85a);

fill z1--z2--z3--z4--z5--cycle;
fill z6--z7--z8--z9--z10--cycle;
fill z11--z12--z13--z14--z15--cycle;
fill z16--z17--z18--z19--cycle;

endchar;
pw#:=ff*pw#; ph#:=ff*ph#; dd#:=ff*dd#; bar#:=ff*bar#;
endfor;
font_normal_space 4pt#; font_normal_stretch 2pt#;
font_normal_shrink 1pt#; font_x_height 5pt#;
font_quad 10pt#; font_extra_space 1pt#;

end;