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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
% +AMDG
font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
pixels_per_inch:=1200;
mode_setup;
%%%% Define Dimensions for Whole Boxes %%%%
phi=(1+sqrt5)/2;
cap#=7pt#;
u#=2cap#/3;
em#=cap#;
ex#=0.6cap#;
dep#=cap#/3;
ss#=0.3pt#;
asch#=12cap#/12;
digwid#=1ex#;
slant = 0;
font_slant 0u#;
font_normal_space 0.5u#;
font_normal_stretch 0.2u#;
font_normal_shrink 0.2u#;
font_x_height cap#/phi;
font_quad em#;
font_extra_space 0.5u#;
penwidth#=0.01pt#;
%%%% Define Dimensions for Letters %%%%
lserc#=0.08u#;
lserh#=lserc#+lserstep#;
lhigh#=0.3u#;
lserstep#=0.05u#;
userc#=0.08u#;
userh#=userc#+userstep#;
lserw#=0.2u#;
userw#=0.2u#;
userstep#=0.05u#;
bulbsh#=0.10u#;
curvwid#=1.0pt#;
slantwid#=1.0pt#;
thickstroke#=0.9pt#;
loopgap#=0.9pt#;
thinstroke#=0.3pt#;
o#=0.2thinstroke#;
hair#=0.2pt#;
ssslant#=0.1u#;
dotwidth#=userw#-o#;
pwid#=2userw#;
accwid# = pwid#/8;
theight#=7asch#/8;
define_pixels(theight);
define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth);
define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair);
define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair);
pickup pencircle scaled penwidth; cappen:=savepen;
equalize=thickstroke/2-thinstroke/2;
input drmscligs
input drmcap.mf
input drmlowmac.mf
input drmtcap.mf
input drmpunct.mf
input drmacc.mf
input drmtcacclet.mf
input drmtcdigs.mf
input drmtcdol.mf
end;
|
