1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
% This is IROMSPU.MF in text format, as of Mar 31, 1986.
% This file contains special letters and letter combinations,
% compatible with the alphabet `{\tt romanu}'.
% Codes \0035--\0037 are generated.
% ************************************************************************
% Öslenskun 7. jan. 1988. (IROMSPU.MF)
% Fleygt £t AE og OE. AE er ¡ skr nni iceland3.mf
% Breytt um t”lugildi gegnustrikuÐu ”-i
% ************************************************************************
iff known scand_cap_o: cmchar "Scandinavian letter O/slash";
beginchar(oct"076",14u#,cap_height#+.25desc_depth#,.25desc_depth#);
italcorr .7cap_height#*slant-.5u#;
adjust_fit(0,0);
penpos1(vair,90); penpos3(vair,-90);
penpos2(fudged.cap_stem,180); penpos4(fudged.cap_stem,0);
if monospace: x2r=hround 1.5u;
interim superness:=sqrt superness; % make |"O"| not |"0"|
else: x2r=hround u; fi
x4r=w-x2r; x1=x3=.5w;
y1r=cap_height+o; y2=y4=.5cap_height-vair_corr; y3r=-o;
penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
& pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle; % bowl
x5=x4-vair; x6=x2+vair; y5=h; y6=-d;
numeric theta; theta=angle(z5-z6)-90;
pickup crisp.nib; pos5(vair',theta); pos6(vair',theta);
filldraw stroke z5e--z6e; % diagonal
penlabels(1,2,3,4,5,6); endchar;
|
